mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-06 07:42:01 -08:00
Code Issues Projects Releases Wiki Activity

Handle scrolling panels and pages

Browse source
This commit is contained in:
David Botton 2022-01-17 22:38:12 -05:00
parent 8e5f01a986
commit 7cd91cf64a
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
tools/clog-builder.lisp
View file

@ -232,8 +232,8 @@
(set-geometry control :units ""
:top (top placer)
:left (left placer))
(set-geometry placer :top (position-top control)
:left (position-left control))
(set-geometry placer :top (top control)
:left (left control))
(on-populate-control-properties-win obj)))))
;; Control selection utilities
@ -257,8 +257,8 @@ not a temporary attached one when using select-control."
(let ((app (connection-data-item control "builder-app-data"))
(placer (get-placer control)))
(deselect-current-control app)
(set-geometry placer :top (position-top control)
:left (position-left control)
(set-geometry placer :top (top control)
:left (left control)
:width (client-width control)
:height (client-height control))
(setf (current-control app) control)
@ -615,6 +615,7 @@ of controls and double click to select control."
(next-id 0)
(panel-uid (get-universal-time)) ;; unique id for panel
(panel-id (html-id content)))
(setf (overflow content) :auto)
(init-control-list app panel-id)
;; setup panel window
(setf (attribute content "data-clog-name") panel-name)
@ -806,6 +807,7 @@ of controls and double click to select control."
(setf (attribute content "data-clog-name") panel-name)
(setf (title (html-document body)) panel-name)
(setf (window-title win) panel-name)
(setf (overflow content) :auto)
;; setup close of page
(set-on-before-unload (window body)