anchor.diff:      main-window))
    
   (clg-init)
  -(create-main-window)
  -
  +(within-main-loop (create-main-window))
  
positive.code: ;; Kimball, Josh MacDonald and others.
  
  
  ;; $Id: testgtk.lisp,v 1.38 2007-01-11 10:05:59 espen Exp $
  
  #+sbcl(require :gtk)
  #+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)
  
negative.code:     (unless file-pixbuf
        (handler-case 
            (setf
  	   file-pixbuf (gdk:pixbuf-load #p"clg:examples;gnome-fs-regular.png")
  	   folder-pixbuf (gdk:pixbuf-load #p"clg:examples;gnome-fs-directory.png"))
  	(glib:glib-error (condition)
  	  (make-instance 'message-dialog 
  	   :message-type :error :visible t
  