Making frames go away

• To: ncramer@BBN.COM
• Subject: Making frames go away
• From: John Kern <kern%kuwait@lucid.com>
• Date: Fri, 6 Mar 92 07:50:51 PST
• Cc: clim@BBN.COM, clim-support@lucid.com
• In-Reply-To: Nichael Cramer's message of Fri, 6 Mar 92 6:39:13 EST <9203061211.AA15103@lucid.com>
• Reply-To: kern@lucid.com

Howdy,

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.

Sincerely,

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?

Thanks
Nichael

• Prev: L: <...> R: <...> in mouse doc line on Mac...
• Next: Making frames go away
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)