
<html>

  <head>

    <meta content="text/html; charset=ISO-8859-1"

      http-equiv="Content-Type">

  </head>

  <body bgcolor="#FFFFFF" text="#000000">

    <font face="Georgia">This one's a bit smoother...<br>

      <br>

      renderContentOn: html<br>

      &nbsp;<br>

      &nbsp;&nbsp;&nbsp; | id longString |<br>

      <br>

      &nbsp;&nbsp;&nbsp; longString _ String streamContents: [ :strm |<br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; 1 to: 100 do: [ :i | strm nextPutAll: '&nbsp;&nbsp; ',i asString,'.

      Info for this item.'].<br>

      &nbsp;&nbsp;&nbsp; ].<br>

      &nbsp;&nbsp;&nbsp; html script: '<br>

      var UUBox = 0;<br>

      var UULeft = 0;<br>

      var UUInterval = 100;<br>

      var UUShift = 0;<br>

      <br>

      function ShiftLeftALittle() {<br>

      &nbsp;&nbsp;&nbsp; UULeft = UULeft + UUShift;<br>

      &nbsp;&nbsp;&nbsp; UUBox.style.left = UULeft+"px";<br>

      &nbsp;&nbsp;&nbsp; if (UULeft&gt;UULimit)

      {window.setTimeout("ShiftLeftALittle()",UUInterval)}<br>

      }<br>

      function StartShifting(boxname,interval,x,shift,limit) {<br>

      &nbsp;&nbsp;&nbsp; UUBox = document.getElementById(boxname);<br>

      &nbsp;&nbsp;&nbsp; UULeft = x;<br>

      &nbsp;&nbsp;&nbsp; UUInterval = interval;<br>

      &nbsp;&nbsp;&nbsp; UUShift = shift;<br>

      &nbsp;&nbsp;&nbsp; UULimit = limit;<br>

      &nbsp;&nbsp;&nbsp; ShiftLeftALittle();<br>

      }<br>

      &nbsp;&nbsp;&nbsp; '.<br>

      &nbsp;&nbsp;&nbsp; html div&nbsp;&nbsp;&nbsp; <br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; id: (id _ html nextId);&nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; <br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; style: <br>

      'right: -21000px;<br>

      left: 0px;<br>

      bottom: 0;<br>

      z-index: 20;<br>

      padding: 2px;<br>

      position: fixed;<br>

      text-align: left;<br>

      background-color: #eee;<br>

      border-top: 1px solid #aaa;<br>

      height: 18px;<br>

      font-size: 14px;<br>

      overflow: hidden;';<br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; with: longString.<br>

      &nbsp;&nbsp;&nbsp; <br>

      &nbsp;&nbsp;&nbsp; html document addLoadScript: <br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; (JSStream new<br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; nextPutAll: 'StartShifting';<br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; arguments: {id. 20. 0. -2. -8000};<br>

      &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; &nbsp;&nbsp;&nbsp; yourself).<br>

      <br>

      Cheers,<br>

      Bob<br>

    </font><br>

  </body>

</html>