Implementation and documentation complete, now ready to be submitted as TIP

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]
 	}
     }
 }