[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

moving windows

  I have a simple question to ask you.  What is the correct way to move a
window around in CLX?  Consider the following:
(defun start ()
  (setq display (xlib:open-display ""))
  (setq screen (xlib:display-default-screen display))
  (setq root (xlib:screen-root screen))
  (setq win (xlib:create-window :parent root :x 300 :y 100
                :width 200 :height 200
                :background (xlib:screen-white-pixel screen)
                :border-width 2 :override-redirect :off))
  (xlib:set-standard-properties win :name "Title bar")
  (xlib:map-window win)
  (xlib:display-finish-output display))

(defun move (x y)
  (setf (xlib:drawable-x win) x)
  (setf (xlib:drawable-y win) y)
  (xlib:display-finish-output display))

  In twm, when I say (move x y) the top, left point of the window
appears at <x-2, y-2>, and in mwm it appears at <x-8, y-15>.  How
to I move the outermost top, left point of the window to be <x,y>?