Commit e83bac1a authored by Dave Cooper's avatar Dave Cooper

updated geysr menus.

parent a6b5a5f8
......@@ -34,9 +34,16 @@
(define-object geysr-primi-plane (assembly)
:computed-slots ((root-object-type (read-from-string "primi-plane"))))
#+nil
(define-object geysr-tool-search (assembly)
:computed-slots ((root-object-type (read-from-string "gdl-user::tool-search"))))
(define-object geysr-spiral (assembly)
:computed-slots ((root-object-type (read-from-string "surf::spiral-curve-test"))))
(define-object geysr-bolt (assembly)
:computed-slots ((root-object-type (read-from-string "gdl-user::bolt-test"))))
(defun initialize ()
(let* ((directory (namestring
......@@ -66,8 +73,11 @@
(publish-gwl-app "/geysr-cpacs" 'geysr-cpacs)
(publish-gwl-app "/geysr-pp" 'geysr-primi-plane)
(publish-gwl-app "/geysr-ts" 'geysr-tool-search)
;;(publish-gwl-app "/geysr-ts" 'geysr-tool-search)
(publish-gwl-app "/geysr-spiral" 'geysr-spiral)
(publish-gwl-app "/geysr-bolt" 'geysr-bolt)
)))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment