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.15 2005-01-06 21:59:51 espen Exp $
  -
  -
  -;;; Some of the code in this file are really outdatet, but it is
  -;;; still the most complete example of how to use the library
  +;; $Id: testgtk.lisp,v 1.16 2005-01-12 14:03:04 espen Exp $
   
   
   ;(use-package "GTK")
  
positive.code: 	(signal-connect notebook 'switch-page
  	 #'(lambda (pointer page)
  	     (declare (ignore pointer))
  	     (unless (eq page (notebook-current-page-num notebook))
  	       (set-image page #'notebook-menu-label book-open)
  	       (set-image page #'notebook-tab-label book-open)
  	       (let ((curpage (notebook-current-page notebook)))
   		 (when curpage
   		   (set-image curpage #'notebook-menu-label book-closed)
   		   (set-image curpage #'notebook-tab-label book-closed)))))))
        (loop for i from 1 to 5 do (create-notebook-page notebook i book-closed))
  
        (make-instance 'h-separator :parent (list main :expand nil :padding 10))
  
negative.code:  	    ("enxpander" create-expander)
   	    ("file chooser" create-file-chooser)
  ;; 	    ("font selection")
   	    ("handle box" create-handle-box)
   	    ("image" create-image)
   	    ("labels" create-labels)
   	    ("layout" create-layout)
  