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

clog-gui-window api

Browse source
This commit is contained in:
David Botton 2021-02-11 09:59:57 -05:00
parent b79a343163
commit 2ce26b6e78
4 changed files with 287 additions and 219 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/22-tutorial.lisp
View file

@ -5,9 +5,9 @@
(in-package :clog-user)
(defun on-file-new (body)
(setf (set-on-window-size-done (create-gui-window body))
(lambda (obj)
(print "sized"))))
(let ((win (create-gui-window body)))
(dotimes (n 100)
(create-div (window-content win) :content n))))
(defun on-new-window (body)
(clog-gui-initialize body)