Eskil

Differences From Artifact [3ad52a2b26]:

• File tests/gui.test — part of check-in [1125c540c5] at 2016-07-29 10:38:41 on branch trunk — Tidying tests (user: peter size: 2964) [more...]

To Artifact [bc93116d5f]:

• File tests/gui.test — part of check-in [bc38ecca6e] at 2018-10-20 20:28:34 on branch trunk — Handle different user name. (user: peter size: 2971)

1
2
3
4
5
6
7
8
9
10
11
12

#------------------------------------------------------------*- tcl -*-
# Tests for GUI
#----------------------------------------------------------------------

lappend ::auto_path /home/peter/src/TkTest
package require TkTest
wm withdraw .

proc XauthSecure {} {
    global tcl_platform

    if {[string compare unix $tcl_platform(platform)]} {

|

1
2
3
4
5
6
7
8
9
10
11
12

#------------------------------------------------------------*- tcl -*-
# Tests for GUI
#----------------------------------------------------------------------

lappend ::auto_path /home/$::env(USER)/src/TkTest
package require TkTest
wm withdraw .

proc XauthSecure {} {
    global tcl_platform

    if {[string compare unix $tcl_platform(platform)]} {