TkSketch is a sketch program that uses the Tk widgets.
Drag and Drop from the palette, adjust the items (using the pack geometry manager) and voilá: working code is generated.
TkSketch