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:                       :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:     
  (define-simple-dialog create-list (dialog "List" :default-height 400)
    (let* ((store (make-instance 'list-store 
  		 :column-types '(string integer boolean)
  		 :column-names '(:foo :bar :baz)
  		 :initial-content '(#("First" 12321 nil)
  				    (:foo "Yeah" :baz t))))
  