home *** CD-ROM | disk | FTP | other *** search
/ The Electronic Whole Earth Catalog / ElectronicWholeEarthCatalog.img / CRAFT / card_136932.txt < prev    next >
Text File  |  1989-02-07  |  22KB  |  1,164 lines
  1. -- card: 136932 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 4000
  4. -- background id: 138931
  5. -- name: Contents
  6. ----- HyperTalk script -----
  7. -- do not remove
  8. -- cd Contents script
  9. on showMover
  10.   show btn "Put Article"
  11.   show btn "After"
  12.   show btn "PushMover"
  13.   show btn "To Other Stack"
  14.   show btn "Do It"
  15.   show btn "Un/Lock"
  16.   show bg fld "theMover"
  17.   show bg fld "theTarget"
  18. end showMover
  19.  
  20. on hideMover
  21.   hide btn "Put Article"
  22.   hide btn "After"
  23.   hide btn "PushMover"
  24.   hide btn "To Other Stack"
  25.   hide btn "Do It"
  26.   hide btn "Un/Lock"
  27.   hide bg fld "theMover"
  28.   hide bg fld "theTarget"
  29. end hideMover
  30.  
  31.  
  32.  
  33. -- part 51 (button)
  34. -- low flags: 80
  35. -- high flags: 8002
  36. -- rect: left=12 top=0 right=17 bottom=87
  37. -- title width / last selected line: 0
  38. -- icon id / first selected line: 0 / 0
  39. -- text alignment: 1
  40. -- font id: 0
  41. -- text size: 12
  42. -- style flags: 0
  43. -- line height: 16
  44. -- part name: Put Article
  45. ----- HyperTalk script -----
  46. on mouseUp
  47.   put value( the selectedLine ) into bg field "theMover"
  48. end mouseUp
  49.  
  50.  
  51.  
  52. -- part 52 (button)
  53. -- low flags: 80
  54. -- high flags: 8002
  55. -- rect: left=12 top=20 right=38 bottom=53
  56. -- title width / last selected line: 0
  57. -- icon id / first selected line: 0 / 0
  58. -- text alignment: 1
  59. -- font id: 0
  60. -- text size: 12
  61. -- style flags: 0
  62. -- line height: 16
  63. -- part name: After
  64. ----- HyperTalk script -----
  65. on mouseUp
  66.   put value( the selectedLine) into bg field "theTarget"
  67. end mouseUp
  68.  
  69.  
  70.  
  71. -- part 53 (button)
  72. -- low flags: 80
  73. -- high flags: 0000
  74. -- rect: left=380 top=0 right=31 bottom=404
  75. -- title width / last selected line: 0
  76. -- icon id / first selected line: 2730 / 2730
  77. -- text alignment: 1
  78. -- font id: 0
  79. -- text size: 12
  80. -- style flags: 0
  81. -- line height: 16
  82. -- part name: pushMover
  83. ----- HyperTalk script -----
  84. on mouseUp
  85.   put bg field "theMover" into bg field "theTarget"
  86. end mouseUp
  87.  
  88.  
  89.  
  90. -- part 54 (button)
  91. -- low flags: 80
  92. -- high flags: A004
  93. -- rect: left=406 top=0 right=16 bottom=512
  94. -- title width / last selected line: 0
  95. -- icon id / first selected line: 0 / 0
  96. -- text alignment: 1
  97. -- font id: 0
  98. -- text size: 12
  99. -- style flags: 0
  100. -- line height: 16
  101. -- part name: To Other Stack
  102. ----- HyperTalk script -----
  103. on mouseUp
  104.   global lastStack, stackList
  105.   put bkgnd field "theMover" into sourceTitle
  106.   if sourceTitle is empty then
  107.     beep
  108.     put "No Source Title given!"
  109.     exit mouseUp
  110.   end if
  111.   put bkgnd field "theTarget" into targetTitle
  112.   if targetTitle is empty then
  113.     --   beep
  114.     put "No Target Title given!"
  115.     --   exit mouseUp
  116.   end if
  117.   go to first card in background "Review"
  118.   find sourceTitle in bkgnd field "theTitle"
  119.   if the result is "not found" then
  120.     go to card "Contents"
  121.     beep
  122.     put "Source Title not found!" into msg
  123.     exit mouseUp
  124.   end if
  125.   put bkgnd field "theTitle" into sourceTitle2
  126.   put empty into sourceIds
  127.   repeat while sourceTitle2 is in bkgnd field "theTitle"
  128.     get the id of this card
  129.     put it & return after sourceIds
  130.     go to next card
  131.     if number of this card is 1 then exit repeat
  132.   end repeat
  133.   repeat
  134.     go to card "Contents"
  135.     answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
  136.     if it is "Cancel" then exit mouseUp
  137.     if it is "OK" then exit repeat
  138.     repeat with thisID = 1 to number of lines in sourceIds
  139.       go to (line thisID of sourceIds)
  140.     end repeat
  141.   end repeat
  142.   -- start new code
  143.   repeat
  144.     Ask "Domain Number of target stack?" with lastStack
  145.     if it is empty then exit mouseUp
  146.     put it into targStackNum
  147.     if length( targStackNum ) < 2 then put "0" before targStackNum
  148.     put item it of stackList into targetStack
  149.     put it into lastStack
  150.     put id of this card into testID
  151.     push card
  152.     go to stack targetStack
  153.     if id of this card is testID then
  154.       beep
  155.       put "Stack not found"
  156.       pop card
  157.     else
  158.       exit repeat
  159.     end if
  160.   end repeat
  161.   go to first card in background "Review"
  162.   if targetTitle is empty then
  163.     go to last card
  164.     put field "theTitle" into targetTitle
  165.   else
  166.     find targetTitle in bkgnd field "theTitle"
  167.     if the result is "not found" then
  168.       go to card "Contents"
  169.       beep
  170.       put "Target Title not found!" into msg
  171.       pop card
  172.       exit mouseUp
  173.     end if
  174.   end if
  175.   put bkgnd field "theTitle" into targetTitle2
  176.   repeat while bkgnd field "theTitle" is targetTitle2
  177.     get the id of this card
  178.     put it into targetID
  179.     go to next card
  180.     if number of this card is 1 then exit repeat
  181.   end repeat
  182.   go to (targetId)
  183.   answer "Put them after this card?" with "Cancel" or "OK"
  184.   if it is "Cancel" then
  185.     pop card
  186.     exit mouseUp
  187.   end if
  188.  
  189.   pop card
  190.   -- now to actually move the cards
  191.   repeat with thisId = 1 to number of lines in sourceIds
  192.     put (line thisId of sourceIds) into srcCard
  193.     go to srcCard
  194.     lock screen
  195.     put the short name of this bkgnd into thisBkgnd
  196.     put getFields() into fieldCount
  197.     put "fc: " & fieldCount
  198.  
  199.     push card
  200.  
  201.     -- go get blank template card for this bg
  202.     do ("go to first card of bkgnd" && thisBkgnd && "of stack" && targetStack)
  203.     doMenu Copy Card
  204.     go to targetId
  205.     doMenu Paste Card
  206.     get the long id of this card
  207.     put it into targetId
  208.  
  209.     putFields fieldCount
  210.     put targetStack into bg field "theTopic"
  211.     put targStackNum & char 3 to length( field accession) of field accession into field accession
  212.  
  213.     if field "theIdent" is "access" then
  214.       if field surveyAccession is not empty then
  215.         put targStackNum & char 3 to length( field surveyAccession) of field surveyAccession into field surveyAccession
  216.       end if
  217.     end if
  218.     -- move graphic, if appropriate
  219.     if thisBkgnd is in "access,picture" then
  220.       pop card
  221.       -- horrible kluge...
  222.       -- make a speck on the card picture, so we never copy a blank pict
  223.       choose pencil tool
  224.       click at 280,180  -- where there's prob'ly some graphic already
  225.       -- we unmake the speck with another pencil click
  226.       -- our card looks the same as originally, but is guaranteed to
  227.       -- have a nonempty card picture
  228.       click at 280,180
  229.       choose select tool
  230.       domenu "Select All"
  231.       doMenu "Copy Picture"
  232.       push card
  233.       go to targetId
  234.       doMenu "Paste Picture"
  235.       choose browse tool
  236.       -- make it transparent in all cases EXCEPT when fullScreen picture
  237.       put no into decision
  238.       if thisBkgnd is "access"
  239.       then put yes into decision
  240.     else if thisBkgnd is "picture" then
  241.       -- put "fs: " & field "fullScreen"
  242.       if field "fullScreen" is empty
  243.       then put yes into decision
  244.     end if
  245.     if decision is "yes" then
  246.       choose select tool
  247.       domenu "Select All"
  248.       doMenu "transparent"
  249.       choose browse tool
  250.     end if
  251.   end if
  252.   unlock screen
  253.   pop card
  254. end repeat
  255.  
  256. -- update both TOC
  257. go to card "Contents"
  258. put offset (sourceTitle, bkgnd field "theContents") into sourceOff
  259. if sourceOff is 0 then
  260.   beep
  261.   put "Regenerate Contents of Source!"
  262. else
  263.   delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  264.   if char sourceOff of bkgnd field "theContents" is return then
  265.     delete char sourceOff of bkgnd field "theContents"
  266.   end if
  267.   if last char of sourceTitle is not return then put return after sourceTitle
  268. end if
  269. push card
  270. go to card "Contents" of stack targetStack
  271. put offset(targetTitle, bkgnd field "theContents") into targetOff
  272. if targetOff is 0 then
  273.   beep
  274.   put "Regenerate Contents of Target!"
  275.   pop card
  276.   exit mouseUp
  277. end if
  278. add length(targetTitle) to targetOff
  279. if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
  280. put sourceTitle before char targetOff of bkgnd field "theContents"
  281. pop card
  282. end mouseUp
  283.  
  284. function getFields
  285. global nameList
  286. global fContents
  287.  
  288. put empty into nameList
  289. put empty into fContents
  290.  
  291. put the number of bg fields into bgfc
  292. repeat with f = 1 to bgfc
  293.   put the name of bg field f & tab after nameList
  294.   put bg field f & tab after fContents
  295. end repeat
  296.  
  297. put the number of card fields into crdfc
  298. repeat with f = 1 to crdfc
  299.   put the name of card field f & tab after nameList
  300.   put card field f & tab after fContents
  301. end repeat
  302.  
  303. return bgfc + crdfc
  304. end getFields
  305.  
  306. on putFields fCounts
  307.   global nameList
  308.   global fContents
  309.  
  310.   put first item of fCounts into bgfc
  311.   put last item of fCounts into crdfc
  312.   repeat with f = 1 to bgfc
  313.     put pullName() into fName
  314.     put fName
  315.     do "put pullContents() into " & fName
  316.   end repeat
  317.  
  318. end putFields
  319.  
  320. function pullContents
  321. -- returns tab-delimited chunk from global fContents
  322. -- deletes it from global fContents, too
  323. global fContents
  324. put offset( tab, fContents ) into tabSpot
  325. if tabSpot > 0 then
  326.   get char 1 to tabSpot-1 of fContents
  327.   delete char 1 to tabSpot of fContents
  328.   return it
  329. end if
  330. return empty
  331. end pullContents
  332.  
  333. function pullName
  334. -- returns tab-delimited chunk from global nameList
  335. -- deletes it from global nameList, too
  336. global nameList
  337. put offset( tab, nameList ) into tabSpot
  338. if tabSpot > 0 then
  339.   get char 1 to tabSpot-1 of nameList
  340.   delete char 1 to tabSpot of nameList
  341.   return it
  342. end if
  343. return empty
  344. end pullName
  345.  
  346.  
  347.  
  348.  
  349. -- part 55 (button)
  350. -- low flags: 80
  351. -- high flags: A004
  352. -- rect: left=406 top=16 right=32 bottom=512
  353. -- title width / last selected line: 0
  354. -- icon id / first selected line: 0 / 0
  355. -- text alignment: 1
  356. -- font id: 0
  357. -- text size: 12
  358. -- style flags: 0
  359. -- line height: 16
  360. -- part name: Do It
  361. ----- HyperTalk script -----
  362. on mouseUp
  363.   put bkgnd field "theMover" into sourceTitle
  364.   if sourceTitle is empty then
  365.     beep
  366.     put "No Source Title given!"
  367.     exit mouseUp
  368.   end if
  369.   put bkgnd field "theTarget" into targetTitle
  370.   if targetTitle is empty then
  371.     beep
  372.     put "No Target Title given!"
  373.     exit mouseUp
  374.   end if
  375.   go to first card in background "Review"
  376.   find sourceTitle in bkgnd field "theTitle"
  377.   if the result is "not found" then
  378.     go to card "Contents"
  379.     beep
  380.     put "Source Title not found!" into msg
  381.     exit mouseUp
  382.   end if
  383.   put bkgnd field "theTitle" into sourceTitle2
  384.   put empty into sourceIds
  385.   repeat while sourceTitle2 is in bkgnd field "theTitle"
  386.     get the id of this card
  387.     put it & return after sourceIds
  388.     go to next card
  389.     if number of this card is 1 then exit repeat
  390.   end repeat
  391.   repeat
  392.     go to card "Contents"
  393.     answer "Found" && number of lines in sourceIds && "cards to move." with "Cancel" or "Review" or "OK"
  394.     if it is "Cancel" then exit mouseUp
  395.     if it is "OK" then exit repeat
  396.     repeat with thisID = 1 to number of lines in sourceIds
  397.       go to (line thisID of sourceIds)
  398.     end repeat
  399.   end repeat
  400.   go to first card in background "Review"
  401.   find targetTitle in bkgnd field "theTitle"
  402.   if the result is "not found" then
  403.     go to card "Contents"
  404.     beep
  405.     put "Target Title not found!" into msg
  406.     exit mouseUp
  407.   end if
  408.   put bkgnd field "theTitle" into targetTitle2
  409.   repeat while bkgnd field "theTitle" is targetTitle2
  410.     get the id of this card
  411.     put it into targetID
  412.     go to next card
  413.     if number of this card is 1 then exit repeat
  414.   end repeat
  415.   go to (targetId)
  416.   answer "Put them after this card?" with "Cancel" or "OK"
  417.   if it is "Cancel" then exit mouseUp
  418.   push card
  419.   repeat with thisId = 1 to number of lines in sourceIds
  420.     go to (line thisId of sourceIds)
  421.     doMenu Cut Card
  422.     pop card
  423.     doMenu Paste Card
  424.     push card
  425.   end repeat
  426.   pop card
  427.   go to card "Contents"
  428.   put offset (sourceTitle, bkgnd field "theContents") into sourceOff
  429.   if sourceOff is 0 then
  430.     beep
  431.     put "Regenerate Contents!"
  432.     exit mouseUp
  433.   end if
  434.   delete char sourceOff to (sourceOff + length(sourceTitle) - 1) of bkgnd field "theContents"
  435.   if char sourceOff of bkgnd field "theContents" is return then
  436.     delete char sourceOff of bkgnd field "theContents"
  437.   end if
  438.   if last char of sourceTitle is not return then put return after sourceTitle
  439.   put offset(targetTitle, bkgnd field "theContents") into targetOff
  440.   if targetOff is 0 then
  441.     beep
  442.     put "Regenerate Contents!"
  443.     exit mouseUp
  444.   end if
  445.   add length(targetTitle) to targetOff
  446.   if char targetOff of bkgnd field "theContents" is return then add 1 to targetOff
  447.   put sourceTitle before char targetOff of bkgnd field "theContents"
  448. end mouseUp
  449.  
  450.  
  451.  
  452. -- part 56 (button)
  453. -- low flags: 80
  454. -- high flags: A004
  455. -- rect: left=406 top=32 right=48 bottom=512
  456. -- title width / last selected line: 0
  457. -- icon id / first selected line: 0 / 0
  458. -- text alignment: 1
  459. -- font id: 0
  460. -- text size: 12
  461. -- style flags: 0
  462. -- line height: 16
  463. -- part name: Un/Lock
  464. ----- HyperTalk script -----
  465. on mouseUp
  466.   get the lockText of fld "theContents"
  467.   if it is false then
  468.     set the lockText of fld "theContents" to true
  469.   else
  470.     set the lockText of fld "theContents" to false
  471.   end if
  472. end mouseUp
  473.  
  474.  
  475.  
  476. -- part contents for background part 6
  477. ----- text -----
  478. Contents
  479.  
  480. -- part contents for background part 11
  481. ----- text -----
  482. Menu
  483.  
  484. -- part contents for background part 17
  485. ----- text -----
  486. CRAFT CONTENTS
  487.  
  488. -- part contents for background part 33
  489. ----- text -----
  490. card id 21559
  491. card id 36577
  492. card id 40506
  493. card id 159894
  494. card id 33900
  495. card id 41693
  496. card id 25351
  497. card id 26517
  498. card id 27945
  499. card id 29077
  500. card id 41829
  501. card id 10089
  502. card id 11611
  503. card id 13608
  504. card id 12718
  505. card id 42223
  506. card id 27304
  507. card id 22065
  508. card id 23272
  509. card id 24283
  510. card id 24328
  511. card id 42400
  512. card id 43170
  513. card id 49003
  514. card id 42670
  515. card id 38940
  516. card id 40014
  517. card id 41130
  518. card id 44164
  519. card id 142324
  520. card id 50258
  521. card id 131346
  522. card id 22836
  523. card id 44722
  524. card id 31216
  525. card id 32254
  526. card id 33366
  527. card id 34711
  528. card id 120552
  529. card id 43917
  530. card id 43378
  531. card id 8153
  532. card id 3229
  533. card id 35317
  534. card id 44994
  535. card id 18776
  536. card id 20013
  537. card id 21011
  538. card id 45132
  539. card id 14802
  540. card id 15385
  541. card id 19428
  542. card id 114114
  543. card id 16386
  544. card id 17637
  545. card id 37172
  546. card id 45365
  547. card id 42794
  548. card id 139848
  549. card id 144463
  550. card id 70141
  551. card id 77482
  552. card id 78234
  553. card id 146225
  554. card id 9540
  555. card id 45597
  556. card id 149168
  557. card id 150099
  558. card id 147305
  559. card id 38257
  560. card id 46888
  561. card id 107966
  562. card id 109300
  563. card id 109492
  564. card id 8900
  565. card id 49938
  566. card id 48220
  567. card id 110335
  568. card id 114780
  569. card id 53107
  570. card id 71647
  571. card id 145080
  572. card id 154438
  573. card id 156465
  574. card id 157808
  575. card id 16029
  576. card id 124470
  577. card id 118154
  578. card id 117098
  579. card id 116215
  580. card id 3839
  581. card id 49645
  582. card id 145639
  583. card id 71367
  584. card id 143777
  585. card id 94505
  586. card id 141939
  587. card id 154336
  588. card id 140551
  589. card id 15818
  590. card id 155213
  591. card id 148124
  592. card id 149677
  593. card id 94780
  594. card id 51317
  595. card id 48414
  596. card id 52247
  597. card id 78510
  598. card id 92344
  599. card id 102929
  600. card id 46340
  601. card id 30135
  602. card id 69660
  603. card id 48696
  604. card id 63570
  605. card id 64734
  606. card id 65547
  607. card id 68652
  608. card id 66712
  609. card id 172014
  610. card id 38791
  611. card id 50930
  612. card id 53673
  613. card id 96531
  614. card id 98589
  615. card id 97639
  616. card id 7306
  617. card id 13350
  618. card id 14261
  619. card id 14379
  620. card id 51646
  621. card id 125312
  622. card id 126854
  623. card id 60310
  624. card id 62613
  625. card id 55997
  626. card id 51787
  627. card id 134705
  628. card id 137007
  629. card id 138095
  630. card id 139013
  631. card id 84689
  632. card id 52874
  633. card id 140276
  634. card id 132307
  635. card id 61520
  636. card id 53782
  637. card id 57329
  638. card id 58348
  639. card id 81717
  640. card id 84892
  641. card id 59350
  642. card id 54260
  643. card id 77688
  644. card id 78740
  645. card id 79637
  646. card id 83853
  647. card id 84193
  648. card id 7583
  649. card id 7752
  650. card id 54350
  651. card id 133869
  652. card id 44517
  653.  
  654.  
  655. -- part contents for background part 34
  656. ----- text -----
  657. 03028002
  658. 03106007
  659. 03098108
  660. 03098119
  661. 03022006
  662. 03022108
  663. 03022119
  664. 03022120
  665. 03022131
  666. 03022142
  667. 03022200
  668. 03022211
  669. 03022222
  670. 03022233
  671. 03022244
  672. 03022302
  673. 03100205
  674. 03022313
  675. 03022324
  676. 03022335
  677. 03102412
  678. 03022404
  679. 03022415
  680. 03022426
  681. 03022506
  682. 03022517
  683. 03022528
  684. 03022539
  685. 03022700
  686. 03109851
  687. 03022722
  688. 03109646
  689. 03022733
  690. 03022802
  691. 03022813
  692. 03022824
  693. 03022835
  694. 03022540
  695. 03114778
  696. 03022608
  697. 03022619
  698. 03022620
  699. 03022631
  700. 03023007
  701. 03023109
  702. 03023110
  703. 03023121
  704. 03023132
  705. 03023201
  706. 03023212
  707. 03102763
  708. 03102796
  709. 03102730
  710. 03023223
  711. 03023234
  712. 03024008
  713. 03024100
  714. 03024111
  715. 03100987
  716. 03024122
  717. 03102514
  718. 03102547
  719. 03102570
  720. 03024144
  721. 03024155
  722. 03024202
  723. 03024213
  724. 03024224
  725. 03024235
  726. 03025009
  727. 03025101
  728. 03025112
  729. 03025123
  730. 03102650
  731. 03102661
  732. 03025134
  733. 03025305
  734. 03025316
  735. 03025327
  736. 03025203
  737. 03102310
  738. 03025214
  739. 03025225
  740. 03025236
  741. 03102229
  742. 03025247
  743. 03025258
  744. 03025350
  745. 03025349
  746. 03025338
  747. 03110707
  748. 03102707
  749. 03101660
  750. 03102638
  751. 03102343
  752. 03109840
  753. 03102434
  754. 03102467
  755. 03102490
  756. 03102809
  757. 03101659
  758. 03109964
  759. 03100830
  760. 03101784
  761. 03104005
  762. 03025407
  763. 03102627
  764. 03102332
  765. 03102365
  766. 03102398
  767. 03025429
  768. 03025430
  769. 03105006
  770. 03025509
  771. 03025510
  772. 03025521
  773. 03025532
  774. 03025543
  775. 03025554
  776. 03025565
  777. 03026000
  778. 03026204
  779. 03026215
  780. 03026226
  781. 03026237
  782. 03026248
  783. 03026259
  784. 03102478
  785. 03102536
  786. 03102569
  787. 03027103
  788. 03027114
  789. 03027125
  790. 03027136
  791. 03027147
  792. 03027158
  793. 03027205
  794. 03027216
  795. 03027238
  796. 03027249
  797. 03027250
  798. 03027227
  799. 03027307
  800. 03027318
  801. 03027330
  802. 03027341
  803. 03027409
  804. 03027410
  805. 03027421
  806. 03027432
  807. 03027443
  808. 03027454
  809. 03027501
  810. 03027512
  811. 03027523
  812. 03027534
  813. 03027545
  814. 03102423
  815. 03102456
  816. 03102489
  817. 03027603
  818. 03027614
  819. 03027625
  820.  
  821.  
  822. -- part contents for background part 35
  823. ----- text -----
  824. 1
  825. 2
  826. 3
  827. 4
  828. 2
  829. 3
  830. 4
  831. 4
  832. 4
  833. 4
  834. 3
  835. 4
  836. 4
  837. 4
  838. 4
  839. 3
  840. 4
  841. 4
  842. 4
  843. 4
  844. 5
  845. 3
  846. 4
  847. 4
  848. 3
  849. 4
  850. 4
  851. 4
  852. 3
  853. 4
  854. 4
  855. 4
  856. 4
  857. 3
  858. 4
  859. 4
  860. 4
  861. 4
  862. 4
  863. 3
  864. 4
  865. 4
  866. 4
  867. 2
  868. 3
  869. 4
  870. 4
  871. 4
  872. 3
  873. 4
  874. 5
  875. 5
  876. 5
  877. 4
  878. 4
  879. 2
  880. 3
  881. 4
  882. 4
  883. 4
  884. 5
  885. 5
  886. 5
  887. 4
  888. 4
  889. 3
  890. 4
  891. 4
  892. 4
  893. 2
  894. 3
  895. 4
  896. 4
  897. 5
  898. 5
  899. 4
  900. 3
  901. 4
  902. 4
  903. 3
  904. 4
  905. 5
  906. 5
  907. 5
  908. 5
  909. 4
  910. 4
  911. 4
  912. 4
  913. 4
  914. 2
  915. 3
  916. 4
  917. 4
  918. 4
  919. 4
  920. 5
  921. 5
  922. 4
  923. 3
  924. 4
  925. 4
  926. 5
  927. 5
  928. 2
  929. 3
  930. 4
  931. 4
  932. 4
  933. 4
  934. 4
  935. 4
  936. 2
  937. 3
  938. 4
  939. 4
  940. 4
  941. 4
  942. 4
  943. 4
  944. 2
  945. 3
  946. 4
  947. 4
  948. 4
  949. 4
  950. 4
  951. 5
  952. 5
  953. 5
  954. 3
  955. 4
  956. 4
  957. 4
  958. 4
  959. 4
  960. 3
  961. 4
  962. 4
  963. 4
  964. 4
  965. 4
  966. 3
  967. 4
  968. 4
  969. 4
  970. 3
  971. 4
  972. 4
  973. 4
  974. 4
  975. 4
  976. 3
  977. 4
  978. 4
  979. 4
  980. 4
  981. 5
  982. 5
  983. 5
  984. 3
  985. 4
  986. 4
  987.  
  988.  
  989. -- part contents for background part 18
  990. ----- text -----
  991. CRAFT
  992.   ONE HIGHLY EVOLVED TOOLBOX
  993.     One Highly Evolved Toolbox
  994.       ONE HIGHLY EVOLVED TOOLBOX
  995.   TOOLS
  996.     Tool Catalogs
  997.       U.S. General
  998.       Sears Power and Hand Tools
  999.       Brookstone
  1000.       The Eastwood Company
  1001.     Heavy-duty Tools
  1002.       RENTING TOOLS 
  1003.       Moving Heavy Things
  1004.       Come-Along Hoist/Winch/Puller
  1005.       Handyman Jack
  1006.     Surplus
  1007.       WHY GOVERNMENT SURPLUS IS CHEAP  
  1008.       Jerryco
  1009.       Burden‚Äôs
  1010.       MAIL-ORDER DISCOUNT TOOLS AND  SUPPLIES 
  1011.         Harbor Freight Salvage  
  1012.     Wholesale Tools
  1013.       BREAKING THE WHOLESALE BARRIER
  1014.       Grainger‚Äôs
  1015.     Powertools
  1016.       Shopsmith
  1017.       Ryobi 10" Planer
  1018.       Cutawl
  1019.     Specialized Tools
  1020.       Victorinox SwissChamp¬Æ
  1021.       Woodcraft
  1022.       Garrett Wade Woodworking Tools
  1023.       Gerstner Tool Chests
  1024.     Tool Techniques
  1025.       The Razor Edge Book of Sharpening
  1026.       Wood Finisher‚Äôs Handbook
  1027.       Welder‚Äôs Handbook
  1028.       Stationary Power Tool Techniques
  1029.       Tools and How To Use Them
  1030.     Toolmaking
  1031.       Pyramid Foundry Sets
  1032.       The Art of Blacksmithing
  1033.       The Making of Tools
  1034.   HARDWARE
  1035.     Hardware Suppliers
  1036.       Classic Hardware
  1037.       C & H Buyer‚Äôs Guide
  1038.       Allen Specialty Hardware
  1039.     Materials
  1040.       The WEST SYSTEM‚Ñ¢ 
  1041.         The Gougeon Brothers on Boat Construction
  1042.         West Systems‚Ñ¢ Products Catalog 
  1043.         West System‚Ñ¢ Technical Manual
  1044.       Livos Non-Toxic Finishes
  1045.       Devcon
  1046.   ELECTRONICS
  1047.     Electronics Know-How
  1048.       The Art of Electronics
  1049.       Personal Electronics Book
  1050.       DON LANCASTER‚ÄôS COOKBOOK LIBRARY
  1051.         Active Filter Cookbook 
  1052.         CMOS Cookbook 
  1053.         TTL Cookbook 
  1054.       Consumer Reports - Electronics in The Home
  1055.       Using Your Meter
  1056.     Electronics Suppliers
  1057.       Electronic Buyers Club (EBC)
  1058.       Mouser Electronics
  1059.       J & R Music World
  1060.   GLASS
  1061.     Cold Glass
  1062.       GLASS INTRODUCTION 
  1063.       Stained Glass Primers
  1064.         Stained Glass Primer (Vol. 1) 
  1065.         Stained Glass Primer (Vol. 2) 
  1066.       The Art of Painting on Glass
  1067.     Hot Glass
  1068.       Glass Fusing
  1069.       Glassblowing: A Search for Form
  1070.     Glasswork Resources
  1071.       WHERE TO LEARN THE GLASS ARTS
  1072.         N.Y. Experimental Glass Workshop
  1073.         Camp Colton Glass Program
  1074.         Fenton and Gaines Glass Studio
  1075.         Pilchuck School
  1076.       Professional Stained Glass Magazine 
  1077.       Whittemore-Durgin Glass Company
  1078.       Neues Glas
  1079.       New Work
  1080.       Glass Art Society Journal
  1081.   JEWELRY MAKING
  1082.     Jewelry I
  1083.       Jewelry Concepts and Techniques
  1084.       Metal Techniques for Craftsmen
  1085.       Design and Creation of Jewelry
  1086.       JEWELRY TECHNIQUES
  1087.         Creative Casting
  1088.         Metalwork and Enamelling
  1089.       Lapidary Journal
  1090.     Jewelry II
  1091.       Complete Metalsmith
  1092.       JEWELRYMAKING EQUIPMENT
  1093.         Allcraft
  1094.         Dixon Precision Tools and Equipment 
  1095.   WOODWORKING
  1096.     Wood
  1097.       Fine Woodworking Magazine
  1098.       Fine Woodworking On  
  1099.       Fine Woodworking Techniques
  1100.       Fine Woodworking Video Workshops
  1101.       Understanding Wood
  1102.       Wood Magazine
  1103.   CERAMICS
  1104.     Ceramics
  1105.       CERAMICS INTRODUCTION
  1106.       Hands in Clay
  1107.       The Ceramic Spectrum
  1108.       The Kiln Book
  1109.       Studio Potter
  1110.       Ceramics Monthly
  1111.   TEXTILES
  1112.     Basketry
  1113.       BASKETRY INTRODUCTION
  1114.       Basketry Today with Materials from Nature
  1115.       The News Basket
  1116.       The Nature of Basketry
  1117.       BASKETRY SUPPLIERS
  1118.         The Caning Shop
  1119.         Tint & Splint Basketry
  1120.         H. H. Perkins
  1121.     Fiber Crafts
  1122.       Threads
  1123.       Fiberarts
  1124.       The Fiberworks Source Book
  1125.       A Silk Worker‚Äôs Handbook
  1126.       Soft Sculpture
  1127.     Weaving I
  1128.       The Key to Weaving
  1129.       Fashions from the Loom
  1130.       Working With the Wool: To Weave a Navajo Rug
  1131.       Techniques of Rug Weaving
  1132.       Handwoven
  1133.     Weaving II
  1134.       Warping All By Yourself
  1135.       Spinning and Weaving with Wool
  1136.       Universal Yarn Finder
  1137.     Needlework
  1138.       Reader‚Äôs Digest Complete Guide to Needlework
  1139.       Inspiration for Embroidery
  1140.       The Complete Book of Machine Quilting
  1141.       Patchwork Patterns
  1142.       The Textile Booklist
  1143.     Sewing
  1144.       Reader‚Äôs Digest Complete Guide to Sewing
  1145.       Power Sewing
  1146.       Sew Sane
  1147.       SEWING SUPPLIES
  1148.         Newark Dressmaker Supply 
  1149.         Clotilde Inc. 
  1150.         Sewing Emporium
  1151.     Dyeing
  1152.       Synthetic Dyes for Natural Fibers
  1153.       The Weaving, Spinning, and Dyeing Book
  1154.  
  1155.  
  1156. -- part contents for background part 44
  1157. ----- text -----
  1158. ‚Ä¢ WHOLE EARTH
  1159.  ‚Ä¢ CRAFT
  1160.  
  1161. -- part contents for background part 45
  1162. ----- text -----
  1163. stack "WHOLE EARTH"
  1164. stack "CRAFT"