Re: [STUMP] Mouse mode first shoot

[Philippe Brochard]

Shawn Betts writes:

> Philippe Brochard <address@hidden> writes:
>
>> And I have add an outline function for frames. A screenshot is here:
>>
>>   http://hocwp.free.fr/stumpwm/stumpwm.png
>
> Hmm, I like the outline feature. Can you post a patch for that?
>
Yes, of course:


----------------------------------------------------------------------
(let ((frame-number-wins nil))
  (defun display-frame-numbers (screen)
    (hide-frame-numbers screen)
    (setf frame-number-wins (draw-frame-numbers screen))
    ;; Outline frames
    (let ((gc (xlib:create-gcontext :drawable (xlib:screen-root (screen-number 
screen))
                                    :font (screen-font screen)
                                    :foreground
                                    (xlib:screen-white-pixel (screen-number 
screen))
                                    :background
                                    (xlib:screen-black-pixel (screen-number 
screen))
                                    :line-style :dash)))
      (mapc (lambda (f)
              (xlib:draw-line (xlib:screen-root (screen-number screen)) gc
                              (frame-x f) (frame-y f) (frame-width f) 0 t)
              (xlib:draw-line (xlib:screen-root (screen-number screen)) gc
                              (frame-x f) (frame-y f) 0 (frame-height f) t))
            (screen-frames screen))))
        
  (defun hide-frame-numbers (screen)
    (mapc #'xlib:destroy-window frame-number-wins)
    (xlib:clear-area (xlib:screen-root (screen-number screen)))
    (setf frame-number-wins nil)))
----------------------------------------------------------------------

Philippe

-- 
Philippe Brochard    <address@hidden>
                      http://hocwp.free.fr

-=-= http://www.gnu.org/home.fr.html =-=-