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: |
432d6fa99b303b741f3f5eeac60312c6 |
| 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
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]} {
|