home *** CD-ROM | disk | FTP | other *** search
/ Netscape Plug-Ins Developer's Kit / Netscape_Plug-Ins_Developers_Kit.iso / EDITORS / grinder / wheels / date.hqx / date_stamp.hqx / background_3885.xml next >
Encoding:
Extensible Markup Language  |  1995-09-29  |  3.6 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>3885</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_3279.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>344</top>
  23.             <right>17</right>
  24.             <bottom>360</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 openstackput dater() into cd fld thedatepass openstackend openstackfunction daterput the selectedtext of card btn "date format:" into themodedo ("put the" && themode && "date into thedate")return thedateend dateron enterkeyset the hilite of cd btn "Append Text" to truewait 5set the hilite of cd btn "Append Text" to falsesend mouseup to cd btn "Append Text"end enterkeyon converter thefile,thecontentsput filemoddate(thefile,false) into thedatedo "convert thedate to" && (the selectedtext of card btn "date format:") && "date"put "<!--Date Stamp-->" &return& cd fld beforedate & thedate & (cd fld afterdate) &return& "<!--end of Date Stamp-->" into thetext--put thecontents into cd fld holding--get search(thecontents,"<!--Date Stamp-->",true)put item 1 of it into startlineget search(thecontents,"<!--end of Date Stamp-->",true)put item 1 of it into endlineif startline is empty or endline is empty thenput word 2 of the selectedline of cd btn insert into appendoif appendo is 1then put "0" into chartoucheelse if appendo is 2then put length(thecontents) into chartoucheelse if appendo is 3then put fulloffset(thecontents,cd fld texto,starter) into chartoucheelse if appendo is 4then put fulloffset(thecontents,cd fld texto,ender) into chartoucheif chartouche is not "error" thenput thetext &return after char chartouche of thecontentsend ifelse put thetext into line startline to endline of thecontentsReplaceFile thefile,thecontentsend converterfunction fulloffset thecontents,thetext,whichwayput thecontents into cd fld holdingfind string thetext in cd fld holdingif the result is not empty then return "ERROR"else if whichway is starterthen return (word 2 of the foundchunk) -1else return (word 4 of the foundchunk)end fulloffsetfunction firstchar thecontents,tagawareput thecontents into cd fld holdingif tagaware thenfind string "<body>" in cd fld holdingif the result is not empty thenfind string "</head>" in cd fld holdingif the result is not empty thenfind string "</title>" in cd fld holdingif the result is not emptythen put "0" into chunkyelse put word 4 of the foundchunk into chunkyelse put word 4 of the foundchunk into chunkyelse put word 4 of the foundchunk into chunkyelse put "0" into chunkyput empty into cd fld holdingreturn chunkyend firstchar</script>
  43. </background>
  44.