anchor.diff:  ;; 	    ("shapes" create-shapes)
    	    ("spinbutton" create-spins)
    	    ("statusbar" create-statusbar)
  -;; 	    ("test idle" create-idle-test)
  + 	    ("test idle" create-idle-test)
   ;; 	    ("test mainloop")
   ;; 	    ("test scrolling")
   ;; 	    ("test selection")
  -;; 	    ("test timeout" create-timeout-test)
  + 	    ("test timeout" create-timeout-test)
    	    ("text" create-text)
    	    ("toggle buttons" create-toggle-buttons)
    	    ("toolbar" create-toolbar)
  -;; 	    ("tooltips" create-tooltips)
  + 	    ("tooltips" create-tooltips)
   ;; 	    ("tree" #|create-tree|#)
   	    ("UI manager" create-ui-manager)
   ))
  
positive.code: 
  (defmacro define-simple-dialog (name (dialog title &rest initargs) &body body)
    `(define-dialog ,name (,dialog ,title 'dialog ,@initargs)
      (dialog-add-button ,dialog "gtk-close" #'widget-destroy :object t)
      ,@body))
  
  
  
  
negative.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: testgtk.lisp,v 1.10 2004-12-05 13:57:10 espen Exp $
  
  
  ;;; Some of the code in this file are really outdatet, but it is
  