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

change close icon on repl console

Browse source
This commit is contained in:
David Botton 2024-05-20 16:01:50 -04:00
parent 3205021ecb
commit 1b9cc4304a
3 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

6
source/clog-gui.lisp
View file

@ -269,6 +269,7 @@
:modal modal :modal modal
:title "clog-break in execution"))) :title "clog-break in execution")))
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;; ;; clog-gui-initialize ;;
;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;
@ -978,6 +979,7 @@ The on-window-change clog-obj received is the new window"))
hide-title-bar hide-title-bar
drag-client-area drag-client-area
has-pinner has-pinner
closer-html
keep-on-top keep-on-top
window-param window-param
hidden hidden
@ -1007,6 +1009,7 @@ window-to-top-by-param or window-by-param."))
(hide-title-bar nil) (hide-title-bar nil)
(drag-client-area nil) (drag-client-area nil)
(has-pinner nil) (has-pinner nil)
(closer-html "×")
(keep-on-top nil) (keep-on-top nil)
(window-param nil) (window-param nil)
(hidden nil) (hidden nil)
@ -1046,7 +1049,7 @@ window-to-top-by-param or window-by-param."))
style='position:absolute;top:0;right:20px;left:5px; style='position:absolute;top:0;right:20px;left:5px;
user-select:none;cursor:move;'>~A</span>~A user-select:none;cursor:move;'>~A</span>~A
<span id='~A-closer' <span id='~A-closer'
style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>&times;</span> style='position:absolute;top:0;right:5px;cursor:pointer;user-select:none;'>~A</span>
</div> </div>
<div id='~A-body' ~A style='position:absolute;top:25px;left:0;right:0;bottom:3px;overflow:auto'>~A</div> <div id='~A-body' ~A style='position:absolute;top:25px;left:0;right:0;bottom:3px;overflow:auto'>~A</div>
<div id='~A-sizer' style='position:absolute;right:0;bottom:0;left:0;user-select:none;height:3px; <div id='~A-sizer' style='position:absolute;right:0;bottom:0;left:0;user-select:none;height:3px;
@ -1064,6 +1067,7 @@ window-to-top-by-param or window-by-param."))
~A</span><span>&nbsp;&nbsp;&nbsp;</span>" html-id (code-char 9744)) ~A</span><span>&nbsp;&nbsp;&nbsp;</span>" html-id (code-char 9744))
"") "")
html-id ; closer html-id ; closer
closer-html
html-id html-id
(if drag-client-area (if drag-client-area
(format nil "data-drag-obj='~A' data-drag-type='m'" html-id) (format nil "data-drag-obj='~A' data-drag-type='m'" html-id)

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

@ -72,7 +72,8 @@
left top left top
(editor-use-console-for-evals *editor-use-console-for-evals*) (editor-use-console-for-evals *editor-use-console-for-evals*)
has-time-out has-time-out
maximized) maximized
(closer-html "&times;"))
"Open a new text editor" "Open a new text editor"
(let ((win (window-to-top-by-title obj open-file))) (let ((win (window-to-top-by-title obj open-file)))
(when win (when win
@ -98,6 +99,7 @@
:width 700 :height 480 :width 700 :height 480
:has-pinner is-console :has-pinner is-console
:keep-on-top is-console :keep-on-top is-console
:closer-html closer-html
:client-movement *client-side-movement*)) :client-movement *client-side-movement*))
(box (create-panel-box-layout (window-content win) (box (create-panel-box-layout (window-content win)
:left-width 0 :right-width 0 :left-width 0 :right-width 0

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

@ -4,6 +4,7 @@
(let* ((win (on-open-file obj :title "CLOG REPL Console" (let* ((win (on-open-file obj :title "CLOG REPL Console"
:is-console t :is-console t
:top 520 :left 300 :top 520 :left 300
:closer-html "&#10752;"
:editor-use-console-for-evals t))) :editor-use-console-for-evals t)))
(set-on-window-can-close win (lambda (obj) (set-on-window-can-close win (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))