anchor.diff:     (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)))
  +(defmethod shared-initialize ((window scrolled-window) names &key policy)
  +  (declare (ignore names))
  +  (when policy 
  +    (setf (slot-value window 'hscrollbar-policy) policy)
  +    (setf (slot-value window 'vscrollbar-policy) policy))
  +  (call-next-method))
   
   
   ;;; Statusbar
  
positive.code: ;; 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 $
  
  
  (in-package "GTK")
  
negative.code:   (flags dialog-flags)
    (type message-type)
    (buttons buttons-type)
    (nil null))
  
  (defbinding message-dialog-set-markup () nil
    (message-dialog message-dialog)
  