Tk Source Code

Check-in [432d6fa9]
Login
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:Remove unnecessary call to Button1-Release in text widget
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | mac_services
Files: files | file ages | folders
SHA3-256: 432d6fa99b303b741f3f5eeac60312c61897981d02acd283de2e9a5203334d51
User & Date: kevin_walzer 2019-05-01 01:43:22
Context
2019-05-01
01:59
Removal of needlessly large buffer for services script, thanks to Marc Culler for patch check-in: 07162240 user: kevin_walzer tags: mac_services
01:43
Remove unnecessary call to Button1-Release in text widget check-in: 432d6fa9 user: kevin_walzer tags: mac_services
2019-04-30
11:40
Automatically bind text, entry, ttk::entry widgets to Services API at widget creation/mapping; re-work data mechanism to use selection rather than clipboard API, thanks to Marc Culler for that insight check-in: 52287ff4 user: kevin_walzer tags: mac_services
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/text.tcl.

86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
    tk::TextAutoScan %W
}
bind Text <B1-Enter> {
    tk::CancelRepeat
}
bind Text <ButtonRelease-1> {
    tk::CancelRepeat
      if {[tk windowingsystem] eq "aqua"} {
    	::tk::RegisterServiceWidget %W
    }
}

bind Text <Control-1> {
    %W mark set insert @%x,%y
    # An operation that moves the insert mark without making it
    # one end of the selection must insert an autoseparator
    if {[%W cget -autoseparators]} {






<
<
<







86
87
88
89
90
91
92



93
94
95
96
97
98
99
    tk::TextAutoScan %W
}
bind Text <B1-Enter> {
    tk::CancelRepeat
}
bind Text <ButtonRelease-1> {
    tk::CancelRepeat



}

bind Text <Control-1> {
    %W mark set insert @%x,%y
    # An operation that moves the insert mark without making it
    # one end of the selection must insert an autoseparator
    if {[%W cget -autoseparators]} {