home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / multi / times / data / image.dir / 00016.ls < prev    next >
Encoding:
Text File  |  1996-08-12  |  350 b   |  14 lines
  1. on exitFrame
  2.   global theCaption
  3.   set charNum to the number of chars in theCaption
  4.   repeat with n = 1 to charNum
  5.     if charToNum(char n of theCaption) = 10 then
  6.       delete char n of theCaption
  7.     end if
  8.   end repeat
  9.   set the text of field "captionBox" to theCaption
  10.   setCaption("captionBox")
  11.   set the selStart to 0
  12.   set the selEnd to 0
  13. end
  14.