Tcl Source Code

Check-in [43996dcdef]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:* left out updateCoords, added it back into balls.html pending final disposition
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | ferrieux-nacl
Files: files | file ages | folders
SHA1: 43996dcdef47d435155b483530f2f9d8bda56d57
User & Date: colin 2011-05-04 03:22:29
Context
2011-05-04
23:49
* defined an init script with TclSetPreInitScript() which permits us to use [interp create] without ... check-in: 4701561332 user: colin tags: ferrieux-nacl
03:22
* left out updateCoords, added it back into balls.html pending final disposition check-in: 43996dcdef user: colin tags: ferrieux-nacl
02:47
* Added new ::nacl ensemble to init.natcl, moved most support commands there * created an execll met... check-in: c9c95d03d6 user: colin tags: ferrieux-nacl
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to nacl/demo/balls.html.

32
33
34
35
36
37
38







39
40
41
42

    <script type="text/javascript">
      var statusField = document.getElementById('modstatus');
      var canvas = document.getElementById('canvas');
      var context=canvas.getContext("2d");
      var repaint = function () {};
      var canvcoords = [];







    </script>

  </body>
</html>







>
>
>
>
>
>
>




32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49

    <script type="text/javascript">
      var statusField = document.getElementById('modstatus');
      var canvas = document.getElementById('canvas');
      var context=canvas.getContext("2d");
      var repaint = function () {};
      var canvcoords = [];
      function updateCoords(ar) {
          var i,n;
          n=ar.length;
          for(i=0;i<n;i+=2)
             canvcoords[ar[i]]=ar[i+1];
      }

    </script>

  </body>
</html>