ocr: - TCL Developer Studio X File Edit Project Tools Help La Filas OnLineclick 0 ( proc variable StatusFrame Eu utils.tcl global tclDevData F FormatString if Sto.DevData(curile) l= " ( -F ConvertPathTo mainframe: - - goTo (SStatusFrame. line cget text] F ConvertPathFn I = mainfram.tcl retum ) -F create -F exit # # wainFrame: OnFileopen - F CreateMenulte # Reaction on Fileopen Commend. F CreateMenu # # show Argements: open File (no dialog arguments) -F createloolBar # # Resuits: (no resuits) F JpdateFindStra proc onfileopen 0 I F CreateStatusBi global telDevData F UpdateTimeFie #. use native. open. ...
