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

[REBOL] BUTTON is odd widget out

From: joel::neely::fedex::com at: 2-May-2001 7:10

As the following code demonstrates, BUTTON seems to be an antisocial little tyke who will get marks off in "plays well with others". ;-) This raises two questions for me: 1) Is this a bug or a "feature"? 2) Are there any nice work-arounds? -jn- 8<------------------------------------------------------------------- #!/usr/local/bin/rebol rebol [] test2: make object! [ counter: 0 counter-text: to-string counter fix-text: func [thingie] [ thingie/text: counter-text show thingie ] the-head: the-text: the-vhead: the-vtext: the-field: the-info: the-button: the-label: the-recount: the-close: none uiSpec: [ the-head: h3 counter-text 50x20 the-text: text counter-text 50x20 the-vhead: vh3 counter-text 50x20 the-vtext: vtext counter-text 50x20 the-field: field counter-text the-info: info counter-text the-button: button counter-text the-label: label counter-text 50x20 the-recount: button "Recount" [ counter-text: to-string counter: 1 + counter fix-text the-head fix-text the-text fix-text the-vhead fix-text the-vtext fix-text the-field fix-text the-info fix-text the-button fix-text the-label ] the-close: button "Close" [unview] ] ui: layout uiSpec run: function [][][ view center-face ui ] ] test2/run 8<-----------------------------------------------------------------