Tk Library Source Code
Check-in [0642e95299]
Not logged in
Core Home Documentation Tickets | Timeline Branches Tags Wiki Login
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment: * scripts/tablelistBind.tcl: Minor improvement.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 0642e95299948f00ea8bd547e8e3c3f71066b3b8
User & Date: csaba 2013-04-21 15:57:43
Context
2013-04-21
15:58
* scripts/tablelistUtil.tcl: Worked around a peculiarity of Tk on * scripts/tablelistWidget.tcl: Windows, related to deleting an embedded window while resizing a text widget interactively. check-in: 5ae040fd4f user: csaba tags: trunk
15:57
* scripts/tablelistBind.tcl: Minor improvement. check-in: 0642e95299 user: csaba tags: trunk
15:55
* CHANGES.txt: Slightly extended. * doc/tablelistWidget.html: check-in: c2426357c3 user: csaba tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to modules/tablelist/scripts/tablelistBind.tcl.
︙︙
356
357
358
359
360
361
362



363
364
365
366
367
368
369

	    set tablelist::priv(clickedInEditWin) 0
	    if {[$tablelist::W cget -setfocus] &&
		[string compare [$tablelist::W cget -state] "normal"] == 0} {
		focus [$tablelist::W bodypath]
	    }
	    if {[tablelist::wasExpCollCtrlClicked %W %x %y]} {
		set tablelist::priv(clickedExpCollCtrl) 1



	    } else {
		tablelist::condEditContainingCell $tablelist::W \
		    $tablelist::x $tablelist::y
		tablelist::condBeginMove $tablelist::W $tablelist::priv(row)
		tablelist::beginSelect $tablelist::W \
		    $tablelist::priv(row) $tablelist::priv(col)
	    }








>
>
>








356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372

	    set tablelist::priv(clickedInEditWin) 0
	    if {[$tablelist::W cget -setfocus] &&
		[string compare [$tablelist::W cget -state] "normal"] == 0} {
		focus [$tablelist::W bodypath]
	    }
	    if {[tablelist::wasExpCollCtrlClicked %W %x %y]} {
		set tablelist::priv(clickedExpCollCtrl) 1
		if {[string compare [$tablelist::W editwinpath] ""] != 0} {
		    tablelist::doFinishEditing $tablelist::W
		}
	    } else {
		tablelist::condEditContainingCell $tablelist::W \
		    $tablelist::x $tablelist::y
		tablelist::condBeginMove $tablelist::W $tablelist::priv(row)
		tablelist::beginSelect $tablelist::W \
		    $tablelist::priv(row) $tablelist::priv(col)
	    }
︙︙