anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.180 2007-02-07 12:44:17 crhodes Exp $
  +;;; $Id: panes.lisp,v 1.181 2007-03-04 15:08:00 thenriksen Exp $
   
   (in-package :clim-internals)
   
  
positive.code:                                            standard-extended-input-stream
                                             fundamental-character-output-stream
                                             standard-application-frame)
    ((stream))
    (:panes
     (io
      (scrolling (:height 400 :width 700)
        (setf (slot-value *application-frame* 'stream)
          (make-pane 'window-stream
                     :width 700
  
negative.code:                       initial-cursor-visibility
                        text-margin
                        save-under
                        borders
                        label))
    (setf port (or port (find-port)))
  