ocr: TCL Developer Studio - TCL Developer Studio Flle Edi Project sulld Tools - I C - D a - - B zile - toidev.td proc Createnernuites (nenutione nenulext pichone args) I baloonid global global inage telDevoata F Enable F Schedue ir spichone = : I! stele-dsta(ootions,Usigrsinend)) ( F Reset set label -lobel smenulexti" F Cancel else et: 1 eotr dackgresd F geate set bg (Caenutiane oget background) ep mantamid -F ceate reate eoepesnd Bye vindov SmenuNane -backgroun set - ed lappend capinage (inage KclDe-Usta(erulissyes) create conpound Scmpinage Somplnage add inage -1n30 (inage create pimap -data Sina ...
