anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.147 2005-01-02 05:26:44 ahefner Exp $
  +;;; $Id: panes.lisp,v 1.148 2005-01-21 11:01:37 ahefner Exp $
   
   (in-package :clim-internals)
   
  
positive.code: 		(eq (frame-state frame) :shrunk))
        (enable-frame frame))
      ;; Start a new thread to run the event loop, if necessary.
      (unless input-buffer
        (clim-sys:make-process (lambda () (let ((*application-frame* frame))
                                            (standalone-event-loop)))))
  
negative.code:          (frame (make-application-frame 'a-window-stream
                                          :frame-event-queue input-buffer
                                          :frame-manager fm
                                          :pretty-name (or label "")
  					:left left
  					:top top
  					:right right
  