Relocate proc setup

tcltk · Jan 8, 2025 · b6fda71 · b6fda71
1 parent d6c9574
commit b6fda71
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 24 deletions.
diff --git a/tests/select.test b/tests/select.test
@@ -96,18 +96,6 @@ proc reallyBadHandler {path type offset count} {
 selection clear .
 after 1500
 
-# common setup code
-proc setup {{path .f1} {display {}}} {
-    catch {destroy $path}
-    if {$display == {}} {
-	frame $path
-    } else {
-	toplevel $path -screen $display
-	wm geom $path +0+0
-    }
-    selection own $path
-}
-
 # set up a very large buffer to test INCR retrievals
 set longValue ""
 foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} {

diff --git a/tests/testutils.tcl b/tests/testutils.tcl
@@ -570,6 +570,17 @@ namespace eval ::tk::test::select {
 	error "selection handler aborted"
     }
 
+    proc setup {{path .f1} {display {}}} {
+	catch {destroy $path}
+	if {$display == {}} {
+	    frame $path
+	} else {
+	    toplevel $path -screen $display
+	    wm geom $path +0+0
+	}
+	selection own $path
+    }
+
     namespace export *
 }
 

diff --git a/tests/unixSelect.test b/tests/unixSelect.test
@@ -85,18 +85,6 @@ proc reallyBadHandler {path type offset count} {
 selection clear .
 after 1500
 
-# common setup code
-proc setup {{path .f1} {display {}}} {
-    catch {destroy $path}
-    if {$display == {}} {
-    frame $path
-    } else {
-    toplevel $path -screen $display
-    wm geom $path +0+0
-    }
-    selection own $path
-}
-
 # set up a very large buffer to test INCR retrievals
 set longValue ""
 foreach i {a b c d e f g j h i j k l m o p q r s t u v w x y z} {