Tcl Source Code

Check-in [1a6ada0a28]
Login
☰Core Home Timeline Branches Tags Tickets Download Wiki

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

Overview
Comment:Cleanup of updateStatus()
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | ferrieux-nacl
Files: files | file ages | folders
SHA1: 1a6ada0a283c7f0f8925c54b05c159b8c4724a32
User & Date: ferrieux 2011-04-15 12:15:18
Context
2011-04-16
16:01
Added 'natcl2tk' wrapper to run the same demo in true Tk, for speed comparisons. check-in: 8e4b3d24c5 user: ferrieux tags: ferrieux-nacl
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
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to nacl/balls.html.

︙︙
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130

    };
}


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

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

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

function moduleDidLoad() {
    
    tclModule = document.getElementById('tcl');
    updateStatus('NaTcl Loaded ; Fetching and running !');
    tclDo('coroutine main_coro source balls.natcl');
    
}

// If the page loads before the Native Client module loads, then set the
// status message indicating that the module is still loading.  Otherwise,
// do not change the status message.

function pageDidLoad() {
    statusField = document.getElementById('modstatus');
    canvas=document.getElementById('canvas');
    context=canvas.getContext("2d");
    if (tclModule == null) {
        updateStatus('Loading Nacl...');
    } else {
        // It's possible that the Native Client module onload event fired
        // before the page's onload event.  In this case, the status message
        // will reflect 'SUCCESS', but won't be displayed.  This call will
        // display the current message.
        updateStatus();
    }
}

</script>
</head>

<body onload="pageDidLoad()">








<

|

|




















|
<
<
<
<
<
<








85
86
87
88
89
90
91

92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116






117
118
119
120
121
122
123

    };
}


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

var statusField = null;


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

function moduleDidLoad() {
    
    tclModule = document.getElementById('tcl');
    updateStatus('NaTcl Loaded ; Fetching and running !');
    tclDo('coroutine main_coro source balls.natcl');
    
}

// If the page loads before the Native Client module loads, then set the
// status message indicating that the module is still loading.  Otherwise,
// do not change the status message.

function pageDidLoad() {
    statusField = document.getElementById('modstatus');
    canvas=document.getElementById('canvas');
    context=canvas.getContext("2d");
    if (tclModule == null) {
        updateStatus('Loading NaTcl...');






    }
}

</script>
</head>

<body onload="pageDidLoad()">
︙︙
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>








|














140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160

         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">Loading...</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>

This page was generated in about 0.012s by Fossil 2.24 [f4ffefe708] 2024-04-17 14:02:19