home *** CD-ROM | disk | FTP | other *** search
/ Garbo / Garbo.cdr / mac / hypercrd / hc2_x / recipe.sit / Recipe / card_12994.txt < prev    next >
Text File  |  1990-12-14  |  4KB  |  142 lines
  1. -- card: 12994 from stack: in
  2. -- bmap block id: 4751
  3. -- flags: 4000
  4. -- background id: 2785
  5. -- name: ContentsCard
  6. ----- HyperTalk script -----
  7. on OpenCard
  8.   global TOCGEN
  9.   if TOCGEN is not "Yes" and short name of me is "ContentsCard" then TestAndGenerate
  10.   pass OpenCard
  11. end OpenCard
  12.  
  13. on TestAndGenerate
  14.   global TOCOUNT
  15.   unlock screen
  16.   get card field TocCountFld
  17.   put it into TOCOUNT
  18.   if TOCOUNT+2 is not number of cards in this background then
  19.     answer "Generate a new table of contents" with "Yes" or "Later"
  20.     if it is "Yes" then GenerateTOC
  21.   end if
  22. end TestAndGenerate
  23.  
  24. on GenerateTOC
  25.   global TOC, TOCOUNT, TOCGEN
  26.  
  27.   set cursor to watch
  28.   lock screen
  29.   put "Yes" into TOCGEN
  30.   put "" into TOC
  31.   put 0 into TOCOUNT
  32.   --put id of last card into LASTONE
  33.  
  34.   repeat
  35.     go to next card
  36.     set cursor to toc1
  37.     if fld "Type" is not empty then
  38.       add 1 to TOCOUNT
  39.       put TOCOUNT && word 1 of fld "Type" && "ΓÇó" && line 1 of fld "Title" after TOC
  40.       set cursor to toc2
  41.       if last char of TOC is not return then
  42.         put return after TOC
  43.       end if
  44.     end if
  45.     if the short name of this card is "ContentsCard" then exit repeat
  46.     --if id of this card is LASTONE then exit repeat
  47.   end repeat
  48.  
  49.   put TOC into fld "Recipe" of card "ContentsCard"
  50.   put TOCOUNT into card field TocCountFld of card "ContentsCard"
  51.   go to card "ContentsCard"
  52.   doMenu "Compact Stack"
  53.   put "No" into TOCGEN
  54. end GenerateTOC
  55.  
  56.  
  57.  
  58. -- part 3 (field)
  59. -- low flags: 01
  60. -- high flags: 0000
  61. -- rect: left=306 top=306 right=322 bottom=333
  62. -- title width / last selected line: 0
  63. -- icon id / first selected line: 0 / 0
  64. -- text alignment: 0
  65. -- font id: 2
  66. -- text size: 10
  67. -- style flags: 0
  68. -- line height: 13
  69. -- part name: TocCountFld
  70. ----- HyperTalk script -----
  71. on mouseUp
  72.   answer "Regenerate Table of contents?" with "Yes" or "No"
  73.   if it is "Yes" then
  74.     put 0 into me
  75.     GenerateTOC
  76.   end if
  77. end mouseUp
  78.  
  79.  
  80.  
  81. -- part contents for background part 14
  82. ----- text -----
  83. Table of Contents
  84.  
  85.  
  86. -- part contents for background part 13
  87. ----- text -----
  88. 1 BEEF ΓÇó Beef with Tangerine Peel
  89. 2 CHICKEN ΓÇó Chicken or Turkey Tetrazzini
  90. 3 CHICKEN ΓÇó Chicken Tetrazini
  91. 4 CHICKEN ΓÇó Crock pot Chicken a l'Orange
  92. 5 CHICKEN ΓÇó General Tso's Chicken
  93. 6 CHICKEN ΓÇó General Tso's Chicken 2
  94. 7 CHICKEN ΓÇó Southern Fried Chicken
  95. 8 CHICKEN ΓÇó Thai Chicken Coconut Soup
  96. 9 CHICKEN ΓÇó Thai Ginger Chicken Soup
  97. 10 FISH ΓÇó Bagna Cauda
  98. 11 FISH ΓÇó Flounder in Tomato and Basil Sauce
  99. 12 FISH ΓÇó Tom's Easy Fish Chowder
  100. 13 FISH ΓÇó World's Best Fish and Chips
  101. 14 MEAT ΓÇó Baked Lasagna
  102. 15 MEAT ΓÇó Caesar Salad
  103. 16 MEAT ΓÇó Cornbread Stuffing
  104. 17 MEAT ΓÇó Lasagna
  105. 18 MEAT ΓÇó Pozole Verde from Chilapa
  106. 19 MEAT ΓÇó Spicy Peanut, Sate (Satay) sauces
  107. 20 OVO ΓÇó Cranberry Fruit Nut Bread
  108. 21 OVO ΓÇó Potato Gnocci
  109. 22 OVO-LACTO ΓÇó Butter Spritz Cookies
  110. 23 OVO-LACTO ΓÇó Challah
  111. 24 OVO-LACTO ΓÇó Cheesecake
  112. 25 OVO-LACTO ΓÇó Decadent French Toast
  113. 26 OVO-LACTO ΓÇó Grandmother Watson's Oatmeal Cookies
  114. 27 OVO-LACTO ΓÇó Hocott's Pennsylvanie Dutch Funnel Cakes
  115. 28 OVO-LACTO ΓÇó Pecan Delight Pie
  116. 29 OVO-LACTO ΓÇó Pennsylvania Dutch Funnel Cakes
  117. 30 OVO-LACTO ΓÇó Simple and elegant Chocolate Mousse
  118. 31 OVO-LACTO ΓÇó Snicker Doodles
  119. 32 OVO-LACTO ΓÇó Tira mi su (desert)
  120. 33 OVO-LACTO ΓÇó Truffles (candy)
  121. 34 PORK ΓÇó Ham and Rice Stuffing
  122. 35 TUNA ΓÇó Tuna Tetrazzini
  123. 36 VEGAN ΓÇó Atole con Honholi
  124. 37 VEGAN ΓÇó Benner's Pepper Slaw
  125. 38 VEGAN ΓÇó Crusty French Bread
  126. 39 VEGAN ΓÇó Japanese Soy Sauce Dressing
  127. 40 VEGAN ΓÇó Pasta with Oil & Garlic
  128. 41 VEGAN ΓÇó Salsa De  Llaja
  129.  
  130.  
  131. -- part contents for background part 20
  132. ----- text -----
  133. This card shows the current table of contents.
  134.  
  135. Click on an entry to go to that recipe card.
  136.  
  137. You're asked whether Hypercard should update it whenever you add or delete a card.
  138.  
  139.  
  140. -- part contents for card part 3
  141. ----- text -----
  142. 41