Task

Create a window that has:

   a label that says   "There have been no clicks yet" 
   a button that says   "click me"


Upon clicking the button with the mouse, the label should change and show the number of times the button has been clicked.




rebol [
	Title: "Simple Windowed Application"
	URL: http://rosettacode.org/wiki/Simple_Windowed_Application
]
 
clicks: 0
 
; Simple GUI's in REBOL can be defined with 'layout', a
; special-purpose language (dialect, in REBOL-speak) for specifying
; interfaces. In the example below, I describe a gradient background
; with a text label and a button. The block in the button section
; details what should happen when it's clicked on -- increment the
; number of clicks and update the label text.
 
; The 'view' function paints the layout on the screen and listens for
; events. 
 
view layout [
	backdrop effect [gradient 0x1 black coal]
 
	label: vtext "There have been no clicks yet."
 
	button maroon "click me" [
		clicks: clicks + 1
		set-face label reform ["clicks:" clicks]
	]
]