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

Add menu from clog-gui to tutorial 26

Browse source
This commit is contained in:
David Botton 2021-03-17 12:16:21 -04:00
parent 43e51cc367
commit c95f8e1e3e
3 changed files with 23 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
tutorial/26-tutorial.lisp
View file

@ -9,14 +9,24 @@
(defpackage #:clog-user
(:use #:cl #:clog #:clog-web)
(:use #:cl #:clog #:clog-web #:clog-gui)
(:export start-tutorial))
(in-package :clog-user)
(defun on-new-window (body)
(clog-web-initialize body)
(clog-gui-initialize body)
(setf (title (html-document body)) "Tutorial 26")
;; Install a menu
(let* ((menu (create-gui-menu-bar body))
(tmp (create-gui-menu-icon menu :on-click (lambda (obj)
(setf (hash (location body)) "rung2"))))
(tmp (create-gui-menu-item menu :content "About"
:on-click (lambda (obj)
(setf (hash (location body)) "rung2"))))
(tmp (create-gui-menu-full-screen menu)))
(declare (ignore tmp)))
;; rung-1
(let* ((first-rung (create-web-compositor body :html-id "rung1"))
(image (create-img first-rung :url-src "/img/windmills.jpg"