From d01ac6fc3323766b285195ba139a2b98a905dae4 Mon Sep 17 00:00:00 2001
From: espen <espen>
Date: Sun, 17 Apr 2005 21:52:17 +0000
Subject: [PATCH] String manually converted to utf8 in CMUCL, and a couple of
 bug fixes

---
 examples/testgtk.lisp | 9 +++++----
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp
index b688c16..83a2b95 100644
--- a/examples/testgtk.lisp
+++ b/examples/testgtk.lisp
@@ -15,7 +15,7 @@
 ;; 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"))
@@ -326,7 +326,7 @@
   (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
@@ -667,8 +667,9 @@ Third line"
                       :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"
+This one is underlined (æøåÆØÅ) in quite a funky fashion")
                       :justify :left
 	              :pattern  "_________________________ _ _________ _ _____ _ __ __  ___ ____ _____")))))
 
@@ -733,7 +734,7 @@ This one is underlined (こんにちは) in quite a funky fashion"
     
 (define-simple-dialog create-list (dialog "List" :default-height 400)
   (let* ((store (make-instance 'list-store 
-		 :column-types '(string int boolean)
+		 :column-types '(string integer boolean)
 		 :column-names '(:foo :bar :baz)
 		 :initial-content '(#("First" 12321 nil)
 				    (:foo "Yeah" :baz t))))
-- 
2.11.0