all tasks

Task/Simple-windowed-application/Forth/simple-windowed-application-1.fth

@@ -0,0 +1,11 @@
+also minos
+text-label ptr click-label
+Variable click#  click# off
+: click-win ( -- ) screen self window new window with
+    X" There have been no clicks yet" text-label new
+      dup F bind click-label
+    ^ S[ 1 click# +!
+         click# @ 0 <# #S s" Number of clicks: " holds #>
+         click-label assign ]S X" Click me" button new
+    &2 vabox new panel s" Clicks" assign show endwith ;
+click-win

Task/Simple-windowed-application/Forth/simple-windowed-application-2.fth

@@ -0,0 +1,36 @@
+#! xbigforth
+\ automatic generated code
+\ do not edit
+
+also editor also minos also forth
+
+component class ccount
+public:
+  early widget
+  early open
+  early dialog
+  early open-app
+  text-label ptr click#
+ ( [varstart] ) cell var clicks ( [varend] )
+how:
+  : open     new DF[ 0 ]DF s" Click counter" open-component ;
+  : dialog   new DF[ 0 ]DF s" Click counter" open-dialog ;
+  : open-app new DF[ 0 ]DF s" Click counter" open-application ;
+class;
+
+ccount implements
+ ( [methodstart] )  ( [methodend] )
+  : widget  ( [dumpstart] )
+        X" There have been no clicks yet" text-label new  ^^bind click#
+        ^^ S[ 1 clicks +!
+clicks @ 0 <# #S s" Number of clicks: " holds #> click# assign ]S ( MINOS ) X" Click me"  button new
+      &2 vabox new panel
+    ( [dumpend] ) ;
+  : init  ^>^^  assign  widget 1 :: init ;
+class;
+
+: main
+  ccount open-app
+  $1 0 ?DO  stop  LOOP bye ;
+script? [IF]  main  [THEN]
+previous previous previous