A Multi-Column Listbox
Check-in [b26cc01d67]
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:Geometry tweak.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b26cc01d67d2fc1ee2aa0e9f2d8ff0f309027eb7
User & Date: ericm 1999-11-03 19:30:01
Context
1999-11-03
19:56
Geom. tweak. check-in: 1a27be9cfe user: ericm tags: trunk
19:30
Geometry tweak. check-in: b26cc01d67 user: ericm tags: trunk
1999-10-29
21:00
Changed geometry and placement of button so that it doesn't look so crummy on windows. check-in: 25329602a2 user: ericm tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mclistbox.tcl.

733
734
735
736
737
738
739
740


741
742
743
744
745
746
747
	    -bd 1 \
	    -highlightthickness 0 \
	    ]

    set button \
	    [button $frame.editbutton \
	    -bd 1        \
	    -width 1     \


	    -text "Edit" \
	    -command [list ::mclistbox::_editButtonCommand $w $id] \
	    -state disabled
	    ]
    # Pick up the font family from the default, but change the size to 8 point
    # (so it's very small) and drop any bold/italic/whatever modifiers
    foreach {fontFamily fontSize} [$button cget -font] break






|
>
>







733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
	    -bd 1 \
	    -highlightthickness 0 \
	    ]

    set button \
	    [button $frame.editbutton \
	    -bd 1        \
	    -width 4     \
		-padx 0      \
		-pady 0      \
	    -text "Edit" \
	    -command [list ::mclistbox::_editButtonCommand $w $id] \
	    -state disabled
	    ]
    # Pick up the font family from the default, but change the size to 8 point
    # (so it's very small) and drop any bold/italic/whatever modifiers
    foreach {fontFamily fontSize} [$button cget -font] break