home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #19 / NN_1992_19.iso / spool / comp / sys / mac / hypercar / 3239 < prev    next >
Encoding:
Text File  |  1992-08-25  |  3.3 KB  |  91 lines
  1. Newsgroups: comp.sys.mac.hypercard
  2. Path: sparky!uunet!news.uiowa.edu!ffang
  3. From: ffang@newsuiowa.edu (Francis Fang)
  4. Subject: Re: First 80 chars?
  5. Sender: news@news.uiowa.edu (News)
  6. Message-ID: <1992Aug25.212254.6548@news.uiowa.edu>
  7. Date: Tue, 25 Aug 1992 21:22:54 GMT
  8. References: <SRO.92Aug24170044@media-lab.media.mit.edu>
  9. Nntp-Posting-Host: grover.printing.uiowa.edu
  10. Organization: University of Iowa, Iowa City, IA, USA
  11. X-Newsreader: Tin 1.1 PL3
  12. Lines: 77
  13.  
  14. sro@media.mit.edu (Shawn O'Donnell) writes:
  15. : Hey Frank--
  16. :   If you want to go the route of munging the field in blocks of 80
  17. : characters, you can do better than "char 1 to 80 of <container>".  You
  18. : 
  19. : 
  20. : 
  21. : on mouseUp
  22. :   put empty into cd fld "destination"
  23. :   put cd fld "source" into BufferContainer
  24. : 
  25. :   repeat until BufferContainer is empty
  26. :     repeat with j = 5 to 20  -- some reasonable range for wds/line
  27. :       if the length of BufferContainer < 80 then
  28. :         put BufferContainer after cd fld "destination"
  29. :         put empty into BufferContainer
  30. :       else
  31. :         if the length of (word 1 to j of BufferContainer) > 80 then
  32. :           put word 1 to (j-1) of BufferContainer & return after [opt-return]
  33. :           cd fld "destination"
  34. :           delete word 1 to (j-1) of BufferContainer
  35. :           exit repeat
  36. :         end if
  37. :       end if
  38. :     end repeat
  39. :   end repeat
  40. : end mouseUp
  41. : 
  42. : This won't do all the formatting you're likely to want to have done--
  43. : for example, this script will miss carriage returns that you've
  44. : inserted for formatting.  You'd have to fix all those sorts of things
  45. : by looking for returns in the source field.  But don't bother...
  46. : 
  47. : ALL OF THIS IS UNNECESSARY!!  LET THE MAC DO ALL THE WORK FOR YOU.
  48. : 
  49. : You can create an invisible field, set its font to Monaco, 9 pt and
  50. : set its width so that the maximum number of characters per line is 80.
  51. : Then you put the text of the real field into the invisible field, and
  52. : you 
  53. : 
  54. : repeat with j = 1 to the number of lines in fld "invisible"
  55. :   put line j of fld "invisible" into line j of <the mini's field>
  56. : end repeat
  57. : 
  58. : The line breaks will be at word boundaries, and any empty lines will
  59. : be transferred intact.   If you don't mind looking at Monaco, you 
  60. : could just set the source field to Monaco, 9 point, 80 characters
  61. : wide and skip the invisible field.  
  62. : 
  63. : 
  64. : 
  65. : So tell us how all of this works when you tranfer it to the mini.
  66. : 
  67. : --Shawn
  68. : 
  69. Hey Shawn,
  70.  
  71. Thanks for the ideas. I've read your note 3 times and I'm not sure if
  72. you meant for me to try the first part or not (the part with the buffer
  73. container and all that). But I had already tried the second part (that
  74. with the invisible fixed pitch font field). The only problem with that
  75. idea was that when I put the source fld into the "invisible" fld,
  76. although it looks great on the screen and in the correct format (the
  77. lines break in the right places) when I say something to the effect of 
  78.  
  79. put line 1 of cd fld "invisible"       
  80.  
  81. Hypercard still returns the entire paragraph. Seems like I used to be
  82. able to say line n of the fld and have it return just the line as it is
  83. formatted on the screen but not anymore. Maybe some setting on my copy
  84. of Hypercard 2.1 is messed up.
  85.  
  86. Let me know if you have any ideas as to why the above put statement
  87. returns the entire paragraph as opposed to just the line like what we
  88. want.
  89.  
  90. Later.
  91.