SR Technology WTK Repo
Check-in [f96c3b6a78]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: f96c3b6a78975cd48c7384600d3f5e3b1bd03272
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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)]
						}