[REBOL] Re: Changing VID Styles
From: sanghabum:aol at: 11-Dec-2001 19:08
Hi Volker,
> >
> > I have a layout with a load of entry fields (VID style Field). I need to
> > occassionaly display this with all entry fields disabled.
<snip>
> i expect you should change the complete feel, since this defines how
> a face reacts.
>
> for fields it should be: ctx-text/swipe
> for info it should be: ctx-text/edit
>
Thanks for the response. How do you learn this stuff? help ctx-text on my
machine starts an infinite molded print.
I've been thinking a bit more about my problem. And It gets more complicated.
I want to "freeze" check boxes, Choice boxes, and disable the "Save" button
and so forth. That's going to be a lot of work to set a display to "read
only".
I've hit on another way that'll do the job for my application. The solution
is to display the layout as an image when read only. The crude code below is
a proof-of-concept.
===========
unview/all
DataWindow: layout/offset [field button
"Display only"
[DisplayBox/Image: make Image! MainPanel/Pane
DisplayBox/Size: DisplayBox/image/Size
MainPanel/Pane: DisplayPanel
Show MainPanel
]
field button field
] 0x0
view/new layout/offset [MainPanel: box 300x400] 0x0
MainPanel/Pane: DataWindow
DisplayPanel: layout/offset [DisplayBox: box 300x400
[] ; no left click
;; Right click to "reactivate"
[ MainPanel/Pane: DataWindow
Show MainPanel
]
] 0x0
Show MainPanel
do-events
===========
Colin.
