Tcl Source Code

Check-in [6bc9b780a1]
Login

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

Overview
Comment:Balls demo -- better status display during Nacl load. Added setup and troubleshooting instructions.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | ferrieux-nacl
Files: files | file ages | folders
SHA1: 6bc9b780a1fef5a13482bb82cd15bc28911d0e65
User & Date: ferrieux 2011-04-14 21:10:54
Context
2011-04-15
12:15
Cleanup of updateStatus() check-in: 1a6ada0a28 user: ferrieux tags: ferrieux-nacl
2011-04-14
21:10
Balls demo -- better status display during Nacl load. Added setup and troubleshooting instructions. check-in: 6bc9b780a1 user: ferrieux tags: ferrieux-nacl
2011-04-12
21:52
Allow to build both 32 and 64-bit nexes, and serve them together. check-in: d0dd0f5238 user: ferrieux tags: ferrieux-nacl
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to nacl/balls.html.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<!DOCTYPE html>
<html>
  <!--
  Copyright (c) 2010 The Native Client Authors. All rights reserved.
  Use of this source code is governed by a BSD-style license that can be
  found in the LICENSE file.
  -->
<head>

    <title>NaTcl : Tcl in Nacl</title>

  <script type="text/javascript">

     // NaTcl -- JS glue
     
var tclModule = null;  // our singleton Tcl interp

var canvas = null;
var context = null;
var canvcoords = [];














|







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
<!DOCTYPE html>
<html>
  <!--
  Copyright (c) 2010 The Native Client Authors. All rights reserved.
  Use of this source code is governed by a BSD-style license that can be
  found in the LICENSE file.
  -->
<head>

    <title>NaTcl : Tcl in Nacl</title>

  <script type="text/javascript">

// NaTcl -- JS glue
     
var tclModule = null;  // our singleton Tcl interp

var canvas = null;
var context = null;
var canvcoords = [];

85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
    };
}


// ---------- GUI and standard NaCl-loading machinery --------

var statusField = null;
modstatus = 'NO-STATUS';

function updateStatus(opt_message) {
    if (statusField) {
        statusField.innerHTML = modstatus;
    }
}








|







85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
    };
}


// ---------- GUI and standard NaCl-loading machinery --------

var statusField = null;
modstatus = 'Loading...';

function updateStatus(opt_message) {
    if (statusField) {
        statusField.innerHTML = modstatus;
    }
}

147
148
149
150
151
152
153
154
155
156










157
158
         nacl="tcl.nmf"
         type="application/x-nacl"
         onload="moduleDidLoad();" />
</p>

<p>This is a NaTcl emulation of the "Google Balls" Javascript demo at <a href="http://www.html5canvastutorials.com/labs/html5-canvas-google-bouncing-balls/">http://www.html5canvastutorials.com/labs/html5-canvas-google-bouncing-balls/</a></p>

<h2>Status</h2>
<div id="modstatus">NO-STATUS</div>
<hr>










</body>
</html>







<
|

>
>
>
>
>
>
>
>
>
>


147
148
149
150
151
152
153

154
155
156
157
158
159
160
161
162
163
164
165
166
167
         nacl="tcl.nmf"
         type="application/x-nacl"
         onload="moduleDidLoad();" />
</p>

<p>This is a NaTcl emulation of the "Google Balls" Javascript demo at <a href="http://www.html5canvastutorials.com/labs/html5-canvas-google-bouncing-balls/">http://www.html5canvastutorials.com/labs/html5-canvas-google-bouncing-balls/</a></p>


Status: <b><span id="modstatus">NO-STATUS</span></b>
<hr>
<p style="font-size : smaller;">
To run this demo, you need
<ul style="font-size : smaller;">
<li> An x86-family processor
<li> Chrome 10 or higher
<li> Enabled "Native Client" item in about:flags
<li> (if on Linux) the --no-sandbox command-line flag to Chrome
<li> if everything else fails, try the Nacl demos at <a href="http://code.google.com/chrome/nativeclient/docs/examples.html">http://code.google.com/chrome/nativeclient/docs/examples.html</a>
</ul>
</p>
</body>
</html>

Changes to nacl/balls.natcl.

1

2
3
4
5
6
7
8
source canv.natcl

domset statusField "Running..."

# will be retrieved by [domget]
set width 576
set height 300

# animation globals

>







1
2
3
4
5
6
7
8
9
source canv.natcl
#set ::canv_verbose 1
domset statusField "Running..."

# will be retrieved by [domget]
set width 576
set height 300

# animation globals