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.




_window = 1
 
begin enum 1
  _label
  _clickMeBtn
end enum
 
void local fn BuildWindow
  window _window, @"Simple Windowed Application", (0,0,366,59)
 
  textlabel _label, @"There have been no clicks yet", (18,23,250,16)
 
  button _clickMeBtn,,, @"Click Me", (267,13,86,32)
end fn
 
void local fn ButtonClicked
  static long clickCount = 0
 
  clickCount++
  textlabel _label, fn StringWithFormat( @"The button has been clicked %ld times", clickCount )
end fn
 
void local fn DoDialog( ev as long, tag as long )
  select ( ev )
    case _btnClick
      select ( tag )
        case _clickMeBtn : fn ButtonClicked
      end select
  end select
end fn
 
fn BuildWindow
 
on dialog fn DoDialog
 
HandleEvents