From f736f6b6e69bc9fbe0138e52682f8eb594af5aec Mon Sep 17 00:00:00 2001 From: David Botton Date: Wed, 7 Dec 2022 12:49:20 -0500 Subject: [PATCH] adds font-css and correct tutorial 28 --- source/clog.lisp | 1 + tutorial/28-tutorial/hello-builder/hello-builder.asd | 6 ++++++ tutorial/28-tutorial/hello-builder/hello-builder.lisp | 2 +- 3 files changed, 8 insertions(+), 1 deletion(-) 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 ()