+ (print "wm title . \"MARS Visualizer\"")
+ (print "frame .fb -borderwidth 10")
+ (print "pack .fb -side top")
+ (let loop ((remaining-palette palette))
+ (unless (null? remaining-palette)
+ (let ((name (caar remaining-palette))
+ (col (cdar remaining-palette)))
+ (print "label .fb.l" name " -text " name " -fg " col)
+ (print "pack .fb.l" name " -side left"))
+ (loop (cdr remaining-palette))))
+ (print "frame .fc -relief sunken -borderwidth 2")
+ (print "pack .fc -side bottom")
+ (print "canvas .fc.c -width " w " -height " h " -bg black")
+ (print "pack .fc.c")