home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / mac / hypercar / xcmd / findevnt.sit / FinderEvents / cards.xml < prev    next >
Encoding:
Text File  |  1992-05-29  |  144.0 KB  |  3,854 lines

  1. card_2978.xml
  2. <?xml version="1.0" encoding="utf-8" ?>
  3. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4. <card>
  5.     <id>2978</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2792</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  12.     <part>
  13.         <id>28</id>
  14.         <type>button</type>
  15.         <visible> <true /> </visible>
  16.         <reserved5> 0 </reserved5>
  17.         <reserved4> 0 </reserved4>
  18.         <reserved3> 0 </reserved3>
  19.         <reserved2> 0 </reserved2>
  20.         <reserved1> 0 </reserved1>
  21.         <enabled> <true /> </enabled>
  22.         <rect>
  23.             <left>5</left>
  24.             <top>311</top>
  25.             <right>156</right>
  26.             <bottom>333</bottom>
  27.         </rect>
  28.         <style>roundrect</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <true /> </autoHighlight>
  32.         <sharedHighlight> <true /> </sharedHighlight>
  33.         <family>0</family>
  34.         <titleWidth>0</titleWidth>
  35.         <icon>0</icon>
  36.         <textAlign>center</textAlign>
  37.         <font>Chicago</font>
  38.         <textSize>12</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <name>Pascal Source Code!</name>
  41.         <script>on mouseUp
  42. if the optionKey is down or cd fld "Source" = "" then
  43. answer file "Where is the source code?" of type text
  44. if it = "" then exit mouseUp
  45. set cursor to watch
  46. put it into theFile
  47. open file theFile
  48. read from file theFile until eof
  49. put it into cd fld "Source"
  50. close file theFile
  51. else
  52. ask file "Where would you like the code saved?" with "FinderEvents.p"
  53. if it = "" then exit mouseUp
  54. set cursor to watch
  55. put it into theFile
  56. open file theFile
  57. write cd fld "Source" to file theFile
  58. close file theFile
  59. end if
  60. end mouseUp</script>
  61.     </part>
  62.     <part>
  63.         <id>29</id>
  64.         <type>button</type>
  65.         <visible> <true /> </visible>
  66.         <reserved5> 0 </reserved5>
  67.         <reserved4> 0 </reserved4>
  68.         <reserved3> 0 </reserved3>
  69.         <reserved2> 0 </reserved2>
  70.         <reserved1> 0 </reserved1>
  71.         <enabled> <true /> </enabled>
  72.         <rect>
  73.             <left>210</left>
  74.             <top>311</top>
  75.             <right>295</right>
  76.             <bottom>333</bottom>
  77.         </rect>
  78.         <style>roundrect</style>
  79.         <showName> <true /> </showName>
  80.         <highlight> <false /> </highlight>
  81.         <autoHighlight> <true /> </autoHighlight>
  82.         <sharedHighlight> <true /> </sharedHighlight>
  83.         <family>0</family>
  84.         <titleWidth>0</titleWidth>
  85.         <icon>0</icon>
  86.         <textAlign>center</textAlign>
  87.         <font>Chicago</font>
  88.         <textSize>12</textSize>
  89.         <textStyle>plain</textStyle>
  90.         <name>Caveats</name>
  91.         <script>on mouseUp
  92. toggleCaveats
  93. end mouseUp</script>
  94.     </part>
  95.     <part>
  96.         <id>1</id>
  97.         <type>field</type>
  98.         <visible> <true /> </visible>
  99.         <dontWrap> <false /> </dontWrap>
  100.         <dontSearch> <false /> </dontSearch>
  101.         <sharedText> <false /> </sharedText>
  102.         <fixedLineHeight> <false /> </fixedLineHeight>
  103.         <autoTab> <false /> </autoTab>
  104.         <lockText> <true /> </lockText>
  105.         <rect>
  106.             <left>5</left>
  107.             <top>90</top>
  108.             <right>508</right>
  109.             <bottom>301</bottom>
  110.         </rect>
  111.         <style>rectangle</style>
  112.         <autoSelect> <false /> </autoSelect>
  113.         <showLines> <false /> </showLines>
  114.         <wideMargins> <false /> </wideMargins>
  115.         <multipleLines> <false /> </multipleLines>
  116.         <reservedFamily> 0 </reservedFamily>
  117.         <titleWidth>0</titleWidth>
  118.         <icon>0</icon>
  119.         <textAlign>left</textAlign>
  120.         <font>Geneva</font>
  121.         <textSize>9</textSize>
  122.         <textStyle>plain</textStyle>
  123.         <textHeight>12</textHeight>
  124.         <name></name>
  125.         <script></script>
  126.     </part>
  127.     <part>
  128.         <id>2</id>
  129.         <type>button</type>
  130.         <visible> <true /> </visible>
  131.         <reserved5> 0 </reserved5>
  132.         <reserved4> 0 </reserved4>
  133.         <reserved3> 0 </reserved3>
  134.         <reserved2> 0 </reserved2>
  135.         <reserved1> 0 </reserved1>
  136.         <enabled> <true /> </enabled>
  137.         <rect>
  138.             <left>11</left>
  139.             <top>168</top>
  140.             <right>161</right>
  141.             <bottom>182</bottom>
  142.         </rect>
  143.         <style>transparent</style>
  144.         <showName> <true /> </showName>
  145.         <highlight> <false /> </highlight>
  146.         <autoHighlight> <false /> </autoHighlight>
  147.         <sharedHighlight> <true /> </sharedHighlight>
  148.         <family>0</family>
  149.         <titleWidth>0</titleWidth>
  150.         <icon>0</icon>
  151.         <textAlign>center</textAlign>
  152.         <font>Geneva</font>
  153.         <textSize>9</textSize>
  154.         <textStyle>bold</textStyle>
  155.         <name>About</name>
  156.         <script>on mouseUp
  157. go cd short name of me
  158. end mouseUp</script>
  159.     </part>
  160.     <part>
  161.         <id>3</id>
  162.         <type>button</type>
  163.         <visible> <true /> </visible>
  164.         <reserved5> 0 </reserved5>
  165.         <reserved4> 0 </reserved4>
  166.         <reserved3> 0 </reserved3>
  167.         <reserved2> 0 </reserved2>
  168.         <reserved1> 0 </reserved1>
  169.         <enabled> <true /> </enabled>
  170.         <rect>
  171.             <left>11</left>
  172.             <top>181</top>
  173.             <right>161</right>
  174.             <bottom>195</bottom>
  175.         </rect>
  176.         <style>transparent</style>
  177.         <showName> <true /> </showName>
  178.         <highlight> <false /> </highlight>
  179.         <autoHighlight> <false /> </autoHighlight>
  180.         <sharedHighlight> <true /> </sharedHighlight>
  181.         <family>0</family>
  182.         <titleWidth>0</titleWidth>
  183.         <icon>0</icon>
  184.         <textAlign>center</textAlign>
  185.         <font>Geneva</font>
  186.         <textSize>9</textSize>
  187.         <textStyle>bold</textStyle>
  188.         <name>Alias Selection</name>
  189.         <script>on mouseUp
  190. go cd short name of me
  191. end mouseUp</script>
  192.     </part>
  193.     <part>
  194.         <id>4</id>
  195.         <type>button</type>
  196.         <visible> <true /> </visible>
  197.         <reserved5> 0 </reserved5>
  198.         <reserved4> 0 </reserved4>
  199.         <reserved3> 0 </reserved3>
  200.         <reserved2> 0 </reserved2>
  201.         <reserved1> 0 </reserved1>
  202.         <enabled> <true /> </enabled>
  203.         <rect>
  204.             <left>11</left>
  205.             <top>194</top>
  206.             <right>161</right>
  207.             <bottom>208</bottom>
  208.         </rect>
  209.         <style>transparent</style>
  210.         <showName> <true /> </showName>
  211.         <highlight> <false /> </highlight>
  212.         <autoHighlight> <false /> </autoHighlight>
  213.         <sharedHighlight> <true /> </sharedHighlight>
  214.         <family>0</family>
  215.         <titleWidth>0</titleWidth>
  216.         <icon>0</icon>
  217.         <textAlign>center</textAlign>
  218.         <font>Geneva</font>
  219.         <textSize>9</textSize>
  220.         <textStyle>bold</textStyle>
  221.         <name>Close About</name>
  222.         <script>on mouseUp
  223. go cd short name of me
  224. end mouseUp</script>
  225.     </part>
  226.     <part>
  227.         <id>5</id>
  228.         <type>button</type>
  229.         <visible> <true /> </visible>
  230.         <reserved5> 0 </reserved5>
  231.         <reserved4> 0 </reserved4>
  232.         <reserved3> 0 </reserved3>
  233.         <reserved2> 0 </reserved2>
  234.         <reserved1> 0 </reserved1>
  235.         <enabled> <true /> </enabled>
  236.         <rect>
  237.             <left>11</left>
  238.             <top>207</top>
  239.             <right>161</right>
  240.             <bottom>221</bottom>
  241.         </rect>
  242.         <style>transparent</style>
  243.         <showName> <true /> </showName>
  244.         <highlight> <false /> </highlight>
  245.         <autoHighlight> <false /> </autoHighlight>
  246.         <sharedHighlight> <true /> </sharedHighlight>
  247.         <family>0</family>
  248.         <titleWidth>0</titleWidth>
  249.         <icon>0</icon>
  250.         <textAlign>center</textAlign>
  251.         <font>Geneva</font>
  252.         <textSize>9</textSize>
  253.         <textStyle>bold</textStyle>
  254.         <name>Close Window</name>
  255.         <script>on mouseUp
  256. go cd short name of me
  257. end mouseUp</script>
  258.     </part>
  259.     <part>
  260.         <id>6</id>
  261.         <type>button</type>
  262.         <visible> <true /> </visible>
  263.         <reserved5> 0 </reserved5>
  264.         <reserved4> 0 </reserved4>
  265.         <reserved3> 0 </reserved3>
  266.         <reserved2> 0 </reserved2>
  267.         <reserved1> 0 </reserved1>
  268.         <enabled> <true /> </enabled>
  269.         <rect>
  270.             <left>11</left>
  271.             <top>220</top>
  272.             <right>161</right>
  273.             <bottom>234</bottom>
  274.         </rect>
  275.         <style>transparent</style>
  276.         <showName> <true /> </showName>
  277.         <highlight> <false /> </highlight>
  278.         <autoHighlight> <false /> </autoHighlight>
  279.         <sharedHighlight> <true /> </sharedHighlight>
  280.         <family>0</family>
  281.         <titleWidth>0</titleWidth>
  282.         <icon>0</icon>
  283.         <textAlign>center</textAlign>
  284.         <font>Geneva</font>
  285.         <textSize>9</textSize>
  286.         <textStyle>bold</textStyle>
  287.         <name>Drag Selection</name>
  288.         <script>on mouseUp
  289. go cd short name of me
  290. end mouseUp</script>
  291.     </part>
  292.     <part>
  293.         <id>7</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>11</left>
  304.             <top>233</top>
  305.             <right>161</right>
  306.             <bottom>247</bottom>
  307.         </rect>
  308.         <style>transparent</style>
  309.         <showName> <true /> </showName>
  310.         <highlight> <false /> </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>Geneva</font>
  318.         <textSize>9</textSize>
  319.         <textStyle>bold</textStyle>
  320.         <name>Duplicate Selection</name>
  321.         <script>on mouseUp
  322. go cd short name of me
  323. end mouseUp</script>
  324.     </part>
  325.     <part>
  326.         <id>8</id>
  327.         <type>button</type>
  328.         <visible> <true /> </visible>
  329.         <reserved5> 0 </reserved5>
  330.         <reserved4> 0 </reserved4>
  331.         <reserved3> 0 </reserved3>
  332.         <reserved2> 0 </reserved2>
  333.         <reserved1> 0 </reserved1>
  334.         <enabled> <true /> </enabled>
  335.         <rect>
  336.             <left>11</left>
  337.             <top>246</top>
  338.             <right>161</right>
  339.             <bottom>260</bottom>
  340.         </rect>
  341.         <style>transparent</style>
  342.         <showName> <true /> </showName>
  343.         <highlight> <false /> </highlight>
  344.         <autoHighlight> <false /> </autoHighlight>
  345.         <sharedHighlight> <true /> </sharedHighlight>
  346.         <family>0</family>
  347.         <titleWidth>0</titleWidth>
  348.         <icon>0</icon>
  349.         <textAlign>center</textAlign>
  350.         <font>Geneva</font>
  351.         <textSize>9</textSize>
  352.         <textStyle>bold</textStyle>
  353.         <name>Empty Trash</name>
  354.         <script>on mouseUp
  355. go cd short name of me
  356. end mouseUp</script>
  357.     </part>
  358.     <part>
  359.         <id>9</id>
  360.         <type>button</type>
  361.         <visible> <true /> </visible>
  362.         <reserved5> 0 </reserved5>
  363.         <reserved4> 0 </reserved4>
  364.         <reserved3> 0 </reserved3>
  365.         <reserved2> 0 </reserved2>
  366.         <reserved1> 0 </reserved1>
  367.         <enabled> <true /> </enabled>
  368.         <rect>
  369.             <left>11</left>
  370.             <top>259</top>
  371.             <right>161</right>
  372.             <bottom>273</bottom>
  373.         </rect>
  374.         <style>transparent</style>
  375.         <showName> <true /> </showName>
  376.         <highlight> <false /> </highlight>
  377.         <autoHighlight> <false /> </autoHighlight>
  378.         <sharedHighlight> <true /> </sharedHighlight>
  379.         <family>0</family>
  380.         <titleWidth>0</titleWidth>
  381.         <icon>0</icon>
  382.         <textAlign>center</textAlign>
  383.         <font>Geneva</font>
  384.         <textSize>9</textSize>
  385.         <textStyle>bold</textStyle>
  386.         <name>Get Info</name>
  387.         <script>on mouseUp
  388. go cd short name of me
  389. end mouseUp</script>
  390.     </part>
  391.     <part>
  392.         <id>10</id>
  393.         <type>button</type>
  394.         <visible> <true /> </visible>
  395.         <reserved5> 0 </reserved5>
  396.         <reserved4> 0 </reserved4>
  397.         <reserved3> 0 </reserved3>
  398.         <reserved2> 0 </reserved2>
  399.         <reserved1> 0 </reserved1>
  400.         <enabled> <true /> </enabled>
  401.         <rect>
  402.             <left>11</left>
  403.             <top>272</top>
  404.             <right>161</right>
  405.             <bottom>286</bottom>
  406.         </rect>
  407.         <style>transparent</style>
  408.         <showName> <true /> </showName>
  409.         <highlight> <false /> </highlight>
  410.         <autoHighlight> <false /> </autoHighlight>
  411.         <sharedHighlight> <true /> </sharedHighlight>
  412.         <family>0</family>
  413.         <titleWidth>0</titleWidth>
  414.         <icon>0</icon>
  415.         <textAlign>center</textAlign>
  416.         <font>Geneva</font>
  417.         <textSize>9</textSize>
  418.         <textStyle>bold</textStyle>
  419.         <name>Hide Clipboard</name>
  420.         <script>on mouseUp
  421. go cd short name of me
  422. end mouseUp</script>
  423.     </part>
  424.     <part>
  425.         <id>11</id>
  426.         <type>button</type>
  427.         <visible> <true /> </visible>
  428.         <reserved5> 0 </reserved5>
  429.         <reserved4> 0 </reserved4>
  430.         <reserved3> 0 </reserved3>
  431.         <reserved2> 0 </reserved2>
  432.         <reserved1> 0 </reserved1>
  433.         <enabled> <true /> </enabled>
  434.         <rect>
  435.             <left>181</left>
  436.             <top>168</top>
  437.             <right>331</right>
  438.             <bottom>182</bottom>
  439.         </rect>
  440.         <style>transparent</style>
  441.         <showName> <true /> </showName>
  442.         <highlight> <false /> </highlight>
  443.         <autoHighlight> <false /> </autoHighlight>
  444.         <sharedHighlight> <true /> </sharedHighlight>
  445.         <family>0</family>
  446.         <titleWidth>0</titleWidth>
  447.         <icon>0</icon>
  448.         <textAlign>center</textAlign>
  449.         <font>Geneva</font>
  450.         <textSize>9</textSize>
  451.         <textStyle>bold</textStyle>
  452.         <name>Move Selection</name>
  453.         <script>on mouseUp
  454. go cd short name of me
  455. end mouseUp</script>
  456.     </part>
  457.     <part>
  458.         <id>12</id>
  459.         <type>button</type>
  460.         <visible> <true /> </visible>
  461.         <reserved5> 0 </reserved5>
  462.         <reserved4> 0 </reserved4>
  463.         <reserved3> 0 </reserved3>
  464.         <reserved2> 0 </reserved2>
  465.         <reserved1> 0 </reserved1>
  466.         <enabled> <true /> </enabled>
  467.         <rect>
  468.             <left>181</left>
  469.             <top>181</top>
  470.             <right>331</right>
  471.             <bottom>195</bottom>
  472.         </rect>
  473.         <style>transparent</style>
  474.         <showName> <true /> </showName>
  475.         <highlight> <false /> </highlight>
  476.         <autoHighlight> <false /> </autoHighlight>
  477.         <sharedHighlight> <true /> </sharedHighlight>
  478.         <family>0</family>
  479.         <titleWidth>0</titleWidth>
  480.         <icon>0</icon>
  481.         <textAlign>center</textAlign>
  482.         <font>Geneva</font>
  483.         <textSize>9</textSize>
  484.         <textStyle>bold</textStyle>
  485.         <name>Move Window</name>
  486.         <script>on mouseUp
  487. go cd short name of me
  488. end mouseUp</script>
  489.     </part>
  490.     <part>
  491.         <id>13</id>
  492.         <type>button</type>
  493.         <visible> <true /> </visible>
  494.         <reserved5> 0 </reserved5>
  495.         <reserved4> 0 </reserved4>
  496.         <reserved3> 0 </reserved3>
  497.         <reserved2> 0 </reserved2>
  498.         <reserved1> 0 </reserved1>
  499.         <enabled> <true /> </enabled>
  500.         <rect>
  501.             <left>181</left>
  502.             <top>194</top>
  503.             <right>331</right>
  504.             <bottom>208</bottom>
  505.         </rect>
  506.         <style>transparent</style>
  507.         <showName> <true /> </showName>
  508.         <highlight> <false /> </highlight>
  509.         <autoHighlight> <false /> </autoHighlight>
  510.         <sharedHighlight> <true /> </sharedHighlight>
  511.         <family>0</family>
  512.         <titleWidth>0</titleWidth>
  513.         <icon>0</icon>
  514.         <textAlign>center</textAlign>
  515.         <font>Geneva</font>
  516.         <textSize>9</textSize>
  517.         <textStyle>bold</textStyle>
  518.         <name>Open Selection</name>
  519.         <script>on mouseUp
  520. go cd short name of me
  521. end mouseUp</script>
  522.     </part>
  523.     <part>
  524.         <id>14</id>
  525.         <type>button</type>
  526.         <visible> <true /> </visible>
  527.         <reserved5> 0 </reserved5>
  528.         <reserved4> 0 </reserved4>
  529.         <reserved3> 0 </reserved3>
  530.         <reserved2> 0 </reserved2>
  531.         <reserved1> 0 </reserved1>
  532.         <enabled> <true /> </enabled>
  533.         <rect>
  534.             <left>181</left>
  535.             <top>207</top>
  536.             <right>331</right>
  537.             <bottom>221</bottom>
  538.         </rect>
  539.         <style>transparent</style>
  540.         <showName> <true /> </showName>
  541.         <highlight> <false /> </highlight>
  542.         <autoHighlight> <false /> </autoHighlight>
  543.         <sharedHighlight> <true /> </sharedHighlight>
  544.         <family>0</family>
  545.         <titleWidth>0</titleWidth>
  546.         <icon>0</icon>
  547.         <textAlign>center</textAlign>
  548.         <font>Geneva</font>
  549.         <textSize>9</textSize>
  550.         <textStyle>bold</textStyle>
  551.         <name>Page Setup</name>
  552.         <script>on mouseUp
  553. go cd short name of me
  554. end mouseUp</script>
  555.     </part>
  556.     <part>
  557.         <id>15</id>
  558.         <type>button</type>
  559.         <visible> <true /> </visible>
  560.         <reserved5> 0 </reserved5>
  561.         <reserved4> 0 </reserved4>
  562.         <reserved3> 0 </reserved3>
  563.         <reserved2> 0 </reserved2>
  564.         <reserved1> 0 </reserved1>
  565.         <enabled> <true /> </enabled>
  566.         <rect>
  567.             <left>181</left>
  568.             <top>220</top>
  569.             <right>331</right>
  570.             <bottom>234</bottom>
  571.         </rect>
  572.         <style>transparent</style>
  573.         <showName> <true /> </showName>
  574.         <highlight> <false /> </highlight>
  575.         <autoHighlight> <false /> </autoHighlight>
  576.         <sharedHighlight> <true /> </sharedHighlight>
  577.         <family>0</family>
  578.         <titleWidth>0</titleWidth>
  579.         <icon>0</icon>
  580.         <textAlign>center</textAlign>
  581.         <font>Geneva</font>
  582.         <textSize>9</textSize>
  583.         <textStyle>bold</textStyle>
  584.         <name>Print Selection</name>
  585.         <script>on mouseUp
  586. go cd short name of me
  587. end mouseUp</script>
  588.     </part>
  589.     <part>
  590.         <id>16</id>
  591.         <type>button</type>
  592.         <visible> <true /> </visible>
  593.         <reserved5> 0 </reserved5>
  594.         <reserved4> 0 </reserved4>
  595.         <reserved3> 0 </reserved3>
  596.         <reserved2> 0 </reserved2>
  597.         <reserved1> 0 </reserved1>
  598.         <enabled> <true /> </enabled>
  599.         <rect>
  600.             <left>181</left>
  601.             <top>233</top>
  602.             <right>331</right>
  603.             <bottom>247</bottom>
  604.         </rect>
  605.         <style>transparent</style>
  606.         <showName> <true /> </showName>
  607.         <highlight> <false /> </highlight>
  608.         <autoHighlight> <false /> </autoHighlight>
  609.         <sharedHighlight> <true /> </sharedHighlight>
  610.         <family>0</family>
  611.         <titleWidth>0</titleWidth>
  612.         <icon>0</icon>
  613.         <textAlign>center</textAlign>
  614.         <font>Geneva</font>
  615.         <textSize>9</textSize>
  616.         <textStyle>bold</textStyle>
  617.         <name>Print Window</name>
  618.         <script>on mouseUp
  619. go cd short name of me
  620. end mouseUp</script>
  621.     </part>
  622.     <part>
  623.         <id>17</id>
  624.         <type>button</type>
  625.         <visible> <true /> </visible>
  626.         <reserved5> 0 </reserved5>
  627.         <reserved4> 0 </reserved4>
  628.         <reserved3> 0 </reserved3>
  629.         <reserved2> 0 </reserved2>
  630.         <reserved1> 0 </reserved1>
  631.         <enabled> <true /> </enabled>
  632.         <rect>
  633.             <left>181</left>
  634.             <top>246</top>
  635.             <right>331</right>
  636.             <bottom>260</bottom>
  637.         </rect>
  638.         <style>transparent</style>
  639.         <showName> <true /> </showName>
  640.         <highlight> <false /> </highlight>
  641.         <autoHighlight> <false /> </autoHighlight>
  642.         <sharedHighlight> <true /> </sharedHighlight>
  643.         <family>0</family>
  644.         <titleWidth>0</titleWidth>
  645.         <icon>0</icon>
  646.         <textAlign>center</textAlign>
  647.         <font>Geneva</font>
  648.         <textSize>9</textSize>
  649.         <textStyle>bold</textStyle>
  650.         <name>Put Away</name>
  651.         <script>on mouseUp
  652. go cd short name of me
  653. end mouseUp</script>
  654.     </part>
  655.     <part>
  656.         <id>18</id>
  657.         <type>button</type>
  658.         <visible> <true /> </visible>
  659.         <reserved5> 0 </reserved5>
  660.         <reserved4> 0 </reserved4>
  661.         <reserved3> 0 </reserved3>
  662.         <reserved2> 0 </reserved2>
  663.         <reserved1> 0 </reserved1>
  664.         <enabled> <true /> </enabled>
  665.         <rect>
  666.             <left>181</left>
  667.             <top>259</top>
  668.             <right>331</right>
  669.             <bottom>273</bottom>
  670.         </rect>
  671.         <style>transparent</style>
  672.         <showName> <true /> </showName>
  673.         <highlight> <false /> </highlight>
  674.         <autoHighlight> <false /> </autoHighlight>
  675.         <sharedHighlight> <true /> </sharedHighlight>
  676.         <family>0</family>
  677.         <titleWidth>0</titleWidth>
  678.         <icon>0</icon>
  679.         <textAlign>center</textAlign>
  680.         <font>Geneva</font>
  681.         <textSize>9</textSize>
  682.         <textStyle>bold</textStyle>
  683.         <name>Resize Window</name>
  684.         <script>on mouseUp
  685. go cd short name of me
  686. end mouseUp</script>
  687.     </part>
  688.     <part>
  689.         <id>19</id>
  690.         <type>button</type>
  691.         <visible> <true /> </visible>
  692.         <reserved5> 0 </reserved5>
  693.         <reserved4> 0 </reserved4>
  694.         <reserved3> 0 </reserved3>
  695.         <reserved2> 0 </reserved2>
  696.         <reserved1> 0 </reserved1>
  697.         <enabled> <true /> </enabled>
  698.         <rect>
  699.             <left>181</left>
  700.             <top>272</top>
  701.             <right>331</right>
  702.             <bottom>286</bottom>
  703.         </rect>
  704.         <style>transparent</style>
  705.         <showName> <true /> </showName>
  706.         <highlight> <false /> </highlight>
  707.         <autoHighlight> <false /> </autoHighlight>
  708.         <sharedHighlight> <true /> </sharedHighlight>
  709.         <family>0</family>
  710.         <titleWidth>0</titleWidth>
  711.         <icon>0</icon>
  712.         <textAlign>center</textAlign>
  713.         <font>Geneva</font>
  714.         <textSize>9</textSize>
  715.         <textStyle>bold</textStyle>
  716.         <name>Restart</name>
  717.         <script>on mouseUp
  718. go cd short name of me
  719. end mouseUp</script>
  720.     </part>
  721.     <part>
  722.         <id>20</id>
  723.         <type>button</type>
  724.         <visible> <true /> </visible>
  725.         <reserved5> 0 </reserved5>
  726.         <reserved4> 0 </reserved4>
  727.         <reserved3> 0 </reserved3>
  728.         <reserved2> 0 </reserved2>
  729.         <reserved1> 0 </reserved1>
  730.         <enabled> <true /> </enabled>
  731.         <rect>
  732.             <left>351</left>
  733.             <top>168</top>
  734.             <right>501</right>
  735.             <bottom>182</bottom>
  736.         </rect>
  737.         <style>transparent</style>
  738.         <showName> <true /> </showName>
  739.         <highlight> <false /> </highlight>
  740.         <autoHighlight> <false /> </autoHighlight>
  741.         <sharedHighlight> <true /> </sharedHighlight>
  742.         <family>0</family>
  743.         <titleWidth>0</titleWidth>
  744.         <icon>0</icon>
  745.         <textAlign>center</textAlign>
  746.         <font>Geneva</font>
  747.         <textSize>9</textSize>
  748.         <textStyle>bold</textStyle>
  749.         <name>Reveal Selection</name>
  750.         <script>on mouseUp
  751. go cd short name of me
  752. end mouseUp</script>
  753.     </part>
  754.     <part>
  755.         <id>21</id>
  756.         <type>button</type>
  757.         <visible> <true /> </visible>
  758.         <reserved5> 0 </reserved5>
  759.         <reserved4> 0 </reserved4>
  760.         <reserved3> 0 </reserved3>
  761.         <reserved2> 0 </reserved2>
  762.         <reserved1> 0 </reserved1>
  763.         <enabled> <true /> </enabled>
  764.         <rect>
  765.             <left>351</left>
  766.             <top>181</top>
  767.             <right>501</right>
  768.             <bottom>195</bottom>
  769.         </rect>
  770.         <style>transparent</style>
  771.         <showName> <true /> </showName>
  772.         <highlight> <false /> </highlight>
  773.         <autoHighlight> <false /> </autoHighlight>
  774.         <sharedHighlight> <true /> </sharedHighlight>
  775.         <family>0</family>
  776.         <titleWidth>0</titleWidth>
  777.         <icon>0</icon>
  778.         <textAlign>center</textAlign>
  779.         <font>Geneva</font>
  780.         <textSize>9</textSize>
  781.         <textStyle>bold</textStyle>
  782.         <name>Set View</name>
  783.         <script>on mouseUp
  784. go cd short name of me
  785. end mouseUp</script>
  786.     </part>
  787.     <part>
  788.         <id>22</id>
  789.         <type>button</type>
  790.         <visible> <true /> </visible>
  791.         <reserved5> 0 </reserved5>
  792.         <reserved4> 0 </reserved4>
  793.         <reserved3> 0 </reserved3>
  794.         <reserved2> 0 </reserved2>
  795.         <reserved1> 0 </reserved1>
  796.         <enabled> <true /> </enabled>
  797.         <rect>
  798.             <left>351</left>
  799.             <top>194</top>
  800.             <right>501</right>
  801.             <bottom>208</bottom>
  802.         </rect>
  803.         <style>transparent</style>
  804.         <showName> <true /> </showName>
  805.         <highlight> <false /> </highlight>
  806.         <autoHighlight> <false /> </autoHighlight>
  807.         <sharedHighlight> <true /> </sharedHighlight>
  808.         <family>0</family>
  809.         <titleWidth>0</titleWidth>
  810.         <icon>0</icon>
  811.         <textAlign>center</textAlign>
  812.         <font>Geneva</font>
  813.         <textSize>9</textSize>
  814.         <textStyle>bold</textStyle>
  815.         <name>Sharing</name>
  816.         <script>on mouseUp
  817. go cd short name of me
  818. end mouseUp</script>
  819.     </part>
  820.     <part>
  821.         <id>23</id>
  822.         <type>button</type>
  823.         <visible> <true /> </visible>
  824.         <reserved5> 0 </reserved5>
  825.         <reserved4> 0 </reserved4>
  826.         <reserved3> 0 </reserved3>
  827.         <reserved2> 0 </reserved2>
  828.         <reserved1> 0 </reserved1>
  829.         <enabled> <true /> </enabled>
  830.         <rect>
  831.             <left>351</left>
  832.             <top>207</top>
  833.             <right>501</right>
  834.             <bottom>221</bottom>
  835.         </rect>
  836.         <style>transparent</style>
  837.         <showName> <true /> </showName>
  838.         <highlight> <false /> </highlight>
  839.         <autoHighlight> <false /> </autoHighlight>
  840.         <sharedHighlight> <true /> </sharedHighlight>
  841.         <family>0</family>
  842.         <titleWidth>0</titleWidth>
  843.         <icon>0</icon>
  844.         <textAlign>center</textAlign>
  845.         <font>Geneva</font>
  846.         <textSize>9</textSize>
  847.         <textStyle>bold</textStyle>
  848.         <name>Show Clipboard</name>
  849.         <script>on mouseUp
  850. go cd short name of me
  851. end mouseUp</script>
  852.     </part>
  853.     <part>
  854.         <id>25</id>
  855.         <type>button</type>
  856.         <visible> <true /> </visible>
  857.         <reserved5> 0 </reserved5>
  858.         <reserved4> 0 </reserved4>
  859.         <reserved3> 0 </reserved3>
  860.         <reserved2> 0 </reserved2>
  861.         <reserved1> 0 </reserved1>
  862.         <enabled> <true /> </enabled>
  863.         <rect>
  864.             <left>351</left>
  865.             <top>220</top>
  866.             <right>501</right>
  867.             <bottom>234</bottom>
  868.         </rect>
  869.         <style>transparent</style>
  870.         <showName> <true /> </showName>
  871.         <highlight> <false /> </highlight>
  872.         <autoHighlight> <false /> </autoHighlight>
  873.         <sharedHighlight> <true /> </sharedHighlight>
  874.         <family>0</family>
  875.         <titleWidth>0</titleWidth>
  876.         <icon>0</icon>
  877.         <textAlign>center</textAlign>
  878.         <font>Geneva</font>
  879.         <textSize>9</textSize>
  880.         <textStyle>bold</textStyle>
  881.         <name>Shut Down</name>
  882.         <script>on mouseUp
  883. go cd short name of me
  884. end mouseUp</script>
  885.     </part>
  886.     <part>
  887.         <id>26</id>
  888.         <type>button</type>
  889.         <visible> <true /> </visible>
  890.         <reserved5> 0 </reserved5>
  891.         <reserved4> 0 </reserved4>
  892.         <reserved3> 0 </reserved3>
  893.         <reserved2> 0 </reserved2>
  894.         <reserved1> 0 </reserved1>
  895.         <enabled> <true /> </enabled>
  896.         <rect>
  897.             <left>351</left>
  898.             <top>233</top>
  899.             <right>501</right>
  900.             <bottom>247</bottom>
  901.         </rect>
  902.         <style>transparent</style>
  903.         <showName> <true /> </showName>
  904.         <highlight> <false /> </highlight>
  905.         <autoHighlight> <false /> </autoHighlight>
  906.         <sharedHighlight> <true /> </sharedHighlight>
  907.         <family>0</family>
  908.         <titleWidth>0</titleWidth>
  909.         <icon>0</icon>
  910.         <textAlign>center</textAlign>
  911.         <font>Geneva</font>
  912.         <textSize>9</textSize>
  913.         <textStyle>bold</textStyle>
  914.         <name>Sleep</name>
  915.         <script>on mouseUp
  916. go cd short name of me
  917. end mouseUp</script>
  918.     </part>
  919.     <part>
  920.         <id>24</id>
  921.         <type>field</type>
  922.         <visible> <false /> </visible>
  923.         <dontWrap> <false /> </dontWrap>
  924.         <dontSearch> <false /> </dontSearch>
  925.         <sharedText> <false /> </sharedText>
  926.         <fixedLineHeight> <false /> </fixedLineHeight>
  927.         <autoTab> <false /> </autoTab>
  928.         <lockText> <true /> </lockText>
  929.         <rect>
  930.             <left>0</left>
  931.             <top>22</top>
  932.             <right>512</right>
  933.             <bottom>303</bottom>
  934.         </rect>
  935.         <style>scrolling</style>
  936.         <autoSelect> <false /> </autoSelect>
  937.         <showLines> <false /> </showLines>
  938.         <wideMargins> <false /> </wideMargins>
  939.         <multipleLines> <false /> </multipleLines>
  940.         <reservedFamily> 0 </reservedFamily>
  941.         <titleWidth>0</titleWidth>
  942.         <icon>0</icon>
  943.         <textAlign>left</textAlign>
  944.         <font>Monaco</font>
  945.         <textSize>9</textSize>
  946.         <textStyle>plain</textStyle>
  947.         <textHeight>12</textHeight>
  948.         <name>Source</name>
  949.         <script>on mouseUp
  950. hide me
  951. end mouseUp
  952. </script>
  953.     </part>
  954.     <part>
  955.         <id>31</id>
  956.         <type>button</type>
  957.         <visible> <true /> </visible>
  958.         <reserved5> 0 </reserved5>
  959.         <reserved4> 0 </reserved4>
  960.         <reserved3> 0 </reserved3>
  961.         <reserved2> 0 </reserved2>
  962.         <reserved1> 0 </reserved1>
  963.         <enabled> <true /> </enabled>
  964.         <rect>
  965.             <left>351</left>
  966.             <top>246</top>
  967.             <right>501</right>
  968.             <bottom>260</bottom>
  969.         </rect>
  970.         <style>transparent</style>
  971.         <showName> <true /> </showName>
  972.         <highlight> <false /> </highlight>
  973.         <autoHighlight> <false /> </autoHighlight>
  974.         <sharedHighlight> <true /> </sharedHighlight>
  975.         <family>0</family>
  976.         <titleWidth>0</titleWidth>
  977.         <icon>0</icon>
  978.         <textAlign>center</textAlign>
  979.         <font>Geneva</font>
  980.         <textSize>9</textSize>
  981.         <textStyle>bold</textStyle>
  982.         <name>Zoom Window</name>
  983.         <script>on mouseUp
  984. go cd short name of me
  985. end mouseUp</script>
  986.     </part>
  987.     <part>
  988.         <id>27</id>
  989.         <type>field</type>
  990.         <visible> <false /> </visible>
  991.         <dontWrap> <false /> </dontWrap>
  992.         <dontSearch> <false /> </dontSearch>
  993.         <sharedText> <false /> </sharedText>
  994.         <fixedLineHeight> <false /> </fixedLineHeight>
  995.         <autoTab> <false /> </autoTab>
  996.         <lockText> <true /> </lockText>
  997.         <rect>
  998.             <left>5</left>
  999.             <top>90</top>
  1000.             <right>508</right>
  1001.             <bottom>301</bottom>
  1002.         </rect>
  1003.         <style>rectangle</style>
  1004.         <autoSelect> <false /> </autoSelect>
  1005.         <showLines> <false /> </showLines>
  1006.         <wideMargins> <false /> </wideMargins>
  1007.         <multipleLines> <false /> </multipleLines>
  1008.         <reservedFamily> 0 </reservedFamily>
  1009.         <titleWidth>0</titleWidth>
  1010.         <icon>0</icon>
  1011.         <textAlign>left</textAlign>
  1012.         <font>Geneva</font>
  1013.         <textSize>9</textSize>
  1014.         <textStyle>plain</textStyle>
  1015.         <textHeight>12</textHeight>
  1016.         <name>Caveats</name>
  1017.         <script>on mouseUp
  1018. toggleCaveats
  1019. end mouseUp
  1020. </script>
  1021.     </part>
  1022.     <part>
  1023.         <id>30</id>
  1024.         <type>field</type>
  1025.         <visible> <false /> </visible>
  1026.         <dontWrap> <false /> </dontWrap>
  1027.         <dontSearch> <false /> </dontSearch>
  1028.         <sharedText> <false /> </sharedText>
  1029.         <fixedLineHeight> <false /> </fixedLineHeight>
  1030.         <autoTab> <false /> </autoTab>
  1031.         <lockText> <true /> </lockText>
  1032.         <rect>
  1033.             <left>5</left>
  1034.             <top>90</top>
  1035.             <right>508</right>
  1036.             <bottom>301</bottom>
  1037.         </rect>
  1038.         <style>rectangle</style>
  1039.         <autoSelect> <false /> </autoSelect>
  1040.         <showLines> <false /> </showLines>
  1041.         <wideMargins> <false /> </wideMargins>
  1042.         <multipleLines> <false /> </multipleLines>
  1043.         <reservedFamily> 0 </reservedFamily>
  1044.         <titleWidth>0</titleWidth>
  1045.         <icon>0</icon>
  1046.         <textAlign>center</textAlign>
  1047.         <font>Geneva</font>
  1048.         <textSize>9</textSize>
  1049.         <textStyle>plain</textStyle>
  1050.         <textHeight>12</textHeight>
  1051.         <name>Credits</name>
  1052.         <script>on mouseUp
  1053. lock screen
  1054. hide me
  1055. unlock screen with dissolve
  1056. end mouseUp
  1057. </script>
  1058.     </part>
  1059.     <content>
  1060.         <layer>card</layer>
  1061.         <id>1</id>
  1062.         <text><span class="style7">elcome to a demo of the currently available FinderEvents.  These are a set of custom Apple events that the Finder in System 7.0 understands.  Apple┬« will not support these events and warns you that they probably will change in the near future to conform to the standard Core suite of Apple events. In the meantime, here is an XCMD that will send FinderEvents and give you some degreee of control over the Finder from HyperTalk. The Finder is </span><span class="style8">not</span><span class="style7"> intended to be scriptable.                This is version 1.2
  1063.                   </span><span class="style9">Click on the names below to see a description of that function and examples.</span><span class="style7">
  1064.  
  1065.  
  1066.  
  1067.  
  1068.  
  1069.  
  1070.  
  1071.  
  1072.  
  1073. This stack brought to you by Jon Pugh and Apple Computer, Inc.      ┬⌐ 1991-92 Apple Computer, Inc.
  1074.  
  1075.  
  1076. </span></text>
  1077.     </content>
  1078.     <content>
  1079.         <layer>card</layer>
  1080.         <id>24</id>
  1081.         <text>{$S FinderEvents }
  1082.  
  1083. UNIT DummyUnit;
  1084.  
  1085. (*
  1086.  
  1087. This XCMD sends FinderEvents to the System 7 Finder.  These events are designed to
  1088. demonstrate some of the power of IAC on the Macintosh, but they are not meant as
  1089. an end all scripting capability.  This will be added to the Finder at a later date.
  1090. The syntax of this command is convoluted and varies based on the values of the 
  1091. parameters.  The instructions are in the accompanying stack, which you should have
  1092. gotten.
  1093.  
  1094. This code, the XCMD, and the stack are all ┬⌐ 1991 by Apple Computer.
  1095. They were all written and directed by Jon Pugh.
  1096.  
  1097. To compile with MPW, use commands similar to the following.  These require 
  1098. Hypercard 2.1 and the sendAE tool from the Developer CD.  This script also
  1099. assumes that you are using MPW 3.3 or later and that Hypercard is on your
  1100. boot disk and running.
  1101.  
  1102. save -a
  1103. sendAE -t Hypercard -e miscdosc -m 3 -----TEXT 'go home'
  1104. pascal FinderEvents.p
  1105. link -o FinderEvents -rt XCMD=9215 -sg FinderEvents -m ENTRYPOINT Γêé
  1106.     -sn Main=FinderEvents FinderEvents.p.o Γêé
  1107.     "{Libraries}"Interface.o Γêé
  1108.     "{Libraries}"HyperXLib.o Γêé
  1109.     "{PLibraries}"Paslib.o
  1110. sendAE -t Hypercard -e miscdosc -m 1 -----TEXT 'go FinderEvents'
  1111. "{Boot}"Hypercard:Hypercard
  1112.  
  1113. *)
  1114.  
  1115. INTERFACE
  1116.  
  1117. USES
  1118.     MemTypes, QuickDraw, OSIntf, ToolIntf, Packages, Script, Aliases, AppleEvents, AERegistry, GestaltEqu, HyperXCmd;
  1119.  
  1120. PROCEDURE EntryPoint (paramPtr : XCmdPtr);
  1121.  
  1122. IMPLEMENTATION
  1123.  
  1124. CONST
  1125.     { Finder Types }
  1126. {ΓÇó    keyMiscellaneous            = 'fmsc';ΓÇó}
  1127. {ΓÇó    keySelection                = 'fsel';ΓÇó}
  1128. {ΓÇó    typeFinderWindow            = 'fwin';ΓÇó}
  1129.     kFinderSignature            = 'MACS';
  1130.     { Application Events }
  1131. {ΓÇó    kAEAbout                    = 'abou';ΓÇó}
  1132. {ΓÇó    kAEShowClipboard            = 'shcl';ΓÇó}
  1133. {ΓÇó    kAEEmptyTrash                = 'empt';ΓÇó}
  1134. {ΓÇó    kAESleep                    = 'slep';ΓÇó}
  1135. {ΓÇó    kAEShutdown                    = 'shut';ΓÇó}
  1136. {ΓÇó    kAERestart                    = 'rest';ΓÇó}
  1137.     { Window Events }
  1138. {ΓÇó    kAESetPosition                = 'posn';ΓÇó}
  1139. {ΓÇó    kAEGrow                        = 'grow';ΓÇó}
  1140. {ΓÇó    kAEZoom                        = 'zoom';ΓÇó}
  1141. {ΓÇó    kAEClose                    = 'clos';ΓÇó}
  1142. {ΓÇó    kAEPageSetup                = 'pgsu';ΓÇó}
  1143. {ΓÇó    kAEPrintWindow                = 'pwin';ΓÇó}
  1144. {ΓÇó    kAEChangeView                = 'view';ΓÇó}
  1145.     { HFS Events }
  1146. {ΓÇó    kAEOpenSelection            = 'sope';ΓÇó}
  1147. {ΓÇó    kAEPrintSelection            = 'spri';ΓÇó}
  1148. {ΓÇó    kAEGetInfoSelection            = 'sinf';ΓÇó}
  1149. {ΓÇó    kAEGetPrivilegeSelection    = 'sprv';ΓÇó}
  1150. {ΓÇó    kAEDuplicateSelection        = 'sdup';ΓÇó}
  1151. {ΓÇó    kAEPutAwaySelection            = 'sput';ΓÇó}
  1152. {ΓÇó    kAEAliasSelection            = 'sali';ΓÇó}
  1153. {ΓÇó    kAERevealSelection            = 'srev';ΓÇó}
  1154. {ΓÇó    kAEDrag                        = 'drag';ΓÇó}
  1155. {ΓÇó    kAEMove                        = 'move';ΓÇó}
  1156.     { Fake Event Codes }
  1157.     kAEHideAbout                = 'hdab';
  1158.     kAEHideClipboard            = 'hdcl';
  1159.     kAboutCode                    = 'abot';
  1160.     kClipCode                    = 'clip';
  1161.     { Fake Event Parameter Counts }
  1162.     kHideAbout                    = -29999;
  1163.     kHideClipboard                = -29998;
  1164.  
  1165. PROCEDURE FinderEvents (paramPtr : XCmdPtr); FORWARD;
  1166.  
  1167. PROCEDURE ENTRYPOINT(paramPtr: XCmdPtr);
  1168. BEGIN
  1169. FinderEvents(paramPtr);
  1170. END;    { EntryPoint }
  1171.  
  1172. FUNCTION PathName (theFSS : FSSpec) : Str255;
  1173. VAR
  1174.     Block : CInfoPBRec;
  1175.     directoryName, FullPathName : Str255;
  1176.     err : OSErr;
  1177. BEGIN
  1178. FullPathName := '';
  1179. WITH block DO
  1180.     BEGIN
  1181.     ioNamePtr := @directoryName;
  1182.     ioDrParID := theFSS.parID;
  1183.     END;
  1184. REPEAT
  1185.     WITH block DO
  1186.         BEGIN
  1187.         ioVRefNum := theFSS.vRefNum;
  1188.         ioFDirIndex := -1;
  1189.         ioDrDirID := block.ioDrParID;
  1190.         END;
  1191.     err := PBGetCatInfo(@Block, FALSE);
  1192.     directoryName := concat(directoryName,':');
  1193.     fullPathName := concat(directoryName, fullPathName);
  1194. UNTIL (block.ioDrDirID = 2);
  1195. PathName := Concat(fullPathName, theFSS.name);
  1196. END;    { Pathname }
  1197.  
  1198. FUNCTION ExpectedParams (t : Str255; VAR theEvent : ResType) : Integer;
  1199. VAr
  1200.     i : Integer;
  1201. BEGIN
  1202. FOR i := 1 TO Length(t) DO
  1203.     IF (t[i] >= 'A') AND (t[i] <= 'Z') THEN
  1204.         t[i] := chr(ord(t[i]) - ord('A') + ord('a'));
  1205. IF (t = kAEAbout) | (t = 'about macintosh') | (t = 'about') | (t = 'aboutmacintosh') THEN
  1206.     BEGIN
  1207.     theEvent := kAEAbout;
  1208.     ExpectedParams := 1;
  1209.     END
  1210. ELSE IF (t = kAEHideAbout) | (t = 'hideabout') | (t = 'hide about') | (t = 'closeabout') | (t = 'close about') THEN
  1211.     BEGIN
  1212.     theEvent := kAEHideAbout;
  1213.     ExpectedParams := kHideAbout;
  1214.     END
  1215. ELSE IF (t = kAEShowClipboard) | (t = 'showclipboard') | (t = 'show clipboard') | (t = 'showclip') | (t = 'show clip') THEN
  1216.     BEGIN
  1217.     theEvent := kAEShowClipboard;
  1218.     ExpectedParams := 1;
  1219.     END
  1220. ELSE IF (t = kAEHideClipboard) | (t = 'hideclipboard') | (t = 'hide clipboard') | (t = 'hideclip') | (t = 'hide clip') THEN
  1221.     BEGIN
  1222.     theEvent := kAEHideClipboard;
  1223.     ExpectedParams := kHideClipboard;
  1224.     END
  1225. ELSE IF (t = kAEEmptyTrash) | (t = 'emptytrash') | (t = 'empty trash') THEN
  1226.     BEGIN
  1227.     theEvent := kAEEmptyTrash;
  1228.     ExpectedParams := 1;
  1229.     END
  1230. ELSE IF (t = kAERestart) | (t = 'restart') THEN
  1231.     BEGIN
  1232.     theEvent := kAERestart;
  1233.     ExpectedParams := 1;
  1234.     END
  1235. ELSE IF (t = kAEShutdown) | (t = 'shutdown') THEN
  1236.     BEGIN
  1237.     theEvent := kAEShutdown;
  1238.     ExpectedParams := 1;
  1239.     END
  1240. ELSE IF (t = kAESleep) | (t = 'sleep') THEN
  1241.     BEGIN
  1242.     theEvent := kAESleep;
  1243.     ExpectedParams := 1;
  1244.     END
  1245. ELSE IF (t = kAEClose) | (t = 'close') | (t = 'closewindow') | (t = 'close window') THEN
  1246.     BEGIN
  1247.     theEvent := kAEClose;
  1248.     ExpectedParams := 2;
  1249.     END
  1250. ELSE IF (t = kAEPageSetup) | (t = 'pagesetup') | (t = 'page setup') THEN
  1251.     BEGIN
  1252.     theEvent := kAEPageSetup;
  1253.     ExpectedParams := 2;
  1254.     END
  1255. ELSE IF (t = kAEPrintWindow) | (t = 'printwindow') | (t = 'print window') THEN
  1256.     BEGIN
  1257.     theEvent := kAEPrintWindow;
  1258.     ExpectedParams := 2;
  1259.     END
  1260. ELSE IF (t = kAEOpenSelection) | (t = 'open') | (t = 'openselection') | (t = 'open selection') THEN
  1261.     BEGIN
  1262.     theEvent := kAEOpenSelection;
  1263.     ExpectedParams := 3;
  1264.     END
  1265. ELSE IF (t = kAEPrintSelection) | (t = 'print') | (t = 'printselection') | (t = 'print selection') THEN
  1266.     BEGIN
  1267.     theEvent := kAEPrintSelection;
  1268.     ExpectedParams := 3;
  1269.     END
  1270. ELSE IF (t = kAEGetInfoSelection) | (t = 'info') | (t = 'getinfo') | (t = 'get info') | (t = 'getinfoselection') | (t = 'get info selection') THEN
  1271.     BEGIN
  1272.     theEvent := kAEGetInfoSelection;
  1273.     ExpectedParams := 3;
  1274.     END
  1275. ELSE IF (t = kAEGetPrivilegeSelection) | (t = 'sharing') | (t = 'getprivilege') | (t = 'getprivilegeselection') | (t = 'get privilege') | (t = 'get privilege selection') THEN
  1276.     BEGIN
  1277.     theEvent := kAEGetPrivilegeSelection;
  1278.     ExpectedParams := 3;
  1279.     END
  1280. ELSE IF (t = kAERevealSelection) | (t = 'reveal') | (t = 'revealselection') | (t = 'reveal selection') THEN
  1281.     BEGIN
  1282.     theEvent := kAERevealSelection;
  1283.     ExpectedParams := 3;
  1284.     END
  1285. ELSE IF (t = kAEDuplicateSelection) | (t = 'duplicate') | (t = 'duplicateselection') | (t = 'duplicate selection') THEN
  1286.     BEGIN
  1287.     theEvent := kAEDuplicateSelection;
  1288.     ExpectedParams := 3;
  1289.     END
  1290. ELSE IF (t = kAEPutAwaySelection) | (t = 'putaway') | (t = 'put away') | (t = 'putawayselection') | (t = 'put away selection') THEN
  1291.     BEGIN
  1292.     theEvent := kAEPutAwaySelection;
  1293.     ExpectedParams := 3;
  1294.     END
  1295. ELSE IF (t = kAEAliasSelection) | (t = 'alias') | (t = 'aliasselection') | (t = 'alias selection') | (t = 'make alias') THEN
  1296.     BEGIN
  1297.     theEvent := kAEAliasSelection;
  1298.     ExpectedParams := 3;
  1299.     END
  1300. ELSE IF (t = kAEZoom) | (t = 'zoomwindow') | (t = 'zoom window') THEN
  1301.     BEGIN
  1302.     theEvent := kAEZoom;
  1303.     ExpectedParams := 3;
  1304.     END
  1305. ELSE IF (t = kAEChangeView) | (t = 'changeview') | (t = 'change view') | (t = 'setview') | (t = 'set view') THEN
  1306.     BEGIN
  1307.     theEvent := kAEChangeView;
  1308.     ExpectedParams := 3;
  1309.     END
  1310. ELSE IF (t = kAESetPosition) | (t = 'movewindow') | (t = 'move window') | (t = 'position') THEN
  1311.     BEGIN
  1312.     theEvent := kAESetPosition;
  1313.     ExpectedParams := 3;
  1314.     END
  1315. ELSE IF (t = kAEGrow) | (t = 'growwindow') | (t = 'grow window') | (t = 'resize') | (t = 'resizewindow') | (t = 'resize window') THEN
  1316.     BEGIN
  1317.     theEvent := kAEGrow;
  1318.     ExpectedParams := 3;
  1319.     END
  1320. ELSE IF (t = kAEDrag) | (t = 'dragselection') | (t = 'drag selection')  | (t = 'copy') | (t = 'copyselection') | (t = 'copy selection') THEN
  1321.     BEGIN
  1322.     theEvent := kAEDrag;
  1323.     ExpectedParams := 4;
  1324.     END
  1325. ELSE IF (t = kAEMove) | (t = 'moveselection') | (t = 'move selection') THEN
  1326.     BEGIN
  1327.     theEvent := kAEMove;
  1328.     ExpectedParams := 4;
  1329.     END
  1330. ELSE
  1331.     ExpectedParams := 0;
  1332. END;    { ExpectedParams }
  1333.  
  1334. FUNCTION WindowEvent (eventID : ResType) : Boolean;
  1335. BEGIN
  1336. IF (eventID = kAESetPosition) | (eventID = kAEGrow) | (eventID = kAEZoom) | 
  1337.    (eventID = kAEChangeView) | (eventID = kAEClose) | (eventID = kAEPageSetup) | 
  1338.    (eventID = kAEPrintWindow) THEN
  1339.     WindowEvent := TRUE
  1340. ELSE
  1341.     WindowEvent := FALSE;
  1342. END;    { WindowEvent }
  1343.  
  1344. FUNCTION GetTargetID (theDude, theZone : Str31; VAR theTarget: TargetID) : OSErr;
  1345. VAR
  1346.     err : OSErr;
  1347.     pb    : IPCListPortsPBRec;
  1348.     theLoc    : LocationNameRec;
  1349.     thePort    : PPCPortRec;
  1350.     theBuffer    : PortInfoRec;
  1351. BEGIN
  1352. GetTargetID := noErr;
  1353. WITH thePort DO
  1354.     BEGIN
  1355.     nameScript := smRoman;
  1356.     name := 'Finder';
  1357.     portKindSelector := ppcByString;
  1358.     portTypeStr := '=';
  1359.     END;
  1360. WITH theLoc DO
  1361.     BEGIN
  1362.     locationKindSelector := ppcNBPLocation;
  1363.     WITH nbpEntity DO
  1364.         BEGIN
  1365.         objStr := theDude;
  1366.         typeStr := 'PPCToolbox';
  1367.         zoneStr := theZone;
  1368.         END;
  1369.     END;
  1370. WITH pb DO
  1371.     BEGIN
  1372.     startIndex := 0;
  1373.     requestCount := 1;
  1374.     portName := @thePort;
  1375.     locationName := @theLoc;
  1376.     bufferPtr := @theBuffer;
  1377.     END;
  1378. err := IPCListPorts(@pb, FALSE);
  1379. GetTargetID := err;
  1380. IF (pb.actualCount = 1) AND (err = noErr) THEN
  1381.     BEGIN
  1382.     theTarget.name := theBuffer.name;
  1383.     theTarget.location := theLoc;
  1384.     END
  1385. ELSE IF err = noErr THEN
  1386.     DebugStr('Multiple people with the same name?');
  1387. END;    { GetTargetID }
  1388.  
  1389. PROCEDURE FinderEvents;
  1390. TYPE
  1391.     FinderWindowPtr = ^FinderWindowRec;
  1392.     FinderWindowRec = RECORD
  1393.         WindowID    : LongInt;
  1394.         theType        : ResType;
  1395.         aliasLength    : LongInt;
  1396.         alias        : AliasRecord;
  1397.         END;
  1398. VAR
  1399.     eventClass, eventID, aSig    : ResType;
  1400.     folderAlias, fileAlias    : AliasHandle;
  1401.     theWindow    : FinderWindowPtr;
  1402.     theKey    : AEKeyword;
  1403.     theType    : DescType;
  1404.     l    : LongInt;
  1405.     p    : Point;
  1406.     h    : Handle;
  1407.     fileList    : AEDescList;
  1408.     finderAddress    : AEAddressDesc;
  1409.     theEvent, reply    : AppleEvent;
  1410.     i, j, pCount    : Integer;
  1411.     err    : OSErr;
  1412.     fileSpec    : FSSpec;
  1413.     RemoteEvent, updated    : Boolean;
  1414.     theTarget    : TargetID;
  1415.     theZone, theServer    : Str31;
  1416.     s, t, files    : Str255;
  1417.  
  1418.     PROCEDURE Bomb (err : OSErr; message : Str255);
  1419.     VAR
  1420.         b : Str255;
  1421.     BEGIN
  1422.     IF err <> noErr THEN
  1423.         BEGIN
  1424.         b := '';
  1425.         IF err <> maxInt THEN
  1426.             BEGIN
  1427.             NumToStr(paramPtr, err, t);
  1428.             b := Concat(', Error = ', t);
  1429.             END;
  1430.         paramPtr^.returnValue := PasToZero(paramPtr, Concat(message, b));
  1431.         Exit(FinderEvents);
  1432.         END;
  1433.     END;    { Bomb }
  1434.     
  1435.     PROCEDURE PutWait (t : Str255);
  1436.     BEGIN
  1437.     SendCardMessage(paramPtr, Concat('put "', t, '"'));
  1438.     SendCardMessage(paramPtr, 'wait until the mouseClick');
  1439.     END;    { PutWait }
  1440.  
  1441.     PROCEDURE CheckVersion(theVersion : Str31);
  1442.     VAR
  1443.         theResult    : LongInt;
  1444.         h    : Handle;
  1445.         err    : OSErr;
  1446.         t    : Str255;
  1447.     BEGIN
  1448.     h := EvalExpr(paramPtr, 'the short name of Hypercard');
  1449.     ZeroToPas(paramPtr, h^, t);
  1450.     DisposeHandle(h);
  1451.     IF t = 'Hypercard' THEN
  1452.         BEGIN
  1453.         h := EvalExpr(paramPtr, Concat('the version < ', theVersion));
  1454.         ZeroToPas(paramPtr, h^, t);
  1455.         DisposeHandle(h);
  1456.         IF StrToBool(paramPtr, t) THEN
  1457.             Bomb(maxInt, Concat('Version ', theVersion, ' of Hypercard is required'));
  1458.         END;
  1459.     err := Gestalt(gestaltAppleEventsAttr, theResult);
  1460.     IF err <> noErr THEN
  1461.         Bomb(err, 'Gestalt failed');
  1462.     IF NOT BitTst(@theResult, 31-gestaltAppleEventsPresent) THEN
  1463.         Bomb(maxInt, 'A system with AppleEvents is required (7.0 or later).');
  1464.     END;    { CheckVersion }
  1465.  
  1466.     FUNCTION AliasPath (alias: AliasHandle) : Str255;
  1467.     VAR
  1468.         t    : Str255;
  1469.         n    : Str63;
  1470.         i, err    : Integer;
  1471.     BEGIN
  1472.     i := 0;
  1473.     t := '';
  1474.     REPEAT
  1475.         err := GetAliasInfo(alias, i, n);
  1476.         Bomb(err, 'Error: GetAliasInfo');
  1477.         i := i + 1;
  1478.         IF n <> '' THEN
  1479.             t := Concat(n, ':', t);
  1480.     UNTIL n = '';
  1481.     err := GetAliasInfo(alias, -1, n);
  1482.     t := Concat(n, ':', t);
  1483.     Delete(t, length(t), 1);
  1484.     AliasPath := t;
  1485.     END;    { AliasPath }
  1486.  
  1487.     FUNCTION Before (source, subStr : Str255) : Str255;
  1488.     VAR
  1489.         i : Integer;
  1490.     BEGIN
  1491.     i := Pos(subStr, source);
  1492.     IF i = 0 THEN
  1493.         Before := ''
  1494.     ELSE
  1495.         Before := Copy(source, 1, i-1);
  1496.     END;    { Before }
  1497.     
  1498.     FUNCTION After (source, subStr : Str255) : Str255;
  1499.     VAR
  1500.         i : Integer;
  1501.     BEGIN
  1502.     i := Pos(subStr, source);
  1503.     IF i = 0 THEN
  1504.         After := ''
  1505.     ELSE
  1506.         After := Copy(source, i+length(subStr), length(source)-i-length(subStr)+1);
  1507.     END;    { After }
  1508.     
  1509. BEGIN
  1510. theWindow := NIL;
  1511. folderAlias := NIL;
  1512. fileAlias := NIL;
  1513. h := NIL;
  1514. CheckVersion('2.1');
  1515. IF paramPtr^.paramCount = 0 THEN
  1516.     Bomb(maxInt, 'FinderEvents "event ID" ["folder pathname" ["file[,file...]"] {integer | point}]');
  1517. ZeroToPas(paramPtr, paramPtr^.params[1]^, t);
  1518. pCount := ExpectedParams(t, eventID);
  1519. IF pCount = 0 THEN
  1520.     Bomb(maxInt, 'This XCMD does not recognize that event ID');
  1521. IF (pCount = kHideAbout) OR (pCount = kHideClipboard) THEN
  1522.     eventID := kAEClose;
  1523. RemoteEvent := (pCount+1 = paramPtr^.paramCount) AND ((eventID = kAEOpenSelection) OR (eventID = kAEPrintSelection));
  1524. IF (pCount <> paramPtr^.paramCount) AND NOT RemoteEvent AND (pCount >= 0) AND
  1525.         (pCount+1 <> paramPtr^.paramCount) AND WindowEvent(eventID) THEN
  1526.     Bomb(maxInt, 'Bad Parameter List.');    { Put more error checking here later }
  1527. IF (eventID = kAEAbout) THEN
  1528.     eventClass := kCoreEventClass
  1529. ELSE
  1530.     eventClass := 'FNDR';
  1531. IF RemoteEvent THEN
  1532.     BEGIN
  1533.     ZeroToPas(paramPtr, paramPtr^.params[pCount+1]^, s);
  1534.     IF Pos(':', s) = 0 THEN
  1535.         BEGIN
  1536.         t := '*';
  1537.         END
  1538.     ELSE
  1539.         BEGIN
  1540.         t := Copy(s, 1, Pos(':', s)-1);
  1541.         Delete(s, 1, Pos(':', s));
  1542.         END;
  1543.     theServer := s;
  1544.     theZone := t;
  1545.     err := GetTargetID(theServer, theZone, theTarget);
  1546.     Bomb(err, 'CouldnΓÇÖt find remote Finder on network');
  1547.     err := AECreateDesc(typeTargetID, @theTarget, sizeOf(theTarget), finderAddress);
  1548.     Bomb(err, 'CouldnΓÇÖt get address of remote Finder');
  1549.     END
  1550. ELSE
  1551.     BEGIN
  1552.     aSig := kFinderSignature;
  1553.     err := AECreateDesc(typeApplSignature, @aSig, 4, finderAddress);
  1554.     Bomb(err, 'CouldnΓÇÖt get address of Finder');
  1555.     END;
  1556. err := AECreateAppleEvent(eventClass, eventID, finderAddress, kAutogenerateReturnID,
  1557.         kAnyTransactionID, theEvent);
  1558. Bomb(err, 'Failed to create AppleEvent');
  1559. err := AEDisposeDesc(finderAddress);
  1560. Bomb(err, 'CouldnΓÇÖt dispose of target address descriptor');
  1561. IF pCount < 0 THEN
  1562.     BEGIN
  1563.     { This is the place we convert the fake hide about and hide clip events }
  1564.     { into the weird close events that the Finder wants }
  1565.     l := 16;    { We don't want the whole structure }
  1566.     theWindow := FinderWindowPtr(NewPtr(l));
  1567.     IF theWindow = NIL THEN
  1568.         BEGIN
  1569.         Bomb(MemError, 'CouldnΓÇÖt allocate finder window record');
  1570.         Bomb(maxInt, 'NIL window ptr, but no MemError');
  1571.         END;
  1572.     theWindow^.windowID := 0;
  1573.     theWindow^.aliasLength := 4;
  1574.     theWindow^.theType := 'find';
  1575.     WITH theWindow^ DO
  1576.         { I use this point variable because it was a spare longword }
  1577.         { and I needed a temporary place for the constants }
  1578.         IF pCount = kHideAbout THEN
  1579.             BEGIN
  1580.             p := Point(kAboutCode);
  1581.             BlockMove(@p, @alias, 4);
  1582.             END
  1583.         ELSE IF pCount = kHideClipboard THEN
  1584.             BEGIN
  1585.             p := Point(kClipCode);
  1586.             BlockMove(@p, @alias, 4);
  1587.             END
  1588.         ELSE
  1589.             Bomb(maxInt, 'Bad pCount in fake close event');
  1590.     err := AEPutParamPtr(theEvent, keyDirectObject, typeFinderWindow,
  1591.                             Ptr(theWindow), l);
  1592.     Bomb(err, 'CouldnΓÇÖt create fake window parameter');
  1593.     DisposPtr(Ptr(theWindow));
  1594.     END
  1595. ELSE IF pCount > 1 THEN
  1596.     BEGIN
  1597.     { Most events go through here }
  1598.     { Parameter 2 = Finder window pathName }
  1599.     ZeroToPas(paramPtr, paramPtr^.params[2]^, t);
  1600.     IF t = '' THEN
  1601.         BEGIN
  1602.         { If there is no second parameter then the third is a disk name }
  1603.         { You cannot open 2 disks in the same event - this will be a bad file spec }
  1604.         ZeroToPas(paramPtr, paramPtr^.params[3]^, t);
  1605.         IF t[length(t)] <> ':' THEN
  1606.             t := Concat(t, ':');
  1607.         err := NewAliasMinimalFromFullPath(length(t), @t[1], '', '', folderAlias);
  1608.         Bomb(err, 'CouldnΓÇÖt make disk alias');
  1609.         END
  1610.     ELSE IF RemoteEvent THEN
  1611.         BEGIN
  1612.         { The path is a local alias file containing an alis resource }
  1613.         { or the pathname of the actual remote folder which is mounted }
  1614.         i := OpenResFile(t);
  1615.         IF i = -1 THEN
  1616.             BEGIN
  1617.             { It is not a file }
  1618.             RemoteEvent := False;
  1619.             IF t[length(t)] <> ':' THEN
  1620.                 t := Concat(t, ':');
  1621.             err := NewAliasMinimalFromFullPath(length(t), @t[1], '', '', folderAlias);
  1622.             END
  1623.         ELSE
  1624.             BEGIN
  1625.             { It is a file }
  1626.             folderAlias := AliasHandle(GetResource('alis', 0));
  1627.             DetachResource(handle(folderAlias));
  1628.             j := ResError;
  1629.             CloseResFile(i);
  1630.             IF folderAlias = NIL THEN
  1631.                 Bomb(j, 'CouldnΓÇÖt get alias resource out of local alias file');
  1632.             END;
  1633.         END
  1634.     ELSE
  1635.         BEGIN
  1636.         IF (t[length(t)] <> ':') AND (eventID <> kAEClose) THEN
  1637.             t := Concat(t, ':');
  1638.         err := NewAliasMinimalFromFullPath(length(t), @t[1], '', '', folderAlias);
  1639.         Bomb(err, 'CouldnΓÇÖt make folder alias');
  1640.         END;
  1641.     IF folderAlias = NIL THEN
  1642.         Bomb(maxInt, 'Failed to create folder alias');
  1643.     IF WindowEvent(eventID) THEN
  1644.         BEGIN
  1645.         l := sizeOf(FinderWindowRec) + folderAlias^^.aliasSize - sizeOf(aliasRecord);
  1646.         theWindow := FinderWindowPtr(NewPtr(l));
  1647.         IF theWindow = NIL THEN
  1648.             BEGIN
  1649.             Bomb(MemError, 'CouldnΓÇÖt allocate finder window record');
  1650.             Bomb(maxInt, 'NIL window ptr, but no MemError');
  1651.             END;
  1652.         theWindow^.windowID := 0;
  1653.         { All window commands have an optional parameter on the end }
  1654.         { This is the window type where 0 = regular, 11 = Info, and 13 = Sharing }
  1655.         IF paramPtr^.params[pCount+1] <> NIL THEN
  1656.             BEGIN
  1657.             ZeroToPas(paramPtr, paramPtr^.params[pCount+1]^, t);
  1658.             theWindow^.windowID := StrToLong(paramPtr, t);
  1659.             END;
  1660.         theWindow^.aliasLength := folderAlias^^.aliasSize;
  1661.         WITH theWindow^ DO
  1662.             BlockMove(Ptr(folderAlias^), @alias, folderAlias^^.aliasSize);
  1663.         theWindow^.theType := typeAlias;
  1664.         err := AEPutParamPtr(theEvent, keyDirectObject, typeFinderWindow,
  1665.                                 Ptr(theWindow), l);
  1666.         Bomb(err, 'CouldnΓÇÖt create finder window parameter');
  1667.         DisposPtr(Ptr(theWindow));
  1668.         END
  1669.     ELSE    { HFS or Property Event }
  1670.         BEGIN
  1671.         HLock(handle(folderAlias));
  1672.         err := AEPutParamPtr(theEvent, keyDirectObject, typeAlias, 
  1673.                                 Ptr(folderAlias^), folderAlias^^.aliasSize);
  1674.         HUnlock(handle(folderAlias));
  1675.         Bomb(err, 'CouldnΓÇÖt create folder parameter');
  1676.         END;
  1677.     IF NOT RemoteEvent THEN
  1678.         DisposHandle(handle(folderAlias));
  1679.     { Parameter 3 varies depending on the event }
  1680.     IF (eventID = kAEZoom) OR (eventID = kAEChangeView) THEN
  1681.         BEGIN
  1682.         ZeroToPas(paramPtr, paramPtr^.params[3]^, t);
  1683.         l := StrToLong(paramPtr, t);
  1684.         err := AEPutParamPtr(theEvent, keyMiscellaneous, typeLongInteger, @l, 4);
  1685.         Bomb(err, 'CouldnΓÇÖt add constant parameter');
  1686.         END
  1687.     ELSE IF (eventID = kAESetPosition) OR (eventID = kAEGrow) THEN
  1688.         BEGIN
  1689.         ZeroToPas(paramPtr, paramPtr^.params[3]^, t);
  1690.         StrToPoint(paramPtr, t, p);
  1691.         err := AEPutParamPtr(theEvent, keyMiscellaneous, typeLongInteger, @p, 4);
  1692.         Bomb(err, 'CouldnΓÇÖt add point parameter');
  1693.         END
  1694.     ELSE IF (eventID <> kAEClose) AND (eventID <> kAEPrintWindow) AND (eventID <> kAEPageSetup) THEN
  1695.         BEGIN
  1696.         { pCount = 3 or 4, itΓÇÖs not one of the parameterless window events, & it isnΓÇÖt special cased }
  1697.         { A list of file names from the aforementioned folder }
  1698.         { Create aliases by concatenating the folder path to the file name }
  1699.         { Apparently the Finder has a 3K limit on the event that it can receive }
  1700.         { This doesnΓÇÖt motivate me to extend the Str255 that I use for path names }
  1701.         err := AECreateList(NIL, 0, FALSE, fileList);
  1702.         Bomb(err, 'CouldnΓÇÖt create file descriptor list');
  1703.         ZeroToPas(paramPtr, paramPtr^.params[3]^, files);
  1704.         IF length(files) = 0 THEN
  1705.             Bomb(maxInt, 'No file list');
  1706.         i := 0;
  1707.         WHILE files <> '' DO
  1708.             BEGIN
  1709.             i := i + 1;
  1710.             t := Before(files, ',');
  1711.             IF t = '' THEN
  1712.                 BEGIN
  1713.                 t := files;
  1714.                 files := '';
  1715.                 END
  1716.             ELSE
  1717.                 files := After(files, ',');
  1718.             IF RemoteEvent THEN
  1719.                 BEGIN
  1720.                 s := AliasPath(folderAlias);
  1721.                 t := Concat(s, ':', t);
  1722.                 err := NewAliasMinimalFromFullPath(length(t), @t[1], '', '', fileAlias);
  1723.                 Bomb(err, 'CouldnΓÇÖt create remote file alias');
  1724.                 END
  1725.             ELSE
  1726.                 BEGIN
  1727.                 ZeroToPas(paramPtr, paramPtr^.params[2]^, s);
  1728.                 { Add the folder path to the item file name }
  1729.                 IF (s <> '') AND (eventID <> kAEMove) AND (eventID <> kAEDrag) THEN
  1730.                     IF s[length(s)] <> ':' THEN
  1731.                         BEGIN
  1732.                         IF length(s) + length(t) > 254 THEN
  1733.                             Bomb(maxInt, 'A fileΓÇÖs path name is greater than 255 characters');
  1734.                         t := Concat(s, ':', t);
  1735.                         END
  1736.                     ELSE
  1737.                         BEGIN
  1738.                         IF length(s) + length(t) > 255 THEN
  1739.                             Bomb(maxInt, 'A fileΓÇÖs path name is greater than 255 characters');
  1740.                         t := Concat(s, t);
  1741.                         END;
  1742.                 err := NewAliasMinimalFromFullPath(length(t), @t[1], '', '', fileAlias);
  1743.                 Bomb(err, Concat('Bad filename: ', t));
  1744.                 END;
  1745.             Hlock(handle(fileAlias));
  1746.             err := AEPutPtr(fileList, i, typeAlias, Ptr(fileAlias^), fileAlias^^.aliasSize);
  1747.             HUnlock(handle(fileAlias));
  1748.             Bomb(err, 'CouldnΓÇÖt add file alias to descriptor list');
  1749.             DisposHandle(handle(fileAlias));
  1750.             END;
  1751.         IF RemoteEvent THEN
  1752.             DisposHandle(handle(folderAlias));
  1753.         err := AEPutParamDesc(theEvent, keySelection, fileList);
  1754.         Bomb(err, 'CouldnΓÇÖt add descriptor list to AppleEvent');
  1755.         FOR i := i DOWNTO 1 DO
  1756.             BEGIN
  1757.             err := AEDeleteItem(fileList, i);
  1758.             Bomb(err, 'AEDeleteItem');
  1759.             END;
  1760.         err := AEDisposeDesc(fileList);
  1761.         Bomb(err, 'Failed to dispose of the file list');
  1762.         IF pCount = 4 THEN
  1763.             BEGIN
  1764.             ZeroToPas(paramPtr, paramPtr^.params[4]^, t);
  1765.             StrToPoint(paramPtr, t, p);
  1766.             err := AEPutParamPtr(theEvent, keyMiscellaneous, typeLongInteger, @p, 4);
  1767.             Bomb(err, 'CouldnΓÇÖt add point parameter');
  1768.             END;
  1769.         END;
  1770.     END;
  1771. err := AESend(theEvent, reply, kAENoReply+kAENeverInteract, kAENormalPriority, kAEDefaultTimeout, NIL, NIL);
  1772. Bomb(err, 'AESend');
  1773. err := AEDisposeDesc(theEvent);
  1774. Bomb(err, 'CouldnΓÇÖt dispose of the event');
  1775. err := AEDisposeDesc(reply);
  1776. Bomb(err, 'CouldnΓÇÖt dispose of the reply');
  1777. END;    { FinderEvents }
  1778.  
  1779. END.</text>
  1780.     </content>
  1781.     <content>
  1782.         <layer>card</layer>
  1783.         <id>27</id>
  1784.         <text><span class="style1"> lot of people want the Finder to do some real basic things that it just doesnΓÇÖt do right now. This explains a few of the limitations that the Finder operates under.
  1785.  
  1786. The most notable of these is the desire to get the current Finder selection. You canΓÇÖt. Yes, I know some people do, but they figured out how and know that it will break when the Finder gets changed. They have chosen to do that work and take that risk. You havenΓÇÖt. You want it handed to you. You canΓÇÖt have it that way. If you </span><span class="style10">really</span><span class="style1"> want to know then hop into Macsbug and find out. Save your notes because you will have to do it again when the Finder changes. Hopefully this situation will change when the Finder supports all Apple Events.
  1787.  
  1788. The Finder does not use the Apple Event Manager. It does everything on the fly using only high level events. This means that common AE things wonΓÇÖt work. You canΓÇÖt patch PACK 8 for example, because the Finder doesnΓÇÖt call it. Ever.
  1789.  
  1790. The early Registry makes claims to the effect that creating aliases, putting files away, and duplicating files returns a list of the new files. This XCMD doesnΓÇÖt. This is because the Finder doesnΓÇÖt either. Sorry, it lied.
  1791.  
  1792. Finally, there are probably secret events that the Finder understands, but this XCMD doesnΓÇÖt.</span></text>
  1793.     </content>
  1794.     <content>
  1795.         <layer>card</layer>
  1796.         <id>30</id>
  1797.         <text><span class="style2">pecial thanks to:</span><span class="style1">
  1798.  
  1799. Dennis Gately who managed to find out how the Finder </span><span class="style10">really</span><span class="style1"> works.
  1800. Frederic Rinaldi who tested this and whose GetSysFolder XFCN I am using.
  1801. Frank Stanbach for being the FinderEvents scapegoat.
  1802. Tim Enwall for not getting too upset that I was </span><span class="style10">still</span><span class="style1"> working on this.
  1803. My beautiful and wonderful wife Cary for letting me hack.
  1804. All the people who wrote all that other software I used to create this.
  1805. A bunch of otters in Monterey Bay who did nothing productive.
  1806. The crowd at DTS for making me feel like a part of the family.
  1807. C.K. for </span><span class="style10">finally</span><span class="style1"> trying some of this crap himself.
  1808. Clarus for inspiring ΓÇ£NotSoSirius - The Dogcow StarΓÇ¥.
  1809. The Lake Tahoe area for being so darned pretty and incredibly steep in places.
  1810. Lyle Sheldon for keeping Rare BearΓÇÖs title as the worldΓÇÖs fastest propeller driven aircraft.
  1811. The astronauts of the Atlantis, even though they never did return my email.
  1812. The Baby Princess for wanting to sit on my lap while I hack.
  1813. And all the little people who sang those nifty songs in the Wizard of Oz.</span></text>
  1814.     </content>
  1815.     <name>Index</name>
  1816.     <script>on toggleCaveats showOrHide
  1817. get visible of cd fld "Caveats"
  1818. if visible of cd fld "Credits" then
  1819. put "hide" into showOrHide
  1820. get true
  1821. end if
  1822. if showOrHide = "" or (showOrHide = "show" and not it) or (showOrHide = "hide" and it) then
  1823. lock screen
  1824. if the optionKey is down and not it then
  1825. put "dissolve" into theEffect
  1826. show cd fld "Credits"
  1827. else
  1828. if visible of cd fld "Credits" then put "dissolve" into theEffect
  1829. else if it then put "barn door close" into theEffect
  1830. else put "barn door open" into theEffect
  1831. set visible of cd fld "Caveats" to not it
  1832. hide cd fld "Credits"
  1833. end if
  1834. unlock screen with theEffect
  1835. end if
  1836. end toggleCaveats
  1837.  
  1838. on closeCard
  1839. toggleCaveats "Hide"
  1840. pass closeCard
  1841. end closeCard
  1842.  
  1843. on poop
  1844. sort by field "Event"
  1845. repeat with i = 3 to number of cds + 1
  1846. set cursor to busy
  1847. if there is not a btn i then doMenu "New Button"
  1848. set name of btn i to short name of cd i-1
  1849. set textFont of btn i to Geneva
  1850. set textSize of btn i to 9
  1851. set textStyle of btn i to bold
  1852. set style of btn i to transparent
  1853. set script of btn i to "on mouseUp" & return & ┬¼
  1854. "go cd short name of me" & return & ┬¼
  1855. "end mouseUp"
  1856. set width of btn i to 150
  1857. set height of btn i to 14
  1858. set loc of btn i to 512 div 2 + ((i-3) div 9 - 1)*170,175+13*((i-3) mod 9)
  1859. end repeat
  1860. choose browse tool
  1861. end poop
  1862.  
  1863. on newButton
  1864. send newButton to Hypercard
  1865. end newButton
  1866. </script>
  1867. </card>
  1868.  
  1869.  
  1870. card_4313.xml
  1871. <?xml version="1.0" encoding="utf-8" ?>
  1872. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1873. <card>
  1874.     <id>4313</id>
  1875.     <filler1>0</filler1>
  1876.     <cantDelete> <false /> </cantDelete>
  1877.     <showPict> <true /> </showPict>
  1878.     <dontSearch> <false /> </dontSearch>
  1879.     <owner>2792</owner>
  1880.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  1881.     <part>
  1882.         <id>1</id>
  1883.         <type>button</type>
  1884.         <visible> <true /> </visible>
  1885.         <reserved5> 0 </reserved5>
  1886.         <reserved4> 0 </reserved4>
  1887.         <reserved3> 0 </reserved3>
  1888.         <reserved2> 0 </reserved2>
  1889.         <reserved1> 0 </reserved1>
  1890.         <enabled> <true /> </enabled>
  1891.         <rect>
  1892.             <left>14</left>
  1893.             <top>250</top>
  1894.             <right>141</right>
  1895.             <bottom>272</bottom>
  1896.         </rect>
  1897.         <style>roundrect</style>
  1898.         <showName> <true /> </showName>
  1899.         <highlight> <false /> </highlight>
  1900.         <autoHighlight> <true /> </autoHighlight>
  1901.         <sharedHighlight> <true /> </sharedHighlight>
  1902.         <family>0</family>
  1903.         <titleWidth>0</titleWidth>
  1904.         <icon>0</icon>
  1905.         <textAlign>center</textAlign>
  1906.         <font>Chicago</font>
  1907.         <textSize>12</textSize>
  1908.         <textStyle>plain</textStyle>
  1909.         <name>Show About</name>
  1910.         <script>on mouseUp
  1911. hide msg
  1912. doMenu "Finder"
  1913. wait until the suspended
  1914. FinderEvents AboutMacintosh
  1915. if the result Γëá "" then put the result
  1916. end mouseUp</script>
  1917.     </part>
  1918.     <part>
  1919.         <id>2</id>
  1920.         <type>button</type>
  1921.         <visible> <true /> </visible>
  1922.         <reserved5> 0 </reserved5>
  1923.         <reserved4> 0 </reserved4>
  1924.         <reserved3> 0 </reserved3>
  1925.         <reserved2> 0 </reserved2>
  1926.         <reserved1> 0 </reserved1>
  1927.         <enabled> <true /> </enabled>
  1928.         <rect>
  1929.             <left>369</left>
  1930.             <top>248</top>
  1931.             <right>496</right>
  1932.             <bottom>262</bottom>
  1933.         </rect>
  1934.         <style>rectangle</style>
  1935.         <showName> <true /> </showName>
  1936.         <highlight> <false /> </highlight>
  1937.         <autoHighlight> <true /> </autoHighlight>
  1938.         <sharedHighlight> <true /> </sharedHighlight>
  1939.         <family>0</family>
  1940.         <titleWidth>0</titleWidth>
  1941.         <icon>0</icon>
  1942.         <textAlign>center</textAlign>
  1943.         <font>Geneva</font>
  1944.         <textSize>9</textSize>
  1945.         <textStyle>plain</textStyle>
  1946.         <name>See also ΓÇ£Close AboutΓÇ¥</name>
  1947.         <script>on mouseUp
  1948. go cd "Close About"
  1949. end mouseUp</script>
  1950.     </part>
  1951.     <content>
  1952.         <layer>background</layer>
  1953.         <id>4</id>
  1954.         <text>About</text>
  1955.     </content>
  1956.     <content>
  1957.         <layer>background</layer>
  1958.         <id>5</id>
  1959.         <text>This event causes the Finder to display the dialog box which shows the amount of memory being used by each running program. This event is the same as pulling down the menu About This Macintosh.
  1960.  
  1961. The event id can be any one of "abou", "About", "AboutMacintosh", or "About Macintosh"
  1962. </text>
  1963.     </content>
  1964.     <content>
  1965.         <layer>background</layer>
  1966.         <id>7</id>
  1967.         <text>FinderEvents "event ID"</text>
  1968.     </content>
  1969.     <name>About</name>
  1970.     <script></script>
  1971. </card>
  1972.  
  1973.  
  1974. card_6935.xml
  1975. <?xml version="1.0" encoding="utf-8" ?>
  1976. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  1977. <card>
  1978.     <id>6935</id>
  1979.     <filler1>0</filler1>
  1980.     <cantDelete> <false /> </cantDelete>
  1981.     <showPict> <true /> </showPict>
  1982.     <dontSearch> <false /> </dontSearch>
  1983.     <owner>2792</owner>
  1984.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  1985.     <part>
  1986.         <id>2</id>
  1987.         <type>button</type>
  1988.         <visible> <true /> </visible>
  1989.         <reserved5> 0 </reserved5>
  1990.         <reserved4> 0 </reserved4>
  1991.         <reserved3> 0 </reserved3>
  1992.         <reserved2> 0 </reserved2>
  1993.         <reserved1> 0 </reserved1>
  1994.         <enabled> <true /> </enabled>
  1995.         <rect>
  1996.             <left>14</left>
  1997.             <top>250</top>
  1998.             <right>141</right>
  1999.             <bottom>272</bottom>
  2000.         </rect>
  2001.         <style>roundrect</style>
  2002.         <showName> <true /> </showName>
  2003.         <highlight> <false /> </highlight>
  2004.         <autoHighlight> <true /> </autoHighlight>
  2005.         <sharedHighlight> <true /> </sharedHighlight>
  2006.         <family>0</family>
  2007.         <titleWidth>0</titleWidth>
  2008.         <icon>0</icon>
  2009.         <textAlign>center</textAlign>
  2010.         <font>Chicago</font>
  2011.         <textSize>12</textSize>
  2012.         <textStyle>plain</textStyle>
  2013.         <name>Alias This Stack</name>
  2014.         <script>on mouseUp
  2015. hide msg
  2016. doMenu "Finder"
  2017. wait until the suspended
  2018. FinderEvents Reveal, folderPath(), short name of this stack
  2019. if the result Γëá "" then put the result
  2020. FinderEvents Alias, folderPath(), short name of this stack
  2021. if the result Γëá "" then put the result
  2022. end mouseUp
  2023. </script>
  2024.     </part>
  2025.     <part>
  2026.         <id>3</id>
  2027.         <type>button</type>
  2028.         <visible> <true /> </visible>
  2029.         <reserved5> 0 </reserved5>
  2030.         <reserved4> 0 </reserved4>
  2031.         <reserved3> 0 </reserved3>
  2032.         <reserved2> 0 </reserved2>
  2033.         <reserved1> 0 </reserved1>
  2034.         <enabled> <true /> </enabled>
  2035.         <rect>
  2036.             <left>14</left>
  2037.             <top>280</top>
  2038.             <right>141</right>
  2039.             <bottom>302</bottom>
  2040.         </rect>
  2041.         <style>roundrect</style>
  2042.         <showName> <true /> </showName>
  2043.         <highlight> <false /> </highlight>
  2044.         <autoHighlight> <true /> </autoHighlight>
  2045.         <sharedHighlight> <true /> </sharedHighlight>
  2046.         <family>0</family>
  2047.         <titleWidth>0</titleWidth>
  2048.         <icon>0</icon>
  2049.         <textAlign>center</textAlign>
  2050.         <font>Chicago</font>
  2051.         <textSize>12</textSize>
  2052.         <textStyle>plain</textStyle>
  2053.         <name>Alias Disk</name>
  2054.         <script>on mouseUp
  2055. hide msg
  2056. FinderEvents Alias, "", diskName()
  2057. if the result Γëá "" then put the result
  2058. doMenu "Hide" && HyperAppName()
  2059. wait until the suspended
  2060. doMenu "Finder"
  2061. end mouseUp
  2062. </script>
  2063.     </part>
  2064.     <content>
  2065.         <layer>background</layer>
  2066.         <id>4</id>
  2067.         <text>Alias Selection</text>
  2068.     </content>
  2069.     <content>
  2070.         <layer>background</layer>
  2071.         <id>7</id>
  2072.         <text>FinderEvents "event ID", "folder path", "item list"</text>
  2073.     </content>
  2074.     <content>
  2075.         <layer>background</layer>
  2076.         <id>5</id>
  2077.         <text>This event creates an alias of the items listed in the folder specified as if they were selected and the Make Alias menu item were chosen from the File menu.
  2078.  
  2079. The event id can be any one of "sali", "Alias", "Make Alias", "Alias Selection", or "AliasSelection".
  2080.  
  2081. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  2082.  
  2083. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.
  2084.  
  2085. If you want to create an alias of a hard disk then pass empty for the folder path and the hard disk name as the item list.</text>
  2086.     </content>
  2087.     <name>Alias Selection</name>
  2088.     <script></script>
  2089. </card>
  2090.  
  2091.  
  2092. card_2302.xml
  2093. <?xml version="1.0" encoding="utf-8" ?>
  2094. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2095. <card>
  2096.     <id>2302</id>
  2097.     <filler1>0</filler1>
  2098.     <cantDelete> <false /> </cantDelete>
  2099.     <showPict> <true /> </showPict>
  2100.     <dontSearch> <false /> </dontSearch>
  2101.     <owner>2792</owner>
  2102.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2103.     <part>
  2104.         <id>1</id>
  2105.         <type>button</type>
  2106.         <visible> <true /> </visible>
  2107.         <reserved5> 0 </reserved5>
  2108.         <reserved4> 0 </reserved4>
  2109.         <reserved3> 0 </reserved3>
  2110.         <reserved2> 0 </reserved2>
  2111.         <reserved1> 0 </reserved1>
  2112.         <enabled> <true /> </enabled>
  2113.         <rect>
  2114.             <left>14</left>
  2115.             <top>250</top>
  2116.             <right>141</right>
  2117.             <bottom>272</bottom>
  2118.         </rect>
  2119.         <style>roundrect</style>
  2120.         <showName> <true /> </showName>
  2121.         <highlight> <false /> </highlight>
  2122.         <autoHighlight> <true /> </autoHighlight>
  2123.         <sharedHighlight> <true /> </sharedHighlight>
  2124.         <family>0</family>
  2125.         <titleWidth>0</titleWidth>
  2126.         <icon>0</icon>
  2127.         <textAlign>center</textAlign>
  2128.         <font>Chicago</font>
  2129.         <textSize>12</textSize>
  2130.         <textStyle>plain</textStyle>
  2131.         <name>Close About</name>
  2132.         <script>on mouseUp
  2133. hide msg
  2134. doMenu "Finder"
  2135. wait until the suspended
  2136. FinderEvents CloseAbout
  2137. if the result Γëá "" then put the result
  2138. doMenu HyperAppName()
  2139. end mouseUp</script>
  2140.     </part>
  2141.     <part>
  2142.         <id>2</id>
  2143.         <type>button</type>
  2144.         <visible> <true /> </visible>
  2145.         <reserved5> 0 </reserved5>
  2146.         <reserved4> 0 </reserved4>
  2147.         <reserved3> 0 </reserved3>
  2148.         <reserved2> 0 </reserved2>
  2149.         <reserved1> 0 </reserved1>
  2150.         <enabled> <true /> </enabled>
  2151.         <rect>
  2152.             <left>369</left>
  2153.             <top>248</top>
  2154.             <right>496</right>
  2155.             <bottom>262</bottom>
  2156.         </rect>
  2157.         <style>rectangle</style>
  2158.         <showName> <true /> </showName>
  2159.         <highlight> <false /> </highlight>
  2160.         <autoHighlight> <true /> </autoHighlight>
  2161.         <sharedHighlight> <true /> </sharedHighlight>
  2162.         <family>0</family>
  2163.         <titleWidth>0</titleWidth>
  2164.         <icon>0</icon>
  2165.         <textAlign>center</textAlign>
  2166.         <font>Geneva</font>
  2167.         <textSize>9</textSize>
  2168.         <textStyle>plain</textStyle>
  2169.         <name>See also ΓÇ£AboutΓÇ¥</name>
  2170.         <script>on mouseUp
  2171. go cd "About"
  2172. end mouseUp</script>
  2173.     </part>
  2174.     <content>
  2175.         <layer>background</layer>
  2176.         <id>7</id>
  2177.         <text>FinderEvents "event ID"</text>
  2178.     </content>
  2179.     <content>
  2180.         <layer>background</layer>
  2181.         <id>4</id>
  2182.         <text>Close About</text>
  2183.     </content>
  2184.     <content>
  2185.         <layer>background</layer>
  2186.         <id>5</id>
  2187.         <text>This is a fake event that closes the About window. This performs some black magic that I donΓÇÖt care to describe here. See the code if you have to know, but beware, it is very ugly.
  2188.  
  2189. The event id can be any one of "hdab", "HideAbout", "Hide About", "Close About" or "CloseAbout".</text>
  2190.     </content>
  2191.     <name>Close About</name>
  2192.     <script></script>
  2193. </card>
  2194.  
  2195.  
  2196. card_8243.xml
  2197. <?xml version="1.0" encoding="utf-8" ?>
  2198. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2199. <card>
  2200.     <id>8243</id>
  2201.     <filler1>0</filler1>
  2202.     <cantDelete> <false /> </cantDelete>
  2203.     <showPict> <true /> </showPict>
  2204.     <dontSearch> <false /> </dontSearch>
  2205.     <owner>2792</owner>
  2206.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2207.     <part>
  2208.         <id>1</id>
  2209.         <type>button</type>
  2210.         <visible> <true /> </visible>
  2211.         <reserved5> 0 </reserved5>
  2212.         <reserved4> 0 </reserved4>
  2213.         <reserved3> 0 </reserved3>
  2214.         <reserved2> 0 </reserved2>
  2215.         <reserved1> 0 </reserved1>
  2216.         <enabled> <true /> </enabled>
  2217.         <rect>
  2218.             <left>14</left>
  2219.             <top>250</top>
  2220.             <right>141</right>
  2221.             <bottom>272</bottom>
  2222.         </rect>
  2223.         <style>roundrect</style>
  2224.         <showName> <true /> </showName>
  2225.         <highlight> <false /> </highlight>
  2226.         <autoHighlight> <true /> </autoHighlight>
  2227.         <sharedHighlight> <true /> </sharedHighlight>
  2228.         <family>0</family>
  2229.         <titleWidth>0</titleWidth>
  2230.         <icon>0</icon>
  2231.         <textAlign>center</textAlign>
  2232.         <font>Chicago</font>
  2233.         <textSize>12</textSize>
  2234.         <textStyle>plain</textStyle>
  2235.         <name>Open & Close</name>
  2236.         <script>on mouseUp
  2237. hide msg
  2238. doMenu "Finder"
  2239. wait until the suspended
  2240. FinderEvents Open, sysFolder(), "System"
  2241. if the result Γëá "" then put the result
  2242. wait 2 secs
  2243. FinderEvents Close, sysFolder() & ":System"
  2244. if the result Γëá "" then put the result
  2245. doMenu HyperAppName()
  2246. end mouseUp
  2247. </script>
  2248.     </part>
  2249.     <part>
  2250.         <id>2</id>
  2251.         <type>button</type>
  2252.         <visible> <true /> </visible>
  2253.         <reserved5> 0 </reserved5>
  2254.         <reserved4> 0 </reserved4>
  2255.         <reserved3> 0 </reserved3>
  2256.         <reserved2> 0 </reserved2>
  2257.         <reserved1> 0 </reserved1>
  2258.         <enabled> <true /> </enabled>
  2259.         <rect>
  2260.             <left>14</left>
  2261.             <top>280</top>
  2262.             <right>141</right>
  2263.             <bottom>302</bottom>
  2264.         </rect>
  2265.         <style>roundrect</style>
  2266.         <showName> <true /> </showName>
  2267.         <highlight> <false /> </highlight>
  2268.         <autoHighlight> <true /> </autoHighlight>
  2269.         <sharedHighlight> <true /> </sharedHighlight>
  2270.         <family>0</family>
  2271.         <titleWidth>0</titleWidth>
  2272.         <icon>0</icon>
  2273.         <textAlign>center</textAlign>
  2274.         <font>Chicago</font>
  2275.         <textSize>12</textSize>
  2276.         <textStyle>plain</textStyle>
  2277.         <name>Close Info</name>
  2278.         <script>on mouseUp
  2279. hide msg
  2280. doMenu "Finder"
  2281. wait until the suspended
  2282. FinderEvents GetInfo, sysFolder(), "System"
  2283. if the result Γëá "" then put the result
  2284. wait 2 secs
  2285. FinderEvents Close, sysFolder() & ":System", 11
  2286. if the result Γëá "" then put the result
  2287. doMenu HyperAppName()
  2288. end mouseUp
  2289. </script>
  2290.     </part>
  2291.     <part>
  2292.         <id>3</id>
  2293.         <type>button</type>
  2294.         <visible> <true /> </visible>
  2295.         <reserved5> 0 </reserved5>
  2296.         <reserved4> 0 </reserved4>
  2297.         <reserved3> 0 </reserved3>
  2298.         <reserved2> 0 </reserved2>
  2299.         <reserved1> 0 </reserved1>
  2300.         <enabled> <true /> </enabled>
  2301.         <rect>
  2302.             <left>14</left>
  2303.             <top>310</top>
  2304.             <right>141</right>
  2305.             <bottom>332</bottom>
  2306.         </rect>
  2307.         <style>roundrect</style>
  2308.         <showName> <true /> </showName>
  2309.         <highlight> <false /> </highlight>
  2310.         <autoHighlight> <true /> </autoHighlight>
  2311.         <sharedHighlight> <true /> </sharedHighlight>
  2312.         <family>0</family>
  2313.         <titleWidth>0</titleWidth>
  2314.         <icon>0</icon>
  2315.         <textAlign>center</textAlign>
  2316.         <font>Chicago</font>
  2317.         <textSize>12</textSize>
  2318.         <textStyle>plain</textStyle>
  2319.         <name>Close Sharing</name>
  2320.         <script>on mouseUp
  2321. hide msg
  2322. doMenu "Finder"
  2323. wait until the suspended
  2324. FinderEvents Sharing, "", diskName()
  2325. if the result Γëá "" then put the result
  2326. wait 2 secs
  2327. FinderEvents Close, diskName(), 13
  2328. if the result Γëá "" then put the result
  2329. doMenu HyperAppName()
  2330. end mouseUp
  2331. </script>
  2332.     </part>
  2333.     <part>
  2334.         <id>5</id>
  2335.         <type>button</type>
  2336.         <visible> <true /> </visible>
  2337.         <reserved5> 0 </reserved5>
  2338.         <reserved4> 0 </reserved4>
  2339.         <reserved3> 0 </reserved3>
  2340.         <reserved2> 0 </reserved2>
  2341.         <reserved1> 0 </reserved1>
  2342.         <enabled> <true /> </enabled>
  2343.         <rect>
  2344.             <left>369</left>
  2345.             <top>264</top>
  2346.             <right>496</right>
  2347.             <bottom>278</bottom>
  2348.         </rect>
  2349.         <style>rectangle</style>
  2350.         <showName> <true /> </showName>
  2351.         <highlight> <false /> </highlight>
  2352.         <autoHighlight> <true /> </autoHighlight>
  2353.         <sharedHighlight> <true /> </sharedHighlight>
  2354.         <family>0</family>
  2355.         <titleWidth>0</titleWidth>
  2356.         <icon>0</icon>
  2357.         <textAlign>center</textAlign>
  2358.         <font>Geneva</font>
  2359.         <textSize>9</textSize>
  2360.         <textStyle>plain</textStyle>
  2361.         <name>See also ΓÇ£Resize WindowΓÇ¥</name>
  2362.         <script>on mouseUp
  2363. go cd "Resize Window"
  2364. end mouseUp</script>
  2365.     </part>
  2366.     <part>
  2367.         <id>6</id>
  2368.         <type>button</type>
  2369.         <visible> <true /> </visible>
  2370.         <reserved5> 0 </reserved5>
  2371.         <reserved4> 0 </reserved4>
  2372.         <reserved3> 0 </reserved3>
  2373.         <reserved2> 0 </reserved2>
  2374.         <reserved1> 0 </reserved1>
  2375.         <enabled> <true /> </enabled>
  2376.         <rect>
  2377.             <left>369</left>
  2378.             <top>248</top>
  2379.             <right>496</right>
  2380.             <bottom>262</bottom>
  2381.         </rect>
  2382.         <style>rectangle</style>
  2383.         <showName> <true /> </showName>
  2384.         <highlight> <false /> </highlight>
  2385.         <autoHighlight> <true /> </autoHighlight>
  2386.         <sharedHighlight> <true /> </sharedHighlight>
  2387.         <family>0</family>
  2388.         <titleWidth>0</titleWidth>
  2389.         <icon>0</icon>
  2390.         <textAlign>center</textAlign>
  2391.         <font>Geneva</font>
  2392.         <textSize>9</textSize>
  2393.         <textStyle>plain</textStyle>
  2394.         <name>See also ΓÇ£Move WindowΓÇ¥</name>
  2395.         <script>on mouseUp
  2396. go cd "Move Window"
  2397. end mouseUp</script>
  2398.     </part>
  2399.     <part>
  2400.         <id>7</id>
  2401.         <type>button</type>
  2402.         <visible> <true /> </visible>
  2403.         <reserved5> 0 </reserved5>
  2404.         <reserved4> 0 </reserved4>
  2405.         <reserved3> 0 </reserved3>
  2406.         <reserved2> 0 </reserved2>
  2407.         <reserved1> 0 </reserved1>
  2408.         <enabled> <true /> </enabled>
  2409.         <rect>
  2410.             <left>369</left>
  2411.             <top>280</top>
  2412.             <right>496</right>
  2413.             <bottom>294</bottom>
  2414.         </rect>
  2415.         <style>rectangle</style>
  2416.         <showName> <true /> </showName>
  2417.         <highlight> <false /> </highlight>
  2418.         <autoHighlight> <true /> </autoHighlight>
  2419.         <sharedHighlight> <true /> </sharedHighlight>
  2420.         <family>0</family>
  2421.         <titleWidth>0</titleWidth>
  2422.         <icon>0</icon>
  2423.         <textAlign>center</textAlign>
  2424.         <font>Geneva</font>
  2425.         <textSize>9</textSize>
  2426.         <textStyle>plain</textStyle>
  2427.         <name>See also ΓÇ£Zoom WindowΓÇ¥</name>
  2428.         <script>on mouseUp
  2429. go cd "Zoom Window"
  2430. end mouseUp</script>
  2431.     </part>
  2432.     <content>
  2433.         <layer>background</layer>
  2434.         <id>4</id>
  2435.         <text>Close Window</text>
  2436.     </content>
  2437.     <content>
  2438.         <layer>background</layer>
  2439.         <id>7</id>
  2440.         <text>FinderEvents "event ID", "window path" [, window type]</text>
  2441.     </content>
  2442.     <content>
  2443.         <layer>background</layer>
  2444.         <id>5</id>
  2445.         <text>This event will close the window specified. This is the same as clicking in the close box of a window.
  2446.  
  2447. The event id can be any one of "clos", "Close", "CloseWindow", or "Close Window".
  2448.  
  2449. The window path is the pathname of the folder or file the window is based on. For example, a regular window has a folder pathname as itΓÇÖs window pathname, while a Get Info window has either a disk, a folder or a file as itΓÇÖs window pathname and a Sharing window has either a disk, a folder or an application as it's window pathname.
  2450.  
  2451. The optional window type is an integer that specifies the type of window you want closed. Regular folder windows have type 0, which is the default. Get Info windows have a type of 11 while Sharing windows have a type of 13.
  2452.  
  2453. There is no way to get a list of currently open windows.</text>
  2454.     </content>
  2455.     <name>Close Window</name>
  2456.     <script></script>
  2457. </card>
  2458.  
  2459.  
  2460. card_7757.xml
  2461. <?xml version="1.0" encoding="utf-8" ?>
  2462. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2463. <card>
  2464.     <id>7757</id>
  2465.     <filler1>0</filler1>
  2466.     <cantDelete> <false /> </cantDelete>
  2467.     <showPict> <true /> </showPict>
  2468.     <dontSearch> <false /> </dontSearch>
  2469.     <owner>2792</owner>
  2470.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2471.     <part>
  2472.         <id>1</id>
  2473.         <type>button</type>
  2474.         <visible> <true /> </visible>
  2475.         <reserved5> 0 </reserved5>
  2476.         <reserved4> 0 </reserved4>
  2477.         <reserved3> 0 </reserved3>
  2478.         <reserved2> 0 </reserved2>
  2479.         <reserved1> 0 </reserved1>
  2480.         <enabled> <true /> </enabled>
  2481.         <rect>
  2482.             <left>14</left>
  2483.             <top>250</top>
  2484.             <right>141</right>
  2485.             <bottom>272</bottom>
  2486.         </rect>
  2487.         <style>roundrect</style>
  2488.         <showName> <true /> </showName>
  2489.         <highlight> <false /> </highlight>
  2490.         <autoHighlight> <true /> </autoHighlight>
  2491.         <sharedHighlight> <true /> </sharedHighlight>
  2492.         <family>0</family>
  2493.         <titleWidth>0</titleWidth>
  2494.         <icon>0</icon>
  2495.         <textAlign>center</textAlign>
  2496.         <font>Chicago</font>
  2497.         <textSize>12</textSize>
  2498.         <textStyle>plain</textStyle>
  2499.         <name>Stack to Desktop</name>
  2500.         <script>on mouseUp
  2501. hide msg
  2502. doMenu "Hide" && HyperAppName()
  2503. wait until the suspended
  2504. doMenu "Finder"
  2505. FinderEvents Drag, diskName() & "Desktop Folder", stackPath(), "0,0"
  2506. if the result Γëá "" then put the result
  2507. end mouseUp
  2508. </script>
  2509.     </part>
  2510.     <content>
  2511.         <layer>background</layer>
  2512.         <id>4</id>
  2513.         <text>Drag Selection</text>
  2514.     </content>
  2515.     <content>
  2516.         <layer>background</layer>
  2517.         <id>7</id>
  2518.         <text>FinderEvents "event ID", "destination folder", "item path list", "h,v"</text>
  2519.     </content>
  2520.     <content>
  2521.         <layer>background</layer>
  2522.         <id>5</id>
  2523.         <text>This is essentially the copy command. It is the same as dragging the item to the point h,v in the destination folder with the option key down in the Finder.
  2524.  
  2525. The event ID can be any one of "drag", "Drag", "DragSelection", "Drag Selection", "Copy", "CopySelection", or "Copy Selection".
  2526.  
  2527. The destination folder is the pathname of the folder which the item in the item path will be copied into.
  2528.  
  2529. The item path list is the full pathname of the item to be copied or a list of full pathnames. If a folder is present, it must end in a colon.
  2530.  
  2531. The position of the item in the destination window is determined by adding the specified offset to the itemΓÇÖs offset in itΓÇÖs current window. This current offset is impossible to determine programatically making the determination of the offset to specify a hit and miss proposition.</text>
  2532.     </content>
  2533.     <name>Drag Selection</name>
  2534.     <script></script>
  2535. </card>
  2536.  
  2537.  
  2538. card_6622.xml
  2539. <?xml version="1.0" encoding="utf-8" ?>
  2540. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2541. <card>
  2542.     <id>6622</id>
  2543.     <filler1>0</filler1>
  2544.     <cantDelete> <false /> </cantDelete>
  2545.     <showPict> <true /> </showPict>
  2546.     <dontSearch> <false /> </dontSearch>
  2547.     <owner>2792</owner>
  2548.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2549.     <part>
  2550.         <id>1</id>
  2551.         <type>button</type>
  2552.         <visible> <true /> </visible>
  2553.         <reserved5> 0 </reserved5>
  2554.         <reserved4> 0 </reserved4>
  2555.         <reserved3> 0 </reserved3>
  2556.         <reserved2> 0 </reserved2>
  2557.         <reserved1> 0 </reserved1>
  2558.         <enabled> <true /> </enabled>
  2559.         <rect>
  2560.             <left>14</left>
  2561.             <top>250</top>
  2562.             <right>141</right>
  2563.             <bottom>272</bottom>
  2564.         </rect>
  2565.         <style>roundrect</style>
  2566.         <showName> <true /> </showName>
  2567.         <highlight> <false /> </highlight>
  2568.         <autoHighlight> <true /> </autoHighlight>
  2569.         <sharedHighlight> <true /> </sharedHighlight>
  2570.         <family>0</family>
  2571.         <titleWidth>0</titleWidth>
  2572.         <icon>0</icon>
  2573.         <textAlign>center</textAlign>
  2574.         <font>Chicago</font>
  2575.         <textSize>12</textSize>
  2576.         <textStyle>plain</textStyle>
  2577.         <name>Duplicate Stack</name>
  2578.         <script>on mouseUp
  2579. hide msg
  2580. doMenu "Finder"
  2581. wait until the suspended
  2582. FinderEvents Reveal, folderPath(), short name of this stack
  2583. if the result Γëá "" then put the result
  2584. FinderEvents Duplicate, folderPath(), short name of this stack
  2585. if the result Γëá "" then put the result
  2586. end mouseUp
  2587. </script>
  2588.     </part>
  2589.     <part>
  2590.         <id>3</id>
  2591.         <type>button</type>
  2592.         <visible> <true /> </visible>
  2593.         <reserved5> 0 </reserved5>
  2594.         <reserved4> 0 </reserved4>
  2595.         <reserved3> 0 </reserved3>
  2596.         <reserved2> 0 </reserved2>
  2597.         <reserved1> 0 </reserved1>
  2598.         <enabled> <true /> </enabled>
  2599.         <rect>
  2600.             <left>350</left>
  2601.             <top>248</top>
  2602.             <right>496</right>
  2603.             <bottom>262</bottom>
  2604.         </rect>
  2605.         <style>rectangle</style>
  2606.         <showName> <true /> </showName>
  2607.         <highlight> <false /> </highlight>
  2608.         <autoHighlight> <true /> </autoHighlight>
  2609.         <sharedHighlight> <true /> </sharedHighlight>
  2610.         <family>0</family>
  2611.         <titleWidth>0</titleWidth>
  2612.         <icon>0</icon>
  2613.         <textAlign>center</textAlign>
  2614.         <font>Geneva</font>
  2615.         <textSize>9</textSize>
  2616.         <textStyle>plain</textStyle>
  2617.         <name>See also ΓÇ£Move SelectionΓÇ¥</name>
  2618.         <script>on mouseUp
  2619. go cd "Move Selection"
  2620. end mouseUp</script>
  2621.     </part>
  2622.     <content>
  2623.         <layer>background</layer>
  2624.         <id>7</id>
  2625.         <text>FinderEvents "event ID", "folder path", "item list"</text>
  2626.     </content>
  2627.     <content>
  2628.         <layer>background</layer>
  2629.         <id>4</id>
  2630.         <text>Duplicate Selection</text>
  2631.     </content>
  2632.     <content>
  2633.         <layer>background</layer>
  2634.         <id>5</id>
  2635.         <text>This event duplicates the specified items in the specified folder. This event is the same as selecting the items and choosing Duplicate from the File menu.
  2636.  
  2637. The event id can be any one of "sdup", "Duplicate", "DuplicateSelection", "Duplicate Selection".
  2638.  
  2639. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  2640.  
  2641. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.</text>
  2642.     </content>
  2643.     <name>Duplicate Selection</name>
  2644.     <script></script>
  2645. </card>
  2646.  
  2647.  
  2648. card_8065.xml
  2649. <?xml version="1.0" encoding="utf-8" ?>
  2650. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2651. <card>
  2652.     <id>8065</id>
  2653.     <filler1>0</filler1>
  2654.     <cantDelete> <false /> </cantDelete>
  2655.     <showPict> <true /> </showPict>
  2656.     <dontSearch> <false /> </dontSearch>
  2657.     <owner>2792</owner>
  2658.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2659.     <part>
  2660.         <id>1</id>
  2661.         <type>button</type>
  2662.         <visible> <true /> </visible>
  2663.         <reserved5> 0 </reserved5>
  2664.         <reserved4> 0 </reserved4>
  2665.         <reserved3> 0 </reserved3>
  2666.         <reserved2> 0 </reserved2>
  2667.         <reserved1> 0 </reserved1>
  2668.         <enabled> <true /> </enabled>
  2669.         <rect>
  2670.             <left>14</left>
  2671.             <top>250</top>
  2672.             <right>141</right>
  2673.             <bottom>272</bottom>
  2674.         </rect>
  2675.         <style>roundrect</style>
  2676.         <showName> <true /> </showName>
  2677.         <highlight> <false /> </highlight>
  2678.         <autoHighlight> <true /> </autoHighlight>
  2679.         <sharedHighlight> <true /> </sharedHighlight>
  2680.         <family>0</family>
  2681.         <titleWidth>0</titleWidth>
  2682.         <icon>0</icon>
  2683.         <textAlign>center</textAlign>
  2684.         <font>Chicago</font>
  2685.         <textSize>12</textSize>
  2686.         <textStyle>plain</textStyle>
  2687.         <name>Empty Trash</name>
  2688.         <script>on mouseUp
  2689. hide msg
  2690. doMenu "Hide" && HyperAppName()
  2691. wait until the suspended
  2692. doMenu "Finder"
  2693. FinderEvents EmptyTrash
  2694. if the result Γëá "" then put the result
  2695. end mouseUp</script>
  2696.     </part>
  2697.     <content>
  2698.         <layer>background</layer>
  2699.         <id>4</id>
  2700.         <text>Empty Trash</text>
  2701.     </content>
  2702.     <content>
  2703.         <layer>background</layer>
  2704.         <id>7</id>
  2705.         <text>FinderEvent "event ID"</text>
  2706.     </content>
  2707.     <content>
  2708.         <layer>background</layer>
  2709.         <id>5</id>
  2710.         <text>This event empties the trash without the dialog box and no warning.
  2711.  
  2712. The event ID can be any of "empt", "Empty Trash", or "Empty Trash".</text>
  2713.     </content>
  2714.     <name>Empty Trash</name>
  2715.     <script></script>
  2716. </card>
  2717.  
  2718.  
  2719. card_5834.xml
  2720. <?xml version="1.0" encoding="utf-8" ?>
  2721. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2722. <card>
  2723.     <id>5834</id>
  2724.     <filler1>0</filler1>
  2725.     <cantDelete> <false /> </cantDelete>
  2726.     <showPict> <true /> </showPict>
  2727.     <dontSearch> <false /> </dontSearch>
  2728.     <owner>2792</owner>
  2729.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2730.     <part>
  2731.         <id>1</id>
  2732.         <type>button</type>
  2733.         <visible> <true /> </visible>
  2734.         <reserved5> 0 </reserved5>
  2735.         <reserved4> 0 </reserved4>
  2736.         <reserved3> 0 </reserved3>
  2737.         <reserved2> 0 </reserved2>
  2738.         <reserved1> 0 </reserved1>
  2739.         <enabled> <true /> </enabled>
  2740.         <rect>
  2741.             <left>14</left>
  2742.             <top>250</top>
  2743.             <right>141</right>
  2744.             <bottom>272</bottom>
  2745.         </rect>
  2746.         <style>roundrect</style>
  2747.         <showName> <true /> </showName>
  2748.         <highlight> <false /> </highlight>
  2749.         <autoHighlight> <true /> </autoHighlight>
  2750.         <sharedHighlight> <true /> </sharedHighlight>
  2751.         <family>0</family>
  2752.         <titleWidth>0</titleWidth>
  2753.         <icon>0</icon>
  2754.         <textAlign>center</textAlign>
  2755.         <font>Chicago</font>
  2756.         <textSize>12</textSize>
  2757.         <textStyle>plain</textStyle>
  2758.         <name>Stack Info</name>
  2759.         <script>on mouseUp
  2760. hide msg
  2761. doMenu "Finder"
  2762. wait until the suspended
  2763. FinderEvents GetInfo, folderPath(), short name of this stack
  2764. if the result Γëá "" then put the result
  2765. end mouseUp
  2766. </script>
  2767.     </part>
  2768.     <part>
  2769.         <id>2</id>
  2770.         <type>button</type>
  2771.         <visible> <true /> </visible>
  2772.         <reserved5> 0 </reserved5>
  2773.         <reserved4> 0 </reserved4>
  2774.         <reserved3> 0 </reserved3>
  2775.         <reserved2> 0 </reserved2>
  2776.         <reserved1> 0 </reserved1>
  2777.         <enabled> <true /> </enabled>
  2778.         <rect>
  2779.             <left>14</left>
  2780.             <top>280</top>
  2781.             <right>141</right>
  2782.             <bottom>302</bottom>
  2783.         </rect>
  2784.         <style>roundrect</style>
  2785.         <showName> <true /> </showName>
  2786.         <highlight> <false /> </highlight>
  2787.         <autoHighlight> <true /> </autoHighlight>
  2788.         <sharedHighlight> <true /> </sharedHighlight>
  2789.         <family>0</family>
  2790.         <titleWidth>0</titleWidth>
  2791.         <icon>0</icon>
  2792.         <textAlign>center</textAlign>
  2793.         <font>Chicago</font>
  2794.         <textSize>12</textSize>
  2795.         <textStyle>plain</textStyle>
  2796.         <name>Disk Info</name>
  2797.         <script>on mouseUp
  2798. hide msg
  2799. doMenu "Finder"
  2800. wait until the suspended
  2801. FinderEvents GetInfo, "", diskName()
  2802. if the result Γëá "" then put the result
  2803. end mouseUp
  2804. </script>
  2805.     </part>
  2806.     <part>
  2807.         <id>3</id>
  2808.         <type>button</type>
  2809.         <visible> <true /> </visible>
  2810.         <reserved5> 0 </reserved5>
  2811.         <reserved4> 0 </reserved4>
  2812.         <reserved3> 0 </reserved3>
  2813.         <reserved2> 0 </reserved2>
  2814.         <reserved1> 0 </reserved1>
  2815.         <enabled> <true /> </enabled>
  2816.         <rect>
  2817.             <left>369</left>
  2818.             <top>248</top>
  2819.             <right>496</right>
  2820.             <bottom>262</bottom>
  2821.         </rect>
  2822.         <style>rectangle</style>
  2823.         <showName> <true /> </showName>
  2824.         <highlight> <false /> </highlight>
  2825.         <autoHighlight> <true /> </autoHighlight>
  2826.         <sharedHighlight> <true /> </sharedHighlight>
  2827.         <family>0</family>
  2828.         <titleWidth>0</titleWidth>
  2829.         <icon>0</icon>
  2830.         <textAlign>center</textAlign>
  2831.         <font>Geneva</font>
  2832.         <textSize>9</textSize>
  2833.         <textStyle>plain</textStyle>
  2834.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  2835.         <script>on mouseUp
  2836. go cd "Close Window"
  2837. end mouseUp</script>
  2838.     </part>
  2839.     <content>
  2840.         <layer>background</layer>
  2841.         <id>7</id>
  2842.         <text>FinderEvents "event ID", "folder path", "item list"</text>
  2843.     </content>
  2844.     <content>
  2845.         <layer>background</layer>
  2846.         <id>4</id>
  2847.         <text>Get Info</text>
  2848.     </content>
  2849.     <content>
  2850.         <layer>background</layer>
  2851.         <id>5</id>
  2852.         <text>This event displays the Get Info window for the specified items. It is the same as selecting the items and choosing Get Info from the File menu.
  2853.  
  2854. The event id can be any one of "sinf", "Info", "GetInfo", "Get Info", "Get Info Selection", or "GetInfoSelection".
  2855.  
  2856. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  2857.  
  2858. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.
  2859.  
  2860. If you want to get info on a disk, then the folder path should be empty and the item list should be the diskΓÇÖs name.</text>
  2861.     </content>
  2862.     <name>Get Info</name>
  2863.     <script></script>
  2864. </card>
  2865.  
  2866.  
  2867. card_2381.xml
  2868. <?xml version="1.0" encoding="utf-8" ?>
  2869. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2870. <card>
  2871.     <id>2381</id>
  2872.     <filler1>0</filler1>
  2873.     <cantDelete> <false /> </cantDelete>
  2874.     <showPict> <true /> </showPict>
  2875.     <dontSearch> <false /> </dontSearch>
  2876.     <owner>2792</owner>
  2877.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2878.     <part>
  2879.         <id>1</id>
  2880.         <type>button</type>
  2881.         <visible> <true /> </visible>
  2882.         <reserved5> 0 </reserved5>
  2883.         <reserved4> 0 </reserved4>
  2884.         <reserved3> 0 </reserved3>
  2885.         <reserved2> 0 </reserved2>
  2886.         <reserved1> 0 </reserved1>
  2887.         <enabled> <true /> </enabled>
  2888.         <rect>
  2889.             <left>14</left>
  2890.             <top>250</top>
  2891.             <right>141</right>
  2892.             <bottom>272</bottom>
  2893.         </rect>
  2894.         <style>roundrect</style>
  2895.         <showName> <true /> </showName>
  2896.         <highlight> <false /> </highlight>
  2897.         <autoHighlight> <true /> </autoHighlight>
  2898.         <sharedHighlight> <true /> </sharedHighlight>
  2899.         <family>0</family>
  2900.         <titleWidth>0</titleWidth>
  2901.         <icon>0</icon>
  2902.         <textAlign>center</textAlign>
  2903.         <font>Chicago</font>
  2904.         <textSize>12</textSize>
  2905.         <textStyle>plain</textStyle>
  2906.         <name>Hide Clipboard</name>
  2907.         <script>on mouseUp
  2908. hide msg
  2909. doMenu "Finder"
  2910. wait until the suspended
  2911. FinderEvents HideClipboard
  2912. if the result Γëá "" then put the result
  2913. doMenu HyperAppName()
  2914. end mouseUp</script>
  2915.     </part>
  2916.     <part>
  2917.         <id>2</id>
  2918.         <type>button</type>
  2919.         <visible> <true /> </visible>
  2920.         <reserved5> 0 </reserved5>
  2921.         <reserved4> 0 </reserved4>
  2922.         <reserved3> 0 </reserved3>
  2923.         <reserved2> 0 </reserved2>
  2924.         <reserved1> 0 </reserved1>
  2925.         <enabled> <true /> </enabled>
  2926.         <rect>
  2927.             <left>369</left>
  2928.             <top>248</top>
  2929.             <right>496</right>
  2930.             <bottom>262</bottom>
  2931.         </rect>
  2932.         <style>rectangle</style>
  2933.         <showName> <true /> </showName>
  2934.         <highlight> <false /> </highlight>
  2935.         <autoHighlight> <true /> </autoHighlight>
  2936.         <sharedHighlight> <true /> </sharedHighlight>
  2937.         <family>0</family>
  2938.         <titleWidth>0</titleWidth>
  2939.         <icon>0</icon>
  2940.         <textAlign>center</textAlign>
  2941.         <font>Geneva</font>
  2942.         <textSize>9</textSize>
  2943.         <textStyle>plain</textStyle>
  2944.         <name>See also ΓÇ£Show ClipboardΓÇ¥</name>
  2945.         <script>on mouseUp
  2946. go cd "Show Clipboard"
  2947. end mouseUp</script>
  2948.     </part>
  2949.     <content>
  2950.         <layer>background</layer>
  2951.         <id>4</id>
  2952.         <text>Hide Clipboard</text>
  2953.     </content>
  2954.     <content>
  2955.         <layer>background</layer>
  2956.         <id>7</id>
  2957.         <text>FinderEvents "event ID"</text>
  2958.     </content>
  2959.     <content>
  2960.         <layer>background</layer>
  2961.         <id>5</id>
  2962.         <text>This is a fake event that closes the Clipboard window. This performs some black magic that I donΓÇÖt care to describe here. See the code if you have to know, but beware, it is very ugly.
  2963.  
  2964. The event id can be any one of "hdcl", "HideClipboard", "Hide Clipboard", "HideClip", or "Hide Clip".</text>
  2965.     </content>
  2966.     <name>Hide Clipboard</name>
  2967.     <script></script>
  2968. </card>
  2969.  
  2970.  
  2971. card_7491.xml
  2972. <?xml version="1.0" encoding="utf-8" ?>
  2973. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  2974. <card>
  2975.     <id>7491</id>
  2976.     <filler1>0</filler1>
  2977.     <cantDelete> <false /> </cantDelete>
  2978.     <showPict> <true /> </showPict>
  2979.     <dontSearch> <false /> </dontSearch>
  2980.     <owner>2792</owner>
  2981.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  2982.     <part>
  2983.         <id>1</id>
  2984.         <type>button</type>
  2985.         <visible> <true /> </visible>
  2986.         <reserved5> 0 </reserved5>
  2987.         <reserved4> 0 </reserved4>
  2988.         <reserved3> 0 </reserved3>
  2989.         <reserved2> 0 </reserved2>
  2990.         <reserved1> 0 </reserved1>
  2991.         <enabled> <true /> </enabled>
  2992.         <rect>
  2993.             <left>14</left>
  2994.             <top>250</top>
  2995.             <right>141</right>
  2996.             <bottom>272</bottom>
  2997.         </rect>
  2998.         <style>roundrect</style>
  2999.         <showName> <true /> </showName>
  3000.         <highlight> <false /> </highlight>
  3001.         <autoHighlight> <true /> </autoHighlight>
  3002.         <sharedHighlight> <true /> </sharedHighlight>
  3003.         <family>0</family>
  3004.         <titleWidth>0</titleWidth>
  3005.         <icon>0</icon>
  3006.         <textAlign>center</textAlign>
  3007.         <font>Chicago</font>
  3008.         <textSize>12</textSize>
  3009.         <textStyle>plain</textStyle>
  3010.         <name>Stack to Desk</name>
  3011.         <script>on mouseUp
  3012. hide msg
  3013. doMenu "Hide" && HyperAppName()
  3014. wait until the suspended
  3015. doMenu "Finder"
  3016. FinderEvents Move, DiskName() & "Desktop Folder", stackPath(), "0,0"
  3017. if the result Γëá "" then put the result
  3018. end mouseUp
  3019. </script>
  3020.     </part>
  3021.     <part>
  3022.         <id>4</id>
  3023.         <type>button</type>
  3024.         <visible> <true /> </visible>
  3025.         <reserved5> 0 </reserved5>
  3026.         <reserved4> 0 </reserved4>
  3027.         <reserved3> 0 </reserved3>
  3028.         <reserved2> 0 </reserved2>
  3029.         <reserved1> 0 </reserved1>
  3030.         <enabled> <true /> </enabled>
  3031.         <rect>
  3032.             <left>14</left>
  3033.             <top>280</top>
  3034.             <right>141</right>
  3035.             <bottom>302</bottom>
  3036.         </rect>
  3037.         <style>roundrect</style>
  3038.         <showName> <true /> </showName>
  3039.         <highlight> <false /> </highlight>
  3040.         <autoHighlight> <true /> </autoHighlight>
  3041.         <sharedHighlight> <true /> </sharedHighlight>
  3042.         <family>0</family>
  3043.         <titleWidth>0</titleWidth>
  3044.         <icon>0</icon>
  3045.         <textAlign>center</textAlign>
  3046.         <font>Chicago</font>
  3047.         <textSize>12</textSize>
  3048.         <textStyle>plain</textStyle>
  3049.         <name>Animated Icon</name>
  3050.         <script>on mouseUp
  3051. hide msg
  3052. FinderEvents Reveal, folderPath(), short name of this stack
  3053. doMenu "Finder"
  3054. wait until the suspended
  3055. repeat for 8
  3056. FinderEvents Move, folderPath(), stackPath(), "8,0"
  3057. if the result Γëá "" then answer the result
  3058. end repeat
  3059. FinderEvents Move, folderPath(), stackPath(), "-64,0"
  3060. if the result Γëá "" then put the result
  3061. doMenu HyperAppName()
  3062. end mouseUp
  3063. </script>
  3064.     </part>
  3065.     <part>
  3066.         <id>5</id>
  3067.         <type>button</type>
  3068.         <visible> <true /> </visible>
  3069.         <reserved5> 0 </reserved5>
  3070.         <reserved4> 0 </reserved4>
  3071.         <reserved3> 0 </reserved3>
  3072.         <reserved2> 0 </reserved2>
  3073.         <reserved1> 0 </reserved1>
  3074.         <enabled> <true /> </enabled>
  3075.         <rect>
  3076.             <left>350</left>
  3077.             <top>248</top>
  3078.             <right>496</right>
  3079.             <bottom>262</bottom>
  3080.         </rect>
  3081.         <style>rectangle</style>
  3082.         <showName> <true /> </showName>
  3083.         <highlight> <false /> </highlight>
  3084.         <autoHighlight> <true /> </autoHighlight>
  3085.         <sharedHighlight> <true /> </sharedHighlight>
  3086.         <family>0</family>
  3087.         <titleWidth>0</titleWidth>
  3088.         <icon>0</icon>
  3089.         <textAlign>center</textAlign>
  3090.         <font>Geneva</font>
  3091.         <textSize>9</textSize>
  3092.         <textStyle>plain</textStyle>
  3093.         <name>See also ΓÇ£Duplicate SelectionΓÇ¥</name>
  3094.         <script>on mouseUp
  3095. go cd "Duplicate Selection"
  3096. end mouseUp</script>
  3097.     </part>
  3098.     <content>
  3099.         <layer>background</layer>
  3100.         <id>4</id>
  3101.         <text>Move Selection</text>
  3102.     </content>
  3103.     <content>
  3104.         <layer>background</layer>
  3105.         <id>7</id>
  3106.         <text>FinderEvents "event ID", "destination folder", "item path list", "h,v"</text>
  3107.     </content>
  3108.     <content>
  3109.         <layer>background</layer>
  3110.         <id>5</id>
  3111.         <text>This event drags a specified item from itΓÇÖs current location to the specified destination folder and adds the specified point to itΓÇÖs final location in the destination window. This ignores the snap to grid setting from the Views panel.
  3112.  
  3113. The event id can be any one of "move",  "MoveSelection", or "Move Selection".
  3114.  
  3115. The destination folder is the pathname of the folder which the item in the item path will be moved into.
  3116.  
  3117. The item path list is the full pathname of the item to be moved or a list of full pathnames. If these are folders, they must end in a colon.
  3118.  
  3119. The position of the item in the destination window is determined by adding the specified offset to the itemΓÇÖs offset in itΓÇÖs current window. This current offset is impossible to determine programatically making the determination of the offset to specify a hit and miss proposition.</text>
  3120.     </content>
  3121.     <name>Move Selection</name>
  3122.     <script></script>
  3123. </card>
  3124.  
  3125.  
  3126. card_9837.xml
  3127. <?xml version="1.0" encoding="utf-8" ?>
  3128. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3129. <card>
  3130.     <id>9837</id>
  3131.     <filler1>0</filler1>
  3132.     <cantDelete> <false /> </cantDelete>
  3133.     <showPict> <true /> </showPict>
  3134.     <dontSearch> <false /> </dontSearch>
  3135.     <owner>2792</owner>
  3136.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3137.     <part>
  3138.         <id>1</id>
  3139.         <type>button</type>
  3140.         <visible> <true /> </visible>
  3141.         <reserved5> 0 </reserved5>
  3142.         <reserved4> 0 </reserved4>
  3143.         <reserved3> 0 </reserved3>
  3144.         <reserved2> 0 </reserved2>
  3145.         <reserved1> 0 </reserved1>
  3146.         <enabled> <true /> </enabled>
  3147.         <rect>
  3148.             <left>14</left>
  3149.             <top>250</top>
  3150.             <right>141</right>
  3151.             <bottom>272</bottom>
  3152.         </rect>
  3153.         <style>roundrect</style>
  3154.         <showName> <true /> </showName>
  3155.         <highlight> <false /> </highlight>
  3156.         <autoHighlight> <true /> </autoHighlight>
  3157.         <sharedHighlight> <true /> </sharedHighlight>
  3158.         <family>0</family>
  3159.         <titleWidth>0</titleWidth>
  3160.         <icon>0</icon>
  3161.         <textAlign>center</textAlign>
  3162.         <font>Chicago</font>
  3163.         <textSize>12</textSize>
  3164.         <textStyle>plain</textStyle>
  3165.         <name>Animation</name>
  3166.         <script>on mouseUp
  3167. hide msg
  3168. FinderEvents Reveal, folderPath(), short name of this stack
  3169. if the result Γëá "" then put the result
  3170. put item 4 of the screenRect + 20 into v
  3171. FinderEvents MoveWindow, folderPath(), "20," & v
  3172. if the result Γëá "" then put the result
  3173. doMenu "Finder"
  3174. wait until the suspended
  3175. repeat until v < 50
  3176. FinderEvents MoveWindow, folderPath(), "20," & v
  3177. if the result Γëá "" then put the result
  3178. subtract 20 from v
  3179. end repeat
  3180. doMenu HyperAppName()
  3181. end mouseUp
  3182. </script>
  3183.     </part>
  3184.     <part>
  3185.         <id>2</id>
  3186.         <type>button</type>
  3187.         <visible> <true /> </visible>
  3188.         <reserved5> 0 </reserved5>
  3189.         <reserved4> 0 </reserved4>
  3190.         <reserved3> 0 </reserved3>
  3191.         <reserved2> 0 </reserved2>
  3192.         <reserved1> 0 </reserved1>
  3193.         <enabled> <true /> </enabled>
  3194.         <rect>
  3195.             <left>369</left>
  3196.             <top>248</top>
  3197.             <right>496</right>
  3198.             <bottom>262</bottom>
  3199.         </rect>
  3200.         <style>rectangle</style>
  3201.         <showName> <true /> </showName>
  3202.         <highlight> <false /> </highlight>
  3203.         <autoHighlight> <true /> </autoHighlight>
  3204.         <sharedHighlight> <true /> </sharedHighlight>
  3205.         <family>0</family>
  3206.         <titleWidth>0</titleWidth>
  3207.         <icon>0</icon>
  3208.         <textAlign>center</textAlign>
  3209.         <font>Geneva</font>
  3210.         <textSize>9</textSize>
  3211.         <textStyle>plain</textStyle>
  3212.         <name>See also ΓÇ£Resize WindowΓÇ¥</name>
  3213.         <script>on mouseUp
  3214. go cd "Resize Window"
  3215. end mouseUp</script>
  3216.     </part>
  3217.     <part>
  3218.         <id>3</id>
  3219.         <type>button</type>
  3220.         <visible> <true /> </visible>
  3221.         <reserved5> 0 </reserved5>
  3222.         <reserved4> 0 </reserved4>
  3223.         <reserved3> 0 </reserved3>
  3224.         <reserved2> 0 </reserved2>
  3225.         <reserved1> 0 </reserved1>
  3226.         <enabled> <true /> </enabled>
  3227.         <rect>
  3228.             <left>369</left>
  3229.             <top>264</top>
  3230.             <right>496</right>
  3231.             <bottom>278</bottom>
  3232.         </rect>
  3233.         <style>rectangle</style>
  3234.         <showName> <true /> </showName>
  3235.         <highlight> <false /> </highlight>
  3236.         <autoHighlight> <true /> </autoHighlight>
  3237.         <sharedHighlight> <true /> </sharedHighlight>
  3238.         <family>0</family>
  3239.         <titleWidth>0</titleWidth>
  3240.         <icon>0</icon>
  3241.         <textAlign>center</textAlign>
  3242.         <font>Geneva</font>
  3243.         <textSize>9</textSize>
  3244.         <textStyle>plain</textStyle>
  3245.         <name>See also ΓÇ£Zoom WindowΓÇ¥</name>
  3246.         <script>on mouseUp
  3247. go cd "Zoom Window"
  3248. end mouseUp</script>
  3249.     </part>
  3250.     <part>
  3251.         <id>4</id>
  3252.         <type>button</type>
  3253.         <visible> <true /> </visible>
  3254.         <reserved5> 0 </reserved5>
  3255.         <reserved4> 0 </reserved4>
  3256.         <reserved3> 0 </reserved3>
  3257.         <reserved2> 0 </reserved2>
  3258.         <reserved1> 0 </reserved1>
  3259.         <enabled> <true /> </enabled>
  3260.         <rect>
  3261.             <left>369</left>
  3262.             <top>280</top>
  3263.             <right>496</right>
  3264.             <bottom>294</bottom>
  3265.         </rect>
  3266.         <style>rectangle</style>
  3267.         <showName> <true /> </showName>
  3268.         <highlight> <false /> </highlight>
  3269.         <autoHighlight> <true /> </autoHighlight>
  3270.         <sharedHighlight> <true /> </sharedHighlight>
  3271.         <family>0</family>
  3272.         <titleWidth>0</titleWidth>
  3273.         <icon>0</icon>
  3274.         <textAlign>center</textAlign>
  3275.         <font>Geneva</font>
  3276.         <textSize>9</textSize>
  3277.         <textStyle>plain</textStyle>
  3278.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  3279.         <script>on mouseUp
  3280. go cd "Close Window"
  3281. end mouseUp</script>
  3282.     </part>
  3283.     <content>
  3284.         <layer>background</layer>
  3285.         <id>4</id>
  3286.         <text>Move Window</text>
  3287.     </content>
  3288.     <content>
  3289.         <layer>background</layer>
  3290.         <id>5</id>
  3291.         <text>This event sets the top left corner of the specified window to the point specified.
  3292.  
  3293. The event id can be any one of "posn", "Position", "MoveWindow", "Move Window".
  3294.  
  3295. The window path is the full pathname of the windowΓÇÖs folder.
  3296.  
  3297. The offset refers to the top left corner of the window, which is under the window title bar, but above the double line and disk statistics in the window. Remember that 0,20 is the top left corner of the screen under the menu bar (which is normally 20 pixels tall). To have a window completely on the screen (so that you can drag and zoom it) you must make v at least 38 since the window title bar is 18 pixels tall.</text>
  3298.     </content>
  3299.     <content>
  3300.         <layer>background</layer>
  3301.         <id>7</id>
  3302.         <text>FinderEvents "event ID", "window path", "h,v"</text>
  3303.     </content>
  3304.     <name>Move Window</name>
  3305.     <script></script>
  3306. </card>
  3307.  
  3308.  
  3309. card_5122.xml
  3310. <?xml version="1.0" encoding="utf-8" ?>
  3311. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3312. <card>
  3313.     <id>5122</id>
  3314.     <filler1>0</filler1>
  3315.     <cantDelete> <false /> </cantDelete>
  3316.     <showPict> <true /> </showPict>
  3317.     <dontSearch> <false /> </dontSearch>
  3318.     <owner>2792</owner>
  3319.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3320.     <part>
  3321.         <id>17</id>
  3322.         <type>button</type>
  3323.         <visible> <true /> </visible>
  3324.         <reserved5> 0 </reserved5>
  3325.         <reserved4> 0 </reserved4>
  3326.         <reserved3> 0 </reserved3>
  3327.         <reserved2> 0 </reserved2>
  3328.         <reserved1> 0 </reserved1>
  3329.         <enabled> <true /> </enabled>
  3330.         <rect>
  3331.             <left>14</left>
  3332.             <top>250</top>
  3333.             <right>141</right>
  3334.             <bottom>272</bottom>
  3335.         </rect>
  3336.         <style>roundrect</style>
  3337.         <showName> <true /> </showName>
  3338.         <highlight> <false /> </highlight>
  3339.         <autoHighlight> <true /> </autoHighlight>
  3340.         <sharedHighlight> <true /> </sharedHighlight>
  3341.         <family>0</family>
  3342.         <titleWidth>0</titleWidth>
  3343.         <icon>0</icon>
  3344.         <textAlign>center</textAlign>
  3345.         <font>Chicago</font>
  3346.         <textSize>12</textSize>
  3347.         <textStyle>plain</textStyle>
  3348.         <name>Open HD</name>
  3349.         <script>on mouseUp
  3350. hide msg
  3351. doMenu "Finder"
  3352. wait until the suspended
  3353. FinderEvents Open, "", diskName()
  3354. if the result Γëá "" then put the result
  3355. end mouseUp
  3356. </script>
  3357.     </part>
  3358.     <part>
  3359.         <id>18</id>
  3360.         <type>button</type>
  3361.         <visible> <true /> </visible>
  3362.         <reserved5> 0 </reserved5>
  3363.         <reserved4> 0 </reserved4>
  3364.         <reserved3> 0 </reserved3>
  3365.         <reserved2> 0 </reserved2>
  3366.         <reserved1> 0 </reserved1>
  3367.         <enabled> <true /> </enabled>
  3368.         <rect>
  3369.             <left>14</left>
  3370.             <top>280</top>
  3371.             <right>141</right>
  3372.             <bottom>302</bottom>
  3373.         </rect>
  3374.         <style>roundrect</style>
  3375.         <showName> <true /> </showName>
  3376.         <highlight> <false /> </highlight>
  3377.         <autoHighlight> <true /> </autoHighlight>
  3378.         <sharedHighlight> <true /> </sharedHighlight>
  3379.         <family>0</family>
  3380.         <titleWidth>0</titleWidth>
  3381.         <icon>0</icon>
  3382.         <textAlign>center</textAlign>
  3383.         <font>Chicago</font>
  3384.         <textSize>12</textSize>
  3385.         <textStyle>plain</textStyle>
  3386.         <name>Open System</name>
  3387.         <script>on mouseUp
  3388. hide msg
  3389. doMenu "Finder"
  3390. wait until the suspended
  3391. FinderEvents Open, sysFolder(), "System"
  3392. if the result Γëá "" then put the result
  3393. end mouseUp
  3394. </script>
  3395.     </part>
  3396.     <part>
  3397.         <id>19</id>
  3398.         <type>button</type>
  3399.         <visible> <true /> </visible>
  3400.         <reserved5> 0 </reserved5>
  3401.         <reserved4> 0 </reserved4>
  3402.         <reserved3> 0 </reserved3>
  3403.         <reserved2> 0 </reserved2>
  3404.         <reserved1> 0 </reserved1>
  3405.         <enabled> <true /> </enabled>
  3406.         <rect>
  3407.             <left>14</left>
  3408.             <top>310</top>
  3409.             <right>141</right>
  3410.             <bottom>332</bottom>
  3411.         </rect>
  3412.         <style>roundrect</style>
  3413.         <showName> <true /> </showName>
  3414.         <highlight> <false /> </highlight>
  3415.         <autoHighlight> <true /> </autoHighlight>
  3416.         <sharedHighlight> <true /> </sharedHighlight>
  3417.         <family>0</family>
  3418.         <titleWidth>0</titleWidth>
  3419.         <icon>0</icon>
  3420.         <textAlign>center</textAlign>
  3421.         <font>Chicago</font>
  3422.         <textSize>12</textSize>
  3423.         <textStyle>plain</textStyle>
  3424.         <name>System Folder</name>
  3425.         <script>on mouseUp
  3426. hide msg
  3427. get sysFolder()
  3428. set itemDelimiter to ":"
  3429. put last item of it into folderName
  3430. delete last item of it
  3431. doMenu "Finder"
  3432. wait until the suspended
  3433. FinderEvents Open, it, folderName
  3434. if the result Γëá "" then put the result
  3435. end mouseUp
  3436. </script>
  3437.     </part>
  3438.     <part>
  3439.         <id>20</id>
  3440.         <type>button</type>
  3441.         <visible> <true /> </visible>
  3442.         <reserved5> 0 </reserved5>
  3443.         <reserved4> 0 </reserved4>
  3444.         <reserved3> 0 </reserved3>
  3445.         <reserved2> 0 </reserved2>
  3446.         <reserved1> 0 </reserved1>
  3447.         <enabled> <true /> </enabled>
  3448.         <rect>
  3449.             <left>149</left>
  3450.             <top>250</top>
  3451.             <right>276</right>
  3452.             <bottom>272</bottom>
  3453.         </rect>
  3454.         <style>roundrect</style>
  3455.         <showName> <true /> </showName>
  3456.         <highlight> <false /> </highlight>
  3457.         <autoHighlight> <true /> </autoHighlight>
  3458.         <sharedHighlight> <true /> </sharedHighlight>
  3459.         <family>0</family>
  3460.         <titleWidth>0</titleWidth>
  3461.         <icon>0</icon>
  3462.         <textAlign>center</textAlign>
  3463.         <font>Chicago</font>
  3464.         <textSize>12</textSize>
  3465.         <textStyle>plain</textStyle>
  3466.         <name>Open Sound Panel</name>
  3467.         <script>on mouseUp
  3468. hide msg
  3469. doMenu "Finder"
  3470. wait until the suspended
  3471. FinderEvents Open, sysFolder() & ":Control Panels", "Sound"
  3472. if the result Γëá "" then put the result
  3473. end mouseUp
  3474. </script>
  3475.     </part>
  3476.     <part>
  3477.         <id>21</id>
  3478.         <type>button</type>
  3479.         <visible> <true /> </visible>
  3480.         <reserved5> 0 </reserved5>
  3481.         <reserved4> 0 </reserved4>
  3482.         <reserved3> 0 </reserved3>
  3483.         <reserved2> 0 </reserved2>
  3484.         <reserved1> 0 </reserved1>
  3485.         <enabled> <true /> </enabled>
  3486.         <rect>
  3487.             <left>149</left>
  3488.             <top>280</top>
  3489.             <right>276</right>
  3490.             <bottom>302</bottom>
  3491.         </rect>
  3492.         <style>roundrect</style>
  3493.         <showName> <true /> </showName>
  3494.         <highlight> <false /> </highlight>
  3495.         <autoHighlight> <true /> </autoHighlight>
  3496.         <sharedHighlight> <true /> </sharedHighlight>
  3497.         <family>0</family>
  3498.         <titleWidth>0</titleWidth>
  3499.         <icon>0</icon>
  3500.         <textAlign>center</textAlign>
  3501.         <font>Chicago</font>
  3502.         <textSize>12</textSize>
  3503.         <textStyle>plain</textStyle>
  3504.         <name>Remote File</name>
  3505.         <script>on mouseUp
  3506. hide msg
  3507. answer program "Select a remote Macintosh"
  3508. if it = "" then exit mouseUp
  3509. put it into theMac
  3510. set itemDelimiter to colon
  3511. delete last item of theMac
  3512. set itemDelimiter to comma
  3513. ask "What is the pathname of the file (not folder) you wish to open?"
  3514. -- a folder would require another colon
  3515. if it = "" then exit mouseUp
  3516. set itemDelimiter to colon
  3517. put last item of it into theFile
  3518. delete last item of it
  3519. set itemDelimiter to comma
  3520. FinderEvents Open, it, theFile, theMac
  3521. if the result Γëá "" then put the result
  3522. end mouseUp
  3523. </script>
  3524.     </part>
  3525.     <part>
  3526.         <id>22</id>
  3527.         <type>button</type>
  3528.         <visible> <true /> </visible>
  3529.         <reserved5> 0 </reserved5>
  3530.         <reserved4> 0 </reserved4>
  3531.         <reserved3> 0 </reserved3>
  3532.         <reserved2> 0 </reserved2>
  3533.         <reserved1> 0 </reserved1>
  3534.         <enabled> <true /> </enabled>
  3535.         <rect>
  3536.             <left>149</left>
  3537.             <top>310</top>
  3538.             <right>276</right>
  3539.             <bottom>332</bottom>
  3540.         </rect>
  3541.         <style>roundrect</style>
  3542.         <showName> <true /> </showName>
  3543.         <highlight> <false /> </highlight>
  3544.         <autoHighlight> <true /> </autoHighlight>
  3545.         <sharedHighlight> <true /> </sharedHighlight>
  3546.         <family>0</family>
  3547.         <titleWidth>0</titleWidth>
  3548.         <icon>0</icon>
  3549.         <textAlign>center</textAlign>
  3550.         <font>Chicago</font>
  3551.         <textSize>12</textSize>
  3552.         <textStyle>plain</textStyle>
  3553.         <name>Remote via Alias</name>
  3554.         <script>on mouseUp
  3555. hide msg
  3556. -- change this sample to suit your local setup
  3557. -- This next line assumes we are using a local alias to the control panel
  3558. FinderEvents Open, "Local:CPAlias", "Sound", "RemoteMac"
  3559. if the result Γëá "" then put the result
  3560. end mouseUp
  3561. </script>
  3562.     </part>
  3563.     <content>
  3564.         <layer>background</layer>
  3565.         <id>4</id>
  3566.         <text>Open Selection</text>
  3567.     </content>
  3568.     <content>
  3569.         <layer>background</layer>
  3570.         <id>5</id>
  3571.         <text><span class="style1">his is </span><span class="style2">the</span><span class="style1"> most useful FinderEvent. It causes the Finder to open the item(s) specified as if they were double clicked. It is one of the two events that works across the network (the other is Print Selection).
  3572.  
  3573. The event id can be any one of "sope", "Open", "OpenSelection", "Open Selection".
  3574.  
  3575. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  3576.  
  3577. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.
  3578.  
  3579. If you want to open a disk, then the folder path should be empty and the item list should be the diskΓÇÖs name.
  3580.  
  3581. If you use the optional parameter to specify a remote Macintosh, then several more points need to be mentioned:
  3582. ΓÇó The specified folder pathname can be an alias of the remote folder on a local disk (see the example buttons below).
  3583. ΓÇó The zone and colon can be omitted and will default to the local zone.</span></text>
  3584.     </content>
  3585.     <content>
  3586.         <layer>background</layer>
  3587.         <id>7</id>
  3588.         <text>FinderEvents "event ID", "folder path", "item list" [, "zone:remoteMacName" ]</text>
  3589.     </content>
  3590.     <name>Open Selection</name>
  3591.     <script></script>
  3592. </card>
  3593.  
  3594.  
  3595. card_8865.xml
  3596. <?xml version="1.0" encoding="utf-8" ?>
  3597. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3598. <card>
  3599.     <id>8865</id>
  3600.     <filler1>0</filler1>
  3601.     <cantDelete> <false /> </cantDelete>
  3602.     <showPict> <true /> </showPict>
  3603.     <dontSearch> <false /> </dontSearch>
  3604.     <owner>2792</owner>
  3605.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3606.     <part>
  3607.         <id>1</id>
  3608.         <type>button</type>
  3609.         <visible> <true /> </visible>
  3610.         <reserved5> 0 </reserved5>
  3611.         <reserved4> 0 </reserved4>
  3612.         <reserved3> 0 </reserved3>
  3613.         <reserved2> 0 </reserved2>
  3614.         <reserved1> 0 </reserved1>
  3615.         <enabled> <true /> </enabled>
  3616.         <rect>
  3617.             <left>14</left>
  3618.             <top>250</top>
  3619.             <right>141</right>
  3620.             <bottom>272</bottom>
  3621.         </rect>
  3622.         <style>roundrect</style>
  3623.         <showName> <true /> </showName>
  3624.         <highlight> <false /> </highlight>
  3625.         <autoHighlight> <true /> </autoHighlight>
  3626.         <sharedHighlight> <true /> </sharedHighlight>
  3627.         <family>0</family>
  3628.         <titleWidth>0</titleWidth>
  3629.         <icon>0</icon>
  3630.         <textAlign>center</textAlign>
  3631.         <font>Chicago</font>
  3632.         <textSize>12</textSize>
  3633.         <textStyle>plain</textStyle>
  3634.         <name>Stack Window</name>
  3635.         <script>on mouseUp
  3636. hide msg
  3637. doMenu "Finder"
  3638. wait until the suspended
  3639. FinderEvents PageSetup, folderPath()
  3640. if the result Γëá "" then put the result
  3641. end mouseUp
  3642. </script>
  3643.     </part>
  3644.     <part>
  3645.         <id>2</id>
  3646.         <type>button</type>
  3647.         <visible> <true /> </visible>
  3648.         <reserved5> 0 </reserved5>
  3649.         <reserved4> 0 </reserved4>
  3650.         <reserved3> 0 </reserved3>
  3651.         <reserved2> 0 </reserved2>
  3652.         <reserved1> 0 </reserved1>
  3653.         <enabled> <true /> </enabled>
  3654.         <rect>
  3655.             <left>369</left>
  3656.             <top>248</top>
  3657.             <right>496</right>
  3658.             <bottom>262</bottom>
  3659.         </rect>
  3660.         <style>rectangle</style>
  3661.         <showName> <true /> </showName>
  3662.         <highlight> <false /> </highlight>
  3663.         <autoHighlight> <true /> </autoHighlight>
  3664.         <sharedHighlight> <true /> </sharedHighlight>
  3665.         <family>0</family>
  3666.         <titleWidth>0</titleWidth>
  3667.         <icon>0</icon>
  3668.         <textAlign>center</textAlign>
  3669.         <font>Geneva</font>
  3670.         <textSize>9</textSize>
  3671.         <textStyle>plain</textStyle>
  3672.         <name>See also ΓÇ£Print WindowΓÇ¥</name>
  3673.         <script>on mouseUp
  3674. go cd "Print Window"
  3675. end mouseUp</script>
  3676.     </part>
  3677.     <content>
  3678.         <layer>background</layer>
  3679.         <id>4</id>
  3680.         <text>Page Setup</text>
  3681.     </content>
  3682.     <content>
  3683.         <layer>background</layer>
  3684.         <id>7</id>
  3685.         <text>FinderEvents "event ID", "window path"</text>
  3686.     </content>
  3687.     <content>
  3688.         <layer>background</layer>
  3689.         <id>5</id>
  3690.         <text>This opens the specified window and brings up the Page Setup dialog as if you chose the Page Setup menu item from the File menu while the window was in front.
  3691.  
  3692. The event id can be any one of "pgsu", "PageSetup", or "Page Setup".
  3693.  
  3694. The window path is the full pathname of the windowΓÇÖs folder. </text>
  3695.     </content>
  3696.     <name>Page Setup</name>
  3697.     <script></script>
  3698. </card>
  3699.  
  3700.  
  3701. card_5378.xml
  3702. <?xml version="1.0" encoding="utf-8" ?>
  3703. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3704. <card>
  3705.     <id>5378</id>
  3706.     <filler1>0</filler1>
  3707.     <cantDelete> <false /> </cantDelete>
  3708.     <showPict> <true /> </showPict>
  3709.     <dontSearch> <false /> </dontSearch>
  3710.     <owner>2792</owner>
  3711.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3712.     <part>
  3713.         <id>1</id>
  3714.         <type>button</type>
  3715.         <visible> <true /> </visible>
  3716.         <reserved5> 0 </reserved5>
  3717.         <reserved4> 0 </reserved4>
  3718.         <reserved3> 0 </reserved3>
  3719.         <reserved2> 0 </reserved2>
  3720.         <reserved1> 0 </reserved1>
  3721.         <enabled> <true /> </enabled>
  3722.         <rect>
  3723.             <left>14</left>
  3724.             <top>250</top>
  3725.             <right>141</right>
  3726.             <bottom>272</bottom>
  3727.         </rect>
  3728.         <style>roundrect</style>
  3729.         <showName> <true /> </showName>
  3730.         <highlight> <false /> </highlight>
  3731.         <autoHighlight> <true /> </autoHighlight>
  3732.         <sharedHighlight> <true /> </sharedHighlight>
  3733.         <family>0</family>
  3734.         <titleWidth>0</titleWidth>
  3735.         <icon>0</icon>
  3736.         <textAlign>center</textAlign>
  3737.         <font>Chicago</font>
  3738.         <textSize>12</textSize>
  3739.         <textStyle>plain</textStyle>
  3740.         <name>Print This Stack</name>
  3741.         <script>on mouseUp
  3742. hide msg
  3743. FinderEvents Print, folderPath(), short name of this stack
  3744. if the result Γëá "" then put the result
  3745. end mouseUp
  3746. </script>
  3747.     </part>
  3748.     <part>
  3749.         <id>2</id>
  3750.         <type>button</type>
  3751.         <visible> <true /> </visible>
  3752.         <reserved5> 0 </reserved5>
  3753.         <reserved4> 0 </reserved4>
  3754.         <reserved3> 0 </reserved3>
  3755.         <reserved2> 0 </reserved2>
  3756.         <reserved1> 0 </reserved1>
  3757.         <enabled> <true /> </enabled>
  3758.         <rect>
  3759.             <left>14</left>
  3760.             <top>280</top>
  3761.             <right>141</right>
  3762.             <bottom>302</bottom>
  3763.         </rect>
  3764.         <style>roundrect</style>
  3765.         <showName> <true /> </showName>
  3766.         <highlight> <false /> </highlight>
  3767.         <autoHighlight> <true /> </autoHighlight>
  3768.         <sharedHighlight> <true /> </sharedHighlight>
  3769.         <family>0</family>
  3770.         <titleWidth>0</titleWidth>
  3771.         <icon>0</icon>
  3772.         <textAlign>center</textAlign>
  3773.         <font>Chicago</font>
  3774.         <textSize>12</textSize>
  3775.         <textStyle>plain</textStyle>
  3776.         <name>Remote File</name>
  3777.         <script>on mouseUp
  3778. hide msg
  3779. answer program "Select a remote Macintosh"
  3780. if it = "" then exit mouseUp
  3781. put it into theMac
  3782. set itemDelimiter to colon
  3783. delete last item of theMac
  3784. set itemDelimiter to comma
  3785. ask "What is the pathname of the file (not folder) you wish to open?"
  3786. -- a folder would require another colon
  3787. if it = "" then exit mouseUp
  3788. set itemDelimiter to colon
  3789. put last item of it into theFile
  3790. delete last item of it
  3791. set itemDelimiter to comma
  3792. FinderEvents Print, it, theFile, theMac
  3793. if the result Γëá "" then put the result
  3794. end mouseUp
  3795. </script>
  3796.     </part>
  3797.     <part>
  3798.         <id>3</id>
  3799.         <type>button</type>
  3800.         <visible> <true /> </visible>
  3801.         <reserved5> 0 </reserved5>
  3802.         <reserved4> 0 </reserved4>
  3803.         <reserved3> 0 </reserved3>
  3804.         <reserved2> 0 </reserved2>
  3805.         <reserved1> 0 </reserved1>
  3806.         <enabled> <true /> </enabled>
  3807.         <rect>
  3808.             <left>14</left>
  3809.             <top>310</top>
  3810.             <right>141</right>
  3811.             <bottom>332</bottom>
  3812.         </rect>
  3813.         <style>roundrect</style>
  3814.         <showName> <true /> </showName>
  3815.         <highlight> <false /> </highlight>
  3816.         <autoHighlight> <true /> </autoHighlight>
  3817.         <sharedHighlight> <true /> </sharedHighlight>
  3818.         <family>0</family>
  3819.         <titleWidth>0</titleWidth>
  3820.         <icon>0</icon>
  3821.         <textAlign>center</textAlign>
  3822.         <font>Chicago</font>
  3823.         <textSize>12</textSize>
  3824.         <textStyle>plain</textStyle>
  3825.         <name>Remote via Alias</name>
  3826.         <script>on mouseUp
  3827. hide msg
  3828. -- change this sample to suit your local setup
  3829. -- This next line assumes we are using a local alias to the folder
  3830. FinderEvents Print, "Local:SomeAlias", "SomeFile", "RemoteMac"
  3831. if the result Γëá "" then put the result
  3832. end mouseUp
  3833. </script>
  3834.     </part>
  3835.     <content>
  3836.         <layer>background</layer>
  3837.         <id>4</id>
  3838.         <text>Print Selection</text>
  3839.     </content>
  3840.     <content>
  3841.         <layer>background</layer>
  3842.         <id>7</id>
  3843.         <text>FinderEvents "event ID", "folder path", "file list" [, "zone:remoteMacName" ]</text>
  3844.     </content>
  3845.     <content>
  3846.         <layer>background</layer>
  3847.         <id>5</id>
  3848.         <text>This event causes the Finder to print the files(s) specified as if they were selected and then Print chosen from the File menu. It is one of the two events that works across the network (the other is Open Selection).
  3849.  
  3850. The event id can be any one of "spri", "Print", "PrintSelection", "Print Selection".
  3851.  
  3852. The folder path is the pathname of the parent folder which holds all of the items in the file list.
  3853.  
  3854. The file list is a single file name (not a pathname) or a comma delimited list of file names.
  3855.  
  3856. If you use the optional parameter to specify a remote Macintosh, then several more points need to be mentioned:
  3857. ΓÇó The specified folder pathname can be an alias of the remote folder on a local disk (see the example buttons below).
  3858. ΓÇó The zone and colon can be omitted and will default to the local zone.</text>
  3859.     </content>
  3860.     <name>Print Selection</name>
  3861.     <script></script>
  3862. </card>
  3863.  
  3864.  
  3865. card_9197.xml
  3866. <?xml version="1.0" encoding="utf-8" ?>
  3867. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3868. <card>
  3869.     <id>9197</id>
  3870.     <filler1>0</filler1>
  3871.     <cantDelete> <false /> </cantDelete>
  3872.     <showPict> <true /> </showPict>
  3873.     <dontSearch> <false /> </dontSearch>
  3874.     <owner>2792</owner>
  3875.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3876.     <part>
  3877.         <id>1</id>
  3878.         <type>button</type>
  3879.         <visible> <true /> </visible>
  3880.         <reserved5> 0 </reserved5>
  3881.         <reserved4> 0 </reserved4>
  3882.         <reserved3> 0 </reserved3>
  3883.         <reserved2> 0 </reserved2>
  3884.         <reserved1> 0 </reserved1>
  3885.         <enabled> <true /> </enabled>
  3886.         <rect>
  3887.             <left>14</left>
  3888.             <top>250</top>
  3889.             <right>141</right>
  3890.             <bottom>272</bottom>
  3891.         </rect>
  3892.         <style>roundrect</style>
  3893.         <showName> <true /> </showName>
  3894.         <highlight> <false /> </highlight>
  3895.         <autoHighlight> <true /> </autoHighlight>
  3896.         <sharedHighlight> <true /> </sharedHighlight>
  3897.         <family>0</family>
  3898.         <titleWidth>0</titleWidth>
  3899.         <icon>0</icon>
  3900.         <textAlign>center</textAlign>
  3901.         <font>Chicago</font>
  3902.         <textSize>12</textSize>
  3903.         <textStyle>plain</textStyle>
  3904.         <name>Stack Window</name>
  3905.         <script>on mouseUp
  3906. hide msg
  3907. doMenu "Finder"
  3908. wait until the suspended
  3909. FinderEvents PrintWindow, folderPath()
  3910. if the result Γëá "" then put the result
  3911. end mouseUp
  3912. </script>
  3913.     </part>
  3914.     <part>
  3915.         <id>2</id>
  3916.         <type>button</type>
  3917.         <visible> <true /> </visible>
  3918.         <reserved5> 0 </reserved5>
  3919.         <reserved4> 0 </reserved4>
  3920.         <reserved3> 0 </reserved3>
  3921.         <reserved2> 0 </reserved2>
  3922.         <reserved1> 0 </reserved1>
  3923.         <enabled> <true /> </enabled>
  3924.         <rect>
  3925.             <left>369</left>
  3926.             <top>248</top>
  3927.             <right>496</right>
  3928.             <bottom>262</bottom>
  3929.         </rect>
  3930.         <style>rectangle</style>
  3931.         <showName> <true /> </showName>
  3932.         <highlight> <false /> </highlight>
  3933.         <autoHighlight> <true /> </autoHighlight>
  3934.         <sharedHighlight> <true /> </sharedHighlight>
  3935.         <family>0</family>
  3936.         <titleWidth>0</titleWidth>
  3937.         <icon>0</icon>
  3938.         <textAlign>center</textAlign>
  3939.         <font>Geneva</font>
  3940.         <textSize>9</textSize>
  3941.         <textStyle>plain</textStyle>
  3942.         <name>See also ΓÇ£Page SetupΓÇ¥</name>
  3943.         <script>on mouseUp
  3944. go cd "Page Setup"
  3945. end mouseUp</script>
  3946.     </part>
  3947.     <content>
  3948.         <layer>background</layer>
  3949.         <id>4</id>
  3950.         <text>Print Window</text>
  3951.     </content>
  3952.     <content>
  3953.         <layer>background</layer>
  3954.         <id>7</id>
  3955.         <text>FinderEvents "event ID", "window path"</text>
  3956.     </content>
  3957.     <content>
  3958.         <layer>background</layer>
  3959.         <id>5</id>
  3960.         <text>This event brings up the Print dialog and then prints the current view of the specified window to the current printer.
  3961.  
  3962. The event id can be any one of "pwin", "PrintWindow", or "Print Window".
  3963.  
  3964. The window path is the full pathname of the windowΓÇÖs folder.</text>
  3965.     </content>
  3966.     <name>Print Window</name>
  3967.     <script></script>
  3968. </card>
  3969.  
  3970.  
  3971. card_6732.xml
  3972. <?xml version="1.0" encoding="utf-8" ?>
  3973. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  3974. <card>
  3975.     <id>6732</id>
  3976.     <filler1>0</filler1>
  3977.     <cantDelete> <false /> </cantDelete>
  3978.     <showPict> <true /> </showPict>
  3979.     <dontSearch> <false /> </dontSearch>
  3980.     <owner>2792</owner>
  3981.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  3982.     <part>
  3983.         <id>1</id>
  3984.         <type>button</type>
  3985.         <visible> <true /> </visible>
  3986.         <reserved5> 0 </reserved5>
  3987.         <reserved4> 0 </reserved4>
  3988.         <reserved3> 0 </reserved3>
  3989.         <reserved2> 0 </reserved2>
  3990.         <reserved1> 0 </reserved1>
  3991.         <enabled> <true /> </enabled>
  3992.         <rect>
  3993.             <left>14</left>
  3994.             <top>250</top>
  3995.             <right>141</right>
  3996.             <bottom>272</bottom>
  3997.         </rect>
  3998.         <style>roundrect</style>
  3999.         <showName> <true /> </showName>
  4000.         <highlight> <false /> </highlight>
  4001.         <autoHighlight> <true /> </autoHighlight>
  4002.         <sharedHighlight> <true /> </sharedHighlight>
  4003.         <family>0</family>
  4004.         <titleWidth>0</titleWidth>
  4005.         <icon>0</icon>
  4006.         <textAlign>center</textAlign>
  4007.         <font>Chicago</font>
  4008.         <textSize>12</textSize>
  4009.         <textStyle>plain</textStyle>
  4010.         <name>Put Stack Away</name>
  4011.         <script>on mouseUp
  4012. hide msg
  4013. put folderPath() into fp
  4014. if "Desktop Folder" is not in fp and "Trash" is not in fp then
  4015. answer "This only works if this stack is on the desktop or in the trash."
  4016. else
  4017. doMenu "Hide" && HyperAppName()
  4018. wait until the suspended
  4019. doMenu "Finder"
  4020. FinderEvents PutAway, fp, short name of this stack
  4021. if the result Γëá "" then put the result
  4022. doMenu HyperAppName()
  4023. end if
  4024. end mouseUp
  4025. </script>
  4026.     </part>
  4027.     <content>
  4028.         <layer>background</layer>
  4029.         <id>4</id>
  4030.         <text>Put Away</text>
  4031.     </content>
  4032.     <content>
  4033.         <layer>background</layer>
  4034.         <id>7</id>
  4035.         <text>FinderEvents "event ID", "folder path", "item list"</text>
  4036.     </content>
  4037.     <content>
  4038.         <layer>background</layer>
  4039.         <id>5</id>
  4040.         <text>This event puts the specified items back in their original folders if they are either on the desktop or in the trash. This is the same as selecting the items and choosing Put Away from the File menu.
  4041.  
  4042. The event id can be any one of "sput", "PutAway", "Put Away", "Put Away Selection", or "PutAwaySelection".
  4043.  
  4044. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  4045.  
  4046. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.</text>
  4047.     </content>
  4048.     <name>Put Away</name>
  4049.     <script></script>
  4050. </card>
  4051.  
  4052.  
  4053. card_10237.xml
  4054. <?xml version="1.0" encoding="utf-8" ?>
  4055. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4056. <card>
  4057.     <id>10237</id>
  4058.     <filler1>0</filler1>
  4059.     <cantDelete> <false /> </cantDelete>
  4060.     <showPict> <true /> </showPict>
  4061.     <dontSearch> <false /> </dontSearch>
  4062.     <owner>2792</owner>
  4063.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4064.     <part>
  4065.         <id>1</id>
  4066.         <type>button</type>
  4067.         <visible> <true /> </visible>
  4068.         <reserved5> 0 </reserved5>
  4069.         <reserved4> 0 </reserved4>
  4070.         <reserved3> 0 </reserved3>
  4071.         <reserved2> 0 </reserved2>
  4072.         <reserved1> 0 </reserved1>
  4073.         <enabled> <true /> </enabled>
  4074.         <rect>
  4075.             <left>14</left>
  4076.             <top>250</top>
  4077.             <right>141</right>
  4078.             <bottom>272</bottom>
  4079.         </rect>
  4080.         <style>roundrect</style>
  4081.         <showName> <true /> </showName>
  4082.         <highlight> <false /> </highlight>
  4083.         <autoHighlight> <true /> </autoHighlight>
  4084.         <sharedHighlight> <true /> </sharedHighlight>
  4085.         <family>0</family>
  4086.         <titleWidth>0</titleWidth>
  4087.         <icon>0</icon>
  4088.         <textAlign>center</textAlign>
  4089.         <font>Chicago</font>
  4090.         <textSize>12</textSize>
  4091.         <textStyle>plain</textStyle>
  4092.         <name>Square Disk</name>
  4093.         <script>on mouseUp
  4094. hide msg
  4095. doMenu "Finder"
  4096. wait until the suspended
  4097. FinderEvents Grow, diskName(), "400,400"
  4098. if the result Γëá "" then put the result
  4099. wait 5 secs
  4100. FinderEvents Zoom, diskName(), 8
  4101. if the result Γëá "" then put the result
  4102. doMenu HyperAppName()
  4103. end mouseUp
  4104. </script>
  4105.     </part>
  4106.     <part>
  4107.         <id>2</id>
  4108.         <type>button</type>
  4109.         <visible> <true /> </visible>
  4110.         <reserved5> 0 </reserved5>
  4111.         <reserved4> 0 </reserved4>
  4112.         <reserved3> 0 </reserved3>
  4113.         <reserved2> 0 </reserved2>
  4114.         <reserved1> 0 </reserved1>
  4115.         <enabled> <true /> </enabled>
  4116.         <rect>
  4117.             <left>14</left>
  4118.             <top>280</top>
  4119.             <right>141</right>
  4120.             <bottom>302</bottom>
  4121.         </rect>
  4122.         <style>roundrect</style>
  4123.         <showName> <true /> </showName>
  4124.         <highlight> <false /> </highlight>
  4125.         <autoHighlight> <true /> </autoHighlight>
  4126.         <sharedHighlight> <true /> </sharedHighlight>
  4127.         <family>0</family>
  4128.         <titleWidth>0</titleWidth>
  4129.         <icon>0</icon>
  4130.         <textAlign>center</textAlign>
  4131.         <font>Chicago</font>
  4132.         <textSize>12</textSize>
  4133.         <textStyle>plain</textStyle>
  4134.         <name>Animation</name>
  4135.         <script>on mouseUp
  4136. hide msg
  4137. doMenu "Finder"
  4138. wait until the suspended
  4139. put 50 into x
  4140. repeat until x > 400
  4141. FinderEvents Grow, folderPath(), x & "," & x
  4142. if the result Γëá "" then put the result
  4143. add 50 to x
  4144. end repeat
  4145. FinderEvents Zoom, folderPath(), 8
  4146. if the result Γëá "" then put the result
  4147. doMenu HyperAppName()
  4148. end mouseUp
  4149. </script>
  4150.     </part>
  4151.     <part>
  4152.         <id>3</id>
  4153.         <type>button</type>
  4154.         <visible> <true /> </visible>
  4155.         <reserved5> 0 </reserved5>
  4156.         <reserved4> 0 </reserved4>
  4157.         <reserved3> 0 </reserved3>
  4158.         <reserved2> 0 </reserved2>
  4159.         <reserved1> 0 </reserved1>
  4160.         <enabled> <true /> </enabled>
  4161.         <rect>
  4162.             <left>369</left>
  4163.             <top>248</top>
  4164.             <right>496</right>
  4165.             <bottom>262</bottom>
  4166.         </rect>
  4167.         <style>rectangle</style>
  4168.         <showName> <true /> </showName>
  4169.         <highlight> <false /> </highlight>
  4170.         <autoHighlight> <true /> </autoHighlight>
  4171.         <sharedHighlight> <true /> </sharedHighlight>
  4172.         <family>0</family>
  4173.         <titleWidth>0</titleWidth>
  4174.         <icon>0</icon>
  4175.         <textAlign>center</textAlign>
  4176.         <font>Geneva</font>
  4177.         <textSize>9</textSize>
  4178.         <textStyle>plain</textStyle>
  4179.         <name>See also ΓÇ£Move WindowΓÇ¥</name>
  4180.         <script>on mouseUp
  4181. go cd "Move Window"
  4182. end mouseUp</script>
  4183.     </part>
  4184.     <part>
  4185.         <id>4</id>
  4186.         <type>button</type>
  4187.         <visible> <true /> </visible>
  4188.         <reserved5> 0 </reserved5>
  4189.         <reserved4> 0 </reserved4>
  4190.         <reserved3> 0 </reserved3>
  4191.         <reserved2> 0 </reserved2>
  4192.         <reserved1> 0 </reserved1>
  4193.         <enabled> <true /> </enabled>
  4194.         <rect>
  4195.             <left>369</left>
  4196.             <top>264</top>
  4197.             <right>496</right>
  4198.             <bottom>278</bottom>
  4199.         </rect>
  4200.         <style>rectangle</style>
  4201.         <showName> <true /> </showName>
  4202.         <highlight> <false /> </highlight>
  4203.         <autoHighlight> <true /> </autoHighlight>
  4204.         <sharedHighlight> <true /> </sharedHighlight>
  4205.         <family>0</family>
  4206.         <titleWidth>0</titleWidth>
  4207.         <icon>0</icon>
  4208.         <textAlign>center</textAlign>
  4209.         <font>Geneva</font>
  4210.         <textSize>9</textSize>
  4211.         <textStyle>plain</textStyle>
  4212.         <name>See also ΓÇ£Zoom WindowΓÇ¥</name>
  4213.         <script>on mouseUp
  4214. go cd "Zoom Window"
  4215. end mouseUp</script>
  4216.     </part>
  4217.     <part>
  4218.         <id>5</id>
  4219.         <type>button</type>
  4220.         <visible> <true /> </visible>
  4221.         <reserved5> 0 </reserved5>
  4222.         <reserved4> 0 </reserved4>
  4223.         <reserved3> 0 </reserved3>
  4224.         <reserved2> 0 </reserved2>
  4225.         <reserved1> 0 </reserved1>
  4226.         <enabled> <true /> </enabled>
  4227.         <rect>
  4228.             <left>369</left>
  4229.             <top>280</top>
  4230.             <right>496</right>
  4231.             <bottom>294</bottom>
  4232.         </rect>
  4233.         <style>rectangle</style>
  4234.         <showName> <true /> </showName>
  4235.         <highlight> <false /> </highlight>
  4236.         <autoHighlight> <true /> </autoHighlight>
  4237.         <sharedHighlight> <true /> </sharedHighlight>
  4238.         <family>0</family>
  4239.         <titleWidth>0</titleWidth>
  4240.         <icon>0</icon>
  4241.         <textAlign>center</textAlign>
  4242.         <font>Geneva</font>
  4243.         <textSize>9</textSize>
  4244.         <textStyle>plain</textStyle>
  4245.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  4246.         <script>on mouseUp
  4247. go cd "Close Window"
  4248. end mouseUp</script>
  4249.     </part>
  4250.     <content>
  4251.         <layer>background</layer>
  4252.         <id>4</id>
  4253.         <text>Resize Window</text>
  4254.     </content>
  4255.     <content>
  4256.         <layer>background</layer>
  4257.         <id>7</id>
  4258.         <text>FinderEvents "event ID", "window path", "height,width"</text>
  4259.     </content>
  4260.     <content>
  4261.         <layer>background</layer>
  4262.         <id>5</id>
  4263.         <text>This event sets the size of the window to the height and width specified. It does not move the window. It will open the window if it is not already open.
  4264.  
  4265. The event id can be any one of "grow", "GrowWindow", "Grow Window", "Resize", "ResizeWindow", or "Resize Window".
  4266.  
  4267. The window path is the full pathname of the windowΓÇÖs folder.
  4268.  
  4269. The height does not include the title bar of the window.</text>
  4270.     </content>
  4271.     <name>Resize Window</name>
  4272.     <script></script>
  4273. </card>
  4274.  
  4275.  
  4276. card_4615.xml
  4277. <?xml version="1.0" encoding="utf-8" ?>
  4278. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4279. <card>
  4280.     <id>4615</id>
  4281.     <filler1>0</filler1>
  4282.     <cantDelete> <false /> </cantDelete>
  4283.     <showPict> <true /> </showPict>
  4284.     <dontSearch> <false /> </dontSearch>
  4285.     <owner>2792</owner>
  4286.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4287.     <part>
  4288.         <id>1</id>
  4289.         <type>button</type>
  4290.         <visible> <true /> </visible>
  4291.         <reserved5> 0 </reserved5>
  4292.         <reserved4> 0 </reserved4>
  4293.         <reserved3> 0 </reserved3>
  4294.         <reserved2> 0 </reserved2>
  4295.         <reserved1> 0 </reserved1>
  4296.         <enabled> <true /> </enabled>
  4297.         <rect>
  4298.             <left>14</left>
  4299.             <top>250</top>
  4300.             <right>141</right>
  4301.             <bottom>272</bottom>
  4302.         </rect>
  4303.         <style>roundrect</style>
  4304.         <showName> <true /> </showName>
  4305.         <highlight> <false /> </highlight>
  4306.         <autoHighlight> <true /> </autoHighlight>
  4307.         <sharedHighlight> <true /> </sharedHighlight>
  4308.         <family>0</family>
  4309.         <titleWidth>0</titleWidth>
  4310.         <icon>0</icon>
  4311.         <textAlign>center</textAlign>
  4312.         <font>Chicago</font>
  4313.         <textSize>12</textSize>
  4314.         <textStyle>plain</textStyle>
  4315.         <name>Restart</name>
  4316.         <script>on mouseUp
  4317. hide msg
  4318. answer "Are you sure you want to Restart your computer?" with "No" or "Yes"
  4319. if it Γëá "Yes" then exit mouseUp
  4320. FinderEvents Restart
  4321. if the result Γëá "" then put the result
  4322. end mouseUp</script>
  4323.     </part>
  4324.     <part>
  4325.         <id>3</id>
  4326.         <type>button</type>
  4327.         <visible> <true /> </visible>
  4328.         <reserved5> 0 </reserved5>
  4329.         <reserved4> 0 </reserved4>
  4330.         <reserved3> 0 </reserved3>
  4331.         <reserved2> 0 </reserved2>
  4332.         <reserved1> 0 </reserved1>
  4333.         <enabled> <true /> </enabled>
  4334.         <rect>
  4335.             <left>369</left>
  4336.             <top>248</top>
  4337.             <right>496</right>
  4338.             <bottom>262</bottom>
  4339.         </rect>
  4340.         <style>rectangle</style>
  4341.         <showName> <true /> </showName>
  4342.         <highlight> <false /> </highlight>
  4343.         <autoHighlight> <true /> </autoHighlight>
  4344.         <sharedHighlight> <true /> </sharedHighlight>
  4345.         <family>0</family>
  4346.         <titleWidth>0</titleWidth>
  4347.         <icon>0</icon>
  4348.         <textAlign>center</textAlign>
  4349.         <font>Geneva</font>
  4350.         <textSize>9</textSize>
  4351.         <textStyle>plain</textStyle>
  4352.         <name>See also ΓÇ£Shut DownΓÇ¥</name>
  4353.         <script>on mouseUp
  4354. go cd "Shut Down"
  4355. end mouseUp</script>
  4356.     </part>
  4357.     <content>
  4358.         <layer>background</layer>
  4359.         <id>4</id>
  4360.         <text>Restart</text>
  4361.     </content>
  4362.     <content>
  4363.         <layer>background</layer>
  4364.         <id>5</id>
  4365.         <text>This event restarts the machine as if the Restart menu item in the Finder were selected. The Finder shuts down all open applications while allowing them to save their files and then restarts the machine.
  4366.  
  4367. The event id can be either "rest", or "Restart".</text>
  4368.     </content>
  4369.     <content>
  4370.         <layer>background</layer>
  4371.         <id>7</id>
  4372.         <text>FinderEvents "event ID"</text>
  4373.     </content>
  4374.     <name>Restart</name>
  4375.     <script></script>
  4376. </card>
  4377.  
  4378.  
  4379. card_6296.xml
  4380. <?xml version="1.0" encoding="utf-8" ?>
  4381. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4382. <card>
  4383.     <id>6296</id>
  4384.     <filler1>0</filler1>
  4385.     <cantDelete> <false /> </cantDelete>
  4386.     <showPict> <true /> </showPict>
  4387.     <dontSearch> <false /> </dontSearch>
  4388.     <owner>2792</owner>
  4389.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4390.     <part>
  4391.         <id>1</id>
  4392.         <type>button</type>
  4393.         <visible> <true /> </visible>
  4394.         <reserved5> 0 </reserved5>
  4395.         <reserved4> 0 </reserved4>
  4396.         <reserved3> 0 </reserved3>
  4397.         <reserved2> 0 </reserved2>
  4398.         <reserved1> 0 </reserved1>
  4399.         <enabled> <true /> </enabled>
  4400.         <rect>
  4401.             <left>14</left>
  4402.             <top>250</top>
  4403.             <right>141</right>
  4404.             <bottom>272</bottom>
  4405.         </rect>
  4406.         <style>roundrect</style>
  4407.         <showName> <true /> </showName>
  4408.         <highlight> <false /> </highlight>
  4409.         <autoHighlight> <true /> </autoHighlight>
  4410.         <sharedHighlight> <true /> </sharedHighlight>
  4411.         <family>0</family>
  4412.         <titleWidth>0</titleWidth>
  4413.         <icon>0</icon>
  4414.         <textAlign>center</textAlign>
  4415.         <font>Chicago</font>
  4416.         <textSize>12</textSize>
  4417.         <textStyle>plain</textStyle>
  4418.         <name>Reveal Stack</name>
  4419.         <script>on mouseUp
  4420. hide msg
  4421. doMenu "Finder"
  4422. wait until the suspended
  4423. FinderEvents Reveal, folderPath(), short name of this stack
  4424. if the result Γëá "" then put the result
  4425. end mouseUp
  4426. </script>
  4427.     </part>
  4428.     <part>
  4429.         <id>2</id>
  4430.         <type>button</type>
  4431.         <visible> <true /> </visible>
  4432.         <reserved5> 0 </reserved5>
  4433.         <reserved4> 0 </reserved4>
  4434.         <reserved3> 0 </reserved3>
  4435.         <reserved2> 0 </reserved2>
  4436.         <reserved1> 0 </reserved1>
  4437.         <enabled> <true /> </enabled>
  4438.         <rect>
  4439.             <left>14</left>
  4440.             <top>280</top>
  4441.             <right>141</right>
  4442.             <bottom>302</bottom>
  4443.         </rect>
  4444.         <style>roundrect</style>
  4445.         <showName> <true /> </showName>
  4446.         <highlight> <false /> </highlight>
  4447.         <autoHighlight> <true /> </autoHighlight>
  4448.         <sharedHighlight> <true /> </sharedHighlight>
  4449.         <family>0</family>
  4450.         <titleWidth>0</titleWidth>
  4451.         <icon>0</icon>
  4452.         <textAlign>center</textAlign>
  4453.         <font>Chicago</font>
  4454.         <textSize>12</textSize>
  4455.         <textStyle>plain</textStyle>
  4456.         <name>Reveal Folder</name>
  4457.         <script>on mouseUp
  4458. hide msg
  4459. doMenu "Finder"
  4460. wait until the suspended
  4461. FinderEvents Reveal, folderParentPath(), folderName() & colon
  4462. if the result Γëá "" then put the result
  4463. end mouseUp
  4464. </script>
  4465.     </part>
  4466.     <part>
  4467.         <id>3</id>
  4468.         <type>button</type>
  4469.         <visible> <true /> </visible>
  4470.         <reserved5> 0 </reserved5>
  4471.         <reserved4> 0 </reserved4>
  4472.         <reserved3> 0 </reserved3>
  4473.         <reserved2> 0 </reserved2>
  4474.         <reserved1> 0 </reserved1>
  4475.         <enabled> <true /> </enabled>
  4476.         <rect>
  4477.             <left>14</left>
  4478.             <top>310</top>
  4479.             <right>141</right>
  4480.             <bottom>332</bottom>
  4481.         </rect>
  4482.         <style>roundrect</style>
  4483.         <showName> <true /> </showName>
  4484.         <highlight> <false /> </highlight>
  4485.         <autoHighlight> <true /> </autoHighlight>
  4486.         <sharedHighlight> <true /> </sharedHighlight>
  4487.         <family>0</family>
  4488.         <titleWidth>0</titleWidth>
  4489.         <icon>0</icon>
  4490.         <textAlign>center</textAlign>
  4491.         <font>Chicago</font>
  4492.         <textSize>12</textSize>
  4493.         <textStyle>plain</textStyle>
  4494.         <name>Reveal Disk</name>
  4495.         <script>on mouseUp
  4496. hide msg
  4497. doMenu "Hide" && HyperAppName()
  4498. wait until the suspended
  4499. doMenu "Finder"
  4500. FinderEvents Reveal, "", diskName()
  4501. if the result Γëá "" then put the result
  4502. end mouseUp
  4503. </script>
  4504.     </part>
  4505.     <part>
  4506.         <id>4</id>
  4507.         <type>button</type>
  4508.         <visible> <true /> </visible>
  4509.         <reserved5> 0 </reserved5>
  4510.         <reserved4> 0 </reserved4>
  4511.         <reserved3> 0 </reserved3>
  4512.         <reserved2> 0 </reserved2>
  4513.         <reserved1> 0 </reserved1>
  4514.         <enabled> <true /> </enabled>
  4515.         <rect>
  4516.             <left>369</left>
  4517.             <top>248</top>
  4518.             <right>496</right>
  4519.             <bottom>262</bottom>
  4520.         </rect>
  4521.         <style>rectangle</style>
  4522.         <showName> <true /> </showName>
  4523.         <highlight> <false /> </highlight>
  4524.         <autoHighlight> <true /> </autoHighlight>
  4525.         <sharedHighlight> <true /> </sharedHighlight>
  4526.         <family>0</family>
  4527.         <titleWidth>0</titleWidth>
  4528.         <icon>0</icon>
  4529.         <textAlign>center</textAlign>
  4530.         <font>Geneva</font>
  4531.         <textSize>9</textSize>
  4532.         <textStyle>plain</textStyle>
  4533.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  4534.         <script>on mouseUp
  4535. go cd "Close Window"
  4536. end mouseUp</script>
  4537.     </part>
  4538.     <content>
  4539.         <layer>background</layer>
  4540.         <id>4</id>
  4541.         <text>Reveal Selection</text>
  4542.     </content>
  4543.     <content>
  4544.         <layer>background</layer>
  4545.         <id>7</id>
  4546.         <text>FinderEvents "event ID", "folder path", "item list"</text>
  4547.     </content>
  4548.     <content>
  4549.         <layer>background</layer>
  4550.         <id>5</id>
  4551.         <text>This will cause the specified folder window to be opened and the items listed to be selected and hilited. There is no corresponding menu command for this, but the Find command makes use of this event.
  4552.  
  4553. The event id can be any one of "srev", "Reveal", "RevealSelection", or "Reveal Selection".
  4554.  
  4555. The folder path is the pathname of the parent folder which holds all of the items in the item list.
  4556.  
  4557. The item list is a single item name (not a pathname) or a comma delimited list of item names. If a folder is present, it must end in a colon.
  4558.  
  4559. If you want to select a disk, then the folder path should be empty and the item list should be the diskΓÇÖs name. Unfortunately, this event also opens the diskΓÇÖs window. I call that a bug.</text>
  4560.     </content>
  4561.     <name>Reveal Selection</name>
  4562.     <script></script>
  4563. </card>
  4564.  
  4565.  
  4566. card_9698.xml
  4567. <?xml version="1.0" encoding="utf-8" ?>
  4568. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4569. <card>
  4570.     <id>9698</id>
  4571.     <filler1>0</filler1>
  4572.     <cantDelete> <false /> </cantDelete>
  4573.     <showPict> <true /> </showPict>
  4574.     <dontSearch> <false /> </dontSearch>
  4575.     <owner>2792</owner>
  4576.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4577.     <part>
  4578.         <id>1</id>
  4579.         <type>button</type>
  4580.         <visible> <true /> </visible>
  4581.         <reserved5> 0 </reserved5>
  4582.         <reserved4> 0 </reserved4>
  4583.         <reserved3> 0 </reserved3>
  4584.         <reserved2> 0 </reserved2>
  4585.         <reserved1> 0 </reserved1>
  4586.         <enabled> <true /> </enabled>
  4587.         <rect>
  4588.             <left>14</left>
  4589.             <top>250</top>
  4590.             <right>141</right>
  4591.             <bottom>272</bottom>
  4592.         </rect>
  4593.         <style>roundrect</style>
  4594.         <showName> <true /> </showName>
  4595.         <highlight> <false /> </highlight>
  4596.         <autoHighlight> <true /> </autoHighlight>
  4597.         <sharedHighlight> <true /> </sharedHighlight>
  4598.         <family>0</family>
  4599.         <titleWidth>0</titleWidth>
  4600.         <icon>0</icon>
  4601.         <textAlign>center</textAlign>
  4602.         <font>Chicago</font>
  4603.         <textSize>12</textSize>
  4604.         <textStyle>plain</textStyle>
  4605.         <name>Set Window View</name>
  4606.         <script>on mouseUp
  4607. hide msg
  4608. ask "Set view to 0) Small Icon, 1) Icon, 2) Name, 3) Size, 4) Kind, " & ┬¼
  4609. "5) Label, 6) Date, 7) Version, or 8) Comment"
  4610. if it is not in "012345678" then exit mouseUp
  4611. doMenu "Finder"
  4612. wait until the suspended
  4613. FinderEvents View, folderPath(), it
  4614. if the result Γëá "" then put the result
  4615. end mouseUp
  4616. </script>
  4617.     </part>
  4618.     <content>
  4619.         <layer>background</layer>
  4620.         <id>4</id>
  4621.         <text>Set View</text>
  4622.     </content>
  4623.     <content>
  4624.         <layer>background</layer>
  4625.         <id>7</id>
  4626.         <text>FinderEvents "event ID", "window path", stateInteger</text>
  4627.     </content>
  4628.     <content>
  4629.         <layer>background</layer>
  4630.         <id>5</id>
  4631.         <text>This event changes the view in the selected window to the state specified. If the window is not open then this will open it before changing the view.
  4632.  
  4633. The event id can be any one of "view", "ChangeView", "Change View", "SetView", or "Set View".
  4634.  
  4635. The window path is the full pathname of the windowΓÇÖs folder.
  4636.  
  4637. The stateInteger is one of the following numbers:
  4638. 0) Small Icon
  4639. 1) Icon
  4640. 2) Name
  4641. 3) Size
  4642. 4) Kind
  4643. 5) Label
  4644. 6) Date
  4645. 7) Version
  4646. 8) Comment</text>
  4647.     </content>
  4648.     <name>Set View</name>
  4649.     <script></script>
  4650. </card>
  4651.  
  4652.  
  4653. card_6117.xml
  4654. <?xml version="1.0" encoding="utf-8" ?>
  4655. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4656. <card>
  4657.     <id>6117</id>
  4658.     <filler1>0</filler1>
  4659.     <cantDelete> <false /> </cantDelete>
  4660.     <showPict> <true /> </showPict>
  4661.     <dontSearch> <false /> </dontSearch>
  4662.     <owner>2792</owner>
  4663.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4664.     <part>
  4665.         <id>1</id>
  4666.         <type>button</type>
  4667.         <visible> <true /> </visible>
  4668.         <reserved5> 0 </reserved5>
  4669.         <reserved4> 0 </reserved4>
  4670.         <reserved3> 0 </reserved3>
  4671.         <reserved2> 0 </reserved2>
  4672.         <reserved1> 0 </reserved1>
  4673.         <enabled> <true /> </enabled>
  4674.         <rect>
  4675.             <left>14</left>
  4676.             <top>250</top>
  4677.             <right>141</right>
  4678.             <bottom>272</bottom>
  4679.         </rect>
  4680.         <style>roundrect</style>
  4681.         <showName> <true /> </showName>
  4682.         <highlight> <false /> </highlight>
  4683.         <autoHighlight> <true /> </autoHighlight>
  4684.         <sharedHighlight> <true /> </sharedHighlight>
  4685.         <family>0</family>
  4686.         <titleWidth>0</titleWidth>
  4687.         <icon>0</icon>
  4688.         <textAlign>center</textAlign>
  4689.         <font>Chicago</font>
  4690.         <textSize>12</textSize>
  4691.         <textStyle>plain</textStyle>
  4692.         <name>Stack Folder Privs</name>
  4693.         <script>on mouseUp
  4694. hide msg
  4695. doMenu "Finder"
  4696. wait until the suspended
  4697. FinderEvents Sharing, folderParentPath(), folderName() & colon
  4698. if the result Γëá "" then put the result
  4699. end mouseUp
  4700. </script>
  4701.     </part>
  4702.     <part>
  4703.         <id>3</id>
  4704.         <type>button</type>
  4705.         <visible> <true /> </visible>
  4706.         <reserved5> 0 </reserved5>
  4707.         <reserved4> 0 </reserved4>
  4708.         <reserved3> 0 </reserved3>
  4709.         <reserved2> 0 </reserved2>
  4710.         <reserved1> 0 </reserved1>
  4711.         <enabled> <true /> </enabled>
  4712.         <rect>
  4713.             <left>14</left>
  4714.             <top>280</top>
  4715.             <right>141</right>
  4716.             <bottom>302</bottom>
  4717.         </rect>
  4718.         <style>roundrect</style>
  4719.         <showName> <true /> </showName>
  4720.         <highlight> <false /> </highlight>
  4721.         <autoHighlight> <true /> </autoHighlight>
  4722.         <sharedHighlight> <true /> </sharedHighlight>
  4723.         <family>0</family>
  4724.         <titleWidth>0</titleWidth>
  4725.         <icon>0</icon>
  4726.         <textAlign>center</textAlign>
  4727.         <font>Chicago</font>
  4728.         <textSize>12</textSize>
  4729.         <textStyle>plain</textStyle>
  4730.         <name>Disk Privileges</name>
  4731.         <script>on mouseUp
  4732. hide msg
  4733. doMenu "Finder"
  4734. wait until the suspended
  4735. FinderEvents GetPrivilege, "", diskName()
  4736. if the result Γëá "" then put the result
  4737. end mouseUp
  4738. </script>
  4739.     </part>
  4740.     <part>
  4741.         <id>4</id>
  4742.         <type>button</type>
  4743.         <visible> <true /> </visible>
  4744.         <reserved5> 0 </reserved5>
  4745.         <reserved4> 0 </reserved4>
  4746.         <reserved3> 0 </reserved3>
  4747.         <reserved2> 0 </reserved2>
  4748.         <reserved1> 0 </reserved1>
  4749.         <enabled> <true /> </enabled>
  4750.         <rect>
  4751.             <left>14</left>
  4752.             <top>310</top>
  4753.             <right>141</right>
  4754.             <bottom>332</bottom>
  4755.         </rect>
  4756.         <style>roundrect</style>
  4757.         <showName> <true /> </showName>
  4758.         <highlight> <false /> </highlight>
  4759.         <autoHighlight> <true /> </autoHighlight>
  4760.         <sharedHighlight> <true /> </sharedHighlight>
  4761.         <family>0</family>
  4762.         <titleWidth>0</titleWidth>
  4763.         <icon>0</icon>
  4764.         <textAlign>center</textAlign>
  4765.         <font>Chicago</font>
  4766.         <textSize>12</textSize>
  4767.         <textStyle>plain</textStyle>
  4768.         <name>Hypercard Privs</name>
  4769.         <script>on mouseUp
  4770. hide msg
  4771. doMenu "Finder"
  4772. wait until the suspended
  4773. get long name of Hypercard
  4774. set itemDelimiter to colon
  4775. get long name of Hypercard
  4776. delete last item of it
  4777. FinderEvents Sharing, it, last item of long name of Hypercard
  4778. if the result Γëá "" then
  4779. put the result
  4780. doMenu HyperAppName()
  4781. end if
  4782. set itemDelimiter to comma
  4783. end mouseUp
  4784. </script>
  4785.     </part>
  4786.     <part>
  4787.         <id>5</id>
  4788.         <type>button</type>
  4789.         <visible> <true /> </visible>
  4790.         <reserved5> 0 </reserved5>
  4791.         <reserved4> 0 </reserved4>
  4792.         <reserved3> 0 </reserved3>
  4793.         <reserved2> 0 </reserved2>
  4794.         <reserved1> 0 </reserved1>
  4795.         <enabled> <true /> </enabled>
  4796.         <rect>
  4797.             <left>369</left>
  4798.             <top>248</top>
  4799.             <right>496</right>
  4800.             <bottom>262</bottom>
  4801.         </rect>
  4802.         <style>rectangle</style>
  4803.         <showName> <true /> </showName>
  4804.         <highlight> <false /> </highlight>
  4805.         <autoHighlight> <true /> </autoHighlight>
  4806.         <sharedHighlight> <true /> </sharedHighlight>
  4807.         <family>0</family>
  4808.         <titleWidth>0</titleWidth>
  4809.         <icon>0</icon>
  4810.         <textAlign>center</textAlign>
  4811.         <font>Geneva</font>
  4812.         <textSize>9</textSize>
  4813.         <textStyle>plain</textStyle>
  4814.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  4815.         <script>on mouseUp
  4816. go cd "Close Window"
  4817. end mouseUp</script>
  4818.     </part>
  4819.     <content>
  4820.         <layer>background</layer>
  4821.         <id>7</id>
  4822.         <text>FinderEvents "event ID", "parent path", "item list"</text>
  4823.     </content>
  4824.     <content>
  4825.         <layer>background</layer>
  4826.         <id>4</id>
  4827.         <text>Sharing</text>
  4828.     </content>
  4829.     <content>
  4830.         <layer>background</layer>
  4831.         <id>5</id>
  4832.         <text>This event brings up the Sharing dialog for the specified application(s), disk(s) or folder(s). Since documents cannot be shared, they cannot be specified in this list. If an application is specified and linking is not on, the Finder will display a dialog asking if you want to turn linking on.
  4833.  
  4834. The event id can be any one of "sprv", Sharing", "GetPrivilage", "Get Privilage", "GetPrivilegeSelection", or "Get Privilege Selection".
  4835.  
  4836. The parent path is the pathname of the parent folder which holds all of the items in the item list.
  4837.  
  4838. The item list is a single folder or application name (not a pathname) or a comma delimited list of folder and application names. If a folder is present, it must end in a colon.
  4839.  
  4840. If you want to get sharing info on a disk, then the parent path should be empty and the folder list should be the diskΓÇÖs name.</text>
  4841.     </content>
  4842.     <name>Sharing</name>
  4843.     <script></script>
  4844. </card>
  4845.  
  4846.  
  4847. card_3926.xml
  4848. <?xml version="1.0" encoding="utf-8" ?>
  4849. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4850. <card>
  4851.     <id>3926</id>
  4852.     <filler1>0</filler1>
  4853.     <cantDelete> <false /> </cantDelete>
  4854.     <showPict> <true /> </showPict>
  4855.     <dontSearch> <false /> </dontSearch>
  4856.     <owner>2792</owner>
  4857.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4858.     <part>
  4859.         <id>1</id>
  4860.         <type>button</type>
  4861.         <visible> <true /> </visible>
  4862.         <reserved5> 0 </reserved5>
  4863.         <reserved4> 0 </reserved4>
  4864.         <reserved3> 0 </reserved3>
  4865.         <reserved2> 0 </reserved2>
  4866.         <reserved1> 0 </reserved1>
  4867.         <enabled> <true /> </enabled>
  4868.         <rect>
  4869.             <left>14</left>
  4870.             <top>250</top>
  4871.             <right>141</right>
  4872.             <bottom>272</bottom>
  4873.         </rect>
  4874.         <style>roundrect</style>
  4875.         <showName> <true /> </showName>
  4876.         <highlight> <false /> </highlight>
  4877.         <autoHighlight> <true /> </autoHighlight>
  4878.         <sharedHighlight> <true /> </sharedHighlight>
  4879.         <family>0</family>
  4880.         <titleWidth>0</titleWidth>
  4881.         <icon>0</icon>
  4882.         <textAlign>center</textAlign>
  4883.         <font>Chicago</font>
  4884.         <textSize>12</textSize>
  4885.         <textStyle>plain</textStyle>
  4886.         <name>Show Clipboard</name>
  4887.         <script>on mouseUp
  4888. hide msg
  4889. doMenu "Finder"
  4890. wait until the suspended
  4891. FinderEvents ShowClip
  4892. if the result Γëá "" then put the result
  4893. end mouseUp</script>
  4894.     </part>
  4895.     <part>
  4896.         <id>3</id>
  4897.         <type>button</type>
  4898.         <visible> <true /> </visible>
  4899.         <reserved5> 0 </reserved5>
  4900.         <reserved4> 0 </reserved4>
  4901.         <reserved3> 0 </reserved3>
  4902.         <reserved2> 0 </reserved2>
  4903.         <reserved1> 0 </reserved1>
  4904.         <enabled> <true /> </enabled>
  4905.         <rect>
  4906.             <left>369</left>
  4907.             <top>248</top>
  4908.             <right>496</right>
  4909.             <bottom>262</bottom>
  4910.         </rect>
  4911.         <style>rectangle</style>
  4912.         <showName> <true /> </showName>
  4913.         <highlight> <false /> </highlight>
  4914.         <autoHighlight> <true /> </autoHighlight>
  4915.         <sharedHighlight> <true /> </sharedHighlight>
  4916.         <family>0</family>
  4917.         <titleWidth>0</titleWidth>
  4918.         <icon>0</icon>
  4919.         <textAlign>center</textAlign>
  4920.         <font>Geneva</font>
  4921.         <textSize>9</textSize>
  4922.         <textStyle>plain</textStyle>
  4923.         <name>See also ΓÇ£Hide ClipboardΓÇ¥</name>
  4924.         <script>on mouseUp
  4925. go cd "Hide Clipboard"
  4926. end mouseUp</script>
  4927.     </part>
  4928.     <content>
  4929.         <layer>background</layer>
  4930.         <id>4</id>
  4931.         <text>Show Clipboard</text>
  4932.     </content>
  4933.     <content>
  4934.         <layer>background</layer>
  4935.         <id>5</id>
  4936.         <text>This event causes the Finder to display its Clipboard window. This is the same as selecting the Show Clipboard menu item in the Finder.
  4937.  
  4938. The event id can be any one of "shcl", "ShowClipboard", or "Show Clipboard".
  4939.  
  4940. See the fake Hide Clipboard event to close the Clipboard window.</text>
  4941.     </content>
  4942.     <content>
  4943.         <layer>background</layer>
  4944.         <id>7</id>
  4945.         <text>FinderEvents "event ID"</text>
  4946.     </content>
  4947.     <name>Show Clipboard</name>
  4948.     <script></script>
  4949. </card>
  4950.  
  4951.  
  4952. card_5107.xml
  4953. <?xml version="1.0" encoding="utf-8" ?>
  4954. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  4955. <card>
  4956.     <id>5107</id>
  4957.     <filler1>0</filler1>
  4958.     <cantDelete> <false /> </cantDelete>
  4959.     <showPict> <true /> </showPict>
  4960.     <dontSearch> <false /> </dontSearch>
  4961.     <owner>2792</owner>
  4962.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  4963.     <part>
  4964.         <id>1</id>
  4965.         <type>button</type>
  4966.         <visible> <true /> </visible>
  4967.         <reserved5> 0 </reserved5>
  4968.         <reserved4> 0 </reserved4>
  4969.         <reserved3> 0 </reserved3>
  4970.         <reserved2> 0 </reserved2>
  4971.         <reserved1> 0 </reserved1>
  4972.         <enabled> <true /> </enabled>
  4973.         <rect>
  4974.             <left>14</left>
  4975.             <top>250</top>
  4976.             <right>141</right>
  4977.             <bottom>272</bottom>
  4978.         </rect>
  4979.         <style>roundrect</style>
  4980.         <showName> <true /> </showName>
  4981.         <highlight> <false /> </highlight>
  4982.         <autoHighlight> <true /> </autoHighlight>
  4983.         <sharedHighlight> <true /> </sharedHighlight>
  4984.         <family>0</family>
  4985.         <titleWidth>0</titleWidth>
  4986.         <icon>0</icon>
  4987.         <textAlign>center</textAlign>
  4988.         <font>Chicago</font>
  4989.         <textSize>12</textSize>
  4990.         <textStyle>plain</textStyle>
  4991.         <name>Shutdown</name>
  4992.         <script>on mouseUp
  4993. hide msg
  4994. answer "Are you sure you want to Shutdown your computer?" with "No" or "Yes"
  4995. if it Γëá "Yes" then exit mouseUp
  4996. FinderEvents Shutdown
  4997. if the result Γëá "" then put the result
  4998. end mouseUp</script>
  4999.     </part>
  5000.     <part>
  5001.         <id>2</id>
  5002.         <type>button</type>
  5003.         <visible> <true /> </visible>
  5004.         <reserved5> 0 </reserved5>
  5005.         <reserved4> 0 </reserved4>
  5006.         <reserved3> 0 </reserved3>
  5007.         <reserved2> 0 </reserved2>
  5008.         <reserved1> 0 </reserved1>
  5009.         <enabled> <true /> </enabled>
  5010.         <rect>
  5011.             <left>369</left>
  5012.             <top>248</top>
  5013.             <right>496</right>
  5014.             <bottom>262</bottom>
  5015.         </rect>
  5016.         <style>rectangle</style>
  5017.         <showName> <true /> </showName>
  5018.         <highlight> <false /> </highlight>
  5019.         <autoHighlight> <true /> </autoHighlight>
  5020.         <sharedHighlight> <true /> </sharedHighlight>
  5021.         <family>0</family>
  5022.         <titleWidth>0</titleWidth>
  5023.         <icon>0</icon>
  5024.         <textAlign>center</textAlign>
  5025.         <font>Geneva</font>
  5026.         <textSize>9</textSize>
  5027.         <textStyle>plain</textStyle>
  5028.         <name>See also ΓÇ£RestartΓÇ¥</name>
  5029.         <script>on mouseUp
  5030. go cd "Restart"
  5031. end mouseUp</script>
  5032.     </part>
  5033.     <content>
  5034.         <layer>background</layer>
  5035.         <id>4</id>
  5036.         <text>Shut Down</text>
  5037.     </content>
  5038.     <content>
  5039.         <layer>background</layer>
  5040.         <id>5</id>
  5041.         <text>This event shuts down the machine as if the Shut Down menu item in the Finder were selected. The Finder shuts down all open applications while allowing them to save their files and then shuts down the machine and switches it off if possible.
  5042.  
  5043. The event id can be either "shut" or "Shutdown".</text>
  5044.     </content>
  5045.     <content>
  5046.         <layer>background</layer>
  5047.         <id>7</id>
  5048.         <text>FinderEvents "event ID"</text>
  5049.     </content>
  5050.     <name>Shut Down</name>
  5051.     <script></script>
  5052. </card>
  5053.  
  5054.  
  5055. card_4395.xml
  5056. <?xml version="1.0" encoding="utf-8" ?>
  5057. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5058. <card>
  5059.     <id>4395</id>
  5060.     <filler1>0</filler1>
  5061.     <cantDelete> <false /> </cantDelete>
  5062.     <showPict> <true /> </showPict>
  5063.     <dontSearch> <false /> </dontSearch>
  5064.     <owner>2792</owner>
  5065.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  5066.     <part>
  5067.         <id>1</id>
  5068.         <type>button</type>
  5069.         <visible> <true /> </visible>
  5070.         <reserved5> 0 </reserved5>
  5071.         <reserved4> 0 </reserved4>
  5072.         <reserved3> 0 </reserved3>
  5073.         <reserved2> 0 </reserved2>
  5074.         <reserved1> 0 </reserved1>
  5075.         <enabled> <true /> </enabled>
  5076.         <rect>
  5077.             <left>14</left>
  5078.             <top>250</top>
  5079.             <right>141</right>
  5080.             <bottom>272</bottom>
  5081.         </rect>
  5082.         <style>roundrect</style>
  5083.         <showName> <true /> </showName>
  5084.         <highlight> <false /> </highlight>
  5085.         <autoHighlight> <true /> </autoHighlight>
  5086.         <sharedHighlight> <true /> </sharedHighlight>
  5087.         <family>0</family>
  5088.         <titleWidth>0</titleWidth>
  5089.         <icon>0</icon>
  5090.         <textAlign>center</textAlign>
  5091.         <font>Chicago</font>
  5092.         <textSize>12</textSize>
  5093.         <textStyle>plain</textStyle>
  5094.         <name>Sleep</name>
  5095.         <script>on mouseUp
  5096. hide msg
  5097. FinderEvents Sleep
  5098. if the result Γëá "" then put the result
  5099. end mouseUp</script>
  5100.     </part>
  5101.     <content>
  5102.         <layer>background</layer>
  5103.         <id>4</id>
  5104.         <text>Sleep</text>
  5105.     </content>
  5106.     <content>
  5107.         <layer>background</layer>
  5108.         <id>5</id>
  5109.         <text>This event puts the machine to sleep if it is capable of it. Sleep is a low power state provided for in the Macintosh portable line. This event does nothing on machines without this capability.
  5110.  
  5111. The event id can be either "slep" or "Sleep".</text>
  5112.     </content>
  5113.     <content>
  5114.         <layer>background</layer>
  5115.         <id>7</id>
  5116.         <text>FinderEvents "event ID"</text>
  5117.     </content>
  5118.     <name>Sleep</name>
  5119.     <script></script>
  5120. </card>
  5121.  
  5122.  
  5123. card_9466.xml
  5124. <?xml version="1.0" encoding="utf-8" ?>
  5125. <!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
  5126. <card>
  5127.     <id>9466</id>
  5128.     <filler1>0</filler1>
  5129.     <cantDelete> <false /> </cantDelete>
  5130.     <showPict> <true /> </showPict>
  5131.     <dontSearch> <false /> </dontSearch>
  5132.     <owner>2792</owner>
  5133.     <link rel="stylesheet" type="text/css" href="stylesheet_3077.css" />
  5134.     <part>
  5135.         <id>1</id>
  5136.         <type>button</type>
  5137.         <visible> <true /> </visible>
  5138.         <reserved5> 0 </reserved5>
  5139.         <reserved4> 0 </reserved4>
  5140.         <reserved3> 0 </reserved3>
  5141.         <reserved2> 0 </reserved2>
  5142.         <reserved1> 0 </reserved1>
  5143.         <enabled> <true /> </enabled>
  5144.         <rect>
  5145.             <left>14</left>
  5146.             <top>250</top>
  5147.             <right>141</right>
  5148.             <bottom>272</bottom>
  5149.         </rect>
  5150.         <style>roundrect</style>
  5151.         <showName> <true /> </showName>
  5152.         <highlight> <false /> </highlight>
  5153.         <autoHighlight> <true /> </autoHighlight>
  5154.         <sharedHighlight> <true /> </sharedHighlight>
  5155.         <family>0</family>
  5156.         <titleWidth>0</titleWidth>
  5157.         <icon>0</icon>
  5158.         <textAlign>center</textAlign>
  5159.         <font>Chicago</font>
  5160.         <textSize>12</textSize>
  5161.         <textStyle>plain</textStyle>
  5162.         <name>Stack Window</name>
  5163.         <script>on mouseUp
  5164. hide msg
  5165. ask "Zoom window to 7) user state or 8) smallest fit"
  5166. if it is not in "0178" then exit mouseUp
  5167. doMenu "Finder"
  5168. wait until the suspended
  5169. FinderEvents Zoom, folderPath(), it
  5170. if the result Γëá "" then put the result
  5171. wait 2 secs
  5172. doMenu HyperAppName()
  5173. end mouseUp
  5174. </script>
  5175.     </part>
  5176.     <part>
  5177.         <id>2</id>
  5178.         <type>button</type>
  5179.         <visible> <true /> </visible>
  5180.         <reserved5> 0 </reserved5>
  5181.         <reserved4> 0 </reserved4>
  5182.         <reserved3> 0 </reserved3>
  5183.         <reserved2> 0 </reserved2>
  5184.         <reserved1> 0 </reserved1>
  5185.         <enabled> <true /> </enabled>
  5186.         <rect>
  5187.             <left>369</left>
  5188.             <top>248</top>
  5189.             <right>496</right>
  5190.             <bottom>262</bottom>
  5191.         </rect>
  5192.         <style>rectangle</style>
  5193.         <showName> <true /> </showName>
  5194.         <highlight> <false /> </highlight>
  5195.         <autoHighlight> <true /> </autoHighlight>
  5196.         <sharedHighlight> <true /> </sharedHighlight>
  5197.         <family>0</family>
  5198.         <titleWidth>0</titleWidth>
  5199.         <icon>0</icon>
  5200.         <textAlign>center</textAlign>
  5201.         <font>Geneva</font>
  5202.         <textSize>9</textSize>
  5203.         <textStyle>plain</textStyle>
  5204.         <name>See also ΓÇ£Move WindowΓÇ¥</name>
  5205.         <script>on mouseUp
  5206. go cd "Move Window"
  5207. end mouseUp</script>
  5208.     </part>
  5209.     <part>
  5210.         <id>3</id>
  5211.         <type>button</type>
  5212.         <visible> <true /> </visible>
  5213.         <reserved5> 0 </reserved5>
  5214.         <reserved4> 0 </reserved4>
  5215.         <reserved3> 0 </reserved3>
  5216.         <reserved2> 0 </reserved2>
  5217.         <reserved1> 0 </reserved1>
  5218.         <enabled> <true /> </enabled>
  5219.         <rect>
  5220.             <left>369</left>
  5221.             <top>264</top>
  5222.             <right>496</right>
  5223.             <bottom>278</bottom>
  5224.         </rect>
  5225.         <style>rectangle</style>
  5226.         <showName> <true /> </showName>
  5227.         <highlight> <false /> </highlight>
  5228.         <autoHighlight> <true /> </autoHighlight>
  5229.         <sharedHighlight> <true /> </sharedHighlight>
  5230.         <family>0</family>
  5231.         <titleWidth>0</titleWidth>
  5232.         <icon>0</icon>
  5233.         <textAlign>center</textAlign>
  5234.         <font>Geneva</font>
  5235.         <textSize>9</textSize>
  5236.         <textStyle>plain</textStyle>
  5237.         <name>See also ΓÇ£Resize WindowΓÇ¥</name>
  5238.         <script>on mouseUp
  5239. go cd "Resize Window"
  5240. end mouseUp</script>
  5241.     </part>
  5242.     <part>
  5243.         <id>4</id>
  5244.         <type>button</type>
  5245.         <visible> <true /> </visible>
  5246.         <reserved5> 0 </reserved5>
  5247.         <reserved4> 0 </reserved4>
  5248.         <reserved3> 0 </reserved3>
  5249.         <reserved2> 0 </reserved2>
  5250.         <reserved1> 0 </reserved1>
  5251.         <enabled> <true /> </enabled>
  5252.         <rect>
  5253.             <left>369</left>
  5254.             <top>280</top>
  5255.             <right>496</right>
  5256.             <bottom>294</bottom>
  5257.         </rect>
  5258.         <style>rectangle</style>
  5259.         <showName> <true /> </showName>
  5260.         <highlight> <false /> </highlight>
  5261.         <autoHighlight> <true /> </autoHighlight>
  5262.         <sharedHighlight> <true /> </sharedHighlight>
  5263.         <family>0</family>
  5264.         <titleWidth>0</titleWidth>
  5265.         <icon>0</icon>
  5266.         <textAlign>center</textAlign>
  5267.         <font>Geneva</font>
  5268.         <textSize>9</textSize>
  5269.         <textStyle>plain</textStyle>
  5270.         <name>See also ΓÇ£Close WindowΓÇ¥</name>
  5271.         <script>on mouseUp
  5272. go cd "Close Window"
  5273. end mouseUp</script>
  5274.     </part>
  5275.     <content>
  5276.         <layer>background</layer>
  5277.         <id>4</id>
  5278.         <text>Zoom Window</text>
  5279.     </content>
  5280.     <content>
  5281.         <layer>background</layer>
  5282.         <id>7</id>
  5283.         <text>FinderEvents "event ID", "window path", stateInteger</text>
  5284.     </content>
  5285.     <content>
  5286.         <layer>background</layer>
  5287.         <id>5</id>
  5288.         <text>This event zooms the window to the state specified. It is the same as clicking in the zoom box of the window except that this can control which way the zoom goes.
  5289.  
  5290. The event id can be any one of "zoom", "ZoomWindow", or "Zoom Window".
  5291.  
  5292. The window path is the full pathname of the windowΓÇÖs folder.
  5293.  
  5294. The stateInteger is 7 for the user state and 8 for the smallest possible window.</text>
  5295.     </content>
  5296.     <name>Zoom Window</name>
  5297.     <script></script>
  5298. </card>
  5299.  
  5300.  
  5301.