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

Minor updates to comments.

Browse source
This commit is contained in:
David Botton 2021-11-02 21:48:31 -04:00
parent aca581216d
commit a31218ba3d
13 changed files with 32 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/22-tutorial.lisp
View file

@ -4,9 +4,7 @@
(in-package :clog-user)
;; For web oriented apps consider using the :client-movement option.
;; See clog-gui-initialize documentation.
;;; Demostrate a virtual desktop using CLOG GUI
(defun on-file-count (obj)
(let ((win (create-gui-window obj :title "Count")))
(dotimes (n 100)
@ -123,6 +121,8 @@
(defun on-new-window (body)
(setf (title (html-document body)) "Tutorial 22")
;; For web oriented apps consider using the :client-movement option.
;; See clog-gui-initialize documentation.
(clog-gui-initialize body)
(add-class body "w3-cyan")
(let* ((menu (create-gui-menu-bar body))