home *** CD-ROM | disk | FTP | other *** search
/ AppleScript - The Beta Release / AppleScript - The Beta Release.iso / Development Tools / Sample Applications / MenuScripter 1.0d4.1 / MenuScripter / MenuScripter.rsrc / SCPT_4236 < prev    next >
Encoding:
Text File  |  1992-11-24  |  178 b   |  8 lines
  1. copy selection of window 1 to usersel
  2. set fontsize to the size of usersel
  3. set fontsize to fontsize-1 
  4. if fontsize=0
  5. set fontsize to 12
  6. end if
  7. set the size of usersel to fontsize
  8.