Data commit

Task/Simple-windowed-application/FutureBasic/simple-windowed-application.basic

@@ -0,0 +1,36 @@
+_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