World: r3wp

view layout [
        below
        p-list: list 550x180 [
                across origin 2x2
                chk: 	check true 
		a1: 	text wrap 100
                a2: 	text wrap 100
		pg1: 	progress 40x20 0.5
		pg2: 	progress 40x20 0.2
		a3: 	text wrap 20
		arr-1: 	box 40x20 effect [ draw arrow red rotate  180 ]
        ] supply [
                if count > length? t [face/show?: false exit]
                face/show?: true
                face/text: t/:count/:index
		;; face/data: d/:count/:index
        ]
	
	btn "set" [ ] 
]

LIST doesn't iterate styles that need state (IIRC). I would generate 
the layout dynamically and put the whole thing into a scrolling pane, 
unless that ends up being too slow or memory intensive.

I agree. It's very difficult to make a lot of styles behave properly 
when iterated by a LIST. (And I've tried, believe me.) It's better 
to make a window full of real faces and scroll your data through 
them yourself.

thx for direction gregg and anton, will create a custom face for 
this.

anyone had issues with view popups when inserting a custom event-handler?


I'm doing something in view, nothing patched, wake event left as-is... 
I have an inserted an event-handler, and the moment I click on a 
choice, all the events stop... even time events.


I don't even receive events at my handler, so its not a "returning 
none from event-handler" type bug... any ideas, fixes, similar unsolvable 
observations?

this is mighty strange... doesn't seem related to the event handler 
finally... I commented-out that part of my code and the choice still 
hangs my app!

found it... related to some hierarchichal library loading... which 
inadvertently ended up loading glayout which replaces the popup handling 
by its own. so all is good... sorry for jumping the gun.

Is 'image-filter implemented in R2 ? Or is there another interpolation 
 means to improve the display of an image when changing it's size? 
Of course, I do not want to use external means like ImageMagick.

jocko, only for upwards scaling unfortunately. No, you can't make 
good looking thumbnails in R2. :-/

I am not looking for thumbnail generation, but for image display 
with rescaling with fractional zoom factor (let's say between 0.5 
and 2.0). When using effect resizing in a layout, the interpolation 
mode is nearest. Is it possible to set it differently (i.e. bilinear) 
?

I'm not sure the View engine supports filtering at all. The DRAW 
engine does for upward scaling, but not downward scaling < 1. I only 
mentioned thumbs, because it's a common scenario. :-)

ok, anyway,  to my opinion, it'a a must for the R3 engine.

R3 does this elegantly already: It's based only on DRAW and all options 
for filtering from AGG are exposed. It fully supports high quality 
down and upscaling. :-)

Nice ! Another reason to expect a close beta release !

Hey what are you saying, you can do the scaling you want  with Draw...

yes for the scaling,  but it seems that there is no interpolation 
(apart from nearest)

is there a definite documentation on the systray support in windows? 
 I have some working code (from Izkata) but I am wondering if there 
is more to the interface than what I am using.

an exhaustive code example could also suffice

I don't even think I used systray in REBOL since going to Vista. 
 So dunno if it works on Vista.

I would give you what I got but it is in archives as part of my easyserv 
project long ago.

anyone know how to change the system tray icon dynamically?  by this 
I mean... the winapi calls which play around with that?

can anyone explain to me why offset on para and font do nothing every 
I try to use them?

I could use the scroll, but since its a field, the moment I enter 
text, the scroll goes back its default, which is badly aligned with 
the fields I am trying to get clean  \ :-(

ahhh I forgot that the para's offset is called origin... its been 
a while since I've tinkered with VID  :-)

Jocko, in R2 if you use effect dialect to resize images, yes it uses 
nearest interpolation.
But draw uses blinear by default.
see:

img: logo.gif
siz: img/size * 4
view layout [
	below
	image img
	image img siz effect [aspect]
	box siz effect [draw [image img 0x0 siz]]
]


In R3 it's annouced that  image-filter supports NEAREST,BILINEAR,BICUBIC 
and GAUSSIAN interpolation

We can do a other missing interpolations in R2 wit maths, but it 
will be slow...

do http://www.hmkdesign.dk/rebol/thumbtest/thumbtest.r


A small test I did to compare methods for generating thumbnails in 
R2.

uh ? they are not done with Rebol are they Henrik ?

The 3rd party ones (the last two) are pre-done. The rest are done 
with R2.

Max, I found some old systray experimental code. No guarantees.

REBOL []

; r/3 = 'activate = left-click
; r/3 = 'activate = rt-click+menu-item-sel

hex: func [
    {Returns the base-10 value of a hexadecimal number.}
    value [integer! string! issue!] "A hexadecimal number"
][

    ; Convert to an issue first, so integers can also be translated.
    to integer! to issue! value
]

make-elements: func [name count type /local result][
    if not word? type [type: type?/word type]
    result: copy "^/"
    repeat i count [
        append result join name [i " [" type "]" newline]
    ]
    to block! result
]

NOTIFYICONDATA: make struct! compose [
    cbSize  [integer!]
    hwnd    [integer!]
    uId     [integer!]
    uFlags  [integer!]
    uCallBackMessage [integer!]
    hIcon   [integer!]
    (make-elements 'szTip 64 #"@")  ; CHAR
] none
NOTIFYICONDATA/cbSize: length? third NOTIFYICONDATA

;change at third NOTIFYICONDATA 25 "New ToolTip!"
;probe NOTIFYICONDATA
;halt

;constants required by Shell_NotifyIcon API call:
NIM_ADD:     hex 0
NIM_MODIFY:  hex 1
NIM_DELETE:  hex 2
NIF_MESSAGE: hex 1
NIF_ICON:    hex 2
NIF_TIP:     hex 4
WM_MOUSEMOVE:       hex 200
WM_LBUTTONDOWN:     hex 201  ;   'Button down
WM_LBUTTONUP:       hex 202  ;     'Button up
WM_LBUTTONDBLCLK:   hex 203  ; 'Double-click
WM_RBUTTONDOWN:     hex 204  ;   'Button down
WM_RBUTTONUP:       hex 205  ;     'Button up
WM_RBUTTONDBLCLK:   hex 206  ; 'Double-click


;Public Declare Function SetForegroundWindow Lib "user32" (ByVal 
hwnd As Long) As Long

lib: load/library %shell32.dll

Shell_NotifyIcon: make routine! compose/deep [
    dwMessage [integer!]
    pnid      [struct! [(NOTIFYICONDATA)]]
    return:   [integer!]
] lib "Shell_NotifyIconA"


my-hwnd?: does [second get-modes system/ports/system [window]]

set-tray-tooltip: func [struct string] [
    change at third struct 25 string
    struct
]



system-awake: func [port /local evt][
    if all [evt: pick port 1  (evt/1 = 'tray)] [
        status/text: mold evt
        show status
;         if any [
;             (evt/3 = 'activate)
;             all [(evt/3 = 'menu)  (evt/4 = 'desktop)]
;         ] [
;             if not desktop-loaded [
;                 link-exec-start-desktop/force
;             ]
;         ]
;         if all [(evt/3 = 'menu)  (evt/4 = 'quit)] [quit]
    ]
    false
]

system/ports/system/awake: :system-awake
append system/ports/wait-list system/ports/system

view layout [
    style button button 200
    button "Add Tray Menus" [
        set-modes system/ports/system compose/deep [
            tray: [
                add main [

                    help: (rejoin ["REBOL/Link" any [""]]) ; tooltip

                    menu: [test: "Test" desktop: "Start Desktop" bar quit: "Quit"]
                ]
                add other [
                    ;help: (rejoin ["REBOL/Link" any [""]])
                    menu: [test-2: "Test-2" bar quit-2: "Quit-2"]
                ]
            ]
        ]
    ]
    button "Remove Tray Main Menu" [
        set-modes system/ports/system [
            tray: [remove main]
        ]
    ]
    button "Remove Tray Other Menu" [
        set-modes system/ports/system [
            tray: [remove other]
        ]
    ]
    ;button "Change Tray Other Menu" [
    ;    set-modes system/ports/system [
    ;        tray: [
    ;            change other [
    ;                help: "New Help!"

    ;                menu: [test-3: "Test-3" bar quit-3: "Quit-3"]
    ;            ]
    ;        ]
    ;    ]
    ;]
    button "Modify Tooltip" [
        nid: make struct! NOTIFYICONDATA none
        nid/hwnd: my-hwnd?
        nid/uid: 1
        nid/cbSize: length? third nid
        nid/uFlags:  NIF_TIP  ; NIF_ICON
        ;nid/hIcon:
        ;nid/szTip:  "New ToolTip!^@"
        set-tray-tooltip nid "New ToolTip A!"
        ;print mold third nid
        res: Shell_NotifyIcon NIM_MODIFY nid
        print [res to logic! res]
    ]
    button "Modify Other Tooltip" [
        nid: make struct! NOTIFYICONDATA none
        nid/hwnd: my-hwnd?
        nid/uid: 2
        nid/cbSize: length? third nid
        nid/uFlags:  NIF_TIP  ; NIF_ICON
        ;nid/hIcon:
        ;nid/szTip:  "New ToolTip!^@"
        set-tray-tooltip nid "New ToolTip B!"
        ;print mold third nid
        res: Shell_NotifyIcon NIM_MODIFY nid
        print [res to logic! res]
    ]
    button "Unview" [unview]
    status: text 200
]



free lib

thanks!! I'll look into this :-)

Systray? Systray was done by Cyphre for me on contract, and released 
for free. IIRC Cheyenne used it at some point ...

If there wouldn't be a systray I probably wouldn't switch my bigger 
project to rebol and consequently started with all projects in rebol.. 
cheyenne was the most cruicial reason, if there wouldn't be cheyenne 
I would never switch -- but systray was the final nail in the coffin 
of the previous languge for that particular project. So, thanks  
Pekr and Cyphre!

Is there a simple way to replace one style with another in a pane? 
I would like to interchange a FIELD and an INFO in the same spot, 
but by directly altering the field face.

do you mean as in hidden pane swapping?

tighter than that. it must be the face itself that should be swapped.

define a separate: field/info and swap the face reference i guess

just save then reassign pane/face

well, it's about which parameters that need to be brought over. size, 
offset and internal data should be the same.

should be simple as a variable swap - just have to use globals in 
R2

I don't think I want to do it that way. The face I swap with could 
probably be obtained using GET-STYLE. But then certain parameters 
from the old face should be grafted onto the new face.

well, about to test, so we'll see if it works...

couldn't you get the same effect by selectively locking teh field 
object?

locking, how?

override the feel

style lockable-field field feel [...]

that's not enough. it has to be visual as well.

you can intercept the redraw

that's too complicated.

redraw: func [face act pos] [set-face-look..]  ..  not really that 
complicated..