home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / xlib / wm-delete < prev   
Encoding:
Text File  |  1992-07-20  |  686 b   |  24 lines
  1. ;;; -*-Scheme-*-
  2. ;;;
  3. ;;; Demonstrate use of the WM_DELETE_WINDOW protocol.
  4.  
  5. (require 'xlib)
  6.  
  7. (let* ((dpy (open-display))
  8.        (del-atom (intern-atom dpy 'WM_DELETE_WINDOW))
  9.        (prot-atom (intern-atom dpy 'WM_PROTOCOLS))
  10.        (win (create-window
  11.           'parent (display-root-window dpy)
  12.           'width 100 'height 100
  13.           'background-pixel (white-pixel dpy))))
  14.   (set-wm-name! win '(fine))
  15.   (set-wm-protocols! win (vector del-atom))
  16.   (map-window win)
  17.   (unwind-protect
  18.     (handle-events dpy #t #f
  19.       (client-message
  20.     (lambda (event w type data)
  21.         (and (eq? type prot-atom) (vector? data)
  22.          (eq? (make-atom (vector-ref data 0)) del-atom)))))
  23.     (close-display dpy)))
  24.