A Multi-Column Listbox
Check-in [852147e373]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.

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

Overview
Comment:Fixed the edit button width to be smaller under Windows NT.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 852147e3739b7c3412adb23784a5512bda18d6bc
User & Date: sven 1999-11-03 21:49:47
Context
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
21:36
Geom. tweaks. check-in: f022d1067d user: ericm tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mclistbox.tcl.

1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
		if { ![string is boolean $value] } {
		    error "expected boolean value but got \"$value\""
		}
		if { $value } {
		    # Add the button
			set fnt [$editbutton cget -font]
			set txt [$editbutton cget -text]
			set w   [expr {[font measure $fnt $txt]*1.6}]
		    place $editbutton		\
			    -in		$label	\
			    -anchor	e	\
			    -relx	0.98	\
			    -rely	0.5	\
				-width  $w  \
			    -relheight 0.96	
		} else {
		    # Remove the button
		    place forget $editbutton
		}
	    }

	    -editcommand {






|


|

|

|







1091
1092
1093
1094
1095
1096
1097
1098
1099
1100
1101
1102
1103
1104
1105
1106
1107
1108
1109
1110
1111
1112
		if { ![string is boolean $value] } {
		    error "expected boolean value but got \"$value\""
		}
		if { $value } {
		    # 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
		}
	    }

	    -editcommand {