Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | improve twv demo |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b9d5c5a105b4e40a1febad560ca6eb49 |
| User & Date: | chw 2019-06-13 12:54:11 |
Context
|
2019-06-13
| ||
| 14:30 | update curl to version 7.65.1 check-in: 005ec0d00e user: chw tags: trunk | |
| 12:55 | merge with trunk check-in: cd7193897b user: chw tags: wtf-8-experiment | |
| 12:54 | improve twv demo check-in: b9d5c5a105 user: chw tags: trunk | |
| 12:53 | update DiffUtilTcl to version 0.4.1 check-in: 00d59d6925 user: chw tags: trunk | |
Changes
Changes to undroid/tsb/examples/cheatsheet.tsb.
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 |
<dd>Format a horizontal ruler, auto-hide the input field.</dd><br>
<dt><code><b>htmlraw</b> html ?hidden?</code></dt>
<dd>Output raw HTML after the corresponding input field, if <code>hidden</code>
is true, auto-hide the input field.</dd><br>
<dt><code><b>img</b> ?filename import mime?</code></dt>
<dd>Format a HTML IMG given <code>filename</code>, if file name omitted,
present file selection. If <code>import</code> is true, the image is
inlined. If the mime type of the image is unknown it can be specified
with the <code>mime</code> parameter.</dd><br>
<dt><code><b>img_from_binary</b> data mime ?hidden?</code></dt>
<dd>Format a HTML IMG given the byte array <code>data</code> and mime
type <code>mime</code>. If <code>hidden</code> is false, the corresponding
input field is not auto-hidden.</dd><br>
<dt><code><b>parray</b> arrayname ?pattern?</code></dt>
<dd>Pretty print an array using <code><b>puts</b></code> and thus outputs
after the corresponding input field.</dd><br>
|
| | > |
19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 |
<dd>Format a horizontal ruler, auto-hide the input field.</dd><br>
<dt><code><b>htmlraw</b> html ?hidden?</code></dt>
<dd>Output raw HTML after the corresponding input field, if <code>hidden</code>
is true, auto-hide the input field.</dd><br>
<dt><code><b>img</b> ?filename import mime?</code></dt>
<dd>Format a HTML IMG given <code>filename</code>, if file name omitted,
present file selection. If <code>import</code> is true, the image is
inlined. If the mime type of the image is unknown, it can be specified
with the <code>mime</code> parameter. The corresponding input field
is auto-hidden.</dd><br>
<dt><code><b>img_from_binary</b> data mime ?hidden?</code></dt>
<dd>Format a HTML IMG given the byte array <code>data</code> and mime
type <code>mime</code>. If <code>hidden</code> is false, the corresponding
input field is not auto-hidden.</dd><br>
<dt><code><b>parray</b> arrayname ?pattern?</code></dt>
<dd>Pretty print an array using <code><b>puts</b></code> and thus outputs
after the corresponding input field.</dd><br>
|
Changes to undroid/tsb/tsb.tcl.
213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 ... 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 ... 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 ... 833 834 835 836 837 838 839 840 841 842 843 844 845 846 847 848 |
# This needs work.
if {$mime ne ""} {
set mime [::tsb::htmlquote $mime]
} else {
set mime image/[string tolower [file extension $name]]
}
if {![catch {open $name rb} f]} {
set ret "<img style='margin-left:1em;' src='data:$mime;base64,\n"
append ret [binary encode base64 -maxlen 78 [read $f]]
append ret "'>\n<br><br>"
close $f
if {$selname || $import} {
set cmd [dict get [info frame -1] cmd]
if {$import} {
set newcmd "#HTML\n$ret"
} else {
set newcmd $cmd
................................................................................
return
}
# Insert image from byte array.
proc img_from_binary {data mime {hidden 1}} {
set mime [::tsb::htmlquote $mime]
set ret "<img style='margin-left:1em;' src='data:$mime;base64,\n"
append ret [binary encode base64 -maxlen 78 $data]
append ret "'>\n<br><br>"
htmlraw $ret $hidden
return
}
# Load and save functions.
proc ::tsb::load {{name {}}} {
................................................................................
var Wclear = function(id) {
if (!needsClear[id]) {
return;
}
var output =
document.getElementById('out' + id + '-pre').firstChild;
output.style.color = 'inherit';
output.innerHTML = '';
output = document.getElementById('out' + id + '-raw');
output.innerHTML = '';
};
var Wresult = function(id, str) {
var output =
document.getElementById('out' + id + '-pre').firstChild;
str = str.replace(/&/g, '&');
str = str.replace(/</g, '<');
................................................................................
output.innerHTML = str;
} else {
output.innerHTML += str;
}
if (needsClear[id]) {
output =
document.getElementById('out' + id + '-pre').firstChild;
output.style.color = 'inherit';
output.innerHTML = '';
}
needsClear[id] = null;
};
var Inhide = function(id, hide) {
var input = document.getElementById('in' + id);
var output = document.getElementById('out' + id + '-raw');
|
| | | | > | | > > | > > | | > |
213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 ... 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 ... 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 ... 837 838 839 840 841 842 843 844 845 846 847 848 849 850 851 852 853 854 |
# This needs work.
if {$mime ne ""} {
set mime [::tsb::htmlquote $mime]
} else {
set mime image/[string tolower [file extension $name]]
}
if {![catch {open $name rb} f]} {
set ret "<img style='margin: 1em;' src='data:$mime;base64,\n"
append ret [binary encode base64 -maxlen 78 [read $f]]
append ret "'>\n"
close $f
if {$selname || $import} {
set cmd [dict get [info frame -1] cmd]
if {$import} {
set newcmd "#HTML\n$ret"
} else {
set newcmd $cmd
................................................................................
return
}
# Insert image from byte array.
proc img_from_binary {data mime {hidden 1}} {
set mime [::tsb::htmlquote $mime]
set ret "<img style='margin: 1em;' src='data:$mime;base64,\n"
append ret [binary encode base64 -maxlen 78 $data]
append ret "'>\n"
htmlraw $ret $hidden
return
}
# Load and save functions.
proc ::tsb::load {{name {}}} {
................................................................................
var Wclear = function(id) {
if (!needsClear[id]) {
return;
}
var output =
document.getElementById('out' + id + '-pre').firstChild;
if (output.innerHTML.length > 0) {
output.style.color = 'inherit';
output.innerHTML = '';
}
output = document.getElementById('out' + id + '-raw');
if (output.innerHTML.length > 0) {
output.innerHTML = '';
}
};
var Wresult = function(id, str) {
var output =
document.getElementById('out' + id + '-pre').firstChild;
str = str.replace(/&/g, '&');
str = str.replace(/</g, '<');
................................................................................
output.innerHTML = str;
} else {
output.innerHTML += str;
}
if (needsClear[id]) {
output =
document.getElementById('out' + id + '-pre').firstChild;
if (output.innerHTML.length > 0) {
output.style.color = 'inherit';
output.innerHTML = '';
}
}
needsClear[id] = null;
};
var Inhide = function(id, hide) {
var input = document.getElementById('in' + id);
var output = document.getElementById('out' + id + '-raw');
|