Add safety limit

NEWS.md

@@ -5,6 +5,7 @@
 ### Added
 
 * app icon
+* safety limit for script execution
 
 ### Changed
 

genoa.tcl

@@ -51,6 +51,7 @@ set meta(viewBox) "0 0 200 200"
 set overlay {0 0 200 200}
 
 interp create -safe runner
+interp limit runner commands -value 1000000
 
 runner eval {
 	proc repeat {times code} {
@@ -487,7 +488,7 @@ if {[llength [info commands "console"]] > 0} {
 }
 
 ctext::addHighlightClass $editor statements blue \
-	"proc set incr if else for foreach while switch break continue return repeat alert"
+	"proc set incr if elseif else for foreach while switch break continue return repeat alert"
 ctext::addHighlightClass $editor functions purple \
 	"expr list string length llength + - * / sin cos"
 ctext::addHighlightClass $editor drawing purple \
@@ -746,7 +747,10 @@ proc do_render {} {
 			-title $window_title \
 			-message "Error in script" \
 			-detail $e
-	}	
+	}
+	
+	interp limit runner commands -value ""	
+	interp limit runner commands -value 1000000	
 }
 
 proc do_preview {} {