Cleanup of library code, removal of unneeded function

1 files changed, 0 insertions, 10 deletions

diff --git a/library/text.tcl b/library/text.tcl
index 644dcdb..d8bf1a2 100644
--- a/library/text.tcl
+++ b/library/text.tcl
@@ -85,9 +85,6 @@ bind Text <B1-Enter> {
 }
 bind Text <ButtonRelease-1> {
     tk::CancelRepeat
-    if {[tk windowingsystem] eq "aqua"} {
-	catch {tk::CheckSelection %W}
-    }
 }
 bind Text <Control-1> {
     %W mark set insert @%x,%y
@@ -1216,10 +1213,3 @@ proc ::tk::TextScanDrag {w x y} {
 	$w scan dragto $x $y
     }
 }
-
-
-proc ::tk::CheckSelection {w} {
-    clipboard clear
-    clipboard append [$w get sel.first sel.last]
-
-}