From 519300f1851bea637814522f0db3a332ce5a1cb3 Mon Sep 17 00:00:00 2001 From: David Botton Date: Fri, 6 Sep 2024 18:10:43 -0400 Subject: [PATCH] more universal font symbols --- tools/clog-builder-files.lisp | 2 +- tools/clog-builder-repl.lisp | 2 +- tools/clog-builder-scope.lisp | 2 +- tools/clog-builder-shell.lisp | 2 +- tools/clog-builder-sys-browser.lisp | 2 +- tools/clog-builder.lisp | 2 +- 6 files changed, 6 insertions(+), 6 deletions(-) diff --git a/tools/clog-builder-files.lisp b/tools/clog-builder-files.lisp index 3497d9c..0e618cf 100644 --- a/tools/clog-builder-files.lisp +++ b/tools/clog-builder-files.lisp @@ -175,7 +175,7 @@ (setf (window-param win) ace) (add-class menu "w3-small") (set-on-click (create-span (window-icon-area win) - :content (format nil "~A " (code-char #x26F6)) + :content "→ " :auto-place :top) (lambda (obj) (declare (ignore obj)) diff --git a/tools/clog-builder-repl.lisp b/tools/clog-builder-repl.lisp index 62ac374..a29becb 100644 --- a/tools/clog-builder-repl.lisp +++ b/tools/clog-builder-repl.lisp @@ -34,7 +34,7 @@ (declare (ignore obj)) (clog-ace:resize (playground repl)))) (set-on-click (create-span (window-icon-area win) - :content (format nil "~A " (code-char #x26F6)) + :content "→ " :auto-place :top) (lambda (obj) (declare (ignore obj)) diff --git a/tools/clog-builder-scope.lisp b/tools/clog-builder-scope.lisp index 4cbf01e..f090ecc 100644 --- a/tools/clog-builder-scope.lisp +++ b/tools/clog-builder-scope.lisp @@ -26,7 +26,7 @@ name. If CLOG-BODY not set use *clog-debug-instance*" (set-on-window-close win (lambda (obj) (browser-gc obj))) (set-on-click (create-span (window-icon-area win) - :content (format nil "~A " (code-char #x26F6)) + :content "→ " :auto-place :top) (lambda (obj) (declare (ignore obj)) diff --git a/tools/clog-builder-shell.lisp b/tools/clog-builder-shell.lisp index a25bf68..b29f98e 100644 --- a/tools/clog-builder-shell.lisp +++ b/tools/clog-builder-shell.lisp @@ -12,7 +12,7 @@ :width 600 :height 400 :client-movement *client-side-movement*))) (set-on-click (create-span (window-icon-area win) - :content (format nil "~A " (code-char #x26F6)) + :content "→ " :auto-place :top) (lambda (obj) (declare (ignore obj)) diff --git a/tools/clog-builder-sys-browser.lisp b/tools/clog-builder-sys-browser.lisp index 7e9ea82..bb7bf78 100644 --- a/tools/clog-builder-sys-browser.lisp +++ b/tools/clog-builder-sys-browser.lisp @@ -31,7 +31,7 @@ (when doc-maximize (doc-max obj)) (set-on-click (create-span (window-icon-area win) - :content (format nil "~A " (code-char #x26F6)) + :content "→ " :auto-place :top) #'doc-max)) (set-on-click (create-span (window-icon-area win) diff --git a/tools/clog-builder.lisp b/tools/clog-builder.lisp index a9a07f4..6a54e94 100644 --- a/tools/clog-builder.lisp +++ b/tools/clog-builder.lisp @@ -575,7 +575,7 @@ clog-builder window.") "                                          - 👁" :right-align t)) + ⌕" :right-align t)) (setf sysbrw (create-form-element search :search :class *builder-menu-search-class* :size 35)) (setf (place-holder sysbrw) "system browse.. (alt-period)") (set-on-change sysbrw (lambda (obj)