[REBOL] Re: Choice problem
From: kpeters::otaksoft::com at: 14-Sep-2007 17:20
Whoa - that was awful again - sorry for that. Forgot to switch back to plain text :(
Allessandro ~
I believe the code below crashes when the choice is in dropped down state and thus covers
a face
that the function wants to talk to.
Does anyone know how to tell a choice to "roll up"?
TIA,
Kai
empty-fields: func [ "Clear all text fields faces of a layout." panel [object!] ][
if not all [ in panel 'type panel/type = 'face ] [ exit ]
unfocus
foreach face panel/pane [
if any [ flag-face? face field
flag-face? face area
flag-face? face memo
flag-face? face fld
flag-face? face inf
][ either series? face/text
[ clear face/text face/line-list: none ]
[ face/text: attempt [ make face/text none ]]
]
]
; show panel
]
On Fri, 14 Sep 2007 08:31:37 +0200, Alessandro Manotti wrote:
