<script>on mouseUpglobal myVFset cursor to watchput "wipe left" into myVFgo nextend 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>404</left>
<top>307</top>
<right>436</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>26432</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpglobal myVFset cursor to watchput "wipe right" into myVFgo prevend 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>14</left>
<top>91</top>
<right>498</right>
<bottom>122</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>Times</font>
<textSize>24</textSize>
<textStyle>plain</textStyle>
<textHeight>32</textHeight>
<name>Event</name>
<script></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> <true /> </lockText>
<rect>
<left>14</left>
<top>146</top>
<right>498</right>
<bottom>245</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>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Description</name>
<script></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> <true /> </lockText>
<rect>
<left>14</left>
<top>125</top>
<right>498</right>
<bottom>144</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>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>Syntax</name>
<script></script>
</part>
<part>
<id>9</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>370</left>
<top>307</top>
<right>402</right>
<bottom>339</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <false /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>5845</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name></name>
<script>on mouseUpset cursor to watchgo first cardend mouseUp</script>
</part>
<name></name>
<script>on openCardset style of fld "Description" to rectangleselect after last char of field "Description"put the selectedLoc into endLocselect empty-- put q(endloc,bottom of field "Description")if item 2 of endLoc > bottom of field "Description" thenset style of fld "Description" to scrollingset scroll of fld "Description" to 0end if-- the following technique is so that we only get a single-- visual effect when going from card to card and it only-- happens after the changes are made to the field styleglobal myVFif myVF = "" then put "barn door open" into myVFunlock screen with myVFput "" into myVFpass openCardend openCardon closeCardlock screen -- will be unlocked in the next openCardpass closeCardend closeCardon arrowKey dirglobal myVFif dir = "left" then put "wipe right" into myVFelse if dir = "right" then put "wipe left" into myVFpass arrowKeyend arrowKeyon doMenu whatglobal myVFif what = "Next" then put "wipe left" into myVFelse if what = "Prev" then put "wipe right" into myVFpass doMenuend doMenu-- on newButton-- repeat with i = 1 to number of buttons-- -- if the number of btns = 1 then-- -- set name of btn i to "Example"-- -- else set name of btn i to "Example" && i-- set textfont of btn i to Chicago-- set textSize of btn i to 12-- set rect of btn i to whatRect(i)-- end repeat-- choose browse tool-- end newButtonfunction whatRect iput "14,250" into theRectput item 1 of theRect + 127 into item 3 of theRectput item 2 of theRect + 22 into item 4 of theRectif i = 2 or i = 3 or i = 5 or i = 6 thenadd 30 to item 2 of theRectadd 30 to item 4 of theRectend ifif i = 3 or i = 6 thenadd 30 to item 2 of theRectadd 30 to item 4 of theRectend ifif i = 4 or i = 5 or i = 6 thenadd 135 to item 1 of theRectadd 135 to item 3 of theRectend ifreturn theRectend whatRect</script>
