home *** CD-ROM | disk | FTP | other *** search
/ Inventor Labs: Technology / INVENTORLABS_TECHNOLOGY.BIN / mac / FILES / EDISON.DIR / 00075_Script_75 < prev    next >
Text File  |  1997-05-26  |  255b  |  9 lines
  1. --:s TeleZoom1
  2.  
  3. global gUtilityObj
  4.  
  5. on exitFrame
  6.   set the text of cast "labelTxt" = "AUTOMATIC ROMAN CHARACTER PRINTING TELEGRAPH (1874)"
  7.   set the text of cast "instrTxt" = the text of cast "Tel AUZM1"
  8.   mSetCursors(gUtilityObj,[3:#ZoomOut])
  9. end