Forever Buttons - Handle stop correctly

[clnl] / resources / UI-test.nlogo

diff --git a/resources/UI-test.nlogo b/resources/UI-test.nlogo
index 51bc13783c95ab2bd41801bbba655929414812bf..5b08fe04f8dce150c66834e1af0c8709a7305d1a 100644 (file)
--- a/resources/UI-test.nlogo
+++ b/resources/UI-test.nlogo
@@ -1,6 +1,12 @@
 to go
   ask turtles [ fd 1 ]
 end
+
+to create-and-move
+  if 40 < count turtles [ stop ]
+  crt 1
+  ask turtles [ fd 1 ]
+end
 @#$#@#$#@
 GRAPHICS-WINDOW
 219
@@ -97,6 +103,23 @@ NIL
 NIL
 1
 
+BUTTON
+66
+276
+161
+309
+stopping
+create-and-move
+T
+1
+T
+OBSERVER
+NIL
+NIL
+NIL
+NIL
+1
+
 @#$#@#$#@
 ## WHAT IS IT?