From 2d5bc342c52d5b4ebb244782943edae5323033a6 Mon Sep 17 00:00:00 2001
From: Raffael Mancini <address@hidden>
Date: Thu, 22 Oct 2009 22:40:35 +0200
Subject: [PATCH] Enable resizing windows in float group by using mouse 3 on the decoration

---
 floating-group.lisp |   73 +++++++++++++++++++++++++++++---------------------
 1 files changed, 42 insertions(+), 31 deletions(-)

diff --git a/floating-group.lisp b/floating-group.lisp
index b5c03d1..5a0eec1 100644
--- a/floating-group.lisp
+++ b/floating-group.lisp
@@ -184,37 +184,48 @@
            (< y (xlib:drawable-y (window-xwin window)))
            (> y (+ (xlib:drawable-height (window-xwin window))
                    (xlib:drawable-y (window-xwin window)))))
-       (message "Move window! address@hidden ~}" x y window)
-       (multiple-value-bind (relx rely) (xlib:query-pointer (window-parent window))
-         (labels ((move-window-event-handler (&rest event-slots &key event-key &allow-other-keys)
-                    (case event-key
-                      (:button-release
-                       :done)
-                      (:motion-notify
-                       (with-slots (parent) window
-                         (xlib:with-state (parent)
-                           (setf (xlib:drawable-x parent) (- (getf event-slots :x) relx)
-                                 (xlib:drawable-y parent) (- (getf event-slots :y) rely))))
-                       t)
-                      ;; We need to eat these events or they'll ALL
-                      ;; come blasting in later. Also things start
-                      ;; lagging hard if we don't (on clisp anyway).
-                      (:configure-notify t)
-                      (:exposure t)
-                      (t
-                       nil))))
-           (xlib:grab-pointer (screen-root screen) '(:button-release :pointer-motion))
-           (unwind-protect
-                (loop for ev = (xlib:process-event *display* :handler #'move-window-event-handler :timeout nil)
-                   until (eq ev :done))
-             (ungrab-pointer))
-           ;; don't forget to update the cache
-           (setf (window-x window) (xlib:drawable-x (window-parent window))
-                 (window-y window) (xlib:drawable-y (window-parent window)))
-           (message "Done."))))
-      (t
-       (when (eq *mouse-focus-policy* :click)
-         (focus-window window))))))
+       (multiple-value-bind (relx rely same-screen-p child state-mask)
+	   (xlib:query-pointer (window-parent window))
+         (let ((initial-width (xlib:drawable-width (slot-value window 'parent)))
+               (initial-height (xlib:drawable-height (slot-value window 'parent))))
+           (labels ((move-window-event-handler (&rest event-slots &key event-key &allow-other-keys)
+                      (case event-key
+                        (:button-release
+                         :done)
+                        (:motion-notify
+                         (with-slots (parent) window
+                           (xlib:with-state (parent)
+                             ;; Either move or resize the window
+                             (cond
+                               ((find :button-1 (xlib:make-state-keys state-mask))
+                                (setf (xlib:drawable-x parent) (- (getf event-slots :x) relx)
+                                      (xlib:drawable-y parent) (- (getf event-slots :y) rely)))
+                               ((find :button-3 (xlib:make-state-keys state-mask))
+                                (let ((w (+ initial-width
+                                           (- (getf event-slots :x)
+                                              relx
+                                              (xlib:drawable-x parent))))
+                                      (h (+ initial-height
+                                            (- (getf event-slots :y)
+                                               rely
+                                               (xlib:drawable-y parent)
+                                               *float-window-title-height*))))
+                                  ;; Don't let the window become too small
+                                  (float-window-move-resize window
+                                                            :width (max w *min-frame-width*)
+                                                            :height (max h *min-frame-height*)))))))))))
+             (xlib:grab-pointer (screen-root screen) '(:button-release :pointer-motion))
+             (unwind-protect
+                  ;; Wait until the mouse button is released
+                  (loop for ev = (xlib:process-event *display*
+                                                     :handler #'move-window-event-handler
+                                                     :timeout nil
+                                                     :discard-p t)
+                     until (eq ev :done))
+               (ungrab-pointer))
+             ;; don't forget to update the cache
+             (setf (window-x window) (xlib:drawable-x (window-parent window))
+		   (window-y window) (xlib:drawable-y (window-parent window))))))))))
 
 (defmethod group-button-press ((group float-group) x y where)
   (declare (ignore x y where))
-- 
1.6.5.1