home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / mactosh / hc / timekeep.sit / Disbursements / background_2737.txt < prev    next >
Text File  |  1987-11-07  |  1KB  |  68 lines
  1. -- background: 2737 from stack: in
  2. -- bmap block id: 3076
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Cover Bkgnd
  6. ----- HyperTalk script -----
  7. on openBackground
  8.   global userName
  9.   show bkgnd field "Copyright"
  10.   wait 30 ticks
  11.   hide bkgnd field "Copyright"
  12.   put userName into field "Attorney Name"
  13. end openBackground
  14.  
  15.  
  16.  
  17. -- part 35 (field)
  18. -- low flags: 00
  19. -- high flags: 0002
  20. -- rect: left=179 top=136 right=154 bottom=340
  21. -- title width / last selected line: 0
  22. -- icon id / first selected line: 0 / 0
  23. -- text alignment: 1
  24. -- font id: 3
  25. -- text size: 12
  26. -- style flags: 256
  27. -- line height: 16
  28. -- part name: Attorney Name
  29.  
  30.  
  31. -- part 38 (field)
  32. -- low flags: 81
  33. -- high flags: 0002
  34. -- rect: left=0 top=0 right=12 bottom=174
  35. -- title width / last selected line: 0
  36. -- icon id / first selected line: 0 / 0
  37. -- text alignment: 0
  38. -- font id: 3
  39. -- text size: 9
  40. -- style flags: 0
  41. -- line height: 12
  42. -- part name: Copyright
  43. ----- HyperTalk script -----
  44. on closeField
  45.   put "┬⌐Copyright 1987 by Peter B. Nagel" into field "Copyright"
  46.   answer "Please, do not try to alter copyright notice!"
  47.   set lockText of field "Copyright" to true
  48.   choose browse tool
  49. end closeField
  50.  
  51. on deleteField
  52.   warning 10
  53. end deleteField
  54.  
  55.  
  56. -- part 39 (field)
  57. -- low flags: 00
  58. -- high flags: 0000
  59. -- rect: left=511 top=341 right=342 bottom=512
  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: 9
  65. -- style flags: 0
  66. -- line height: 12
  67. -- part name: 
  68.