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 }