Skip to content
Snippets Groups Projects
Commit 9ce22f40 authored by Philipp Kroos's avatar Philipp Kroos
Browse files

src/clfswm-placement.lisp (here-placement): Evaluates to current position of pointer.

parent edc2c5fc
No related branches found
No related tags found
No related merge requests found
2012-08-20 Philipp Kroos <philipp.kroos@t-online.de>
* src/clfswm-placement.lisp (here-placement): Evaluates to current
position of pointer.
2012-08-20 Philipp Kroos <philipp.kroos@t-online.de>
* contrib/toolbar.lisp: Add an expose-mode-button-module.
......
......@@ -112,6 +112,15 @@
(values (- w width) (- h height) width height)))
;;;
;;; Here placement: Evaluates to current position of pointer.
;;;
(defun here-placement (&optional (width 0) (height 0) (border-size *border-size*))
(with-x-pointer
(values x y width height)))
;;;
;;; Current child placement
;;;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment