<script>on mouseUpsort this bg by bg fld 1end mouseUp</script>
</part>
<part>
<id>19</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>374</left>
<top>26</top>
<right>454</right>
<bottom>43</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<name>Include</name>
<script>on mouseUpset the hilite of me to not the hilite of meend mouseUp</script>
</part>
<part>
<id>20</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>150</left>
<top>320</top>
<right>171</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1013</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpgo next cd of this bgend mouseUp</script>
</part>
<part>
<id>21</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>130</left>
<top>320</top>
<right>151</right>
<bottom>342</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>1014</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Previous</name>
<script>on mouseUpgo previous cd of this bgend mouseUp</script>
</part>
<part>
<id>22</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>285</left>
<top>282</top>
<right>506</right>
<bottom>337</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Subjects</name>
<script>on closeFieldif the visible of bg fld "Subject List" then send mouseUp to bg btn "Hide List"set cursor to watchrepeat with i = 1 to the number of lines of meput line i of me into itif it is not in bg fld "Subject List" thenput return & it after bg fld "Subject List"end ifend repeatsort bg fld "Subject List"end closeFieldon mouseUpedit the script of meend mouseUp</script>
</part>
<part>
<id>23</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>445</left>
<top>46</top>
<right>512</right>
<bottom>67</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Citations</name>
<script>on mouseUppush this cdgo to cd "Citation List"end mouseUp</script>
</part>
<part>
<id>24</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>432</left>
<top>68</top>
<right>512</right>
<bottom>90</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Check refs</name>
<script>on mouseUppush cdgo to cd "Check refs"end mouseUp</script>
</part>
<part>
<id>26</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>0</left>
<top>323</top>
<right>74</right>
<bottom>342</bottom>
</rect>
<style>rectangle</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>right</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>WhichOne</name>
<script></script>
</part>
<part>
<id>27</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>151</left>
<top>120</top>
<right>378</right>
<bottom>269</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Subject List</name>
<script>on mouseUpglobal sTypeif the shiftKey is down then findSubjelse if the optionKey is down then edit the script of meelseselect the clickLineset the cursor to watchif word 2 of the clickLine is "1" or word 2 of the clickLine is "2" thenselect before line 1 of mebeepexit mouseUpelse if sType is "All" then findAll the selectionelse if sType is "Next" then findNext the selectionend ifend mouseUpon findSubjask "What subject do you want to look for?"if it is "Cancel" or it is empty then exit findSubjput it into theSubjput offset(theSubj, me) into startif start > 0 then select char start to start + length of theSubj -1 of meelseanswer "There is no such Subject listed" with "OK"select before line 2 of meend ifend findSubjon findAll whatlock screenput empty into hitspush cdgo cd 1repeat foreverfind what in bg fld "Subjects"if the result is "not found" then exit repeatput bg fld "1st last" & "," & bg fld "title" & return & return into itif it is not in hits then put it after hitselse exit repeatend repeatif hits is empty then answer "Didn't find any entries with that Subject" with "OK"elsesend mouseUp to bg btn "Hide List"go cd "Index"put (number of lines in hits)/2 into foundNif foundN = 1 then put "There is " & foundN & " entry about " & what into bg fld "Summary"else put "There are " & foundN & " entries about " & what into bg fld "Summary"put hits into bg fld "Index"end ifend findAllon findNext whatfind what in bg fld "Subjects"if the result is "not found" thenanswer "Didn't find any entries with that Subject" with "OK"else send mouseUp to bg btn "Hide List"end findNext</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>401</left>
<top>92</top>
<right>512</right>
<bottom>114</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Search Subjects</name>
<script>on mouseUpglobal sTypeif the short name of me is "Search Subjects" thenanswer "Type of search:" with "Cancel" or "Next" or "All"if it is empty or it is "Cancel" then exit mouseUpput it into sTypeput "Shift-click to look for a Subject" & return before bg fld "Subject List"put "Click on a Subject to look for it" & return before bg fld "Subject List"show bg fld "Subject List"set the name of me to "Hide List"elsehide bg fld "Subject List"set the name of me to "Search Subjects"delete line 1 of bg fld "Subject List"delete line 1 of bg fld "Subject List"set the scroll of bg fld "Subject List" to 0end ifend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>198</top>
<right>512</right>
<bottom>220</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Upkeep tools</name>
<script>on mouseUppush cdgo to cd "Upkeep"end mouseUp</script>
</part>
<part>
<id>32</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>412</left>
<top>225</top>
<right>512</right>
<bottom>247</bottom>
</rect>
<style>roundrect</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Find Duplicate</name>
<script>on mouseUppush cdsort this bg by bg fld "title"sort this bg numeric by bg fld "date"sort this bg by bg fld "1st last"pop cdrepeat with i = the number of this cd to the number of cds in this bg -1set cursor to busyif bg fld "1st last" of cd i is in bg fld "1st last" of cd (i+1) thenif bg fld "date" of cd i is in bg fld "date" of cd (i+1) thenif bg fld "title" of cd i is in bg fld "title" of cd (i+1) thengo cd iput "Possible duplicate with following cd"exit repeatend ifend ifend ifend repeatbeepend mouseUp</script>
</part>
<part>
<id>33</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <true /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <false /> </lockText>
<rect>
<left>0</left>
<top>19</top>
<right>224</right>
<bottom>119</bottom>
</rect>
<style>shadow</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Geneva</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>HelpFld</name>
<script></script>
</part>
<part>
<id>34</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>0</left>
<top>304</top>
<right>99</right>
<bottom>322</bottom>
</rect>
<style>checkbox</style>
<showName> <true /> </showName>
<highlight> <true /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>outline</textStyle>
<name>Show Help</name>
<script>on mouseUpglobal showHelp, fromHereput not(the hilite of me) into showHelpset the hilite of me to showHelpif showHelp thendoCopyrightput true into fromHere --show helpFld when have clickedsend mouseEnter to the targetelseput false into fromHeresend mouseLeave to the targetend ifend mouseUpon mouseLeaveglobal fromHereif not fromHere then pass mouseLeave --don't hide helpFld when have clicked here (otherwise stack script will)else put false into fromHere --have already clicked hereend mouseLeave</script>
</part>
<content>
<layer>background</layer>
<id>33</id>
<text>Clicking this button allows you to search the entries for subjects entered in the subject field below. You can get either the next entry for a subject or a list of all entries for that subject.</text>
</content>
<name>Entries</name>
<script>on openCardput the number of this cd & "/" & the number of cds in this bg into bg fld "WhichOne"set the scroll of bg field 3 to 0set the scroll of bg field 4 to 0set the scroll of bg field "Title" to 0end openCard</script>