CLIM mail archive

[Prev][Next][Index][Thread]

Question regarding application frame control




Dear Climers,



(clim:define-application-frame test-frame ()
    ()
  (:panes
    (appl :application))
  (:layouts (normal appl))
  (:pointer-documentation nil)
  (:menu-bar t))

(define-test-frame-command (com-exit :menu "Exit")
    ()
  (clim:disable-frame clim:*application-frame*))

(defparameter *appl* (clim:find-application-frame 'test-frame))

#|
(clim:enable-frame *appl*)
(clim:disable-frame *appl*)
(clim:destroy-frame *appl*)
|#

Follow-Ups:

Main Index | Thread Index