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 }