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_4260 < prev    next >
Encoding:
Text File  |  1992-11-24  |  301 b   |  9 lines
  1. copy selection of window 1 to usersel
  2. copy style of usersel to selstyle
  3. if on styles of selstyle contains underline then
  4. set x to {class:text style info, on styles:{}, off styles:{underline}}
  5. else
  6. set x to {class:text style info, on styles:{underline}, off styles:{}}
  7. end if
  8. set style of usersel to x
  9.