>From 6e240ff4abc98944c72dfee3a1d38b60377ea3ef Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Fri, 28 Jan 2011 11:14:43 +0100 Subject: [PATCH 5/6] Use float-window-move-resize instead of a raw setf to move. --- floating-group.lisp | 5 +++-- 1 files changed, 3 insertions(+), 2 deletions(-) diff --git a/floating-group.lisp b/floating-group.lisp index d7df9ef..2715edc 100644 --- a/floating-group.lisp +++ b/floating-group.lisp @@ -226,8 +226,9 @@ ;; 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))) + (let ((newx (- (getf event-slots :x) relx)) + (newy (- (getf event-slots :y) rely))) + (float-window-move-resize window :x newx :y newy))) ((find :button-3 (xlib:make-state-keys state-mask)) (let ((w (+ initial-width (- (getf event-slots :x) -- 1.7.6