diff --git a/source/clog.lisp b/source/clog.lisp index 42cd323..830ce48 100644 --- a/source/clog.lisp +++ b/source/clog.lisp @@ -351,6 +351,7 @@ embedded in a native template application.)" (font-variant-type type) (system-font-type type) (font generic-function) + (font-css generic-function) (set-font generic-function) (text-alignment-type type) (text-alignment generic-function) diff --git a/tutorial/28-tutorial/hello-builder/hello-builder.asd b/tutorial/28-tutorial/hello-builder/hello-builder.asd index f2712dc..cceebeb 100644 --- a/tutorial/28-tutorial/hello-builder/hello-builder.asd +++ b/tutorial/28-tutorial/hello-builder/hello-builder.asd @@ -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"))) diff --git a/tutorial/28-tutorial/hello-builder/hello-builder.lisp b/tutorial/28-tutorial/hello-builder/hello-builder.lisp index 0757d21..c45aaac 100644 --- a/tutorial/28-tutorial/hello-builder/hello-builder.lisp +++ b/tutorial/28-tutorial/hello-builder/hello-builder.lisp @@ -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 ()