window-zoom-event-handler (C-X 1)

[wilcox@cmns.think.com]

Here's the code I use. It's not elegant but it works. 

(defun entire-screen ()
  (make-point
   *screen-width*
   (- *screen-height* *menubar-bottom*
      (if (fboundp 'gc-thermometer)
        (let ((windoid (first (windows :class 'ccl::gc-windoid))))
          (point-v (view-size windoid)))
        0
        ))))

(defmethod one-window ((w fred-mixin))
  (set-view-position w (make-point 0 *menubar-bottom*))
  (set-view-size w (entire-screen))
  )

(comtab-set-key *control-x-comtab* #\1 'one-window "Fill the screen with this window")