Added graphical configuration tool wineconf.tcl.

tools/wineconf.libs/autoconf.eng

+set AlternateFstab "No /etc/fstab on your system, please, give an alternate filename"
+
+set IsCDwrite "is a cdrom.\n\n Please, let me know if you want to write CDs on this device."
+
+set RootDrives1 "I need to know which directories from the root (that is " 
+set RootDrives2 "on your system) you want to use under wine. Any folder wher you wish to put Applications or store files must show up there. Choose in the left list below. Selected folders will appear on the right list."
+
+set WhereTmp "Could not find /tmp, enter the folder to use for temporary files"

tools/wineconf.libs/browsers.eng

+set DIRBROWSE "Browse Folders"
+set FolderSelection "Selection:"
+set FILTERFOLD "Search Filter (Folders):"
+set FILTERFILES "Search Filter (Files):"
+set RESCAN Rescan
+set VIEW View

tools/wineconf.libs/general.eng

+set TO TO
+set OK OK
+set QUIT QUIT
+set CANCEL CANCEL
+set GO GO
+set YES YES
+set NO NO
+set NEXT NEXT
+set SAVE SAVE 
+set SKIP SKIP
+set MSG_title "TkWine:Messenger" 
+set SUCCES succesfull
+set HELP HELP; set START START
+set RESTART RESTART
+set CLOSE CLOSE
+set OPTIONS Options
+set pathtosetup [pwd]/setupfiles
+
+set MAKE make
+set CONF configure
+set INSTALL install
+
+#related to exit:
+set EXIT_title "TkWineSetup Exit"
+set CONFIRMQUIT "This will close TkWineSetup.\n \"Quit Saving\" will store your choices (source and install folders, compilation options etc..) for the next start. \"Quit No Save\" aborts any changes you made." 
+set QUITSAVING "Quit Saving"
+set QUITNOSAVE "Quit No Save"
+
+#related to browsers:
+set GETDIRtitle "TkWineSetup - Get directory"
+set FOLDBROWSEtitle "TkWineSetup - Directories browser"
+set BROWSE BROWSE
+set CHFOLD "Choose folder"
+set CHFOLDsel "Selected directory:"
+
+#related to downloads:
+set DOWNLOADING  "Dowload file:"
+
+#related to the internal file viewer:
+set ScrollEdits "Scroll to bottom on input"
+set EditTitle "TkWine Text Viewer"
+
+set errorTitle "\n*************** TkWine Error ****************\n\
+\n An error occured, that I could not resolve. This might be \n\n\
+a) An invalid entry \n\
+b) An error in the script\n\
+In any case, this error should be detected by the script, even an invalid\
+entry deserve better error message than this one!!\n\
+ The following lines are tk output. it might be uninteligible for you, but it makes sense for the maintainers. If you're keen to provide a bug reports, please, send the following info to thirot@univ-brest.fr.\n\n\
+(this info can be send in attachement, the file name is /tmp/tkwerror)\n\
+In some cases, however, the error is harmless. Feel free to add comment about this when you send me the file. If you want to receive the patch via email, please mention this in your mail. \n\
+Sorry not to make it better at once... I'll try to improve. \
+\nThanks for using TkWine.\
+\n                    Bye,\
+\n                           Jean-Louis,\
+\n                                    TkWine primary contact.\n\
+======================================================================="

tools/wineconf.libs/getfilename.tcl

+#!/usr/bin/wish
+#############################################################################
+# Visual Tcl v1.07 Project
+#
+
+#################################
+# GLOBAL VARIABLES
+#
+global widget; 
+#################################
+
+proc TkW:GetFileName {message opt1 opt2 searchtype} {
+global OK MSG_title WAITfilename TKW GetFileName BROWSE WAITbrowse
+
+	global SearchType
+	set SearchType $searchtype
+
+    set base .getfilename
+    if {[winfo exists .getfilename]} {
+        wm deiconify .getfilename; return
+    }
+    ###################
+    # CREATING WIDGETS
+    ###################
+    toplevel .getfilename -class Toplevel \
+        -background #ffffff 
+    wm focusmodel .getfilename passive
+    wm maxsize .getfilename 1265 994
+    wm minsize .getfilename 1 1
+    wm overrideredirect .getfilename 0
+    wm resizable .getfilename 1 1
+    wm deiconify .getfilename
+     wm geometry .getfilename +100+100
+    wm title .getfilename $MSG_title
+    #wm iconbitmap .getfilename @$TKW/shared/images/setup2.xbm 
+    #wm iconmask   .getfilename @$TKW/shared/images/setupmask2.xbm 
+
+#creates the message widget:
+    message .getfilename.msg -justify center -text $message \
+	-background #dddddd -aspect 300
+
+# Creates the entry box:
+	global GetFileName
+	entry .getfilename.ent -textvar GetFileName -relief sunken -width 50
+
+    button .getfilename.but1 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text $opt1 -width 8 -state disabled \
+	-command {
+		destroy .getfilename
+		set WAITfilename opt1
+		return 
+	}
+    button .getfilename.but2 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text $opt2  -width 8\
+	-command {destroy .getfilename; set WAITfilename opt2; return}
+    button .getfilename.but3 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text $BROWSE  -width 8\
+	-command {TkW:dirbrowse * * $SearchType
+		set WAITbrowse 1
+		 while {$WAITbrowse == 1} {update}
+                if {$WAITbrowse == 0}   {
+		   if {$SearchType == "File"} {
+			 set GetFileName $SelectFile
+		   } else {
+			 set GetFileName $SelectFolder
+		   }
+		}
+              update  
+	}
+    ###################
+    ###################
+    # SETTING GEOMETRY
+    ###################
+#set H2 [expr $H +10]
+    pack .getfilename.msg -padx 5 -pady 5 
+         #-anchor nw -bordermode ignore  
+    pack .getfilename.ent -padx 5 -pady 5
+    pack .getfilename.but1 -padx 30 -pady 10 -side left
+    pack .getfilename.but3 -padx 0 -pady 10 -side left
+    pack .getfilename.but2 -padx 30 -pady 10 -side left
+        #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore 
+
+	#bind .getfilename.ent <KeyPress-Return> {.getfilename.but1 invoke}
+
+    while {[winfo exists .getfilename]} {
+	if {[file exists $GetFileName]} {
+		.getfilename.but1 configure -state normal
+	} else {
+		.getfilename.but1 configure -state disabled
+	}
+	update
+    }
+}

tools/wineconf.libs/message.tcl

+#!/usr/bin/wish
+#############################################################################
+# Visual Tcl v1.07 Project
+#
+
+#################################
+# GLOBAL VARIABLES
+#
+global widget; 
+#################################
+
+proc TkW:message {message} {
+global OK MSG_title WAIT TKW
+
+    set base .msg
+    if {[winfo exists .msg]} {
+        wm deiconify .msg; return
+    }
+    ###################
+    # CREATING WIDGETS
+    ###################
+    toplevel .msg -class Toplevel \
+        -background #ffffff
+        #-background #4c92fe 
+    wm focusmodel .msg passive
+    wm maxsize .msg 1265 994
+    wm minsize .msg 200 1
+    wm overrideredirect .msg 0
+    wm resizable .msg 1 1
+    wm deiconify .msg
+     wm geometry .msg +100+100
+    wm title .msg $MSG_title
+    #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm
+    #wm iconmask   .msg @$TKW/shared/images/setupmask2.xbm
+
+#creates the message widget:
+    message .msg.msg -justify center -text $message -background #dddddd -aspect 300
+
+
+    button .msg.but18 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text button -textvariable $OK -width 8\
+	-command {
+		destroy .msg
+		set WAIT done 
+	}   
+    ###################
+    # SETTING GEOMETRY
+    ###################
+#set H2 [expr $H +10]
+    pack .msg.msg -padx 5 -pady 5  
+         #-anchor nw -bordermode ignore  
+    pack .msg.but18 -side bottom -padx 5 -pady 5  
+        #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore 
+    #pack .msg.lab19 -width 50 -height 30 -padx 10 -pady 10
+    #pack .msg.but18
+}

tools/wineconf.libs/message2.tcl

+#!/usr/bin/wish
+#############################################################################
+# Visual Tcl v1.07 Project
+#
+
+#################################
+# GLOBAL VARIABLES
+#
+global widget; 
+#################################
+
+proc TkW:message2 {message opt1 opt2} {
+global OK MSG_title WAIT TKW
+
+    set base .msg
+    if {[winfo exists .msg]} {
+        wm deiconify .msg; return
+    }
+    ###################
+    # CREATING WIDGETS
+    ###################
+    toplevel .msg -class Toplevel \
+        -background #ffffff 
+    wm focusmodel .msg passive
+    wm maxsize .msg 1265 994
+    wm minsize .msg 1 1
+    wm overrideredirect .msg 0
+    wm resizable .msg 1 1
+    wm deiconify .msg
+     wm geometry .msg +100+100
+    wm title .msg $MSG_title
+    #wm iconbitmap .msg @$TKW/shared/images/setup2.xbm 
+    #wm iconmask   .msg @$TKW/shared/images/setupmask2.xbm 
+
+#creates the message widget:
+    message .msg.msg -justify center -text $message -background #dddddd -aspect 300
+
+
+    button .msg.but1 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text $opt1 -width 8 \
+	-command {destroy .msg; set WAIT opt1; return}
+    button .msg.but2 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text $opt2  -width 8\
+	-command {destroy .msg; set WAIT opt2; return}
+    ###################
+    # SETTING GEOMETRY
+    ###################
+#set H2 [expr $H +10]
+    pack .msg.msg -padx 5 -pady 5 
+         #-anchor nw -bordermode ignore  
+    pack .msg.but1 -padx 5 -pady 5 -side left
+    pack .msg.but2 -padx 5 -pady 5 -fill x
+        #-x 110 -y $H2 -width 100 -height 28 -anchor nw -bordermode ignore 
+}

tools/wineconf.libs/saveRC.tcl

+proc TkW:exit {} {
+	global EXIT_title QUITSAVING QUITNOSAVE CANCEL TKW
+    set base .saveRC
+    if {![winfo exists .choosemethod]} {
+	cd $TKW
+        TkW:choosemethod
+	return
+    }
+
+	TkW:CloseOtherWindows
+ 
+	TkW:debug "Other should be detroyed now......"
+    if {[winfo exists .saveRC]} {
+        wm deiconify .saveRC; return
+    }
+	TkW:debug "Entering TkW:exit"
+    ###################
+    # CREATING WIDGETS
+    ###################
+    toplevel .saveRC -class Toplevel \
+        -background #ffffff 
+    wm focusmodel .saveRC passive
+    wm geometry .saveRC 412x163+404+267
+    wm maxsize .saveRC 1265 994
+    wm minsize .saveRC 1 1
+    wm overrideredirect .saveRC 0
+    wm resizable .saveRC 1 1
+    wm deiconify .saveRC
+    wm title .saveRC "$EXIT_title"
+    #wm iconbitmap .saveRC @$TKW/setupfiles/images/setup2.xbm
+    #wm iconmask   .saveRC @$TKW/setupfiles/images/setupmask2.xbm
+
+    label .saveRC.lab18 \
+        -background #dddddd \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-160-*-*-*-*-*-* \
+        -foreground #0000f6 -relief groove -text label \
+        -textvariable CONFIRMQUIT  -wraplength 350
+    button .saveRC.but19 \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text button -textvariable QUITSAVING -command {TkW:saveRC;exit}
+    button .saveRC.but20 \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text button -textvariable QUITNOSAVE  -command {exit}
+    button .saveRC.but21 \
+        -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
+        -pady 3 -text button -textvariable CANCEL -command {destroy .saveRC}
+    ###################
+    # SETTING GEOMETRY
+    ###################
+    place .saveRC.lab18 \
+        -x 5 -y 5 -width 403 -height 110 -anchor nw -bordermode ignore 
+    place .saveRC.but19 \
+        -x 5 -y 120 -width 135 -height 38 -anchor nw -bordermode ignore 
+    place .saveRC.but20 \
+        -x 138 -y 120 -width 135 -height 38 -anchor nw -bordermode ignore 
+    place .saveRC.but21 \
+        -x 273 -y 120 -width 135 -height 38 -anchor nw -bordermode ignore 
+}
+
+proc TkW:CloseOtherWindows {} {
+	set Wins ".wineconf .compile .install .insbin"
+
+	foreach i $Wins { if [winfo exists $i] {destroy $i}}
+
+	return
+
+}
+
+proc TkW:saveRC {} {
+# This proc saves the ~/.winesetuprc file
+# all the last compile option, source dest, install dire,
+# and the like are saved.
+# Could be improved by adding a "default" button in some places so some
+#changes could be ignore there....
+# For now, it saves all the last selections.
+
+# Opens the ~/.winesetuprc for writting:
+set savein [open ~/.winesetuprc w]
+
+# Puts the comments as well as the content:
+
+puts $savein "#"
+puts $savein "# System description:"
+puts $savein "#"
+global distrib; puts $savein "set distrib \"$distrib\""
+global kernel; puts $savein "set kernel \"$kernel\""
+global processor; puts $savein "set processor \"$processor\""
+global FTPNUM bz2docdest bz2exedest
+global BROWSER;puts $savein "set BROWSER \"$BROWSER\""
+puts $savein "#"
+puts $savein "# Method:"
+puts $savein "#"
+global choosenmethod; puts $savein "set choosenmethod \"$choosenmethod\""
+puts $savein "#"
+puts $savein "# Compile options"
+puts $savein "#"
+puts $savein "# where to search the archive"
+global dir_search; puts $savein "set dir_search \"$dir_search\""
+puts $savein "# where to put the executable"
+global bindir; puts $savein "set bindir \"$bindir\""
+puts $savein "# options"
+global debug trace noemu dll nolib clean
+puts $savein "set debug $debug ; set trace $trace ; set noemu $noemu ; set dll $dll ; set nolib $nolib ; set clean $clean"
+
+puts $savein "# where to put the source tree"
+global srcdest; puts $savein "set srcdest \"$srcdest\""
+puts $savein "# where is the top of the source tree"
+global winedir; puts $savein "set winedir \"$winedir\""
+puts $savein "#"
+puts $savein "# Number in the list of ftp site to use"
+puts $savein "set FTPNUM $FTPNUM"
+
+puts $savein "#"
+puts $savein "# BZIP@ exe and doc dest"
+puts $savein "set bz2exedest $bz2exedest"
+puts $savein "set bz2docdest $bz2docdest"
+
+puts $savein "# "
+puts $savein "# memory from last start"
+puts $savein "# "
+global laststart ; puts $savein "set laststart \"$laststart\""
+
+}

tools/wineconf.libs/wineconf.eng

+set WC_banner "Configuring wine - Please, fill in all sections"
+
+set WC_drivesSect "Drive section: Add the drives wine will need"
+set WC_path "Path"
+set WC_type "Type"
+set WC_label "Label"
+set WC_fstype "FS type"
+set EDIT Edit
+set REMOVE Remove
+set ADD Add
+
+set WC_wineSect "Wine section : please, check all path below"
+set WC_windows "Windows"
+set WC_system "System"
+set WC_temp "Temp"
+set WC_Symbols "Symbols"
+set WC_winepath "Click here to change the PATH variable"
+
+set WC_serialSect "Serial ports"
+set CLEAR "Clear"
+set WC_pathtitle "TkWineSetup Edit PATH "
+set WC_parallelSect "Parallel ports"
+
+set WC_logSect "Runtime Log file"
+set WC_exclude "Exlude messages"
+
+set WC_wineLook "Wine look"
+
+set WC_confserial "TkWineSetup - Configuring Serial Ports"
+set WC_confparallel "TkWineSetup - Configuring Parallel Ports"
+set WC_confdrives "TkWineSetup - Configuring Drives"
+
+set WC_serialbanner "Serial Ports Configuration.\n\n\
+Attach each device that you\n may need to a DOS port"
+
+set WC_driveSetBanner "Drive settings"
+set WC_editPathBanner "TkWineSetup: give search path for wine"
+
+set WC_PPbanner "Parallel Ports Configuration.\n\n\
+Attach each device that you\n may need to a DOS port"
+
+set chdrives1 {Drive letter}
+set chdrives2 "Drive Unix Path"
+set chdrives3 "Drive type"
+set chdrives4 "File System Type"
+set chdrives5 "Label"
+set chdrives6 "Device"
+set chdrives7 "Serial Number"
+
+set WC_helpondrives "Drives settings\n\n\
+List of drives availlable to wine. For each drive, you must specify the drive\
+letter, the type of the drive (floppy, hard drive, cdrom or network), the\
+filesystem type (mounted as unix (ext2), msdos (fat) or win95 (vfat). \n\n\
+To edit the parameters of a drive, select this drive and choose Edit.\n\n\
+Click Add to insert a new drive.\n\n \ A star at the beginning of the line\
+warns you that\ TkWineSetup cannot find the selected path. This is either an\
+error (if the drive does not exist) or a reference to an unmounted drive."
+
+set WC_helponwine "Wine System settings\n\n\
+Windows: Used to specify where wine would find the windows\
+directory (usually c:\\windows under dos).\n\n \
+System: Used to specify the system directory (usually 
+C:\\windows\\system under DOS)\n\n \
+Temp: Used to specify where windows\
+applications should store temporary files (usually /tmp on unixes).\n\n \
+Symbols: give the full path to the symbol table required for wine\
+ internal debugger \
+(usually, this file is named wine.sym) \n\n \
+You also need to set the PATH variable (same as standart dos \
+PATH variable) to tell wine where to search your windows application.\n\n \ 
+All path can be given both in UNIX or MSDOS syntax."
+
+
+set WC_helponserial "Serial Ports configuration\n\n\
+The left list shows the DOS name of communication port, and the rigth\
+column shows on which device it is attached. For exemple, if you\
+have a modem on /dev/cua0, and you put com1 attached\
+to /dev/cua0, then you will have to set your modem on com1\
+in windows application that requires it. It is common to\
+have a link /dev/modem pointing to the device where the modem\
+is attached, check with ls -l /dev/modem. You can specify\
+the max speed on each port (eg /dev/modem,38400 specify a port\
+attached to /dev/modem with a max speed of 38400 bps on that\
+prot).\n\n \ 
+If you have problems with the recognition of ports at runtime,\
+try to start wine -debugmsg +comm and see what you get"
+
+set WC_helponPP "Parallel Ports configuration\n\n\
+The left list shows the DOS name of parallel port, and the rigth\
+column shows on which device it is attached. For exemple, if you\
+have a printer on /dev/lpt1, and you put lpt1 attached\
+to /dev/lpt1, then you will have to set your printer on lpt1\
+in windows application that requires it. It is common to\
+have a link /dev/printer pointing to the device where the printer\
+is attached, check with ls -l /dev/printer."
+
+set WC_helponmisc "Spy\n\n \
+Give in the entry box below the name of the file that wine\
+will use at run time as logfile.\n\n\
+The Exclude message button below allow to select which\
+message to exclude (or include) from the log\
+(NOT IMPLEMENTED YET in TkWineSetup,\
+edit the file ~/.winerc manually), or leave the default (no exclude).\n\n\
+Wine look\n\n\
+Choose the prefered look (Win 3.1, Win95 or Win 98) to use. \
+This can be overidden when starting an application.\n "
+
+
+set WC_oneletter " is not valid.\n Drive letter can only be a SINGLE alpha character"
+set WC_usedletter " is not valid.\n Drive letter alreaddy in use"
+set WC_11letters " is not valid.\n Label cannot exeed 11 characters"
+set WC_givepath "You MUST specify a UNIX path"
+
+set WCHLP(1) "Enter Drive letter (this must be a single character) to use for \
+MSDOS like path"
+set WCHLP(2) "Enter Drive full path in UNIX syntax."
+set WCHLP(3) "Choose the type of drive that you want"
+set WCHLP(4) "Choose the file system type to use\
+ to access this drive\
+\n\nWARNING\n\n
+This is NOT the way it is mounted on your UNIX box, but the way\
+you want wine to see it. Say unix for case sensitive search, winxx for case non sensitive file search.\
+So, if windows app are about to read/write files on this drive, it should be\
+set to winxx. This includes the TMP drives, EVEN IF IT'S A UNIX FILESYSTEM.\n\n\
+If the drives spans several file systems\
+(like CDroms or floppies can do)\
+then leave blank or say unix"
+set WCHLP(5) "Enter the desired Label.\
+Must not be more than 11 characters.\
+(Label is optional)."
+set WCHLP(6) "Enter the device (as in /dev/fd0).\n
+This is not requiered if\
+the drive is mounted at the time\
+you start wine."
+set WCHLP(7) "Enter the drive serial number\
+as an 8-characters hexadecimal number.\
+(optional)."
+
+set WC_quit "Any unsaved changes you made will be lost.\n
+ are you sure you want to quit?"
+
+set WC_quitreally "Quit anyway"
+set WC_noquit "Cancel"
+
+set ChDefautConf "Choose the prefered configuration file to use as the default one"
+set DejaConf "Use existing config file:"
+set GiveCustomDefault "Enter (or choose) the configuration file to use"
+set GenereConf "Auto-generate a new configuration file"
+set TkWBuiltConf "Use TkWine built-in configuration file (not recommended)"
+set AutoConfFail " Warning: An error occured while running tools/wineconf.\n\
+You can still edit the generated file (if it does not crashes) but \n\
+some parts are probably missing. Check for a newer release of wine where wineconf could have been imporved"

tools/wineconf.libs/wineconf1.tcl

+proc TkW:debug {msg} {
+}
+proc TkW:fixme {msg} {
+}
+proc TkW:wineconf1 {} {
+	
+# propmt the user for a choice of the default config file:
+# can be:
+# 	Existing {--> menu ~/.winerc or /etc/wineconf or custom}
+# 	autogenarated with tools/wineconf
+#	built-in the script
+
+# test of existing is preformed first; test of existing wineconf also
+# 
+
+	set ExistEtc  [TkW:ListConfig /etc/wine.conf]
+	set ExistHome  [TkW:ListConfig "~/.winerc"]
+
+	TkW:AskUserConfMethod $ExistEtc $ExistHome
+	tkwait vis .askConf
+	while [winfo exists .askConf] {update}
+}
+
+proc TkW:ListConfig {fileConf} {
+
+	global HOME
+
+	set ExistConf 0
+	if [file writa $fileConf] {return 1} {return 0}
+}
+
+proc TkW:AskUserConfMethod {ExistEtc ExistHome} {
+	
+	global USER ChDefautConf DejaConf HOME OK CANCEL WAITfilename
+	global DefaultType EtcState HomeState GiveCustomDefault Default
+	global GetFileName GenereConf TkWBuiltConf
+
+	toplevel .askConf -backgr #ffffff
+	label .askConf.banner -text $ChDefautConf -backgr #0000ff \
+		-foregr #ffffff -height 2
+	pack .askConf.banner -side top -fill x
+	
+	if {$USER == "root" && $ExistEtc == 1} {
+		set Default /etc/wine.conf
+	} else {
+		if {$ExistHome == 1} {set Default "~/.winerc"} \
+			else  {set Default Custom}
+	}
+	if {[file writable /etc/wine.conf]} {set EtcState normal} {set EtcState disabled}
+	if {$ExistHome == 1} {set HomeState normal} {set HomeState disabled}
+	set DefaultType 0
+	frame .askConf.deja -width 200 -backgr #ffffff
+	radiobutton .askConf.deja.rad -backgr #dddddd -text $DejaConf\
+		-anchor nw -value 0 -variable DefaultType \
+		-indicatoron 1 -relief raised -selectcolor #00ff00
+	pack  .askConf.deja.rad -side left -padx 5
+	menubutton .askConf.deja.men -backgr #dddddd \
+		-menu .askConf.deja.men.m -width 50 -text $Default\
+		-relief raised
+
+	menu .askConf.deja.men.m -cursor {} -tearoff 0
+	.askConf.deja.men.m add command \
+		-command  {
+			set Default "$HOME/.winerc"
+			.askConf.deja.men configure -text $Default
+		} -label "~/.winerc" -state $HomeState
+	.askConf.deja.men.m add command \
+		-command  {
+			set Default "/etc/wine.conf"
+			.askConf.deja.men configure -text $Default
+		} -state $EtcState \
+		-label "/etc/wine.conf (System wide configuration)"
+	.askConf.deja.men.m add command \
+		-command  {
+			TkW:GetFileName $GiveCustomDefault $OK $CANCEL File
+			#set WAITfilename wait
+			#while {$WAITfilename == "wait"} {update}
+			if {$WAITfilename == "opt1"} {
+				set Default $GetFileName
+			}
+			.askConf.deja.men configure -text $Default
+			update
+		} \
+		-label "Custom (Give your own configuration file)"
+	pack .askConf.deja  -padx 5 -pady 10
+	pack .askConf.deja.men
+
+	label .askConf.img -image wine_half -backgr #ffffff -relief flat
+	pack .askConf.img -side right -anchor se -padx 5 -pady 5
+	
+# Next radiobutton: tools/wineconf:
+	
+	frame .askConf.radio -backgr #ffffff -relief flat
+	radiobutton .askConf.radio.generate -text $GenereConf\
+		-anchor nw -value 1 -variable DefaultType \
+		-selectcolor #00ff00 -relief raised
+	pack .askConf.radio.generate -padx 5 -pady 5 -anchor w -fill x
+
+# Next radiobutton :  TkWine Built-in
+
+	radiobutton .askConf.radio.tkwbuilt -text $TkWBuiltConf\
+		-anchor nw -value 2 -variable DefaultType \
+		-selectcolor #00ff00 -relief raised
+	pack .askConf.radio.tkwbuilt -padx 5 -pady 5  -anchor w -fill x
+	pack .askConf.radio -padx 0 -pady 0  -anchor w
+
+# now OK or CANCEL....
+	frame .askConf.buttons -backgr #ffffff -relief flat -height 25
+	button .askConf.buttons.ok -width 8 -text $OK -command {
+		destroy .askConf
+		TkW:CallWineConf 
+	}
+	button .askConf.buttons.cancel -width 8  -text $CANCEL -command {
+		destroy .askConf
+	}
+	pack .askConf.buttons.ok -side left  -padx 25 -pady 5
+	pack .askConf.buttons.cancel -side left -padx 5 -pady 5
+	pack .askConf.buttons -anchor w -padx 5
+
+}
+proc TkW:CallWineConf {} {
+
+	global Default DefaultType TKW
+	switch $DefaultType {
+		0 {TkW:wineconf $Default}
+		1 {
+			set FoundWineConf 0
+			set FoundWineConf [TkW:autoconf /tmp/auto_generated_wineconf]
+			while {$FoundWineConf == 0} update
+			TkW:wineconf /tmp/auto_generated_wineconf
+
+		}
+		2 {TkW:wineconf $TKW/setupfiles/wine.ini}
+	}
+
+}
+
+proc TkW:GenereTmpConf {wineconfTool} {
+	global specialwhere
+	set wherearewe ConfTool
+	set Pipe [open "| $wineconfTool " r+]
+	exec rm -f /tmp/auto_generated_wineconf
+	set TmpConf [open  /tmp/auto_generated_wineconf w]
+	while {![eof $Pipe]} {
+		gets $Pipe line
+		puts $TmpConf $line
+	}
+	close $TmpConf
+	set specialwhere CloseWineAutoConf
+	close $Pipe
+}

tools/wineconf.tcl

+#!/bin/sh
+# the next line restarts using wish \
+exec wish $0 ${1+"$@"} 
+proc load_libs {} {
+	global TKW
+	set libLIST [glob $TKW/wineconf.libs/*.tcl]
+	foreach i $libLIST {
+		uplevel #0 [list source $i]
+	}
+}
+
+proc load_lang { lang} {
+	global TKW
+	set langLIST [glob $TKW/wineconf.libs/*.$lang]
+	foreach i $langLIST {
+		uplevel #0 [list source $i]
+	}
+}
+global TKW
+if {![info exists TKW]} {
+	set TKW .
+	wm geom . 0x0
+	load_libs
+	load_lang eng
+	#global TKW;set TKW [pwd]
+	global USER; set USER [exec whoami]
+	global env HOME; set HOME $env(HOME)
+	image create photo wine_half -file wineconf.libs/wine-half.gif
+	TkW:wineconf1
+	TkW:autoconf
+	exit
+} else {
+	load_libs
+        load_lang eng
+}