GEMS/GEMS.iso/viewer.app/cards.xml

Text File | 1994-05-20 | 31KB | 420 lines

card_2994.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<card>
    <id>2994</id>
    <filler1>0</filler1>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <owner>2625</owner>
    <link rel="stylesheet" type="text/css" href="stylesheet_3096.css" />
    <part>
        <id>1</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>206</left>
            <top>382</top>
            <right>234</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>19093</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>prev pic</name>
        <script>on mouseUpglobal namesDB,currentDBLine,howManyPicsset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsubtract 1 from currentDBLineif currentDBLine < 1 then put howManyPics into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>3</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>287</left>
            <top>382</top>
            <right>316</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>31084</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>next pic</name>
        <script>on mouseUpglobal namesDB,currentDBLine,howManyPicsset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedadd 1 to currentDBLineif currentDBLine > howManyPics then put 1 into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>4</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>176</left>
            <top>382</top>
            <right>204</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>13637</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>play bck</name>
        <script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Sort" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play fwd" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward     " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of menuItem "Find First…" of menu "View" to falseset the enabled of menuItem "Find Next" of menu "View" to falseset the enabled of cd button "zoom" to falseset the enabled of me to falseput true into isPlayingput "bck" into playModeend mouseUp</script>
    </part>
    <part>
        <id>5</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>318</left>
            <top>382</top>
            <right>346</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>5123</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>play fwd</name>
        <script>on mouseUpglobal isPlaying,playModeset the enabled of menu "File" to falseset the enabled of menu "Sort" to falseset the enabled of button "next pic" to falseset the enabled of button "prev pic" to falseset the enabled of button "play bck" to falseset the enabled of button "stop" to trueset the enabled of menuItem "Next" of menu "View" to falseset the enabled of menuItem "Previous" of menu "View" to falseset the enabled of menuItem "Play Forward" of menu "View" to falseset the enabled of menuItem "Play Backward     " of menu "View" to falseset the enabled of menuItem "Stop" of menu "View" to trueset the enabled of menuItem 8 of menu "View" to falseset the enabled of menuItem "Find First…" of menu "View" to falseset the enabled of menuItem "Find Next" of menu "View" to falseset the enabled of cd button "zoom" to falseset the enabled of me to falseput true into isPlayingput "fwd" into playModeend mouseUp</script>
    </part>
    <part>
        <id>9</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>213</left>
            <top>362</top>
            <right>304</right>
            <bottom>378</bottom>
        </rect>
        <style>transparent</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>picture number</name>
        <script></script>
    </part>
    <part>
        <id>11</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>205</left>
            <top>340</top>
            <right>313</right>
            <bottom>357</bottom>
        </rect>
        <style>popup</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <selectedLines>
            <integer>1</integer>
        </selectedLines>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>display popup</name>
        <script>on mouseUpglobal namesDB,currentDBLineset the itemDelimiter to tabput currentDBLine into oldLineput (item 1 of line currentDBLine of namesDB) into toBeClosedput word 2 of (the selectedLine of me) into currentDBLineif currentDBLine <> oldLine thendisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedend ifset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>13</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>6</left>
            <top>340</top>
            <right>169</right>
            <bottom>402</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>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>info</name>
        <script>on mouseDoubleClickglobal isPlayingif not isPlaying then findFirstend mouseDoubleClick</script>
    </part>
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <false /> </enabled>
        <rect>
            <left>245</left>
            <top>382</top>
            <right>274</right>
            <bottom>404</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8367</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>stop</name>
        <script>on mouseUpglobal isPlayingset the enabled of menu "File" to trueset the enabled of menu "Sort" to trueset the enabled of button "next pic" to trueset the enabled of button "prev pic" to trueset the enabled of button "play bck" to trueset the enabled of button "play fwd" to trueset the enabled of menuItem "Next" of menu "View" to trueset the enabled of menuItem "Previous" of menu "View" to trueset the enabled of menuItem "Play Forward" of menu "View" to trueset the enabled of menuItem "Play Backward     " of menu "View" to trueset the enabled of menuItem "Stop" of menu "View" to falseset the enabled of menuItem 8 of menu "View" to trueset the enabled of menuItem "Find First…" of menu "View" to trueset the enabled of menuItem "Find Next" of menu "View" to trueset the enabled of cd button "zoom" to truehide cd button "Pause…"set the enabled of me to falseput false into isPlayingend mouseUp</script>
    </part>
    <part>
        <id>20</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>0</left>
            <top>32</top>
            <right>352</right>
            <bottom>230</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <true /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Helvetica</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>infoDB field</name>
        <script></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>311</left>
            <top>297</top>
            <right>346</right>
            <bottom>330</bottom>
        </rect>
        <style>opaque</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15555</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>zoom</name>
        <script>on mouseUpglobal currentDBLine,namesDBset the itemDelimiter to tabif the icon of me is 15555 then--zoom inset the scale of window (item 1 of line currentDBLine of namesDB) to 1set the icon of me to "zoom out"set the name of menuItem "Zoom In" of menu "View" to "Zoom Out"elseset the scale of window (item 1 of line currentDBLine of namesDB) to 0set the icon of me to "zoom in"set the name of menuItem "Zoom Out" of menu "View" to "Zoom In"end ifset the itemDelimiter to commaend mouseUp</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>326</left>
            <top>360</top>
            <right>346</right>
            <bottom>378</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15272</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Pause…</name>
        <script>on mouseUpglobal pauseask "Type amount of seconds to pause between pictures during play mode:"  with pauseIf the result is "Cancel" then exit mouseUpput it into theAnswerif theAnswer is not a number or theAnswer <0 thenbeepsend mouseUp to meexit mouseUpelseput theAnswer div 1 into pauseend ifend mouseUp</script>
    </part>
    <part>
        <id>35</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>11</left>
            <top>8</top>
            <right>162</right>
            <bottom>53</bottom>
        </rect>
        <style>transparent</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>DB</name>
        <script></script>
    </part>
    <content>
        <layer>card</layer>
        <id>9</id>
        <text>1 of 100</text>
    </content>
    <content>
        <layer>card</layer>
        <id>20</id>
        <text>GE_0001.TIF;1    JadeGE_0002.TIF;1    Jade (nephrite) brush holderGE_0003.TIF;1    Kunzite, (Spodumene variety) 880 caratsGE_0004.TIF;1    Kunzite, 296.7 caratsGE_0005.TIF;1    KunziteGE_0006.TIF;1    LepidoliteGE_0007.TIF;1    LabradoriteGE_0008.TIF;1    LabradoriteGE_0009.TIF;1    MalachiteGE_0010.TIF;1    MalachiteGE_0011.TIF;1    MalachiteGE_0012.TIF;1    Malachite and azuriteGE_0013.TIF;1    Morganite, 590 caratsGE_0014.TIF;1    MorrisoniteGE_0015.TIF;1    Mozarkite (Missouri State Gem) variety of chert.GE_0016.TIF;1    Orthoclase, 249.6 caratsGE_0017.TIF;1    Obsidian, snowflakeGE_0018.TIF;1    OpalGE_0019.TIF;1    OpalGE_0020.TIF;1    PauashellGE_0021.TIF;1    Peridot (olivine)GE_0022.TIF;1    PearlsGE_0023.TIF;1    Picture agateGE_0024.TIF;1    Quartz sphereGE_0025.TIF;1    Quartz, smoky, 2240 caratsGE_0026.TIF;1    Quartz, rutilatedGE_0027.TIF;1    Quartz, rutilatedGE_0028.TIF;1    Quartz, smoky, 1695 caratsGE_0029.TIF;1    RhodoniteGE_0030.TIF;1    RhodochrositeGE_0031.TIF;1    RubelliteGE_0032.TIF;1    Rosser Reves Ruby, 138.7 caratsGE_0033.TIF;1    Sapphire, the Star of Bombay, 182 caratsGE_0034.TIF;1    Sinhalite, 43.5 caratsGE_0035.TIF;1    SpinelGE_0036.TIF;1    SpinelGE_0037.TIF;1    TanzaniteGE_0038.TIF;1    Turritella agateGE_0039.TIF;1    Tourmaline, Elbaite, MadagascarGE_0040.TIF;1    TourmalineGE_0041.TIF;1    ThomsoniteGE_0042.TIF;1    Topaz, 7725 caratsGE_0043.TIF;1    Topaz, 2491 caratsGE_0044.TIF;1    Topaz, the Chalmers topaz, 5890 carats, BrazilGE_0045.TIF;1    Topaz, 10588 carats, 211.76 grams, Minas Gerais, BrazilGE_0046.TIF;1    Topaz, 7033 carats, irradiatedGE_0047.TIF;1    Topaz, 36850 carats, The Worlds largest gem stone!, Minais Gerais, BrazilGE_0048.TIF;1    TopazGE_0049.TIF;1    Topaz, uncut crystalGE_0050.TIF;1    Topaz, etchedGE_0051.TIF;1    TurquoiseGE_0052.TIF;1    Wernerite, 288 caratsGE_0053.TIF;1    VarisiteGE_0054.TIF;1    CameoGE_0055.TIF;1    AgateGE_0056.TIF;1    ChrysopraseGE_0057.TIF;1    AgateGE_0058.TIF;1    AgateGE_0059.TIF;1    AgateGE_0060.TIF;1    Citrine, 783 caratsGE_0061.TIF;1    AgateGE_0062.TIF;1    Citrine, 1180 caratsGE_0063.TIF;1    Dyed agateGE_0064.TIF;1    Chrysanthemum stones, Japan, calcite/porphyritic basaltGE_0065.TIF;1    Dyed agateGE_0066.TIF;1    AgateGE_0067.TIF;1    AgateGE_0068.TIF;1    Concretion, septarianGE_0069.TIF;1    CabochonsGE_0070.TIF;1    AgateGE_0071.TIF;1    DomeykiteGE_0072.TIF;1    AgateGE_0073.TIF;1    AgateGE_0074.TIF;1    AgateGE_0075.TIF;1    AgateGE_0076.TIF;1    AmberGE_0077.TIF;1    The Portuguese DiamondGE_0078.TIF;1    AmethystGE_0079.TIF;1    AmethystGE_0080.TIF;1    AquamarineGE_0081.TIF;1    Aquamarine, 71.2 caratsGE_0082.TIF;1    Uncut diamond, the Oppenheimer diamond, 253.7 caratsGE_0083.TIF;1    AzuriteGE_0084.TIF;1    AzuriteGE_0085.TIF;1    Gold nugget, 2.3 kg, ColoradoGE_0086.TIF;1    Gold nugget, the largest ever from Colorado!GE_0087.TIF;1    Glass, dyedGE_0088.TIF;1    GeodesGE_0089.TIF;1    GeodesGE_0090.TIF;1    AzuriteGE_0091.TIF;1    Fluorite, 1034 caratsGE_0092.TIF;1    Royal AzelGE_0093.TIF;1    Beryl, 2044 caratsGE_0094.TIF;1    Beryl, 1363 caratsGE_0095.TIF;1    Beryl, 590 caratsGE_0096.TIF;1    Emerald, uncut, 858 caratsGE_0097.TIF;1    GosheniteGE_0098.TIF;1    Beryl, 914 caratsGE_0099.TIF;1    BrecciaGE_0100.TIF;1    Breccia</text>
    </content>
    <content>
        <layer>card</layer>
        <id>13</id>
        <text>Jade</text>
    </content>
    <content>
        <layer>card</layer>
        <id>35</id>
        <text><span class="style5">E_0001.TIF;1JadeGE_0002.TIF;1Jade (nephrite) brush holderGE_0003.TIF;1Kunzite, (Spodumene variety) 880 caratsGE_0004.TIF;1Kunzite, 296.7 caratsGE_0005.TIF;1KunziteGE_0006.TIF;1LepidoliteGE_0007.TIF;1LabradoriteGE_0008.TIF;1LabradoriteGE_0009.TIF;1MalachiteGE_0010.TIF;1MalachiteGE_0011.TIF;1MalachiteGE_0012.TIF;1Malachite and azuriteGE_0013.TIF;1Morganite, 590 caratsGE_0014.TIF;1MorrisoniteGE_0015.TIF;1Mozarkite (Missouri State Gem) variety of chert.GE_0016.TIF;1Orthoclase, 249.6 caratsGE_0017.TIF;1Obsidian, snowflakeGE_0018.TIF;1OpalGE_0019.TIF;1OpalGE_0020.TIF;1PauashellGE_0021.TIF;1Peridot (olivine)GE_0022.TIF;1PearlsGE_0023.TIF;1Picture agateGE_0024.TIF;1Quartz sphereGE_0025.TIF;1Quartz, smoky, 2240 caratsGE_0026.TIF;1Quartz, rutilatedGE_0027.TIF;1Quartz, rutilatedGE_0028.TIF;1Quartz, smoky, 1695 caratsGE_0029.TIF;1RhodoniteGE_0030.TIF;1RhodochrositeGE_0031.TIF;1RubelliteGE_0032.TIF;1Rosser Reves Ruby, 138.7 caratsGE_0033.TIF;1Sapphire, the Star of Bombay, 182 caratsGE_0034.TIF;1Sinhalite, 43.5 caratsGE_0035.TIF;1SpinelGE_0036.TIF;1SpinelGE_0037.TIF;1TanzaniteGE_0038.TIF;1Turritella agateGE_0039.TIF;1Tourmaline, Elbaite, MadagascarGE_0040.TIF;1TourmalineGE_0041.TIF;1ThomsoniteGE_0042.TIF;1Topaz, 7725 caratsGE_0043.TIF;1Topaz, 2491 caratsGE_0044.TIF;1Topaz, the Chalmers topaz, 5890 carats, BrazilGE_0045.TIF;1Topaz, 10588 carats, 211.76 grams, Minas Gerais, BrazilGE_0046.TIF;1Topaz, 7033 carats, irradiatedGE_0047.TIF;1Topaz, 36850 carats, The Worlds largest gem stone!, Minais Gerais, BrazilGE_0048.TIF;1TopazGE_0049.TIF;1Topaz, uncut crystalGE_0050.TIF;1Topaz, etchedGE_0051.TIF;1TurquoiseGE_0052.TIF;1Wernerite, 288 caratsGE_0053.TIF;1VarisiteGE_0054.TIF;1CameoGE_0055.TIF;1AgateGE_0056.TIF;1ChrysopraseGE_0057.TIF;1AgateGE_0058.TIF;1AgateGE_0059.TIF;1AgateGE_0060.TIF;1Citrine, 783 caratsGE_0061.TIF;1AgateGE_0062.TIF;1Citrine, 1180 caratsGE_0063.TIF;1Dyed agateGE_0064.TIF;1Chrysanthemum stones, Japan, calcite/porphyritic basaltGE_0065.TIF;1Dyed agateGE_0066.TIF;1AgateGE_0067.TIF;1AgateGE_0068.TIF;1Concretion, septarianGE_0069.TIF;1CabochonsGE_0070.TIF;1AgateGE_0071.TIF;1DomeykiteGE_0072.TIF;1AgateGE_0073.TIF;1AgateGE_0074.TIF;1AgateGE_0075.TIF;1AgateGE_0076.TIF;1AmberGE_0077.TIF;1The Portuguese DiamondGE_0078.TIF;1AmethystGE_0079.TIF;1AmethystGE_0080.TIF;1AquamarineGE_0081.TIF;1Aquamarine, 71.2 caratsGE_0082.TIF;1Uncut diamond, the Oppenheimer diamond, 253.7 caratsGE_0083.TIF;1AzuriteGE_0084.TIF;1AzuriteGE_0085.TIF;1Gold nugget, 2.3 kg, ColoradoGE_0086.TIF;1Gold nugget, the largest ever from Colorado!GE_0087.TIF;1Glass, dyedGE_0088.TIF;1GeodesGE_0089.TIF;1GeodesGE_0090.TIF;1AzuriteGE_0091.TIF;1Fluorite, 1034 caratsGE_0092.TIF;1Royal AzelGE_0093.TIF;1Beryl, 2044 caratsGE_0094.TIF;1Beryl, 1363 caratsGE_0095.TIF;1Beryl, 590 caratsGE_0096.TIF;1Emerald, uncut, 858 caratsGE_0097.TIF;1GosheniteGE_0098.TIF;1Beryl, 914 caratsGE_0099.TIF;1BrecciaGE_0100.TIF;1Breccia</span></text>
    </content>
    <content>
        <layer>card</layer>
        <id>11</id>
        <text>GE_0001.TIF;1GE_0002.TIF;1GE_0003.TIF;1GE_0004.TIF;1GE_0005.TIF;1GE_0006.TIF;1GE_0007.TIF;1GE_0008.TIF;1GE_0009.TIF;1GE_0010.TIF;1GE_0011.TIF;1GE_0012.TIF;1GE_0013.TIF;1GE_0014.TIF;1GE_0015.TIF;1GE_0016.TIF;1GE_0017.TIF;1GE_0018.TIF;1GE_0019.TIF;1GE_0020.TIF;1GE_0021.TIF;1GE_0022.TIF;1GE_0023.TIF;1GE_0024.TIF;1GE_0025.TIF;1GE_0026.TIF;1GE_0027.TIF;1GE_0028.TIF;1GE_0029.TIF;1GE_0030.TIF;1GE_0031.TIF;1GE_0032.TIF;1GE_0033.TIF;1GE_0034.TIF;1GE_0035.TIF;1GE_0036.TIF;1GE_0037.TIF;1GE_0038.TIF;1GE_0039.TIF;1GE_0040.TIF;1GE_0041.TIF;1GE_0042.TIF;1GE_0043.TIF;1GE_0044.TIF;1GE_0045.TIF;1GE_0046.TIF;1GE_0047.TIF;1GE_0048.TIF;1GE_0049.TIF;1GE_0050.TIF;1GE_0051.TIF;1GE_0052.TIF;1GE_0053.TIF;1GE_0054.TIF;1GE_0055.TIF;1GE_0056.TIF;1GE_0057.TIF;1GE_0058.TIF;1GE_0059.TIF;1GE_0060.TIF;1GE_0061.TIF;1GE_0062.TIF;1GE_0063.TIF;1GE_0064.TIF;1GE_0065.TIF;1GE_0066.TIF;1GE_0067.TIF;1GE_0068.TIF;1GE_0069.TIF;1GE_0070.TIF;1GE_0071.TIF;1GE_0072.TIF;1GE_0073.TIF;1GE_0074.TIF;1GE_0075.TIF;1GE_0076.TIF;1GE_0077.TIF;1GE_0078.TIF;1GE_0079.TIF;1GE_0080.TIF;1GE_0081.TIF;1GE_0082.TIF;1GE_0083.TIF;1GE_0084.TIF;1GE_0085.TIF;1GE_0086.TIF;1GE_0087.TIF;1GE_0088.TIF;1GE_0089.TIF;1GE_0090.TIF;1GE_0091.TIF;1GE_0092.TIF;1GE_0093.TIF;1GE_0094.TIF;1GE_0095.TIF;1GE_0096.TIF;1GE_0097.TIF;1GE_0098.TIF;1GE_0099.TIF;1GE_0100.TIF;1</text>
    </content>
    <name></name>
    <script>on openCardglobal namesDB,currentDBLine,isPlaying,pause,wasPortraitsend "mouseUp" to cd button "stop" -- in case it quit when playingSend colorMe to this cardput 0 into pauseput 1 into currentDBLineset the itemDelimiter to tabput item 1 of line 1 of namesDB into picNameput false into wasPortrait  -- this won't work if first pic is portrait. Fix it!displayPic picNameput false into isPlayingend openCardon moveWindowglobal currentDBLine,namesDBset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into picNameif the pictureWidth of window picName > pictureHeight of window picName thenset the rect of window picName to "22,62,330,277"elseset the rect of window picName to "63,7,292,327"end ifset the itemDelimiter to commaend moveWindowon displayPic picNameglobal currentDBLine,namesDB,howManyPics,secondsPaused,lastPicName,wasPortraitput 0 into secondsPausedpicture picName,resource,rect,falseif the pictureWidth of window picName > pictureHeight of window picName thenset the rect of window picName to "22,62,330,277"if wasPortrait then hide window lastPicName -- so you don't see both picturesput false into wasPortraitelseset the rect of window picName to "63,7,292,327"if not wasPortrait then hide window lastPicName  -- so you don't see both picturesput true into wasPortraitend ifset the dithering of window picName to trueshow window picNameput picName into lastPicName -- remember this picture nameselect line currentDBLine of cd button "display popup"put currentDBLine && "of" && howManyPics into cd field "picture number"set the itemDelimiter to tabput (item 2 of line currentDBLine of namesDB) into cd field "info"if the icon of cd button "zoom" is 17802 thenset the icon of cd button "zoom" to "zoom in"set the name of menuItem 8 of menu "View" to "Zoom In"end ifset the itemDelimiter to commaend displayPicon mouseDownInPictureglobal currentDBLine,namesDB,isPlayingif not isPlaying thenwait 20 ticks -- simulate doubleClickif mouseClick() then openOriginalelse-- scroll the picture if mouseStillDownset the cursor to plusset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into thePicset the itemDelimiter to commaput the scroll of window thePic into theScrollrepeat while the mouse is downput item 1 of theScroll - mouseH() + clickH() into xput item 2 of theScroll - mouseV() + clickV() into yset the scroll of window thePic to "x,y"end repeatend ifend ifend mouseDownInPictureon openOriginalglobal namesDB,currentDBLine,hiResPath,lowResPathanswer file "Choose an application to open original picture:" of type "APPL"If it is not empty thenput it into theAppanswer "This disk contains high and low resolution pictures. Which one do you want to open?"¬with "Cancel","Low Res","High Res"If it is "Cancel" then exit openOriginalset the itemDelimiter to tabif it is "Low Res" then put lowResPath&(item 1 of line currentDBLine of namesDB) into theFileelse put hiResPath&(item 1 of line currentDBLine of namesDB) into theFileset the itemDelimiter to commaopen  theFile with theAppend ifend openOriginalon doMenu theItemif theItem is "About HyperCard..." then showCreditselse if theItem is "Next" then send mouseUp to button "next pic"else if theItem is "Previous" then send mouseUp to button "prev pic"else if theItem is "Play Forward" then send mouseUp to button "play fwd"else if theItem is "Play Backward     " then send mouseUp to button "play bck"else if theItem is "Pause…" then send mouseUp to button "Pause…"else if theItem is "Stop" then send mouseUp to button "stop"else if theItem is "Zoom In" then send mouseUp to button "zoom"else if theItem is "Zoom Out" then send mouseUp to button "zoom"else if theItem is "Find First…" then findFirstelse if theItem is "Find Next" then findAgainelse if theItem is "Quit" then  doMenu("Quit HyperCard")else pass doMenuend doMenuon findFirstglobal namesDB,currentDBLine,theStringask "Find first occurrence of:"&return&return &"(If found, use ⌘G to Find Next)"&return with theStringIf the result is "Cancel" then exit findFirstput it into theStringput findString(theString,1) into theFoundLineif theFoundLine is empty thenbeepelseif theFoundLine <> currentDBLine thenset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput theFoundLine into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedend iffind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend findFirstfunction findString theString,fromWhatLineglobal namesDB,howManyPicsput (line fromWhatLine to howManyPics of namesDB) into cd field "infoDB field"find string theString in cd field "infoDB field"return word 2 of the foundLineend findStringon findAgainglobal howManyPics,namesDB,currentDBLine,theStringif (currentDBLine = howManyPics) thenbeepelseput findString(theString,currentDBLine+1) into theFoundLineif theFoundLine is empty thenbeepelseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedput (theFoundLine+currentDBLine) into currentDBLinedisplayPic (item 1 of line currentDBLine of namesDB)close window toBeClosedfind string theString in cd field "info"if the foundChunk is empty then-- it was found in the file name only, so flash it for feedbackrepeat 2 timeshide cd button "display popup"wait 10 ticksshow cd button "display popup"wait 10 ticksend repeatend ifend ifend ifend findAgainon idleglobal isPlaying,playMode,pause,secondsPausedwait until not the suspendedif isPlaying thenif secondsPaused >= pause then -- end of pause, show next pictureif playMode = "fwd" then send mouseUp to cd button "next pic"else send mouseUp to cd button "prev pic"elsewaitASecondadd 1 to secondsPausedend ifend ifend idleon arrowKey whatKeyif whatKey is "left" then send mouseUp to cd button "prev pic"else if whatKey is "right" then send mouseUp to cd button "next pic"end arrowKeyon waitASecond -- pauses one second with animated pause iconshow cd button "Pause…"wait 30 tickshide cd button "Pause…"wait 30 ticksend waitASecondon sortByNameglobal currentDBLine,namesDB,howManyPicsif the checkmark of menuItem "by File Name" of menu "Sort" then exit sortByNameset the checkmark of menuItem "by File Name" of menu "Sort" to trueset the checkmark of menuItem "by Annotation" of menu "Sort" to falseset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 1 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePicclose window toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByNameon sortByAnnotationglobal currentDBLine,namesDB,howManyPicsif the checkmark of menuItem "by Annotation" of menu "Sort" then exit sortByAnnotationset the checkmark of menuItem "by File Name" of menu "Sort" to falseset the checkmark of menuItem "by Annotation" of menu "Sort" to trueset the itemDelimiter to tabput (item 1 of line currentDBLine of namesDB) into toBeClosedsort lines of namesDB by item 2 of eachlock screenrepeat with x = 1 to howManyPicsset the cursor to busyput (item 1 of line x of namesDB) into line x of cd button "display popup"end repeatselect line 1 of cd button "display popup"put 1 into currentDBLineput (item 1 of line 1 of namesDB) into thePicif thePic <> toBeClosed thendisplayPic thePicclose window toBeClosedend ifset the itemDelimiter to commaunlock screenend sortByAnnotation</script>
</card>