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

[REBOL] Re: Enage and Select

From: rotenca:telvia:it at: 17-Sep-2003 16:10

Try: l: layout [b: button "test" [print "action code"]] b/feel: make b/feel [ old-engage: :engage engage: func [face action event][ print action old-engage face action event ] ] view l You can also make it a style (a new reusable object): l: layout [ style new-button button feel [ old-engage: :engage engage: func [face action event][ print action old-engage face action event ] ] new-button "test1" [print "action code 1"] new-button "test2" [print "action code 2"] ] view l --- Ciao Romano