normalize and maximize all

clog-gui.lisp

@@ -93,13 +93,13 @@
   (set-on-full-screen-change (html-document clog-body)
 			     (lambda (obj)
 			       (when (current-window obj)
-				 (when (last-width (current-window obj))
+				 (when (window-maximized-p (current-window obj))
 				   (window-normalize (current-window obj))
 				   (window-maximize (current-window obj))))))
   (set-on-orientation-change (window clog-body)
 			     (lambda (obj)
 			       (when (current-window obj)
-				 (when (last-width (current-window obj))
+				 (when (window-maximized-p (current-window obj))
 				   (window-normalize (current-window obj))
 				   (window-maximize (current-window obj))))))
   (when w3-css-url
@@ -109,30 +109,6 @@
   (when jquery-ui
     (load-script (html-document clog-body) jquery-ui)))
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;; Implementation - Menus
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-
-;;;;;;;;;;;;;;;;;;;;;;;;;
-;; create-gui-menu-bar ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;
-
-(defclass clog-gui-menu-bar (clog-div)()
-  (:documentation "Menu bar"))
-
-(defgeneric create-gui-menu-bar (clog-obj &key class html-id)
-  (:documentation "Attached a menu bar to a CLOG-OBJ in general a
-clog-body."))
-
-(defmethod create-gui-menu-bar ((obj clog-obj)
-				&key (class "w3-bar w3-black w3-card-4")
-				  (html-id nil))
-  (let ((div (create-div obj :class class :html-id html-id))
-	(app (connection-data-item obj "clog-gui")))
-    (change-class div 'clog-gui-menu-bar)
-    (setf (menu app) div)
-    div))
-
 ;;;;;;;;;;;;;;
 ;; menu-bar ;;
 ;;;;;;;;;;;;;;
@@ -166,6 +142,69 @@ create-gui-menu-bar."))
 	(height (menu app))
 	0)))
 
+;;;;;;;;;;;;;;;;;;;;;;;
+;; window-collection ;;
+;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric window-collection (clog-obj)
+  (:documentation "Get hash table of open windows"))
+
+(defmethod window-collection ((obj clog-obj))
+  (let ((app (connection-data-item obj "clog-gui")))
+    (windows app)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; maximize-all-windows ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric maximize-all-windows (clog-obj)
+  (:documentation "Maximize all windows"))
+
+(defmethod maximize-all-windows ((obj clog-obj))
+  (let ((app (connection-data-item obj "clog-gui")))
+    (maphash (lambda (key value)
+	       (declare (ignore key))
+	       (window-maximize value))
+	     (windows app))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; normalize-all-windows ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric normalize-all-windows (clog-obj)
+  (:documentation "Normalize all windows"))
+
+(defmethod normalize-all-windows ((obj clog-obj))
+  (let ((app (connection-data-item obj "clog-gui")))
+    (maphash (lambda (key value)
+	       (declare (ignore key))
+	       (window-normalize value))
+	     (windows app))))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; Implementation - Menus
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+;;;;;;;;;;;;;;;;;;;;;;;;;
+;; create-gui-menu-bar ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defclass clog-gui-menu-bar (clog-div)()
+  (:documentation "Menu bar"))
+
+(defgeneric create-gui-menu-bar (clog-obj &key class html-id)
+  (:documentation "Attached a menu bar to a CLOG-OBJ in general a
+clog-body."))
+
+(defmethod create-gui-menu-bar ((obj clog-obj)
+				&key (class "w3-bar w3-black w3-card-4")
+				  (html-id nil))
+  (let ((div (create-div obj :class class :html-id html-id))
+	(app (connection-data-item obj "clog-gui")))
+    (change-class div 'clog-gui-menu-bar)
+    (setf (menu app) div)
+    div))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; create-gui-menu-drop-down ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -191,6 +230,30 @@ create-gui-menu-bar."))
 ;; create-gui-menu-item ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;
 
+(defclass clog-gui-menu-item (clog-span)()
+  (:documentation "Menu item"))
+
+(defgeneric create-gui-menu-item (clog-gui-menu-drop-down
+				  &key content
+				    on-click
+				    class
+				    html-id)
+  (:documentation "Attached a menu item to a CLOG-GUI-MENU-DROP-DOWN"))
+
+(defmethod create-gui-menu-item ((obj clog-obj)
+				 &key (content "")
+				   (on-click nil)
+				   (class "w3-bar-item w3-button")
+				   (html-id nil))
+  (let ((span
+	  (create-span obj :content content :class class :html-id html-id)))
+    (set-on-click span on-click)
+    (change-class span 'clog-gui-menu-item)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; create-gui-menu-item ;;
+;;;;;;;;;;;;;;;;;;;;;;;;;;
+
 (defclass clog-gui-menu-item (clog-span)()
   (:documentation "Menu item"))
 
@@ -654,6 +717,16 @@ on-window-resize-done at end of resize."))
     (fire-on-window-change nil app)
     (fire-on-window-close obj)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;
+;; window-maximized-p ;;
+;;;;;;;;;;;;;;;;;;;;;;;;
+
+(defgeneric window-maximized-p (clog-gui-window)
+  (:documentation "Set CLOG-GUI-WINDOW as maximized window."))
+
+(defmethod window-maximized-p ((obj clog-gui-window))
+  (last-width obj))
+
 ;;;;;;;;;;;;;;;;;;;;;
 ;; window-maximize ;;
 ;;;;;;;;;;;;;;;;;;;;;
@@ -664,7 +737,7 @@ on-window-resize-done at end of resize."))
 (defmethod window-maximize ((obj clog-gui-window))
   (let ((app (connection-data-item obj "clog-gui")))
     (window-focus obj)
-    (unless (last-width obj)
+    (unless (window-maximized-p obj)
       (setf (last-x obj) (left obj))
       (setf (last-y obj) (top obj))
       (setf (last-height obj) (height obj))
@@ -685,7 +758,7 @@ on-window-resize-done at end of resize."))
 
 (defmethod window-normalize ((obj clog-gui-window))
   (window-focus obj)
-  (when (last-width obj)
+  (when (window-maximized-p obj)
     (setf (width obj) (last-width obj))
     (setf (height obj) (last-height obj))
     (setf (top obj) (last-y obj))
@@ -703,7 +776,7 @@ on-window-resize-done at end of resize."))
 (defmethod window-toggle-maximize ((obj clog-gui-window))
   (let ((app (connection-data-item obj "clog-gui")))
     (window-focus obj)
-    (cond ((last-width obj)
+    (cond ((window-maximized-p obj)
 	   (setf (width obj) (last-width obj))
 	   (setf (height obj) (last-height obj))
 	   (setf (top obj) (last-y obj))

clog.lisp

@@ -670,6 +670,9 @@ embedded in a native template application.)"
   (current-window              generic-function)
   (menu-bar                    generic-function)
   (menu-bar-height             generic-function)
+  (window-collection           generic-function)
+  (maximize-all-windows        generic-function)
+  (normalize-all-windows       generic-function)
   (set-on-window-change        generic-function)
   
   "CLOG-GUI - Individual Windows"
@@ -679,6 +682,7 @@ embedded in a native template application.)"
   (window-content              generic-function)
   (window-focus                generic-function)
   (window-close                generic-function)
+  (window-maximized-p          generic-function)
   (window-maximize             generic-function)
   (window-normalize            generic-function)
   (window-toggle-maximize      generic-function)

tutorial/22-tutorial.lisp

@@ -65,6 +65,12 @@
 	 (tmp   (create-gui-menu-item file :content "Drawing" :on-click #'on-file-drawing))
 	 (tmp   (create-gui-menu-item file :content "Movie" :on-click #'on-file-movies))
 	 (win   (create-gui-menu-drop-down menu :content "Window"))
+	 (tmp   (create-gui-menu-item win :content "Maximize All"
+					  :on-click (lambda (obj)
+						      (maximize-all-windows obj))))
+	 (tmp   (create-gui-menu-item win :content "Normalize All"
+					  :on-click (lambda (obj)
+						      (normalize-all-windows obj))))
 	 (tmp   (create-gui-menu-window-select win))
 	 (help  (create-gui-menu-drop-down menu :content "Help"))
 	 (tmp   (create-gui-menu-item help :content "About" :on-click #'on-help-about))