[REBOL] area problem
From: kpeters:otaksoft at: 19-Sep-2007 16:15
I have used the modified clear-fields function below until I also had
some areas in my layout that needed to be cleared as well.
No sweat - a little mod & off I go - or so I thought. It ignored my areas!
Upon chasing it down, it appears that
flag-face? face area does not "detect" areas?
Why would areas be different and how do I fix this?
TIA,
Kai
empty-fields: func [ 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
]