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

layout improvements

Browse source
This commit is contained in:
David Botton 2024-07-28 13:52:50 -04:00
parent 27c6a36455
commit 82652ffbc2
2 changed files with 10 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/clog-builder-control-events.lisp
View file

@ -8,12 +8,14 @@
(let* ((*default-title-class* *builder-title-class*) (let* ((*default-title-class* *builder-title-class*)
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
(win (create-gui-window obj :title "Control CLOG Events" (win (create-gui-window obj :title "Control CLOG Events"
:left (+ *builder-left-panel-size* 5)
:height 200 :width 645
:has-pinner t :client-movement *client-side-movement*)) :has-pinner t :client-movement *client-side-movement*))
(content (window-content win)) (content (window-content win))
status) status)
(set-geometry win :top "" :bottom 0) (set-geometry win
:top "" :bottom 5
:right 405 :left (+ *builder-left-panel-size* 5)
:width "" :height 300)
(set-geometry win :width (width win) :right "")
(set-on-window-focus win (set-on-window-focus win
(lambda (obj) (lambda (obj)
(declare (ignore obj)) (declare (ignore obj))

8
tools/clog-builder-panels.lisp
View file

@ -555,9 +555,6 @@ not a temporarily attached one when using select-control."
(*default-border-class* *builder-border-class*) (*default-border-class* *builder-border-class*)
ext-panel ext-panel
(win (create-gui-window obj (win (create-gui-window obj
:top (menu-bar-height obj)
:left (+ *builder-left-panel-size* 5)
:width 645 :height 430
: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
@ -623,6 +620,11 @@ not a temporarily attached one when using select-control."
(render-file-name "") (render-file-name "")
(panel-id (html-id content))) (panel-id (html-id content)))
(declare (ignore spacer tmp1 tmp2 tmp3 tmp4 tmp5)) (declare (ignore spacer tmp1 tmp2 tmp3 tmp4 tmp5))
(set-geometry win
:top (menu-bar-height obj) :bottom 305
:right 405 :left (+ *builder-left-panel-size* 5)
:width "" :height "")
(set-geometry win :width (width win) :height (height win) :bottom "" :right "")
(setf (style content "user-select") "none") (setf (style content "user-select") "none")
(add-class menu "w3-small") (add-class menu "w3-small")
(setf (overflow (top-panel box)) :visible) ; let menus leave the top panel (setf (overflow (top-panel box)) :visible) ; let menus leave the top panel