anchor.diff:    (flags dialog-flags)
     (type message-type)
     (buttons buttons-type)
  -  (message (or null string)))
  -
  -(defbinding %message-dialog-new-with-markup () pointer
  -  (parent (or null window))
  -  (flags dialog-flags)
  -  (type message-type)
  -  (buttons buttons-type)
  -  (message string))
  +  (nil null))
   
   (defbinding message-dialog-set-markup () nil
     (message-dialog message-dialog)
  
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:    (scrolled-window scrolled-window)
     (child widget))
  
  (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
  