home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / HyperCard / RecentProc / card_2938.txt < prev    next >
Text File  |  1994-05-01  |  2KB  |  83 lines
  1. -- card: 2938 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2734
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 8003
  11. -- rect: left=127 top=19 right=41 bottom=227
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   answer file "" of type text
  23.   if the result is "Cancel" or it="" then exit to hypercard
  24.   set cursor to watch
  25.   put it into theFile
  26.   open file theFile
  27.   read from file theFile for 24000
  28.   put it into theStuff
  29.   close file theFile
  30.   put (theFile&".rev") into theFile
  31.   -- put "" into cd fld 1
  32.   repeat with x=1 to number of lines in theStuff
  33.     put line x of theStuff into theLine
  34.     if"/" is not in theLine then next repeat
  35.     set cursor to busy
  36.     get offset("/",theLine)
  37.     put char 1 to it of theLine into theIntro
  38.     delete char 1 to it of theLine
  39.     put "GET  ""e before theLine
  40.     put quote after theLine
  41.  
  42.     repeat until (char 1 to 4 of theIntro) is a integer
  43.       delete char 1 of theIntro
  44.     end repeat
  45.     get ((round((word 1 of theIntro)/1024)&tab&theLine)&return)
  46.     put it
  47.     put it after temp
  48.     -- put it after cd fld 1
  49.   end repeat
  50.   open file theFile
  51.   write temp to file theFile
  52.   close file theFile
  53. end mouseUp
  54.  
  55.  
  56. -- part 2 (field)
  57. -- low flags: 24
  58. -- high flags: 0007
  59. -- rect: left=0 top=44 right=296 bottom=352
  60. -- title width / last selected line: 0
  61. -- icon id / first selected line: 0 / 0
  62. -- text alignment: 0
  63. -- font id: 3
  64. -- text size: 12
  65. -- style flags: 0
  66. -- line height: 16
  67. -- part name: 
  68.  
  69.  
  70. -- part contents for card part 2
  71. ----- text -----
  72.  
  73.  
  74.  
  75.  
  76.  
  77.  
  78.  
  79.  
  80.  
  81.  
  82.  
  83.