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