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

menus for clog-web

Browse source
This commit is contained in:
David Botton 2021-03-17 16:45:24 -04:00
parent c95f8e1e3e
commit d2a915502d
3 changed files with 193 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

13
tutorial/26-tutorial.lisp
View file

@ -9,23 +9,22 @@
(defpackage #:clog-user
(:use #:cl #:clog #:clog-web #:clog-gui)
(:use #:cl #:clog #:clog-web)
(: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)
(let* ((menu (create-web-menu-bar body))
(tmp (create-web-menu-icon menu :on-click (lambda (obj)
(setf (hash (location body)) "rung2"))))
(tmp (create-gui-menu-item menu :content "About"
(tmp (create-web-menu-item menu :content "About"
:class "w3-bar-item w3-button w3-right"
:on-click (lambda (obj)
(setf (hash (location body)) "rung2"))))
(tmp (create-gui-menu-full-screen menu)))
(setf (hash (location body)) "rung2")))))
(declare (ignore tmp)))
;; rung-1
(let* ((first-rung (create-web-compositor body :html-id "rung1"))