appendix hcomplete programs widthsize set radiuslabel label sidebar ext =radius pack gva radiusentry entry sidebar radiussize set pack an when the below when draw def when drawing command and command drawn by draw method dding command graphicscommands means remember cmd circlecommand cmd draw graphicscommands append cmd two needed and back when undo must have update screen the both expand draw commandc pack both the mode below be rgb form red the mode red be by two number from -ff the same and the below and #rrggbb colormode pen pack pencolor gv penentry sidebar =pencolor pack the black # def color colorchooser askcolor none pencolor set )- - ] pen commandg pack both label sidebar text= color pack stringvar entry sidebar pack # def color colorchooser askcolor none set color )- - ]fillcolorbutton commandg pack both this copy belongs to 'acha