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

keyboard support

Browse source
This commit is contained in:
David Botton 2022-02-06 13:35:42 -05:00
parent 83b23a818a
commit 300717cab9
4 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

3
tools/clog-builder.lisp
View file

@ -816,7 +816,7 @@ of controls and double click to select control."
\(defun create-~A \(clog-obj &key \(hidden nil\) \(class nil\) \(html-id nil\) \(auto-place t\)\)
\(let \(\(panel \(change-class \(clog:create-div clog-obj :content \"~A\"
:hidden hidden :class class :html-id html-id :auto-place auto-place\) \'~A\)\)\)
~{~A~}~{~A~} panel\)\)"
~{~A~}~{~A~} panel\)\)~%"
(string-upcase package)
cname ;;defclass
cmembers
@ -1333,6 +1333,7 @@ of controls and double click to select control."
(declare (ignore obj))()))))
(defun on-new-app-template (obj)
"Menu option to create new project from template"
(let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :title "New Application Template"
:width 500 :height 400))