Implement script level bindings

1 files changed, 20 insertions, 0 deletions

diff --git a/library/ttk/entry.tcl b/library/ttk/entry.tcl
index b3ebcbd..7ac29e4 100644
--- a/library/ttk/entry.tcl
+++ b/library/ttk/entry.tcl
@@ -427,6 +427,9 @@ proc ttk::entry::Release {w} {
     variable State
     set State(selectMode) none
     ttk::CancelRepeat 	;# suspend autoscroll
+    if {[tk windowingsystem] eq "aqua"} {
+	::ttk::CheckEntrySelection $w
+    }	
 }
 
 ## AutoScroll
@@ -604,4 +607,21 @@ proc ttk::entry::Delete {w} {
     }
 }
 
+if {[tk windowingsystem] eq "aqua"] {
+    # ::ttk::CheckEntrySelection --
+    #
+    # Writes selected text to the clipboard on macOS.
+    #
+    # Arguments:
+    # w -         The entry window from which the text to get
+
+    proc ::ttk::CheckEntrySelection {w} {
+	if {[$w selection present]} {
+	    clipboard clear
+	    clipboard append [::ttk::EntrySelection $w]
+	}
+    }
+}
+
+
 #*EOF*