in reply to User interface using drag and droop
You may be able to modify this to suit your needs. Tkx example was:Re^3: Tcl & Tcl::Tk used for 1 main window