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

title bar can be hidden

Browse source
This commit is contained in:
David Botton 2024-04-22 13:55:58 -04:00
parent a1c69daaae
commit e9401d5e13
1 changed files with 23 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
source/clog-gui.lisp
View file

@ -60,6 +60,7 @@
(window-maximize generic-function) (window-maximize generic-function)
(window-normalize generic-function) (window-normalize generic-function)
(window-toggle-maximize generic-function) (window-toggle-maximize generic-function)
(window-toggle-title-bar generic-function)
(window-toggle-pinned generic-function) (window-toggle-pinned generic-function)
(window-keep-on-top generic-function) (window-keep-on-top generic-function)
(window-make-modal generic-function) (window-make-modal generic-function)
@ -933,6 +934,7 @@ The on-window-change clog-obj received is the new window"))
content content
left top width height left top width height
maximize maximize
hide-title-bar
has-pinner has-pinner
keep-on-top keep-on-top
window-param window-param
@ -959,6 +961,7 @@ window-to-top-by-param or window-by-param."))
(width 300) (width 300)
(height 200) (height 200)
(maximize nil) (maximize nil)
hide-title-bar
(has-pinner nil) (has-pinner nil)
(keep-on-top nil) (keep-on-top nil)
(window-param nil) (window-param nil)
@ -1025,6 +1028,8 @@ window-to-top-by-param or window-by-param."))
(setf (win-param win) window-param) (setf (win-param win) window-param)
(setf (title-bar win) (setf (title-bar win)
(attach-as-child win (format nil "~A-title-bar" html-id))) (attach-as-child win (format nil "~A-title-bar" html-id)))
(when hide-title-bar
(setf (hiddenp (title-bar win)) t))
(when has-pinner (when has-pinner
(setf (pinner win) (attach-as-child win (format nil "~A-pinner" html-id)))) (setf (pinner win) (attach-as-child win (format nil "~A-pinner" html-id))))
(setf (closer win) (attach-as-child win (format nil "~A-closer" html-id))) (setf (closer win) (attach-as-child win (format nil "~A-closer" html-id)))
@ -1334,6 +1339,24 @@ to match the pinned state. :state forces state. Returns new state"))
(setf (keep-on-top obj) nil) (setf (keep-on-top obj) nil)
(window-focus obj)))) (window-focus obj))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; window-toggle-title-bar ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defgeneric window-toggle-title-bar (clog-gui-window &key state)
(:documentation "Set CLOG-GUI-WINDOW title bar to visible or not (default t)."))
(defmethod window-toggle-title-bar ((obj clog-gui-window) &key (state :toggle))
(when (eq state :toggle)
(if (hiddenp (title-bar obj))
(setf state t)
(setf state nil)))
(cond (state
(setf (hiddenp (title-bar obj)) nil))
(t
(setf (hiddenp (title-bar obj)) t)))
state)
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;
;; window-make-modal ;; ;; window-make-modal ;;
;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;