(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")