Tk Source Code

Check-in [3ccd19e0]
Login

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

Overview
Comment:Fix [d91e05bf20]: text widget will not process a <<copy>> when disabled
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | bug-d91e05bf20
Files: files | file ages | folders
SHA3-256: 3ccd19e0a72a6c55b0faf6b4596d55d592c806b690f8f2a092bb113eb705399a
User & Date: fvogel 2020-09-20 16:06:03.164
References
2021-04-14
14:25 New ticket [1f1273f7] Checkin #3ccd19e0a7 breaks expected operation of text window on linux. artifact: 227e753c user: sbron
Context
2020-09-21
20:26
Fix [d91e05bf20]: text widget will not process a <<copy>> when disabled (macOS and Linux) check-in: 2b8cf15b user: fvogel tags: core-8-6-branch
2020-09-20
16:06
Fix [d91e05bf20]: text widget will not process a <<copy>> when disabled Closed-Leaf check-in: 3ccd19e0 user: fvogel tags: bug-d91e05bf20
2020-09-18
20:25
Fix [4f4f03f5eb]: B1-Motion events are ignored in the window title bar. check-in: abad3d49 user: marc_culler tags: core-8-6-branch
Changes
Unified Diff Ignore Whitespace Patch
Changes to library/text.tcl.
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
    # relative to the gap
    set bbox [$w bbox [$w index $anchorname]]
    if {$x > [lindex $bbox 0]} {
	$w mark gravity $anchorname right
    } else {
	$w mark gravity $anchorname left
    }
    # Allow focus in any case on Windows, because that will let the
    # selection be displayed even for state disabled text widgets.
    if {[tk windowingsystem] eq "win32" \
	    || [$w cget -state] eq "normal"} {
	focus $w
    }
    if {[$w cget -autoseparators]} {
	$w edit separator
    }
}

# ::tk::TextSelectTo --
# This procedure is invoked to extend the selection, typically when







<
<
<
<
|
<







567
568
569
570
571
572
573




574

575
576
577
578
579
580
581
    # relative to the gap
    set bbox [$w bbox [$w index $anchorname]]
    if {$x > [lindex $bbox 0]} {
	$w mark gravity $anchorname right
    } else {
	$w mark gravity $anchorname left
    }




    focus $w

    if {[$w cget -autoseparators]} {
	$w edit separator
    }
}

# ::tk::TextSelectTo --
# This procedure is invoked to extend the selection, typically when