update add_command load ,commanda dt the an xml def open "wf ' cmd graphicscommands ' cmdn write close def save as write filename add_command save as ,commands add_command ,commands add_cascade ,menuf window menu menub the on window canvas width = pack left by wt we can have draw on and same wt makes shape shape screen et getscreen causes the to not update the ondrag below program bombs around screen on window where and the pad some empty around the on the on side frame padx pady pack right both widget packing puts at the top of the width pack widget allows the user to width below you can and of the widget to val the widthsize to needed must be widthsize stringvar widthentry entry sidebar =widthsize pack this copy belongs to 'acha