Sweden-Number/tools/wineconf.libs/wineconf1.tcl

169 lines
5.1 KiB
Tcl
Raw Normal View History

# Copyright 1999 Jean-Louis Thirot
#
# This library is free software; you can redistribute it and/or
# modify it under the terms of the GNU Lesser General Public
# License as published by the Free Software Foundation; either
# version 2.1 of the License, or (at your option) any later version.
#
# This library is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
# Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public
# License along with this library; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
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
}