[REBOL] Re: [View] dirty?
From: cyphre:seznam:cz at: 10-Oct-2003 12:30
Hi Ingo,
I don't know it this if easiest but try this:
find-dirty: func [fac][
if fac/pane [
foreach f reduce to-block fac/pane [
first f
if all [find first f 'dirty? f/dirty?][
print [f/var "is dirty!"]
]
find-dirty f
]
]
]
example:
view lay: layout [
f1: field
panel yellow 240x65 [
f2: field
]
button "find dirty" [
find-dirty lay
]
]
You can generalize the function for recursive search of any face's
property...
regards,
Cyphre
