From 1747f6cfa42731c3048cc06f1d9734d1fc5d6e96 Mon Sep 17 00:00:00 2001 From: frese Date: Tue, 22 Apr 2003 21:43:15 +0000 Subject: [PATCH] added a manager-focused message fixed intial-size of clients --- src/move-wm.scm | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/src/move-wm.scm b/src/move-wm.scm index ab38190..dd2628e 100644 --- a/src/move-wm.scm +++ b/src/move-wm.scm @@ -62,6 +62,8 @@ ;; client changed it's size ?? (fit-client-window wm (second msg))) + ((manager-focused) #t) + ((update-client-state) (let* ((client (second msg)) (dpy (wm:dpy wm)) @@ -85,9 +87,12 @@ (resizer (create-resizer wm client)) (options (wm:options wm))) (set-client:data! client (list titlebar resizer)) - (move-resize-window dpy (client:client-window client) - (rectangle:x r) (rectangle:y r) - (rectangle:width r) (rectangle:height r)) + (let ((bw (get-option-value options 'border-width)) + (th (get-option-value options 'titlebar-height))) + (move-resize-window dpy (client:client-window client) + (rectangle:x r) (rectangle:y r) + (+ (rectangle:width r) (* 2 bw)) + (+ (rectangle:height r) (* 2 bw) th))) (fit-client-windows wm client) (install-dragging-control channel dpy