home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / HyperCard / RecentProc / cards.xml < prev    next >
Text File  |  1994-05-01  |  3KB  |  85 lines
  1. card_2938.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>2938</id>
  6.     <filler1>0</filler1>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <owner>2734</owner>
  11.     <link rel="stylesheet" type="text/css" href="stylesheet_3130.css" />
  12.     <part>
  13.         <id>1</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>127</left>
  24.             <top>19</top>
  25.             <right>227</right>
  26.             <bottom>41</bottom>
  27.         </rect>
  28.         <style>roundrect</style>
  29.         <showName> <true /> </showName>
  30.         <highlight> <false /> </highlight>
  31.         <autoHighlight> <false /> </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>New Button</name>
  41.         <script>on mouseUpanswer file "" of type textif the result is "Cancel" or it="" then exit to hypercardset cursor to watchput it into theFileopen file theFileread from file theFile for 24000put it into theStuffclose file theFileput (theFile&".rev") into theFile-- put "" into cd fld 1repeat with x=1 to number of lines in theStuffput line x of theStuff into theLineif"/" is not in theLine then next repeatset cursor to busyget offset("/",theLine)put char 1 to it of theLine into theIntrodelete char 1 to it of theLineput "GET  "&quote before theLineput quote after theLinerepeat until (char 1 to 4 of theIntro) is a integerdelete char 1 of theIntroend repeatget ((round((word 1 of theIntro)/1024)&tab&theLine)&return)put itput it after temp-- put it after cd fld 1end repeatopen file theFilewrite temp to file theFileclose file theFileend mouseUp</script>
  42.     </part>
  43.     <part>
  44.         <id>2</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <true /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <false /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <false /> </lockText>
  53.         <rect>
  54.             <left>0</left>
  55.             <top>44</top>
  56.             <right>352</right>
  57.             <bottom>296</bottom>
  58.         </rect>
  59.         <style>scrolling</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>left</textAlign>
  68.         <font>Geneva</font>
  69.         <textSize>12</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>16</textHeight>
  72.         <name></name>
  73.         <script></script>
  74.     </part>
  75.     <content>
  76.         <layer>card</layer>
  77.         <id>2</id>
  78.         <text></text>
  79.     </content>
  80.     <name></name>
  81.     <script></script>
  82. </card>
  83.  
  84.  
  85.