A Multi-Column Listbox
Check-in [e8f236327a]
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: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.
Timelines: family | ancestors | scriptics-sc-1-0-branch
Files: files | file ages | folders
SHA1: e8f236327a7908cc2823e893cb59199a76d80c03
User & Date: sven 1999-11-12 04:06:52
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
1999-11-04
00:36
Fixed the drifting edit button bug. check-in: 341345cfa1 user: ericm tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to mclistbox.tcl.

3037
3038
3039
3040
3041
3042
3043







3044
3045
3046
3047
3048
3049
3050
    if { [CheckColumnID $w $id] == -1 } {
	return -code error "invalid column $id"
    }

    # define some shorthand
    set listbox $widgets(listbox$id)
    set frame   $widgets(frame$id)








    set initval [$listbox get $index]

    # Compute the geometry for the inline editing widget
    # It's computed from the bbox of the text and the select border width.
    set sbw [$listbox cget -selectborderwidth]
    set bbox [$listbox bbox $index]






>
>
>
>
>
>
>







3037
3038
3039
3040
3041
3042
3043
3044
3045
3046
3047
3048
3049
3050
3051
3052
3053
3054
3055
3056
3057
    if { [CheckColumnID $w $id] == -1 } {
	return -code error "invalid column $id"
    }

    # define some shorthand
    set listbox $widgets(listbox$id)
    set frame   $widgets(frame$id)

    # If there is already an edit session in progress, bail out. I 
    # am not 100% sure that this is all we have to do, but it sure
    # is better than throwing a stack trace :-).
    if {[winfo exists $listbox._inlineEditFrame]} {
        return ""
    }

    set initval [$listbox get $index]

    # Compute the geometry for the inline editing widget
    # It's computed from the bbox of the text and the select border width.
    set sbw [$listbox cget -selectborderwidth]
    set bbox [$listbox bbox $index]