Index: tests/focus.test
===================================================================
RCS file: /cvsroot/tk/tests/focus.test,v
retrieving revision 1.6
diff -c -r1.6 focus.test
*** focus.test	2000/05/11 22:36:32	1.6
--- focus.test	2000/07/22 01:22:33
***************
*** 572,578 ****
      bind all <FocusOut> {lappend x "focus out %W %d"}
      interp create child
      child eval "set argv {-use [winfo id .t.f1]}"
!     load {} tk child
      child eval {
  	entry .e1 -bg lightBlue
  	pack .e1
--- 572,578 ----
      bind all <FocusOut> {lappend x "focus out %W %d"}
      interp create child
      child eval "set argv {-use [winfo id .t.f1]}"
!     load {} Tk child
      child eval {
  	entry .e1 -bg lightBlue
  	pack .e1
Index: tests/macEmbed.test
===================================================================
RCS file: /cvsroot/tk/tests/macEmbed.test,v
retrieving revision 1.4
diff -c -r1.4 macEmbed.test
*** macEmbed.test	1999/04/16 01:51:38	1.4
--- macEmbed.test	2000/07/22 01:22:33
***************
*** 216,222 ****
      pack .f1 .f2
      interp create child
      child eval "set argv {-use [winfo id .f1]}"
!     load {} tk child
      child eval {
  	. configure -bd 2 -highlightthickness 2 -relief sunken
      }
--- 216,222 ----
      pack .f1 .f2
      interp create child
      child eval "set argv {-use [winfo id .f1]}"
!     load {} Tk child
      child eval {
  	. configure -bd 2 -highlightthickness 2 -relief sunken
      }
Index: tests/macMenu.test
===================================================================
RCS file: /cvsroot/tk/tests/macMenu.test,v
retrieving revision 1.3
diff -c -r1.3 macMenu.test
*** macMenu.test	1999/04/16 01:51:39	1.3
--- macMenu.test	2000/07/22 01:22:34
***************
*** 852,858 ****
      catch {destroy .m1}
      catch {interp delete testinterp}
      interp create testinterp
!     load {} tk testinterp
      menu .m1
      . configure -menu .m1
      raise .
--- 852,858 ----
      catch {destroy .m1}
      catch {interp delete testinterp}
      interp create testinterp
!     load {} Tk testinterp
      menu .m1
      . configure -menu .m1
      raise .
Index: tests/menu.test
===================================================================
RCS file: /cvsroot/tk/tests/menu.test,v
retrieving revision 1.4
diff -c -r1.4 menu.test
*** menu.test	2000/05/11 22:37:05	1.4
--- menu.test	2000/07/22 01:22:35
***************
*** 2300,2306 ****
  test menu-27.1 {GetMenuHashTable} {
      catch {interp destroy testinterp}
      interp create testinterp
!     load {} tk testinterp
      list [catch {interp eval testinterp {menu .m1}} msg] $msg [interp delete testinterp]
  } {0 .m1 {}}
  
--- 2300,2306 ----
  test menu-27.1 {GetMenuHashTable} {
      catch {interp destroy testinterp}
      interp create testinterp
!     load {} Tk testinterp
      list [catch {interp eval testinterp {menu .m1}} msg] $msg [interp delete testinterp]
  } {0 .m1 {}}
  
Index: tests/unixEmbed.test
===================================================================
RCS file: /cvsroot/tk/tests/unixEmbed.test,v
retrieving revision 1.7
diff -c -r1.7 unixEmbed.test
*** unixEmbed.test	1999/04/21 21:53:30	1.7
--- unixEmbed.test	2000/07/22 01:22:35
***************
*** 550,556 ****
      pack .f1 .f2
      interp create child
      child eval "set argv {-use [winfo id .f1]}"
!     load {} tk child
      child eval {
  	. configure -bd 2 -highlightthickness 2 -relief sunken
      }
--- 550,556 ----
      pack .f1 .f2
      interp create child
      child eval "set argv {-use [winfo id .f1]}"
!     load {} Tk child
      child eval {
  	. configure -bd 2 -highlightthickness 2 -relief sunken
      }
Index: tests/unixWm.test
===================================================================
RCS file: /cvsroot/tk/tests/unixWm.test,v
retrieving revision 1.12
diff -c -r1.12 unixWm.test
*** unixWm.test	2000/03/29 00:09:07	1.12
--- unixWm.test	2000/07/22 01:22:36
***************
*** 1832,1838 ****
      wm geometry .t +0+0
      tkwait visibility .t
      interp create slave
!     load {} tk slave
      slave eval {wm geometry . 200x200+0+0; tkwait visibility .}
      set result [list [winfo containing 100 100] \
  	    [slave eval {winfo containing 100 100}]]
--- 1832,1838 ----
      wm geometry .t +0+0
      tkwait visibility .t
      interp create slave
!     load {} Tk slave
      slave eval {wm geometry . 200x200+0+0; tkwait visibility .}
      set result [list [winfo containing 100 100] \
  	    [slave eval {winfo containing 100 100}]]