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

quick start window

Browse source
This commit is contained in:
David Botton 2022-07-03 22:25:22 -04:00
parent 1dee89b0d3
commit e5fbbad35e
4 changed files with 67 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/clog-builder.lisp
View file

@ -1836,6 +1836,15 @@ of controls and double click to select control."
(create-image-to-data (window-content win))
(window-center win)))
(defun on-quick-start (obj)
"Open quick start"
(let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :title "Quick Start"
:top 40 :left 225
:width 600 :height 400
:client-movement t)))
(create-quick-start (window-content win))))
(defun on-new-builder (body)
"Launch instance of the CLOG Builder"
(set-html-on-close body "Connection Lost")
@ -1873,6 +1882,7 @@ of controls and double click to select control."
(create-gui-menu-item win :content "Maximize All" :on-click #'maximize-all-windows)
(create-gui-menu-item win :content "Normalize All" :on-click #'normalize-all-windows)
(create-gui-menu-window-select win)
(create-gui-menu-item help :content "CLOG Quick Start" :on-click 'on-quick-start)
(create-gui-menu-item help :content "CLOG Manual" :on-click
(lambda (obj)
(declare (ignore obj))