anchor.diff:        (grab-button root button '(:button-press) :modifiers *mods*))
   
       ;; Grab keyboard shortcuts
  -    (dolist (key (list *term* *quit* *circulate*))
  -      (grab-key root (keysym->keycodes display key) :modifiers *mods*))
  +    (dolist (key (list *term* *web* *quit* *circulate* *hide*))
  +      (grab-key root (keysym->keycodes display (car (character->keysyms key)))
  +                :modifiers *mods*))
   
       (unwind-protect
  -        (let (last-button last-x last-y)
  +        (let (last-button last-x last-y hidden)
             (loop named eventloop do
               (event-case 
                (display :discard-p t)
  
positive.code:                        (setf (drawable-width event-window) new-w
                               (drawable-height event-window) new-h)))))
               (:button-release () (ungrab-pointer display))
               ((:configure-notify :exposure) t))))
        (dolist (button (list *move* *resize*))
          (ungrab-button root button :modifiers *mods*))
        (dolist (key (list *term* *quit* *circulate*))
  
negative.code:              ;; for button-press and button-release, code is the button number
               (:key-press
                (code)
                (cond ((char= (keycode->character display code 0) *term*)
                       (sb-ext:run-program "xterm" nil :wait nil :search t))
                      ((char= (keycode->character display code 0) *web*)
                       (sb-ext:run-program "xxxterm" nil :wait nil :search t))
                      ((char= (keycode->character display code 0) *circulate*)
                       (circulate-window-up root))
                      ((char= (keycode->character display code 0) *hide*)
                       (cond (hidden
                              (mapc #'(lambda (w) (map-window w)) hidden)
                              (setf hidden nil))
                             (t
                              (setf hidden (loop for w in (query-tree root)
                                                when (eql (window-map-state w) :viewable)
                                                collect w))
                              (mapc #'(lambda (w) (unmap-window w)) hidden))))
                      ((char= (keycode->character display code 0) *quit*)
                       (return-from eventloop))))
               (:button-press
                (code child)
  