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

clog-gui-window start

Browse source
This commit is contained in:
David Botton 2021-02-11 00:11:25 -05:00
parent 22b64dafe0
commit c691b40578
7 changed files with 270 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

9
tutorial/22-tutorial.lisp
View file

@ -4,19 +4,24 @@
(in-package :clog-user)
(defun on-file-new (body)
(setf (set-on-window-size-done (create-gui-window body))
(lambda (obj)
(print "sized"))))
(defun on-new-window (body)
(clog-gui-initialize body)
(add-class body "w3-teal")
(let* ((menu (create-gui-menu-bar body))
(icon (create-gui-menu-icon menu))
(file (create-gui-menu-drop-down menu :content "File"))
(new (create-gui-menu-item file :content "New"))
(new (create-gui-menu-item file :content "New" :on-click #'on-file-new))
(open (create-gui-menu-item file :content "Open"))
(save (create-gui-menu-item file :content "Save"))
(help (create-gui-menu-drop-down menu :content "Help"))
(about (create-gui-menu-item help :content "About"))
(fs (create-gui-menu-full-screen menu))))
(run body))
(defun start-tutorial ()