anchor.diff:  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   ;;; Boston, MA  02111-1307  USA.
   
  -;;; $Id: panes.lisp,v 1.143 2004-10-31 01:46:31 hefner1 Exp $
  +;;; $Id: panes.lisp,v 1.144 2004-11-12 06:39:15 hefner1 Exp $
   
   (in-package :clim-internals)
   
  
positive.code: (defmethod schedule-timer-event ((pane pane) token delay)
    (schedule-event pane (make-instance 'timer-event :token token :sheet pane) delay))
  
  
  
  
negative.code: 	       :accessor scroller-pane-scroll-bar)
     (viewport   :initform nil)
     (vscrollbar :initform nil)
     (hscrollbar :initform nil)
     (suggested-width  :initform 300 :initarg :suggested-width)
     (suggested-height :initform 300 :initarg :suggested-height)))
  
  (defmacro scrolling ((&rest options) &body contents)
    `(let ((viewport (make-pane 'viewport-pane :contents (list ,@contents))))
  