home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / EDITORS / grinder / wheels / index.hqx / index_builder.hqx / background_3802.xml next >
Encoding:
Extensible Markup Language  |  1995-09-29  |  4.2 KB  |  44 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3802</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3315.css" />
  10.     <part>
  11.         <id>5</id>
  12.         <type>button</type>
  13.         <visible> <true /> </visible>
  14.         <reserved5> 0 </reserved5>
  15.         <reserved4> 0 </reserved4>
  16.         <reserved3> 0 </reserved3>
  17.         <reserved2> 0 </reserved2>
  18.         <reserved1> 0 </reserved1>
  19.         <enabled> <true /> </enabled>
  20.         <rect>
  21.             <left>0</left>
  22.             <top>215</top>
  23.             <right>15</right>
  24.             <bottom>232</bottom>
  25.         </rect>
  26.         <style>opaque</style>
  27.         <showName> <false /> </showName>
  28.         <highlight> <false /> </highlight>
  29.         <autoHighlight> <true /> </autoHighlight>
  30.         <sharedHighlight> <true /> </sharedHighlight>
  31.         <family>0</family>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>29540</icon>
  34.         <textAlign>center</textAlign>
  35.         <font>Chicago</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <name>Help</name>
  39.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  40.     </part>
  41.     <name></name>
  42.     <script>on processif there is no file (cd fld basefolder) thenbeepanswer "The file you have specified for the Index doesn't exist!"else pass processend processon enterkeyset the hilite of cd btn "build index" to truewait 5set the hilite of cd btn "build index" to falsesend mouseup to cd btn "build index"end enterkeyon doitput cd fld basefolder into thefileopen file thefileread from file thefile until eofclose file thefileend doiton converter thefile,thecontentsput cd fld basefolder into baserput relativepath(baser,thefile) into thePathnameput thecontents into cd fld indexHoldfind string "<Title>" in cd fld indexHoldif the result is not empty then exit converterput (word 4 of the foundchunk)+1 into starterfind string "</Title>" in cd fld indexHoldif the result is not empty then exit converterput (word 2 of the foundchunk)-1 into enderput char starter to ender of cd fld indexHold into theTitleif the hilite of cd btn "alphabetize" is true and word 1 of theTitle is "The" thendelete word 1 of theTitleput ", The" after theTitleend ifput theTitle &"ΓÇó"&ThePathName &return after cd fld IndexListend converteron alldoneset the itemdelimiter to "ΓÇó"if the hilite of cd btn "alphabetize" is truethen sort lines of cd fld indexlist by item 1 of eachput the selectedtext of cd btn "format" into theformatrepeat with x = 1 to the number of lines in cd fld indexlistset cursor to busyput line x of cd fld indexlist into thisOneput item 1 of thisone into theTitleput item 2 of thisone into thePathget buildLink(theTitle,ThePath,word 2 of theformat)put it into line x of cd fld indexlistend repeatset the itemdelimiter to ","if theformat is "Unordered List" thenput "<ul>"&return before cd fld indexlistput "</ul>" after cd fld indexListelse   if theformat is "ordered List" thenput "<ol>"&return before cd fld indexlistput "</ol>" after cd fld indexListend ifattachindex cd fld indexlist,cd fld basefolderget "The index has been added to the specified file."send "alldone it" to homie()end alldonefunction buildLink theTitle,thePath,formatget"<a href="&quote&thePath&quote&">"&theTitle&"</a>"if format = listthen get "<li>"&itelse get it & "<p>"return itend buildLinkon attachindex theIndex,thefileopen file thefileread from file thefile until eofclose file thefileput it into thecontents--put "<!--Index-->"&return&theIndex&return&"<!--End of Index-->" into theIndex--get search(thecontents,"<!--Index-->",true)put item 1 of it into startlineget search(thecontents,"<!--End of Index-->",true)put item 1 of it into endlineif startline is empty or endline is emptythen put return&return& theindex after thecontentselse put theIndex into line startline to endline of thecontents--open file thefilewrite thecontents to file thefileclose file thefile--put empty into cd fld indexlistend attachindex</script>
  43. </background>
  44.