Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | remove debugging lines |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
f96c3b6a78975cd48c7384600d3f5e3b |
| User & Date: | stever 2013-01-19 23:47:03 |
Context
|
2013-01-19
| ||
| 23:48 | tweak file upload code and Calculate button colors check-in: c41f9647fb user: stever tags: trunk | |
| 23:47 | remove debugging lines check-in: f96c3b6a78 user: stever tags: trunk | |
| 22:58 | Added code to store title in the properties. Also added a catch because "." is not a command currently but just "hacked" in. Will remove the catch once we switch to widgets being tcloo objects. check-in: e1a163b63e user: gerald tags: trunk | |
Changes
Changes to widgets/misc.tcl.
15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 |
method _createjs {} {
set r "wtk.createMisc('[$self id]','[$self cget -type]','[$self cget -text]','[$self cget -attr]');"
return $r
}
method _textchangejs {txt} {return "[$self jqobj].html('$txt');"}
method _setoption {opt var} {
puts stderr "$opt $var"
set options($opt) $var
if {$var!=""} {
if {![uplevel #0 info exists $options($opt)]} {
uplevel #0 set $options($opt) [list $var]
} else {
set typevalue [uplevel #0 set $options($opt)]
}
|
< |
15 16 17 18 19 20 21 22 23 24 25 26 27 28 |
method _createjs {} {
set r "wtk.createMisc('[$self id]','[$self cget -type]','[$self cget -text]','[$self cget -attr]');"
return $r
}
method _textchangejs {txt} {return "[$self jqobj].html('$txt');"}
method _setoption {opt var} {
set options($opt) $var
if {$var!=""} {
if {![uplevel #0 info exists $options($opt)]} {
uplevel #0 set $options($opt) [list $var]
} else {
set typevalue [uplevel #0 set $options($opt)]
}
|