Re: clim:run-frame-top-level

• To: coulman@skdad.usask.ca
• Subject: Re: clim:run-frame-top-level
• From: Jeff Close <jclose@chesapeake.ads.com>
• Date: Wed, 7 Oct 92 14:15:09 EDT
• Cc: clim@BBN.COM
• In-Reply-To: Randy Coulman's message of Wed, 7 Oct 92 11:12:51 CST <9210071712.AA16643@skdad.USask.ca>
• Reply-To: jclose@ads.com

Randy,

Here's a code snip that shows what I do to perform some additional
things before showing the frame.  Yes, run-frame-top-level DOES result
in displaying the window.  After making the frame with
make-application-frame, assuming you run it with some variant of
process-run-function, frame-top-level allows you to do some things
(like drawing) in an existing window -- I don't believe you could do
these things after the initialize-instance for the frame.

;;; an 'around' on run-frame-top-level gets run whenever we run and
;;; display a created-frame
(defmethod clim:run-frame-top-level :around ((frame kat-frame))
;;; put titles on panes
  (let ((pane-titles (set-kat-pane-titles))
	(pane-desc)
	)
    (unwind-protect
    ;;; init the icons in the panes
      (initialize-frame-icons frame (set-kat-icons))
      ;;; set the default CLIM view of each display 
      (setf (clim:stream-default-view
	    (clim:get-frame-pane frame 'display)) +kat-dialog-view+)
      (setf (clim:stream-default-view
	    (clim:get-frame-pane frame 'tools)) +kat-dialog-view+)
      (setf (clim:stream-default-view
	    (clim:get-frame-pane frame 'app1)) +kat-dialog-view+)
      (setf (clim:stream-default-view
	    (clim:get-frame-pane frame 'desktop)) +kat-textual-view+)
      (clim:set-frame-layout frame 'large-display)
    (call-next-method)
  )))	

hope this is useful...

jeffrey





0,,

• clim:run-frame-top-level
• From: Randy Coulman <coulman@skdad.usask.ca>

• Prev: clim:run-frame-top-level
• Next: clim:run-frame-top-level
• Index: CLIM Mailing list (1-Sep-92 to 31-Dec-92)
• Thread: CLIM Mailing list Index (1-Sep-92 to 31-Dec-92)