Extend API to allow disable or enable of any tool.

Remove code for creating json boolean false from lisp.

Base/web-server.cl

@@ -194,13 +194,7 @@
   (let ((reply-json
 	 ;; By default, cl-json turns dashes into camel-case:  
 	 ;; Instead, we convert to lower case, preserving dashes.
-	 (let ((*lisp-identifier-name-to-json* #'string-downcase)
-	       ;; The cl-json package has no built-in method for generating
-	       ;; a json boolean false.  The following allows us to
-	       ;; use lisp keyword :false for this purpose.
-	       (json::+json-lisp-symbol-tokens+ '(("true" . t)
-						  ("null" . nil)
-						  ("false" . :false))))
+	 (let ((*lisp-identifier-name-to-json* #'string-downcase))
 	   (encode-json-alist-to-string reply))))
 
         (when *log-function*

Help/sessions.cl

@@ -506,9 +506,8 @@
       (unless (intersection '(circular rotkin angmom torque mag gauss) 
 			  (problem-features *cp*))
 	    (push '((:action . "set-styles")
-		    ;; :false generates a json boolean false.
-		    ;; See comments in Base/web-server.cl
-		    (:z-axis-enable . :false)) replies))
+		    (:tool . "vectorSecondary")
+		    (:style . "disabled")) replies))
 
       ;; set-stats (if there was an old score) (to do)
       ;; Should this be wrapped in execute-andes-command?

web-UI/andes/andes3.smd

@@ -35,6 +35,11 @@
 	      "optional": true,
 	      "description": "Identifier for each drawn item, set by the creator of the object. Required for new-object"
 	    },
+     	    "tool": {
+	      "type": "string",
+	      "optional": true,
+	      "description": "Identifier for drawing tools.  Should match the short names of tools in toolType."
+	    },
 	    "type": {
 	      "type": "string",
 	      "enum": ["statement", "graphics", "equation", "ellipse", "circle",
@@ -51,7 +56,7 @@
 	    "style":{
 	      "type": "string",
 	      "optional": true,
-	      "description": "subset of type, specify visual presentation (not used yet)"
+		    "description": "Specify visual presentation or user interface action."
 	    },	    
 	    "x":	{"type": "number",  "optional": true},
 	    "y":	{"type": "number",  "optional": true},
@@ -69,7 +74,6 @@
 			 "description": "in degrees"},
 	    "cosphi":  {"type": "number", "optional": true, 
  	                 "description": "cos(phi), default is zero"},
-            "z-axis-enable" : {"type": "boolean", "optional": true},
 	    "href":    {"type": "string",	"optional": true},
 	    "checked": {"type": "array", "items": "string", "optional": true, 
 			"description": "for buttons"},