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

adds font-css and correct tutorial 28

Browse source
This commit is contained in:
David Botton 2022-12-07 12:49:20 -05:00
parent 9f360254a3
commit f736f6b6e6
3 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

6
tutorial/28-tutorial/hello-builder/hello-builder.asd vendored
View file

@ -8,5 +8,11 @@
:version "0.0.0"
:serial t
:depends-on (#:clog)
:entry-point "hello-builder:start-app"
:components ((:file "hello-builder")
(:file "hello")))
(asdf:defsystem #:hello-builder/tools
:defsystem-depends-on (:clog)
:depends-on (#:hello-builder #:clog/tools) ; add clog plugins here as #:plugin/tools for design time
:components ((:clog-file "hello")))

2
tutorial/28-tutorial/hello-builder/hello-builder.lisp
View file

@ -5,7 +5,7 @@
(in-package :hello-builder)
(defun my-click (panel)
(setf (font (hello-span panel)) (format nil "~Apx Times, serif" (random 36)))
(setf (font-css (hello-span panel)) (format nil "~Apx Times, serif" (random 36)))
(setf (color (hello-span panel)) (rgb (random 255) (random 255) (random 255))))
(defun start-app ()