fontchooser.test: relocate proc Click

Author: 1minus1is0

tests/fontchooser.test

@@ -11,13 +11,6 @@ namespace import -force ::tk::test::dialog::*
 upvar #0 ::tk::test::dialog::testDialog testDialog
 set applyFontCmd [list testDialogFont set]
 
-proc Click {button} {
-    if {$button ni "ok cancel apply"} {
-	return -code error "invalid button name \"$button\""
-    }
-    $::testDialog.$button invoke
-}
-
 # -------------------------------------------------------------------------
 
 test fontchooser-1.1 {tk fontchooser: usage} -returnCodes error -body {

tests/testutils.tcl

@@ -388,6 +388,14 @@ namespace eval ::tk::test::colors {
 
 namespace eval ::tk::test::dialog {
 
+    proc Click {button} {
+	variable testDialog
+	if {$button ni "ok cancel apply"} {
+	    return -code error "invalid button name \"$button\""
+	}
+	$testDialog.$button invoke
+    }
+
     proc PressButton {btn} {
 	event generate $btn <Enter>
 	event generate $btn <Button-1> -x 5 -y 5