anchor.diff:    (let ((spinner (make-instance 'spin-button 
   		  :adjustment (adjustment-new 
   			       0 0 
  -			       (1- (enum-int :last-cursor 'gdk:cursor-type))
  +			       (1- (glib:enum-int :last-cursor 'gdk:cursor-type))
   			       2 10 0)))
   	(drawing-area (make-instance 'drawing-area
   		       :width-request 80 :height-request 80
  
positive.code:                       :justify :fill :wrap t)
  
  	     :child (create-label-in-frame "Underlined label"
  "This label is underlined!
  This one is underlined (こんにちは) in quite a funky fashion"
                        :justify :left
  	              :pattern  "_________________________ _ _________ _ _____ _ __ __  ___ ____ _____")))))
  
  
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.26 2005-04-17 21:52:17 espen Exp $
  
  (defpackage "TESTGTK"
    (:use "COMMON-LISP" "GTK"))
  