mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-15 15:00:24 -08:00
Code Issues Projects Releases Wiki Activity

add envelope-panel

Browse source
This commit is contained in:
David Botton 2024-06-26 16:54:11 -04:00
parent 0e2aac306b
commit f75a0d33d2
7 changed files with 46 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

5
tools/clog-builder-panels.lisp
View file

@ -554,6 +554,7 @@ not a temporarily attached one when using select-control."
(btn-del (create-img tool-bar :alt-text "delete" :url-src img-btn-del :class btn-class))
;;(btn-undo (create-img tool-bar :alt-text "undo" :url-src img-btn-undo :class btn-class))
;;(btn-redo (create-img tool-bar :alt-text "redo" :url-src img-btn-redo :class btn-class))
(btn-eval (create-img tool-bar :alt-text "evaluate" :url-src img-btn-sim :class btn-class))
(btn-test (create-img tool-bar :alt-text "test" :url-src img-btn-test :class btn-class))
(btn-rndr (create-img tool-bar :alt-text "render" :url-src img-btn-rndr :class btn-class))
(btn-save (create-img tool-bar :alt-text "save" :url-src img-btn-save :class btn-class))
@ -582,6 +583,7 @@ not a temporarily attached one when using select-control."
(setf (advisory-title btn-del) "delete")
;;(setf (advisory-title btn-undo) "undo")
;;(setf (advisory-title btn-redo) "redo")
(setf (advisory-title btn-eval) "evaluate")
(setf (advisory-title btn-test) "test")
(setf (advisory-title btn-rndr) "render to lisp - shift-click render as...")
(setf (advisory-title btn-save) "save - shift-click save as...")
@ -594,6 +596,7 @@ not a temporarily attached one when using select-control."
(setf (height btn-del) "12px")
;;(setf (height btn-undo) "12px")
;;(setf (height btn-redo) "12px")
(setf (height btn-eval) "12px")
(setf (height btn-test) "12px")
(setf (height btn-rndr) "12px")
(setf (height btn-save) "12px")
@ -973,6 +976,8 @@ not a temporarily attached one when using select-control."
(save obj nil))
(window-close win)
(on-new-builder-panel obj :open-file file-name)))
(set-on-click btn-eval (lambda (obj)
(eval-test obj :test nil)))
(set-on-click m-eval (lambda (obj)
(eval-test obj :test nil)))
(set-on-click btn-test #'eval-test)