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

[REBOL] Generic unview/only

From: atruter::hih::com::au at: 28-May-2002 17:32

As a public service I offer the following code to those who seek a simple alternative to the VIEW/VID LIFO unview model (apologies in advance if most folks have already figured this out . . . it had me stumped for a while so I thought I'd save someone else the frustration ;) ) <CODE> REBOL [] show-win: func [handle at] [ view/new/offset set handle layout [ button join "Close " handle compose [unview/only (handle)] ] at ] show-win 'A 100x100 show-win 'B 200x200 show-win 'C 300x300 show-win 'D 400x400 do-events </CODE> Regards, Ashley