[REBOL] Re: area problem
From: sant4:wanadoo at: 20-Sep-2007 15:28
the style area contains the flags: [tabbed on-unfocus input]
>> layout [a: area]
>> a/flags
== [tabbed on-unfocus input]
So, you could check 'input flag instead
empty-fields: func [ panel [object!] ][
if not all [ in panel 'type panel/type = 'face ] [ exit ]
unfocus
foreach face panel/pane [
unless empty? intersect face/flags [field input] [ either series? face/text
[ clear face/text face/line-list: none ]
[ face/text: attempt [ make face/text none ]]
]
]
show panel
]
Steeve