Better initial placement

clog-gui.lisp

@@ -12,6 +12,9 @@
 ;; Implementation - clog-gui - Desktop GUI abstraction
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(defconstant menu-bar-height 37)
+(defconstant top-bar-height 20)
+
 (defclass clog-gui ()
   ((body
     :accessor body
@@ -28,6 +31,14 @@
     :accessor last-z
     :initform -9999
     :documentation "Top z-order for windows")
+   (last-x
+    :accessor last-x
+    :initform 0
+    :documentation "Last default open x point")
+   (last-y
+    :accessor last-y
+    :initform menu-bar-height
+    :documentation "Last default open y point")
    (copy-buf
     :accessor copy-buf
     :initform ""
@@ -350,7 +361,7 @@ The on-window-change clog-obj received is the new window"))
 	 (y        (getf data ':screen-y))
 	 (adj-y    (- y (drag-y app)))
 	 (adj-x    (- x (drag-x app))))
-    (when (and (> adj-x 0) (> adj-y 30))
+    (when (and (> adj-x 0) (> adj-y menu-bar-height))
       (cond ((equalp (in-drag app) "m")
 	     (fire-on-window-move (drag-obj app))
 	     (setf (top (drag-obj app)) (unit :px adj-y))
@@ -395,18 +406,25 @@ on-window-resize-done at end of resize."))
 
 (defmethod create-gui-window ((obj clog-obj) &key (title "New Window")
 					       (content "")
-					       (left 60)
-					       (top 60)
-					       (width 400)
-					       (height 300)
+					       (left nil)
+					       (top nil)
+					       (width 300)
+					       (height 200)
 					       (maximize nil)
 					       (client-movement nil)
 					       (html-id nil))
+  (let ((app (connection-data-item obj "clog-gui")))
     (unless html-id
       (setf html-id (clog-connection:generate-id)))
-  
-  (let* ((app (connection-data-item obj "clog-gui"))
-	 (win (create-child (body app)
+    (unless left
+      (setf left (last-x app))
+      (incf (last-x app) 10))
+    (unless top
+      (setf top (last-y app))
+      (incf (last-y app) top-bar-height)
+      (when (> top (- (inner-height (window (body app))) (last-y app)))
+	(setf (last-y app) menu-bar-height)))
+    (let ((win (create-child (body app)
 			    (format nil
 	    "<div style='position:fixed;top:~Apx;left:~Apx;width:~Apx;height:~Apx;
                   flex-container;display:flex;flex-direction:column;z-index:~A'
@@ -449,7 +467,7 @@ on-window-resize-done at end of resize."))
 		      (setf (last-y win) (top win))
 		      (setf (last-height win) (height win))
 		      (setf (last-width win) (width win))
-		    (setf (top win) (unit :px 35))
+		      (setf (top win) (unit :px menu-bar-height))
 		      (setf (left win) (unit :px 0))
 		      (setf (width win) (unit :vw 100))
 		      (setf (height win)
@@ -492,7 +510,7 @@ on-window-resize-done at end of resize."))
 	      (win-title win) 'on-gui-drag-down :capture-pointer t)
 	     (set-on-pointer-down
 	      (sizer win) 'on-gui-drag-down :capture-pointer t)))
-    win))
+      win)))
 
 ;;;;;;;;;;;;;;;;;;
 ;; window-title ;;

tutorial/22-tutorial.lisp

@@ -12,22 +12,19 @@
   ;; and :client-movement is set to nil. This mode offers numerous events
   ;; for fine control and is best for local applications although will be a bit
   ;; more choppy cross continent or via satellite.
-  (let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))
-				     :client-movement t)))
+  (let ((win (create-gui-window body :client-movement t)))
     (dotimes (n 100)
       ;; window-content is the root element for the clog-gui
       ;; windows
       (create-div (window-content win) :content n))))
 
 (defun on-file-browse (body)
-  (let* ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))
-				      :client-movement t))
+  (let* ((win (create-gui-window body :client-movement t))
 	 (browser (create-child (window-content win)
 	    "<iframe width=100% height=98% src='https://common-lisp.net/'></iframe>")))))
 
 (defun on-file-drawing (body)
-  (let* ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))
-				      :client-movement nil))
+  (let* ((win (create-gui-window body :client-movement nil))
 	 (canvas (create-canvas (window-content win) :width 600 :height 400))
 	 (cx     (create-context2d canvas)))
     (set-border canvas :thin :solid :black)    
@@ -43,8 +40,7 @@
     (path-fill cx)))
 
 (defun on-file-movies (body)
-  (let ((win (create-gui-window body :left (random 600) :top (+ 40 (random 400))
-				     :client-movement t)))
+  (let ((win (create-gui-window body :client-movement t)))
     (create-video (window-content win) :source "https://www.w3schools.com/html/mov_bbb.mp4")))
 
 (defun on-help-about (body)