| changeset 3: | 8f59e2f1b8c4 |
| parent: | eb8ed24e8a76 |
| child: | 79737134254d |
| author: | ellis <ellis@rwest.io> |
| date: | Fri, 05 May 2023 22:41:30 -0400 |
| permissions: | -rw-r--r-- |
| description: | stuff |
| 3 | 1 | (in-package :demo) |
| 0 | 2 | |
| 3 | (defun on-new-window (body) |
|
| 4 | "Handle new window event." |
|
| 5 | (let ((elt (clog:create-child body "<h1>foobar</h1>"))) |
|
| 6 | (clog:set-on-click |
|
| 7 | elt |
|
| 8 | (lambda (o) |
|
| 9 | (setf (clog:color elt) "green"))))) |
|
| 10 | ||
| 11 | (defun start-ui () |
|
| 12 | "Start the UI." |
|
| 13 | (clog:initialize #'on-new-window) |
|
| 14 | (clog:open-browser)) |