1
2
3
4
5
6
7
8
9
10
11
|
#------------------------------------------------------------*- tcl -*-
# Tests for GUI
#----------------------------------------------------------------------
# $Revision$
#----------------------------------------------------------------------
lappend ::auto_path /home/peter/src/TkTest
package require TkTest
wm withdraw .
proc XauthSecure {} {
|
<
<
|
1
2
3
4
5
6
7
8
9
|
#------------------------------------------------------------*- tcl -*-
# Tests for GUI
#----------------------------------------------------------------------
lappend ::auto_path /home/peter/src/TkTest
package require TkTest
wm withdraw .
proc XauthSecure {} {
|