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: testgtk.lisp,v 1.8 2004-12-04 18:41:31 espen Exp $
  +;; $Id: testgtk.lisp,v 1.9 2004-12-05 00:06:41 espen Exp $
   
   
   ;;; Some of the code in this file are really outdatet, but it is
  
positive.code: 
  (defmacro define-simple-dialog (name (dialog title &rest initargs) &body body)
    `(define-dialog ,name (,dialog ,title 'dialog ,@initargs)
      (dialog-add-button ,dialog "Close" #'widget-destroy :object t)
      ,@body))
  
  
  
negative.code: ;; ;  	    ("dnd")
   	    ("entry" create-entry)
  ;; 	    ("event watcher")
   	    ("enxpander" create-expander)
   	    ("file chooser" create-file-chooser)
  ;; 	    ("font selection")
  ;; 	    ("handle box" create-handle-box)
  