Fix insufficient rect width value in resource file.
[wine] / tools / wineconf.tcl
1 #!/bin/sh
2 # the next line restarts using wish \
3 exec wish $0 ${1+"$@"} 
4 proc load_libs {} {
5         global TKW
6         set libLIST [glob $TKW/wineconf.libs/*.tcl]
7         foreach i $libLIST {
8                 uplevel #0 [list source $i]
9         }
10 }
11
12 proc load_lang { lang} {
13         global TKW
14         set langLIST [glob $TKW/wineconf.libs/*.$lang]
15         foreach i $langLIST {
16                 uplevel #0 [list source $i]
17         }
18 }
19 global TKW
20 if {![info exists TKW]} {
21         set TKW .
22         wm geom . 0x0
23         load_libs
24         load_lang eng
25         #global TKW;set TKW [pwd]
26         global USER; set USER [exec whoami]
27         global env HOME; set HOME $env(HOME)
28         image create photo wine_half -file wineconf.libs/wine-half.gif
29         TkW:wineconf1
30         TkW:autoconf
31         exit
32 } else {
33         load_libs
34         load_lang eng
35 }