Otherware/Otherware_1_SB_Development.iso/mac/misc/biology/bioessst.cpt/Bio_ESS/background_2799.xml

Extensible Markup Language | 1992-10-05 | 27.6 KB | 679 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2799</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3782.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_3080.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>435</left>
            <top>99</top>
            <right>503</right>
            <bottom>157</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>26665</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Calculate</name>
        <script>on mouseUp
global StartA,StartB,StartC,StartD,StartE
global NoNumberField

if NoNumberField is not empty then
send "openField" to NoNumberField
exit mouseUp
end if

set the numberFormat to "0.000"
put field FreqField1+0 into StartA
put field FreqField2+0 into StartB
if visible of field FreqField3 is true
then put field FreqField3+0 into StartC
else put empty into StartC

put field ValueField into StartD
put field DamageField into StartE

-- check first if frequencies add up to 1
-- if <> 1: select button, 1st on left
if (StartA+StartB+StartC)<>1 then
answer "The frequencies don't sum up to 1 !!!" with "OK"
send "openField" to bg field "FreqField1"
exit mouseUp
end if

-- if everything ok, then show "Graph" button
show bg button "Graph"

-- clear text if it already exists, i. e. better always...
put empty into field "ResultsList"
-- calculation of frequencies
-- ..by sending message to card, so each card represents..
-- ..a new game, but background buttons have the same..
-- ..script for all the games (i.e. cards)
send "CalcNow" to this card
show bg button "Graph"
end mouseUp</script>
    </part>
    <part>
        <id>2</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>435</left>
            <top>165</top>
            <right>503</right>
            <bottom>225</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>21379</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Graph</name>
        <script>on mouseUp
global Results
global Label1, Label2, Label3, Label4, Label5
global StartA,StartB,StartC,StartD,StartE
global NoNumberField
global Title

if NoNumberField is not empty then
send "openField" to NoNumberField
exit mouseUp
end if

-- test if result list has more than 2 lines
put field "ResultsList" into Results
if the number of lines of Results < 3 then
play "scale"
answer "More then two data lines are needed"¬
& return & "to draw this graph ! " with "OK"
exit mouseUp
end if

put field FreqLabel1 into Label1
put field FreqLabel2 into Label2
put field FreqLabel3 into Label3
put field ValueLabel into Label4
put field DamageLabel into Label5
put field TitleOfGame into Title

put field FreqField1+0 into StartA
put field FreqField2+0 into StartB
if visible of field FreqField3 is true
then put field FreqField3+0 into StartC
else put empty into StartC

put field ValueField into StartD
put field DamageField into StartE
visual zoom out
push card
go to cd DrawGraph
end 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>434</left>
            <top>274</top>
            <right>505</right>
            <bottom>331</bottom>
        </rect>
        <style>roundrect</style>
        <showName> <true /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>8964</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>Quit</name>
        <script>on mouseUp
answer "Are you sure you want to quit?" with "Cancel" or "OK"
if it is "Cancel" then exit mouseUp
else
doMenu Quit HyperCard
end if
end mouseUp</script>
    </part>
    <part>
        <id>4</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>9</left>
            <top>10</top>
            <right>47</right>
            <bottom>25</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>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>FreqLabel1</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
end if
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</script>
    </part>
    <part>
        <id>5</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>51</left>
            <top>9</top>
            <right>96</right>
            <bottom>27</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>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>FreqField1</name>
        <script>-- ****************************
-- validation of field entries:
-- ****************************
-- check if positive number is entered
-- otherwise do not allow to move to next field

on openField
global NoNumberField

if (NoNumberField is empty) or (the target=NoNumberField) ¬
then select text of me
else send "openField" to NoNumberField
end openField

on closeField
global NoNumberField
if (target is not a number)  or (target<=0) then
put the target into NoNumberField
play "scale"
select text of the target
else
put empty into NoNumberField
pass closeField
end if
end closeField

on exitField
closeField
end exitField
</script>
    </part>
    <part>
        <id>6</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>99</left>
            <top>10</top>
            <right>137</right>
            <bottom>25</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>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>FreqLabel2</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
end if
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</script>
    </part>
    <part>
        <id>7</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>141</left>
            <top>8</top>
            <right>186</right>
            <bottom>26</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>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>FreqField2</name>
        <script>-- ****************************
-- validation of field entries:
-- ****************************
-- check if positive number is entered
-- otherwise do not allow to move to next field

on openField
global NoNumberField

if (NoNumberField is empty) or (the target=NoNumberField) ¬
then select text of me
else send "openField" to NoNumberField
end openField

on closeField
global NoNumberField
if (target is not a number)  or (target<=0) then
put the target into NoNumberField
play "scale"
select text of the target
else
put empty into NoNumberField
pass closeField
end if
end closeField

on exitField
closeField
end exitField
</script>
    </part>
    <part>
        <id>8</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>192</left>
            <top>10</top>
            <right>230</right>
            <bottom>25</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>left</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>FreqLabel3</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
end if
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</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> <false /> </lockText>
        <rect>
            <left>233</left>
            <top>8</top>
            <right>278</right>
            <bottom>26</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>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>FreqField3</name>
        <script>-- ****************************
-- validation of field entries:
-- ****************************
-- check if positive number is entered
-- otherwise do not allow to move to next field

on openField
global NoNumberField

if (NoNumberField is empty) or (the target=NoNumberField) ¬
then select text of me
else send "openField" to NoNumberField
end openField

on closeField
global NoNumberField
if (target is not a number)  or (target<=0) then
put the target into NoNumberField
play "scale"
select text of the target
else
put empty into NoNumberField
pass closeField
end if
end closeField

on exitField
closeField
end exitField
</script>
    </part>
    <part>
        <id>10</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>301</left>
            <top>11</top>
            <right>347</right>
            <bottom>26</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>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>ValueLabel</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
end if
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</script>
    </part>
    <part>
        <id>11</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>353</left>
            <top>9</top>
            <right>398</right>
            <bottom>27</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>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ValueField</name>
        <script>-- ****************************
-- validation of field entries:
-- ****************************
-- check if positive number is entered
-- otherwise do not allow to move to next field

on openField
global NoNumberField

if (NoNumberField is empty) or (the target=NoNumberField) ¬
then select text of me
else send "openField" to NoNumberField
end openField

on closeField
global NoNumberField
if (target is not a number)  or (target<=0) then
put the target into NoNumberField
play "scale"
select text of the target
else
put empty into NoNumberField
pass closeField
end if
end closeField

on exitField
closeField
end exitField
</script>
    </part>
    <part>
        <id>14</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>402</left>
            <top>11</top>
            <right>451</right>
            <bottom>26</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>left</textAlign>
        <font>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>DamageLabel</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
end if
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</script>
    </part>
    <part>
        <id>15</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>455</left>
            <top>9</top>
            <right>500</right>
            <bottom>27</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>right</textAlign>
        <font>Geneva</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>DamageField</name>
        <script>-- ****************************
-- validation of field entries:
-- ****************************
-- check if positive number is entered
-- otherwise do not allow to move to next field

on openField
global NoNumberField

if (NoNumberField is empty) or (the target=NoNumberField) ¬
then select text of me
else send "openField" to NoNumberField
end openField

on closeField
global NoNumberField
if (target is not a number)  or (target<=0) then
put the target into NoNumberField
play "scale"
select text of the target
else
put empty into NoNumberField
pass closeField
end if
end closeField

on exitField
closeField
end exitField
</script>
    </part>
    <part>
        <id>16</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>437</left>
            <top>236</top>
            <right>466</right>
            <bottom>263</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1014</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoPrevious</name>
        <script>on mouseUp
global NoNumberField

if NoNumberField is empty then
visual scroll right
go prev card
else send "openField" to NoNumberField
end mouseUp</script>
    </part>
    <part>
        <id>17</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>471</left>
            <top>236</top>
            <right>500</right>
            <bottom>263</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>1013</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>GoNext</name>
        <script>on mouseUp
global NoNumberField

if NoNumberField is empty then
visual scroll left
go next card
else send "openField" to NoNumberField
end 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>15</left>
            <top>45</top>
            <right>384</right>
            <bottom>65</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>left</textAlign>
        <font>Monaco</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>TitleLine</name>
        <script></script>
    </part>
    <part>
        <id>12</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>15</left>
            <top>64</top>
            <right>384</right>
            <bottom>284</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>Monaco</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <textHeight>16</textHeight>
        <name>ResultsList</name>
        <script></script>
    </part>
    <part>
        <id>18</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>435</left>
            <top>45</top>
            <right>502</right>
            <bottom>66</bottom>
        </rect>
        <style>rectangle</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>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Edit Script</name>
        <script>on mouseUp
setUserLevelFive
edit script of this card
restoreUserLevel
end mouseUp</script>
    </part>
    <part>
        <id>22</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>435</left>
            <top>71</top>
            <right>502</right>
            <bottom>91</bottom>
        </rect>
        <style>rectangle</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>Geneva</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <name>Options</name>
        <script>on mouseUp
unlock screen
visual effect stretch from top
push card
go to cd SetOptions
end mouseUp</script>
    </part>
    <part>
        <id>27</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <false /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>2</left>
            <top>2</top>
            <right>509</right>
            <bottom>340</bottom>
        </rect>
        <style>scrolling</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>Geneva</font>
        <textSize>10</textSize>
        <textStyle>plain</textStyle>
        <textHeight>13</textHeight>
        <name>About Card</name>
        <script>on mouseUp
if the shiftKey is down then
set lockText of me to false
select text of me
else send "showAll" to bg field "TitleOfGame"
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField</script>
    </part>
    <part>
        <id>23</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>15</left>
            <top>321</top>
            <right>386</right>
            <bottom>337</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>10</textSize>
        <textStyle>bold</textStyle>
        <textHeight>13</textHeight>
        <name>TitleOfGame</name>
        <script>on mouseUp
global NumberOfFields
put the number of card fields into NumberOfFields
if the shiftKey is down then
set lockText of me to false
select text of me
else if visible of bg field "About Card" is false
then hideAll
else showAll
end mouseUp

on closeField
set locktext of me to true
end closeField

on exitField
send closeField to me
end exitField

on HideAll
global NumberOfFields
repeat with FieldNumber=1 to NumberOfFields
hide card field FieldNumber
end repeat
show bg field "About Card"
end HideAll

on showAll
global NumberOfFields
hide bg field "About Card"
repeat with FieldNumber=1 to NumberOfFields
show card field FieldNumber
end repeat
end showAll</script>
    </part>
    <name></name>
    <script>on openCard
global CardWasDeleted
set cursor to watch

-- if we come here because previous card was deleted:
-- go back to now previous card
if CardWasDeleted is true then
put false into CardWasDeleted
go to previous card
end if


lock screen
-- assemble title for scroll field
put "Generation" into Title
repeat for 13-length of field FreqLabel1 times
put space after Title
end repeat
put field FreqLabel1 after Title

repeat for 13-length of field FreqLabel2 times
put space after Title
end repeat
put field FreqLabel2 after Title

if visible of field FreqLabel3 is true then
repeat for 13-length of field FreqLabel3 times
put space after Title
end repeat
put field FreqLabel3 after Title
end if
put Title into field TitleLine

-- for all cards:
-- show/hide arrows to move forward/backwards
if ID of this card = "card id 2957" then hide bg button GoPrevious  -- 1st card
if ID of next card = "card id 3949" then hide bg button GoNext -- card before DrawGraph
if bg field "ResultsList" is empty
then hide bg button "Graph"
else show bg button "Graph"
unlock screen
pass openCard
end openCard


on closeCard
-- make all buttons visible
set cursor to watch
show field FreqLabel3
show field FreqField3
show bg button GoPrevious
show bg button GoNext
pass closeCard
end closeCard


-- function handler to put results (as calculated by each card)
-- 3 arguments; if last is empty, only two columns to print
-- put 1st arg into (new) line; get length of it
-- fill up with spaces
-- add 2nd arg; if 3rd arg<>empty, fill with spaces, add 3rd
-- add return

on PrintLine Generation,FreqA,FreqB,FreqC
global ScrollDownX, ScrollDownY
-- for debugging:
-- global NumberOfLoop
-- generate new line
put "        " into Spaces  -- 8 spaces, plus 5 from number=13 (column)
set the numberFormat to "0"
put 10-length of Generation into NumberOfLoop
repeat for NumberOfLoop
put space after NewLine
end repeat
put Generation after NewLine
put Spaces after NewLine
set the numberFormat to "0.000"
put FreqA after NewLine
put Spaces after NewLine
put FreqB after NewLine
if FreqC is not empty then
put Spaces after NewLine
put FreqC after NewLine
end if
put return after NewLine

-- add line to ResultsList
put NewLine after bg field "ResultsList"

-- click on Scroll Down arrow, make last line visible
click at ScrollDownX, ScrollDownY
end PrintLine

</script>
</background>