mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2026-02-03 14:22:11 -08:00
Code Issues Projects Releases Wiki Activity

Fix regressions on client side movement

Browse source
This commit is contained in:
David Botton 2022-01-18 08:33:32 -05:00
parent a389910f84
commit da7ae8d833
2 changed files with 19 additions and 19 deletions
Download patch file Download diff file Expand all files Collapse all files

36
source/clog-gui.lisp
View file

@ -772,30 +772,30 @@ the window will be set to keep-on-top always."))
(when (fire-on-window-can-close win)
(window-close win))))
(cond (client-movement
(jquery-execute win
(clog::jquery-execute win
(format nil "draggable({handle:'#~A-title-bar'})" html-id))
(jquery-execute win "resizable({handles:'se'})")
(clog::jquery-execute win "resizable({handles:'se'})")
(set-on-pointer-down (win-title win)
(lambda (obj data)
(declare (ignore obj) (ignore data))
(setf (z-index win) (incf (last-z app)))
(fire-on-window-change win app)))
(set-on-event win "dragstart"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-move win)))
(set-on-event win "dragstop"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-move-done win)))
(set-on-event win "resizestart"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-size win)))
(set-on-event win "resizestop"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-size-done win))))
(clog::set-on-event win "dragstart"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-move win)))
(clog::set-on-event win "dragstop"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-move-done win)))
(clog::set-on-event win "resizestart"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-size win)))
(clog::set-on-event win "resizestop"
(lambda (obj)
(declare (ignore obj))
(fire-on-window-size-done win))))
(t
(set-on-pointer-down
(win-title win) 'on-gui-drag-down :capture-pointer t)

2
tools/clog-builder.lisp
View file

@ -597,7 +597,7 @@ of controls and double click to select control."
(defun on-new-builder-panel (obj)
"Open new panel"
(let* ((app (connection-data-item obj "builder-app-data"))
(win (create-gui-window obj :top 40 :left 220 :width 400))
(win (create-gui-window obj :top 40 :left 220 :width 400 :client-movement t))
(box (create-panel-box-layout (window-content win)
:left-width 0 :right-width 0
:top-height 30 :bottom-height 0))