mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-07 11:10:18 -08:00
Code Issues Projects Releases Wiki Activity

Comments on movement modes.

Browse source
This commit is contained in:
David Botton 2021-02-12 16:56:06 -05:00
parent c529bfd651
commit 7e8a2439bf
2 changed files with 5 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
clog-gui.lisp
View file

@ -431,6 +431,10 @@ use jquery-ui to move/resize."))
(jquery-execute win (format nil "draggable({handle:'#~A-title-bar'})" html-id)) (jquery-execute win (format nil "draggable({handle:'#~A-title-bar'})" html-id))
(jquery-execute win "resizable({handles:'se'})") (jquery-execute win "resizable({handles:'se'})")
(set-on-pointer-down (win-title win) (set-on-pointer-down (win-title win)
(lambda (obj data)
(setf (z-index win) (incf (last-z app)))
(fire-on-window-change win app)))
(set-on-pointer-down (sizer win)
(lambda (obj data) (lambda (obj data)
(setf (z-index win) (incf (last-z app))) (setf (z-index win) (incf (last-z app)))
(fire-on-window-change win app)))) (fire-on-window-change win app))))

2
tutorial/22-tutorial.lisp
View file

@ -13,7 +13,7 @@
;; for fine control and is best for local applications although will be a bit ;; for fine control and is best for local applications although will be a bit
;; more choppy cross continent or via satellite. ;; more choppy cross continent or via satellite.
(let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400)) (let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))
:client-movement t)) :client-movement t)))
(dotimes (n 100) (dotimes (n 100)
;; window-content is the root element for the clog-gui ;; window-content is the root element for the clog-gui
;; windows ;; windows