Parser, runner and visualiser now work with string prog names.

[jars.git] / visualizer.scm

diff --git a/visualizer.scm b/visualizer.scm
index 3a914e2..6733b3e 100644 (file)
--- a/visualizer.scm
+++ b/visualizer.scm
@@ -26,8 +26,8 @@
         (unless (null? remaining-palette)
           (let ((name (caar remaining-palette))
                 (col (cdar remaining-palette)))
-            (wish% "label .fb.l" name " -text " name " -fg " col)
-            (wish% "pack .fb.l" name " -side left"))
+            (wish% "label .fb.l" col " -text \"" name "\" -fg " col)
+            (wish% "pack .fb.l" col " -side left"))
           (loop (cdr remaining-palette))))
       (wish% "frame .fc -relief sunken -borderwidth 2")
       (wish% "pack .fc -side bottom")