CLIM pane name from stream

[jsp@watson.ibm.com (Scott Penberthy)]

   Date: Mon, 8 Jun 92 16:29:29 PDT
   From: lombardo@taurus.cs.nps.navy.mil (charles lombardo)

   Hi,
     Is it possible having the stream to an :application pane to
   determine the pane name? [...]

   So, if I have the stream how do I get the window (or pane) name?

   Chuck

I suggest either coding these drawing functions as methods for the
application frame, such as:

(defmethod show-movie-frame ((frame ucpop) plan)
  (let ((movie (clim:get-frame-pane clim:*application-frame* 'movie)))
    (clim:window-clear movie)
    (format movie "~s" plan)
    (clim:with-output-as-presentation
     (:object plan :type 'plan-icon
	      :stream movie :single-box t)
     (show-big-icon movie plan))
    (clim:redisplay-frame-pane frame 'movie)
    (values)))

or, refer directly to clim:*application-frame* in your command definitions:

(define-ucpop-command (com-refresh :name t
				   :menu "refresh")
  ()
   (let ((graph (clim::get-frame-pane clim:*application-frame* 'graph))
	 (text (clim::get-frame-pane clim:*application-frame* 'text))
	 (movie (clim::get-frame-pane clim:*application-frame* 'movie))
	 (in (clim::get-frame-pane clim:*application-frame* 'interact)))
     (clim:window-refresh graph)
     (clim:window-refresh text)
     (clim:window-refresh movie)
     (clim:window-clear in)
     (values)))

Scott