mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-05 23:32:40 -08:00
Code Issues Projects Releases Wiki Activity

easier resize, double click title to expand

Browse source
This commit is contained in:
David Botton 2021-02-11 21:32:45 -05:00
parent 2b936a546b
commit 17656894de
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
clog-gui.lisp
View file

@ -389,7 +389,7 @@ The on-window-change clog-obj received is the new window"))
style='cursor:pointer;user-select:none;'>X</span>
</div>
<div id='~A-body' style='flex-grow:9;overflow:auto'>~A</div>
<div id='~A-sizer' style='user-select:none;height:1px;
<div id='~A-sizer' style='user-select:none;height:3px;
cursor:se-resize;opacity:0'
class='w3-right' data-drag-obj='~A' data-drag-type='s'>+</div>
</div>"
@ -408,6 +408,9 @@ The on-window-change clog-obj received is the new window"))
(setf (sizer win) (attach-as-child win (format nil "~A-sizer" html-id)))
(setf (content win) (attach-as-child win (format nil "~A-body" html-id)))
(set-on-pointer-down (win-title win) 'on-gui-drag-down :capture-pointer t)
(set-on-double-click (win-title win) (lambda (obj)
(setf (width win) (unit :px 800))
(setf (height win) (unit :px 600))))
(set-on-pointer-down (sizer win) 'on-gui-drag-down :capture-pointer t)
(set-on-click (closer win) (lambda (obj)
(declare (ignore obj))