diff options
Diffstat (limited to 'library')
| -rw-r--r-- | library/text.tcl | 4 | ||||
| -rw-r--r-- | library/tk.tcl | 7 | ||||
| -rw-r--r-- | library/ttk/entry.tcl | 2 |
3 files changed, 8 insertions, 5 deletions
diff --git a/library/text.tcl b/library/text.tcl index 6c4c0f6..9cf26de 100644 --- a/library/text.tcl +++ b/library/text.tcl @@ -398,8 +398,8 @@ bind Text <Control-v> { bind Text <<Selection>> { clipboard clear - set selected [%W get sel.first sel.last] - clipboard append $selected + catch { set selected [%W get sel.first sel.last]} + catch {clipboard append $selected} } # End of Mac only bindings } diff --git a/library/tk.tcl b/library/tk.tcl index 1913fe4..93b20b1 100644 --- a/library/tk.tcl +++ b/library/tk.tcl @@ -684,9 +684,12 @@ if {[tk windowingsystem] eq "aqua"} { } #stub proc for NSServices API, must be replaced with custom implementation - proc ::tk::mac::PerformService {args} { + proc ::tk::mac::PerformService {} { + + set data [clipboard get] + + tk_messageBox -icon info -title "Services Example" -message "This data was sent to Wish with the NSServices API:\n\n$data" - tk_messageBox -icon info -title "Services Example" -message "This data was sent to Wish with the NSServices API:\n\n$args" } } diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl index 01ade97..39356b9 100644 --- a/library/ttk/entry.tcl +++ b/library/ttk/entry.tcl @@ -619,7 +619,7 @@ if {[tk windowingsystem] eq "aqua"} { proc ::ttk::CheckEntrySelection {w} { if {[$w selection present]} { clipboard clear - clipboard append [::ttk::EntrySelection $w] + clipboard append [::ttk::entry::EntrySelection $w] } } } |