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
:title "clog-break in execution")))
;;;;;;;;;;;;;;;;;;;;;;;;;
;; clog-gui-initialize ;;
;;;;;;;;;;;;;;;;;;;;;;;;;
@ -978,6 +979,7 @@ The on-window-change clog-obj received is the new window"))
hide-title-bar
drag-client-area
has-pinner
closer-html
keep-on-top
window-param
hidden
@ -1007,6 +1009,7 @@ window-to-top-by-param or window-by-param."))
(hide-title-bar nil)
(drag-client-area nil)
(has-pinner nil)
(closer-html "×")
(keep-on-top nil)
(window-param 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;
user-select:none;cursor:move;'>~A</span>~A
<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 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;
@ -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))
"")
html-id ; closer
closer-html
html-id
(if drag-client-area
(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
(editor-use-console-for-evals *editor-use-console-for-evals*)
has-time-out
maximized)
maximized
(closer-html "&times;"))
"Open a new text editor"
(let ((win (window-to-top-by-title obj open-file)))
(when win
@ -98,6 +99,7 @@
:width 700 :height 480
:has-pinner is-console
:keep-on-top is-console
:closer-html closer-html
:client-movement *client-side-movement*))
(box (create-panel-box-layout (window-content win)
: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"
:is-console t
:top 520 :left 300
:closer-html "&#10752;"
:editor-use-console-for-evals t)))
(set-on-window-can-close win (lambda (obj)
(declare (ignore obj))