A Multi-Column Listbox
Check-in [341345cfa1]
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:Fixed the drifting edit button bug.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 341345cfa167847ed825a2b539bbe2dc80097856
User & Date: ericm 1999-11-04 00:36:18
Context
1999-11-12
04:06
The inline editing is now protected against repeated calls by a [winfo exists] on the created inline editing entry widget. This should take care of bug # 3566, however I have not been able to reproduce the problem, so we can not be certain. Closed-Leaf check-in: e8f236327a user: sven tags: scriptics-sc-1-0-branch
03:49
The inline editing is now protected against repeated calls by a [winfo exists] on the created inline editing entry widget. This should take care of bug # 3566, however I have not been able to reproduce the problem, so we can not be certain. check-in: 1c75a30a07 user: sven tags: trunk
1999-11-04
00:36
Fixed the drifting edit button bug. check-in: 341345cfa1 user: ericm tags: trunk
1999-11-03
21:49
Fixed the edit button width to be smaller under Windows NT. check-in: 852147e373 user: sven tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mclistbox.tcl.

1095
1096
1097
1098
1099
1100
1101
1102

1103
1104
1105
1106
1107
1108
1109
		    # Add the button
			set fnt [$editbutton cget -font]
			set txt [$editbutton cget -text]
			set w   [expr {[font measure $fnt $txt]*1.5}]
		    place $editbutton		\
			    -in		$label	\
			    -anchor	ne	\
			    -relx	0.98	\

			    -rely	0.0	\
				-width  $w  \
			    -relheight 1.0	
		} else {
		    # Remove the button
		    place forget $editbutton
		}






|
>







1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
		    # Add the button
			set fnt [$editbutton cget -font]
			set txt [$editbutton cget -text]
			set w   [expr {[font measure $fnt $txt]*1.5}]
		    place $editbutton		\
			    -in		$label	\
			    -anchor	ne	\
			    -relx	1.0	\
				-x      -2  \
			    -rely	0.0	\
				-width  $w  \
			    -relheight 1.0	
		} else {
		    # Remove the button
		    place forget $editbutton
		}