From 51183fa34e5f5f2554a87084acf36cc8e14d1b21 Mon Sep 17 00:00:00 2001
From: Kevin Walzer <kw@codebykevin.com>
Date: Wed, 27 Feb 2019 04:25:47 +0000
Subject: Cleanup of library code, removal of unneeded function

---
 library/text.tcl | 10 ----------
 1 file changed, 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]
-
-}
-- 
cgit v0.12