reverse video in pop-up accepting values window

• To: clim@BBN.COM
• Subject: reverse video in pop-up accepting values window
• From: Meir Laker <meir@watson.ibm.com>
• Date: Tue, 17 Mar 92 12:45:40 -0500
• Reply-To: meir@watson.ibm.com

The default pop-up accepting-values window (i.e., :own-window t)
appears black on white on a monchrome screen.  I have been unable to
reverse the appearance.

****************************************

Attempt #1 (on the Symbolics):

(defmethod clim:run-frame-top-level :before ((frame accept-values))
  (with-slots (own-window) frame
     (setf (clim:medium-foreground own-window) clim::+white
           (clim:mdeium-background own-window) clim::+black+)))

and get an Output Hold that locks the display.  If I precede the setf with
(window-expose own-window), I am thrown in the debugger attempting to
expose a TEMP-CLIM-SHEET outside of its superior.

****************************************

Attempt #2 (on the Symbolics):

(define-application-frame my-accept-values ()
    ()
   (:panes ((only-pane :application
                       :stream-foreground clim::+white+
                       :stream-background clim::+black+))))
and calling it via:

(accepting-values :frame-class 'my-accept-values) with no luck.

The :stream-foreground/background pane options seem to be ignored.

****************************************

Thank you for any help you can give me.

Meir Laker
IBM Thomas J. Watson Research Center
P.O. Box 218, Yorktown Heights, NY 10598
Phone: 914-945-2699 Tieline: 862-2699
meir@watson.ibm.com

• reverse video in pop-up accepting values window
• From: Scott McKay <SWM@sapsucker.scrc.symbolics.com>

• Prev: Drop me
• Next: reverse video in pop-up accepting values window
• Index: CLIM Mailing list (1-Jan-92 to 31-Aug-92)
• Thread: CLIM Mailing list Index (1-Jan-92 to 31-Aug-92)