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

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

1
source/clog.lisp
View file

@ -351,6 +351,7 @@ embedded in a native template application.)"
(font-variant-type type) (font-variant-type type)
(system-font-type type) (system-font-type type)
(font generic-function) (font generic-function)
(font-css generic-function)
(set-font generic-function) (set-font generic-function)
(text-alignment-type type) (text-alignment-type type)
(text-alignment generic-function) (text-alignment generic-function)

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

@ -8,5 +8,11 @@
:version "0.0.0" :version "0.0.0"
:serial t :serial t
:depends-on (#:clog) :depends-on (#:clog)
:entry-point "hello-builder:start-app"
:components ((:file "hello-builder") :components ((:file "hello-builder")
(:file "hello"))) (: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) (in-package :hello-builder)
(defun my-click (panel) (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)))) (setf (color (hello-span panel)) (rgb (random 255) (random 255) (random 255))))
(defun start-app () (defun start-app ()