CLIM mail archive


Making frames go away


In Lucid CLIM 1.0 Beta, this form

(clim:frame-exit *application-frame*)

just terminates the top level loop.  In the forthcoming release, the
addition step of making the window invisible is also taken.  To
obtain the behavior in CLIM 1.0 Beta try:

(define-to-do-command (com-quit-to-do :menu "Quit")
  (let ((ftlw (frame-top-level-window *application-frame*)))
    (setf (window-visibility ftlw) nil)
    (force-output ftlw))
  (frame-exit *application-frame*))

Hope this Helps.


John S. Kern
Lucid, Inc.
Customer Support

=========== original message ===============
Return-Path: <ncramer@BBN.COM>
Date:     Fri, 6 Mar 92 6:39:13 EST
From: Nichael Cramer <ncramer@BBN.COM>
To: clim@BBN.COM
Subject:  Making frames go away

In Lucid CLIM 1.0 beta on Sparc, SunOS 4.1...

I'm having trouble getting rid of frames on a simple exit.

Two easy-to-get-at examples occur in the clim-1.0b/tutorial/ directory.
Both the TIC-TAC-TOE.lisp and the PUZZLE-5.lisp use calls of the form:

  (clim:frame-exit *application-frame*)

in their exit-commands.  However, upon exit the frame is dead but still
"exposed"; i.e. it's still visible on the screen.

Am I missing something obvious?


Main Index | Thread Index