Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search

[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