anchor.diff:  ;; License along with this library; if not, write to the Free Software
   ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
   
  -;; $Id: gtk.lisp,v 1.38 2005-02-27 12:37:01 espen Exp $
  +;; $Id: gtk.lisp,v 1.39 2005-03-13 18:08:44 espen Exp $
   
   
   (in-package "GTK")
  
positive.code:    (scrolled-window scrolled-window)
     (child widget))
  
  (defmethod initialize-instance ((window scrolled-window) &rest initargs 
  				&key policy)
    (if policy
        (apply #'call-next-method window 
         :vscrollbar-policy policy :hscrollbar-policy policy initargs)
      (call-next-method)))
  
  
  ;;; Statusbar
  
negative.code:   (flags dialog-flags)
    (type message-type)
    (buttons buttons-type)
    (nil null))
  
  (defbinding message-dialog-set-markup () nil
    (message-dialog message-dialog)
  