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.25 2005-03-13 18:16:08 espen Exp $
  +;; $Id: testgtk.lisp,v 1.26 2005-04-17 21:52:17 espen Exp $
   
   (defpackage "TESTGTK"
     (:use "COMMON-LISP" "GTK"))
  
positive.code:   (let ((spinner (make-instance 'spin-button 
  		  :adjustment (adjustment-new 
  			       0 0 
  			       (1- (enum-int :last-cursor 'gdk:cursor-type))
  			       2 10 0)))
  	(drawing-area (make-instance 'drawing-area
  		       :width-request 80 :height-request 80
  
negative.code:                       :justify :fill :wrap t)
  
  	     :child (create-label-in-frame "Underlined label"
  (#+cmu glib:latin1-to-unicode #+sbcl identity
  "This label is underlined!
  This one is underlined () in quite a funky fashion")
                        :justify :left
  	              :pattern  "_________________________ _ _________ _ _____ _ __ __  ___ ____ _____")))))
  
  