Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Simple-windowed-application/J/simple-windowed-application-1.j
+++ b/Task/Simple-windowed-application/J/simple-windowed-application-1.j
@ -0,0 +1,20 @@
+SIMPLEAPP=: noun define
+pc simpleApp;
+cc inc button;cn "Click me";
+cc shownText static;cn "There have been no clicks yet.";
+)
+
+simpleApp_run=: verb define
+  wd SIMPLEAPP
+  simpleApp_accum=: 0   NB. initialize accumulator
+  wd 'pshow;'
+)
+
+simpleApp_inc_button=: verb define
+  wd 'set shownText text ','Button-use count:  ',": simpleApp_accum=: >: simpleApp_accum
+)
+
+simpleApp_close=: wd bind 'pclose'
+simpleApp_cancel=: simpleApp_close
+
+simpleApp_run''
--- a/Task/Simple-windowed-application/J/simple-windowed-application-2.j
+++ b/Task/Simple-windowed-application/J/simple-windowed-application-2.j