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

Drop the custom boot file and use the new clog-gui

Browse source
This commit is contained in:
David Botton 2021-02-10 00:48:30 -05:00
parent 33b9344734
commit 420bc31015
6 changed files with 55 additions and 78 deletions
Download patch file Download diff file Expand all files Collapse all files

26
tutorial/22-tutorial.lisp Normal file
View file

@ -0,0 +1,26 @@
(defpackage #:clog-user
(:use #:cl #:clog)
(:export start-tutorial))
(in-package :clog-user)
(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"))
(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 ()
"Start turtorial."
(initialize #'on-new-window)
(open-browser))