scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added a manager-focused message 

fixed intial-size of clients
This commit is contained in:
frese 2003-04-22 21:43:15 +00:00
parent 0c58224573
commit 1747f6cfa4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/move-wm.scm
View File

@ -62,6 +62,8 @@
;; client changed it's size ?? ;; client changed it's size ??
(fit-client-window wm (second msg))) (fit-client-window wm (second msg)))
((manager-focused) #t)
((update-client-state) ((update-client-state)
(let* ((client (second msg)) (let* ((client (second msg))
(dpy (wm:dpy wm)) (dpy (wm:dpy wm))
@ -85,9 +87,12 @@
(resizer (create-resizer wm client)) (resizer (create-resizer wm client))
(options (wm:options wm))) (options (wm:options wm)))
(set-client:data! client (list titlebar resizer)) (set-client:data! client (list titlebar resizer))
(let ((bw (get-option-value options 'border-width))
(th (get-option-value options 'titlebar-height)))
(move-resize-window dpy (client:client-window client) (move-resize-window dpy (client:client-window client)
(rectangle:x r) (rectangle:y r) (rectangle:x r) (rectangle:y r)
(rectangle:width r) (rectangle:height r)) (+ (rectangle:width r) (* 2 bw))
(+ (rectangle:height r) (* 2 bw) th)))
(fit-client-windows wm client) (fit-client-windows wm client)
(install-dragging-control channel dpy (install-dragging-control channel dpy