From mboxrd@z Thu Jan  1 00:00:00 1970
From: Ian Grant <Ian.Grant@cl.cam.ac.uk>
To: guile-gtk@sourceware.cygnus.com
Subject: test-gtk.scm bug
Date: Mon, 08 Nov 1999 04:08:00 -0000
Message-id: <E11knah-0008EU-00@heaton.cl.cam.ac.uk>
X-SW-Source: 1999-q4/msg00041.html

This has a bad define placement. Here's a patch, modulo a few line-breaks, 
sorry.

--- test-gtk.scm.orig   Mon Mar  1 22:11:39 1999
+++ test-gtk.scm        Mon Nov  8 11:52:51 1999
@@ -264,14 +264,14 @@
     (gtk-clist-set-selection-mode clist 'extended)
     (gtk-clist-set-column-justification clist 1 'right)
     (gtk-clist-set-column-justification clist 2 'center)
-    (define x #("CListRow 0" "Right" "Center" "Column 3" "Column 4"
-                               "Column 5" "Column 6" "Column 7" "Column 8" 
"Column 9"
-                               "Column 10" "Column 11" "Column 12" "Column 
13"
-                               "Column 14" "Column 15" "Column 16" "Column 
17"
-                               "Column 18" "Column 19"))
-    (do ((i 0 (1+ i))) ((= i 10))
-      (vector-set! x 0 (string-append "CListRow " (number->string i)))
-      (gtk-clist-append clist x))
+    (let ((x #("CListRow 0" "Right" "Center" "Column 3" "Column 4"
+                                "Column 5" "Column 6" "Column 7" "Column 8" 
"Column 9"
+                                "Column 10" "Column 11" "Column 12" "Column 
13"
+                                "Column 14" "Column 15" "Column 16" "Column 
17"
+                                "Column 18" "Column 19")))
+         (do ((i 0 (1+ i))) ((= i 10))
+           (vector-set! x 0 (string-append "CListRow " (number->string i)))
+           (gtk-clist-append clist x)))
 
     (gtk-container-border-width scrolled-win 5)
     (gtk-box-pack-start box2 scrolled-win #t #t 0)