Data commit

Task/Simple-windowed-application/M2000-Interpreter/simple-windowed-application.m2000

@@ -0,0 +1,18 @@
+Module CheckIt {
+      Declare Form1  Form
+      Declare Label1 Button Form Form1
+      Declare Button1 Button Form Form1
+      Method Label1,"move", 2000, 2000, 4000, 600
+      Method Button1,"move", 2000, 3000, 4000, 600
+      With Label1, "Caption" as caption$, "Locked", true, "Caption" as cap
+      With Button1, "Caption", "click me", "Default", True   ' make this the default control
+      caption$="There have been no clicks yet"
+      m=0
+      Function Button1.Click {
+                  m++
+                  cap=m
+      }
+      Method Form1, "Show",1
+      Declare Form1 Nothing
+}
+Checkit