scsh-conservatory
/
orion-wm
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added send-configuration

This commit is contained in:
frese 2003-04-25 12:56:09 +00:00
parent dfd4bcfb28
commit fd46b53447
2 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/packages.scm
View File

@ -27,6 +27,7 @@
window-level window-level
point-in-rectangle? point-in-rectangle?
set-wm-state! get-wm-state ((wm-state) :syntax) set-wm-state! get-wm-state ((wm-state) :syntax)
send-configuration
maximize-window maximal-size/hints maximize-window maximal-size/hints
size-window desired-size/hints desired-position/hints size-window desired-size/hints desired-position/hints
@ -52,7 +53,7 @@
(define-structure titlebar (define-structure titlebar
(export create-titlebar destroy-titlebar titlebar? titlebar:window (export create-titlebar destroy-titlebar titlebar? titlebar:window
map-titlebar unmap-titlebar move-resize-titlebar map-titlebar unmap-titlebar move-resize-titlebar
set-titlebar-state! set-titlebar-title!) set-titlebar-state! set-titlebar-title! set-titlebar-title+state!)
(open scheme define-record-types threads list-lib (open scheme define-record-types threads list-lib
rendezvous-channels rendezvous rendezvous-channels rendezvous
xlib xlib

9
src/utils.scm
View File

@ -553,6 +553,15 @@
(uninstall-colormap dpy c)) (uninstall-colormap dpy c))
(all-window-colormaps dpy window))) (all-window-colormaps dpy window)))
(define (send-configuration dpy window)
(let ((r (root-rectangle dpy window)))
(send-event dpy window #f (event-mask structure-notify)
(create-configure-event
(event-type configure-notify) 0 #t dpy window window
(rectangle:x r) (rectangle:y r)
(rectangle:width r) (rectangle:height r)
0 none #f))))
;; timer ;; timer
(define (now) (define (now)