X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=jars.git;a=blobdiff_plain;f=visualizer.scm;h=6733b3ef2a261ec01c8f71bb684b8313b932a961;hp=8215202cbf8090467d162fa0d0c345508cc2e801;hb=2cd0b7c49f97f10eb9176604aec83db9d0417e58;hpb=28a3308e193e60e376fe9f171513ef541bb08385

diff --git a/visualizer.scm b/visualizer.scm
index 8215202..6733b3e 100644
--- a/visualizer.scm
+++ b/visualizer.scm
@@ -19,14 +19,15 @@
           (lambda ()
             (apply print args))))
       (wish% "wm title . \"MARS Visualizer\"")
+      (wish% "wm attributes . -topmost true")
       (wish% "frame .fb -borderwidth 10")
       (wish% "pack .fb -side top")
       (let loop ((remaining-palette palette))
         (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")