mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-03-01 03:20:35 -08:00
Code Issues Projects Releases Wiki Activity

unstick on move

Browse source
This commit is contained in:
David Botton 2024-03-22 18:23:38 -04:00
parent 45ad536b7f
commit 31f207c28a
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
tools/clog-builder-control-list.lisp
View file

@ -87,7 +87,9 @@
(set-geometry control-list :height (+ (- sheight 10) adj-size)))))
(set-on-resize (window (connection-body obj)) #'on-size)
(set-on-window-size win #'on-size)
(set-on-window-move win #'on-size)
(set-on-window-move win (lambda (obj)
(setf (height obj) (height obj))
(on-size obj)))
(set-on-full-screen-change (html-document (connection-body obj)) #'on-size)
(set-on-orientation-change (window (connection-body obj)) #'on-size)
(set-on-pointer-down divider (lambda (obj data)

2
tools/clog-builder-control-properties.lisp
View file

@ -10,6 +10,8 @@
(add-class content "w3-small")
(set-on-window-close win (lambda (obj)
(setf (control-properties-win app) nil)))
(set-on-window-move win (lambda (obj)
(setf (height obj) (height obj))))
(window-toggle-pinned win :state t)
(setf (control-properties-win app) win)
(setf (properties-list app) control-list)