Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | * fixed problem with quoting in ::nacl::evall - failed on things that looked like strings |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | ferrieux-nacl |
| Files: | files | file ages | folders |
| SHA1: |
141843d0f441a23db8c339de7742e9f0 |
| User & Date: | colin 2011-05-16 09:09:30 |
Context
|
2011-10-07
| ||
| 12:16 | Merge updates from trunk check-in: 59daece720 user: ferrieux tags: ferrieux-nacl | |
|
2011-05-16
| ||
| 09:09 | * fixed problem with quoting in ::nacl::evall - failed on things that looked like strings check-in: 141843d0f4 user: colin tags: ferrieux-nacl | |
|
2011-05-08
| ||
| 11:07 | * fixed src handling to <script> emulation check-in: 81ae7caf45 user: colin tags: ferrieux-nacl | |
Changes
Changes to nacl/demo/NaTk/NaTk.tcl.
| ︙ | ︙ | |||
668 669 670 671 672 673 674 |
set tag <text>
#append js [my element].datepicker();
}
default {
set tag <text>
}
}
| | | 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 |
set tag <text>
#append js [my element].datepicker();
}
default {
set tag <text>
}
}
set event [list onchange "tcl(\"[self]\",\"changed\",tclEsc([my element].value));return false;"]
set result [my $tag $id id $id class var {*}$event {*}[my style $args] size [dict get $props width] [tclarmour [my getvalue]]]
return $result
}
constructor {args} {
variable ignore 1
next {*}[dict merge {
|
| ︙ | ︙ |
Changes to nacl/init.natcl.
| ︙ | ︙ | |||
74 75 76 77 78 79 80 |
}
# evall - evaluate a list as a command
# returns javascript to evaluate in nacl
proc evall {args} {
variable hooks
if {[catch {
| | | 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
}
# evall - evaluate a list as a command
# returns javascript to evaluate in nacl
proc evall {args} {
variable hooks
if {[catch {
uplevel #0 $args
foreach x $hooks {uplevel #0 $x}
} err eo]} {
bgerror "$err ($eo)"
}
variable JS; set toJS $JS; set JS ""
return $toJS
|
| ︙ | ︙ |