Make winelauncher smarter about finding the Wine libraries and
[wine/wine64.git] / tools / wineconf.tcl
blob84cb60284da9b9db73ec92ae673e27e98f9f6661
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]
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]
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