anchor.diff:      (unless file-pixbuf
         (handler-case 
             (setf
  -	   file-pixbuf (gdk:pixbuf-load #p"/usr/share/icons/gnome/48x48/filesystems/gnome-fs-regular.png")
  -	   folder-pixbuf (gdk:pixbuf-load #p"/usr/share/icons/gnome/48x48/filesystems/gnome-fs-directory.png"))
  +	   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
  
positive.code:     main-window))
   
  (clg-init)
  (create-main-window)
  
  
negative.code: ;; Kimball, Josh MacDonald and others.
  
  
  ;; $Id: testgtk.lisp,v 1.39 2007-06-19 12:49:18 espen Exp $
  
  #+sbcl(require :gtk)
  #+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk)
  