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

more universal font symbols

Browse source
This commit is contained in:
David Botton 2024-09-06 18:10:43 -04:00
parent 19c0c8baac
commit 519300f185
6 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tools/clog-builder-files.lisp
View file

@ -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))

2
tools/clog-builder-repl.lisp
View file

@ -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))

2
tools/clog-builder-scope.lisp
View file

@ -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))

2
tools/clog-builder-shell.lisp
View file

@ -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))

2
tools/clog-builder-sys-browser.lisp
View file

@ -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)

2
tools/clog-builder.lisp
View file

@ -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)