(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% "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)))
(loop (cdr remaining-palette))))
(wish% "frame .fc -relief sunken -borderwidth 2")
(wish% "pack .fc -side bottom")
(loop (cdr remaining-palette))))
(wish% "frame .fc -relief sunken -borderwidth 2")
(wish% "pack .fc -side bottom")