home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / science / hyperbib.sit / HyperBibliography / background_4535.xml < prev    next >
Extensible Markup Language  |  1991-07-09  |  18KB  |  326 lines

  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>4535</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_4633.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3109.css" />
  11.     <part>
  12.         <id>2</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>301</left>
  23.             <top>79</top>
  24.             <right>423</right>
  25.             <bottom>103</bottom>
  26.         </rect>
  27.         <style>roundrect</style>
  28.         <showName> <true /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Get Names/Dates</name>
  40.         <script>on mouseUpanswer "Which entries?" with "Selected" or "All"if it is empty then exit mouseUpput it into whichput empty into bg fld "CitationFld" of this cdset cursor to 4repeat with i=1 to (number of cds -1)if ((which is "selected") and (not(hilite of bg btn "Include" of cd i)))then next repeatput "cd" && i-- put bg fld 1 of cd i of bg "entries" into line i of bg fld "CitationFld" of this cd-- put " " after line i of bg fld "CitationFld" of this cd-- put bg fld 3 of cd i of bg "entries" after line i of bg fld "CitationFld" of this cd-- put tab after line i of bg fld "CitationFld" of this cd-- put bg fld 5 of cd i of bg "entries" after line i of bg fld "CitationFld" of this cdput bg fld 1 of cd i of bg "entries" after bg fld "CitationFld" of this cdput " " after bg fld "CitationFld" of this cdput bg fld 3 of cd i of bg "entries" after bg fld "CitationFld" of this cdput tab after bg fld "CitationFld" of this cdput bg fld 5 of cd i of bg "entries" after bg fld "CitationFld" of this cdput return after bg fld "CitationFld" of this cdend repeatbeepend mouseUp</script>
  41.     </part>
  42.     <part>
  43.         <id>3</id>
  44.         <type>button</type>
  45.         <visible> <true /> </visible>
  46.         <reserved5> 0 </reserved5>
  47.         <reserved4> 0 </reserved4>
  48.         <reserved3> 0 </reserved3>
  49.         <reserved2> 0 </reserved2>
  50.         <reserved1> 0 </reserved1>
  51.         <enabled> <true /> </enabled>
  52.         <rect>
  53.             <left>302</left>
  54.             <top>105</top>
  55.             <right>363</right>
  56.             <bottom>129</bottom>
  57.         </rect>
  58.         <style>roundrect</style>
  59.         <showName> <true /> </showName>
  60.         <highlight> <false /> </highlight>
  61.         <autoHighlight> <true /> </autoHighlight>
  62.         <sharedHighlight> <true /> </sharedHighlight>
  63.         <family>0</family>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Geneva</font>
  68.         <textSize>12</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <name>Export</name>
  71.         <script>on mouseUpask file "Where do you want the bibliography info?"put it into fnameif fname is empty then exit mouseUpopen file fnamewrite bg fld "CitationFld" to file fnameclose file fnameend mouseUp</script>
  72.     </part>
  73.     <part>
  74.         <id>5</id>
  75.         <type>field</type>
  76.         <visible> <true /> </visible>
  77.         <dontWrap> <false /> </dontWrap>
  78.         <dontSearch> <false /> </dontSearch>
  79.         <sharedText> <false /> </sharedText>
  80.         <fixedLineHeight> <true /> </fixedLineHeight>
  81.         <autoTab> <false /> </autoTab>
  82.         <lockText> <false /> </lockText>
  83.         <rect>
  84.             <left>3</left>
  85.             <top>48</top>
  86.             <right>300</right>
  87.             <bottom>330</bottom>
  88.         </rect>
  89.         <style>scrolling</style>
  90.         <autoSelect> <false /> </autoSelect>
  91.         <showLines> <false /> </showLines>
  92.         <wideMargins> <false /> </wideMargins>
  93.         <multipleLines> <false /> </multipleLines>
  94.         <reservedFamily> 0 </reservedFamily>
  95.         <titleWidth>0</titleWidth>
  96.         <icon>0</icon>
  97.         <textAlign>left</textAlign>
  98.         <font>Geneva</font>
  99.         <textSize>12</textSize>
  100.         <textStyle>plain</textStyle>
  101.         <textHeight>16</textHeight>
  102.         <name>CitationFld</name>
  103.         <script></script>
  104.     </part>
  105.     <part>
  106.         <id>7</id>
  107.         <type>button</type>
  108.         <visible> <true /> </visible>
  109.         <reserved5> 0 </reserved5>
  110.         <reserved4> 0 </reserved4>
  111.         <reserved3> 0 </reserved3>
  112.         <reserved2> 0 </reserved2>
  113.         <reserved1> 0 </reserved1>
  114.         <enabled> <true /> </enabled>
  115.         <rect>
  116.             <left>370</left>
  117.             <top>105</top>
  118.             <right>415</right>
  119.             <bottom>129</bottom>
  120.         </rect>
  121.         <style>roundrect</style>
  122.         <showName> <true /> </showName>
  123.         <highlight> <false /> </highlight>
  124.         <autoHighlight> <true /> </autoHighlight>
  125.         <sharedHighlight> <true /> </sharedHighlight>
  126.         <family>0</family>
  127.         <titleWidth>0</titleWidth>
  128.         <icon>0</icon>
  129.         <textAlign>center</textAlign>
  130.         <font>Geneva</font>
  131.         <textSize>12</textSize>
  132.         <textStyle>plain</textStyle>
  133.         <name>Clear</name>
  134.         <script>on mouseUpput empty into bg fld "CitationFld"end mouseUp</script>
  135.     </part>
  136.     <part>
  137.         <id>8</id>
  138.         <type>button</type>
  139.         <visible> <true /> </visible>
  140.         <reserved5> 0 </reserved5>
  141.         <reserved4> 0 </reserved4>
  142.         <reserved3> 0 </reserved3>
  143.         <reserved2> 0 </reserved2>
  144.         <reserved1> 0 </reserved1>
  145.         <enabled> <true /> </enabled>
  146.         <rect>
  147.             <left>303</left>
  148.             <top>131</top>
  149.             <right>403</right>
  150.             <bottom>153</bottom>
  151.         </rect>
  152.         <style>roundrect</style>
  153.         <showName> <true /> </showName>
  154.         <highlight> <false /> </highlight>
  155.         <autoHighlight> <true /> </autoHighlight>
  156.         <sharedHighlight> <true /> </sharedHighlight>
  157.         <family>0</family>
  158.         <titleWidth>0</titleWidth>
  159.         <icon>0</icon>
  160.         <textAlign>center</textAlign>
  161.         <font>Geneva</font>
  162.         <textSize>12</textSize>
  163.         <textStyle>plain</textStyle>
  164.         <name>Uninclude</name>
  165.         <script>on mouseUprepeat with i = 1 to (number of cds in bg "entries")set hilite of bg btn "Include" of cd i of bg "entries" to falseset cursor to busyend repeatend mouseUp</script>
  166.     </part>
  167.     <part>
  168.         <id>11</id>
  169.         <type>button</type>
  170.         <visible> <true /> </visible>
  171.         <reserved5> 0 </reserved5>
  172.         <reserved4> 0 </reserved4>
  173.         <reserved3> 0 </reserved3>
  174.         <reserved2> 0 </reserved2>
  175.         <reserved1> 0 </reserved1>
  176.         <enabled> <true /> </enabled>
  177.         <rect>
  178.             <left>486</left>
  179.             <top>21</top>
  180.             <right>511</right>
  181.             <bottom>42</bottom>
  182.         </rect>
  183.         <style>transparent</style>
  184.         <showName> <false /> </showName>
  185.         <highlight> <false /> </highlight>
  186.         <autoHighlight> <true /> </autoHighlight>
  187.         <sharedHighlight> <false /> </sharedHighlight>
  188.         <family>0</family>
  189.         <titleWidth>0</titleWidth>
  190.         <icon>1012</icon>
  191.         <textAlign>center</textAlign>
  192.         <font>Chicago</font>
  193.         <textSize>12</textSize>
  194.         <textStyle>plain</textStyle>
  195.         <name>Return</name>
  196.         <script>on mouseUppop cdend mouseUp</script>
  197.     </part>
  198.     <part>
  199.         <id>12</id>
  200.         <type>button</type>
  201.         <visible> <true /> </visible>
  202.         <reserved5> 0 </reserved5>
  203.         <reserved4> 0 </reserved4>
  204.         <reserved3> 0 </reserved3>
  205.         <reserved2> 0 </reserved2>
  206.         <reserved1> 0 </reserved1>
  207.         <enabled> <true /> </enabled>
  208.         <rect>
  209.             <left>209</left>
  210.             <top>24</top>
  211.             <right>289</right>
  212.             <bottom>46</bottom>
  213.         </rect>
  214.         <style>roundrect</style>
  215.         <showName> <true /> </showName>
  216.         <highlight> <false /> </highlight>
  217.         <autoHighlight> <true /> </autoHighlight>
  218.         <sharedHighlight> <false /> </sharedHighlight>
  219.         <family>0</family>
  220.         <titleWidth>0</titleWidth>
  221.         <icon>0</icon>
  222.         <textAlign>center</textAlign>
  223.         <font>Chicago</font>
  224.         <textSize>12</textSize>
  225.         <textStyle>plain</textStyle>
  226.         <name>Check refs</name>
  227.         <script>on mouseUppush cdgo to cd "Check refs"end mouseUp</script>
  228.     </part>
  229.     <part>
  230.         <id>13</id>
  231.         <type>button</type>
  232.         <visible> <true /> </visible>
  233.         <reserved5> 0 </reserved5>
  234.         <reserved4> 0 </reserved4>
  235.         <reserved3> 0 </reserved3>
  236.         <reserved2> 0 </reserved2>
  237.         <reserved1> 0 </reserved1>
  238.         <enabled> <true /> </enabled>
  239.         <rect>
  240.             <left>301</left>
  241.             <top>49</top>
  242.             <right>494</right>
  243.             <bottom>74</bottom>
  244.         </rect>
  245.         <style>roundrect</style>
  246.         <showName> <true /> </showName>
  247.         <highlight> <false /> </highlight>
  248.         <autoHighlight> <true /> </autoHighlight>
  249.         <sharedHighlight> <false /> </sharedHighlight>
  250.         <family>0</family>
  251.         <titleWidth>0</titleWidth>
  252.         <icon>0</icon>
  253.         <textAlign>center</textAlign>
  254.         <font>Chicago</font>
  255.         <textSize>12</textSize>
  256.         <textStyle>plain</textStyle>
  257.         <name>Compile bib info for merging</name>
  258.         <script>on mouseUpput "Generic,Language" into styleListget showList(styleList,44,"Select a bibliography style",false,"Select,Cancel") --44 means comma delimitedif line 1 of it is "Cancel" or it is empty then exit mouseUpput item 1 of line 2 of it into theStyleanswer "Which entries?" with "All" or "Selected"if it is empty then exit mouseUpput it into whichset cursor to 4put empty into bg fld "CitationFld"set the scroll of bg fld "CitationFld" to 0put "author,date,title,source,vol,pages,publisher,editor,city" after bg fld "CitationFld"put return after bg fld "CitationFld"if which is "selected" then getSelected theStyleelse getAll theStylehide msgend mouseUpon getAll whichStylerepeat with i = 1 to number of cards in bg "entries"put getEntry(whichStyle,i) after bg fld "CitationFld"put return after bg fld "CitationFld"end repeatend getAllon getSelected whichStylerepeat with i = 1 to number of cards in bg "entries"if (not(hilite of bg btn "Include" of cd i of bg "entries")) then next repeatput getEntry(whichStyle,i) after bg fld "CitationFld"put return after bg fld "CitationFld"end repeatend getSelectedfunction getEntry theStyle, theNumif theStyle is "generic" then return GenericStyle(theNum)else if theStyle is "language" then return LanguageStyle(theNum)else return "No style"end getEntryfunction GenericStyle iput bg fld "1st last" of cd i of bg "entries"if ((bg fld "1st last" of cd i of bg "entries") is not empty) thenput quote into entryput (bg fld "1st last" of cd i of bg "entries") after entryput ", " after entryput (char 1 of bg fld "1st first" of cd i of bg "entries") after entryput "." after entryend ifif ((bg fld "2+ last" of cd i of bg "entries") is not empty) thenput ", " after entryrepeat with j = 1 to (number of lines in bg fld "2+ last" of cd i of bg "entries")if (line j of bg fld "2+ last" of cd i of bg "entries") is not empty thenif j = (number of lines in bg fld "2+ last" of cd i of bg "entries") thenput "and " after entryend ifput (char 1 of line j of bg fld "2+ first" of cd i of bg "entries") after entryput "." after entryput (line j of bg fld "2+ last" of cd i of bg "entries") after entryput ", " after entryend ifend repeatput empty into last char of entryend ifput quote & "," after entryput quote after entryput bg fld "Date" of cd i of bg "entries" after entryput quote & "," after entryput quote after entryput bg fld "Title" of cd i of bg "entries" after entryput quote & "," after entryif ((bg fld "Source" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Source" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Volume" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Volume" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Pages" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Pages" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Publisher" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Publisher" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "ed 1st first" of cd i) is not empty) thenput quote after entryput char 1 of bg fld "ed 1st first" of cd i of bg "entries" after entryput ". " after entryput bg fld "ed 1st last" of cd i of bg "entries" after entryif ((bg fld "ed 2+ first" of cd i of bg "entries") is not empty) thenput ", " after entryrepeat with j = 1 to number of lines in bg fld "ed 2+ last" of cd i of bg "entries"if ((line j of bg fld "ed 2+ last" of cd i of bg "entries") is not empty) thenput char 1 of line j of bg fld "ed 2+ first" of cd i of bg "entries" after entryput "." after entryput line j of bg fld "ed 2+ last" of cd i of bg "entries" after entryput ", " after entryend ifend repeatput empty into last char of entryend ifput quote after entryend ifput "," after entryif ((bg fld "City" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "City" of cd i of bg "entries" after entryput quote after entryend ifreturn entryend GenericStylefunction LanguageStyle iput bg fld "1st last" of cd i of bg "entries"if ((bg fld "1st last" of cd i of bg "entries") is not empty) thenput quote into entryput (bg fld "1st last" of cd i of bg "entries") after entryput ", " after entryput (bg fld "1st first" of cd i of bg "entries") after entry-- put "." after entryput space after entryend ifif ((bg fld "2+ last" of cd i of bg "entries") is not empty) thenput ", " after entryrepeat with j = 1 to (number of lines in bg fld "2+ last" of cd i of bg "entries")if (line j of bg fld "2+ last" of cd i of bg "entries") is not empty thenif j = (number of lines in bg fld "2+ last" of cd i of bg "entries") thenput "and " after entryend ifput (line j of bg fld "2+ first" of cd i of bg "entries") after entry-- put "." after entryput space after entryput (line j of bg fld "2+ last" of cd i of bg "entries") after entryput ", " after entryend ifend repeatput empty into last char of entryend ifput quote & "," after entryput quote after entryput bg fld "Date" of cd i of bg "entries" after entryput quote & "," after entryput quote after entryput bg fld "Title" of cd i of bg "entries" after entryput quote & "," after entryif ((bg fld "Source" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Source" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Volume" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Volume" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Pages" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Pages" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "Publisher" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "Publisher" of cd i of bg "entries" after entryput quote after entryend ifput "," after entryif ((bg fld "ed 1st first" of cd i) is not empty) thenput quote after entryput bg fld "ed 1st first" of cd i of bg "entries" after entry--put ". " after entryput space after entryput bg fld "ed 1st last" of cd i of bg "entries" after entryif ((bg fld "ed 2+ first" of cd i of bg "entries") is not empty) thenput ", " after entryrepeat with j = 1 to number of lines in bg fld "ed 2+ last" of cd i of bg "entries"if ((line j of bg fld "ed 2+ last" of cd i of bg "entries") is not empty) thenput line j of bg fld "ed 2+ first" of cd i of bg "entries" after entry--put "." after entryput space after entryput line j of bg fld "ed 2+ last" of cd i of bg "entries" after entryput ", " after entryend ifend repeatput empty into last char of entryend ifput quote after entryend ifput "," after entryif ((bg fld "City" of cd i of bg "entries") is not empty) thenput quote after entryput bg fld "City" of cd i of bg "entries" after entryput quote after entryend ifreturn entryend LanguageStyle</script>
  259.     </part>
  260.     <part>
  261.         <id>14</id>
  262.         <type>field</type>
  263.         <visible> <false /> </visible>
  264.         <dontWrap> <false /> </dontWrap>
  265.         <dontSearch> <false /> </dontSearch>
  266.         <sharedText> <false /> </sharedText>
  267.         <fixedLineHeight> <false /> </fixedLineHeight>
  268.         <autoTab> <false /> </autoTab>
  269.         <lockText> <false /> </lockText>
  270.         <rect>
  271.             <left>301</left>
  272.             <top>159</top>
  273.             <right>503</right>
  274.             <bottom>274</bottom>
  275.         </rect>
  276.         <style>shadow</style>
  277.         <autoSelect> <false /> </autoSelect>
  278.         <showLines> <false /> </showLines>
  279.         <wideMargins> <false /> </wideMargins>
  280.         <multipleLines> <false /> </multipleLines>
  281.         <reservedFamily> 0 </reservedFamily>
  282.         <titleWidth>0</titleWidth>
  283.         <icon>0</icon>
  284.         <textAlign>left</textAlign>
  285.         <font>Geneva</font>
  286.         <textSize>12</textSize>
  287.         <textStyle>plain</textStyle>
  288.         <textHeight>16</textHeight>
  289.         <name>HelpFld</name>
  290.         <script></script>
  291.     </part>
  292.     <part>
  293.         <id>16</id>
  294.         <type>button</type>
  295.         <visible> <true /> </visible>
  296.         <reserved5> 0 </reserved5>
  297.         <reserved4> 0 </reserved4>
  298.         <reserved3> 0 </reserved3>
  299.         <reserved2> 0 </reserved2>
  300.         <reserved1> 0 </reserved1>
  301.         <enabled> <true /> </enabled>
  302.         <rect>
  303.             <left>0</left>
  304.             <top>21</top>
  305.             <right>99</right>
  306.             <bottom>39</bottom>
  307.         </rect>
  308.         <style>checkbox</style>
  309.         <showName> <true /> </showName>
  310.         <highlight> <true /> </highlight>
  311.         <autoHighlight> <false /> </autoHighlight>
  312.         <sharedHighlight> <true /> </sharedHighlight>
  313.         <family>0</family>
  314.         <titleWidth>0</titleWidth>
  315.         <icon>0</icon>
  316.         <textAlign>center</textAlign>
  317.         <font>Chicago</font>
  318.         <textSize>12</textSize>
  319.         <textStyle>outline</textStyle>
  320.         <name>Show Help</name>
  321.         <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>
  322.     </part>
  323.     <name></name>
  324.     <script></script>
  325. </background>
  326.