Small cleanup for the French progman resources.
[wine] / tools / wineconf.tcl
1 #!/bin/sh
2 #
3 # Copyright 1999 Jean-Louis Thirot
4 #
5 # This library is free software; you can redistribute it and/or
6 # modify it under the terms of the GNU Lesser General Public
7 # License as published by the Free Software Foundation; either
8 # version 2.1 of the License, or (at your option) any later version.
9 #
10 # This library is distributed in the hope that it will be useful,
11 # but WITHOUT ANY WARRANTY; without even the implied warranty of
12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13 # Lesser General Public License for more details.
14 #
15 # You should have received a copy of the GNU Lesser General Public
16 # License along with this library; if not, write to the Free Software
17 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
18 #
19 # the next line restarts using wish \
20 exec wish $0 ${1+"$@"}
21 proc load_libs {} {
22         global TKW
23         set libLIST [glob $TKW/wineconf.libs/*.tcl]
24         foreach i $libLIST {
25                 uplevel #0 [list source $i]
26         }
27 }
28
29 proc load_lang { lang} {
30         global TKW
31         set langLIST [glob $TKW/wineconf.libs/*.$lang]
32         foreach i $langLIST {
33                 uplevel #0 [list source $i]
34         }
35 }
36 global TKW
37 if {![info exists TKW]} {
38         set TKW .
39         wm geom . 0x0
40         load_libs
41         load_lang eng
42         #global TKW;set TKW [pwd]
43         global USER; set USER [exec whoami]
44         global env HOME; set HOME $env(HOME)
45         image create photo wine_half -file wineconf.libs/wine-half.gif
46         TkW:wineconf1
47         TkW:autoconf
48         exit
49 } else {
50         load_libs
51         load_lang eng
52 }