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

1394 lines
48 KiB
Tcl
Raw Normal View History

proc TkW:wineconf {DefaultConfFile} {
global WC_banner WC_driveSect WC_path WC_type WC_label WC_fstype
global EDIT SAVE REMOVE ADD WC_wineSect WC_windows WC_system WC_temp
global WC_Symbols WC_winepath WC_serialSect CLEAR WC_parallelSect
global WC_logSect WC_exclude WC_wineLook
global windowspath varpath syspath tmppath symbols winelook
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial
global resolution defaultfont
global readport writeport TKW WAITconf
global exclude default_progs startup allocsyscolors winelook wine_logfile
global com lpt spool nspool alias nalias
global WC_helpondrives WC_helponwine WC_helponserial WC_helponPP
global WC_helponmisc WAIT WC_quit WC_quit
global WC_quitreally WC_noquit
if {[winfo exist .choosemethod] } {destroy .choosemethod}
if {[winfo exist .install] } {destroy .install}
set base .wineconf
if {[winfo exists .wineconf]} {
wm deiconify .wineconf; return
}
###################
# CREATING WIDGETS
###################
toplevel .wineconf -class Toplevel \
-background #3c1cfe
wm focusmodel .wineconf passive
wm geometry .wineconf 462x600+148+153
wm maxsize .wineconf 1265 994
wm minsize .wineconf 1 1
wm overrideredirect .wineconf 0
wm resizable .wineconf 1 1
wm deiconify .wineconf
wm title .wineconf "TkWineSetup Configuring Wine"
#wm iconbitmap .wineconf @$TKW/setupfiles/images/setup2.xbm
#wm iconmask .wineconf @$TKW/setupfiles/images/setupmask2.xbm
label .wineconf.lab18 \
-background #fcfefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_banner
canvas .wineconf.can01 \
-background #fee0b4 -borderwidth 2 -height 207 -relief ridge \
-width 296
label .wineconf.can01.lab22 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_drivesSect
listbox .wineconf.can01.lis23 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-yscrollcommand {.wineconf.can01.scrDrives set }
scrollbar .wineconf.can01.scrDrives \
-borderwidth 1 -orient vert -width 10 \
-command { .wineconf.can01.lis23 yview }
listbox .wineconf.can01.lis24 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
listbox .wineconf.can01.lis25 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
listbox .wineconf.can01.lis26 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
button .wineconf.can01.but28 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable ADD \
-command {TkW:drives new}
button .wineconf.can01.but29 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -state disabled -text button -textvariable REMOVE \
-command {TkW:delDrive $sel_drive}
button .wineconf.can01.but30 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -state disabled -text button -textvariable EDIT \
-command {TkW:drives $sel_drive}
label .wineconf.can01.lab31 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_path
label .wineconf.can01.lab32 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_type
label .wineconf.can01.lab33 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_label
label .wineconf.can01.lab34 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_fstype
button .wineconf.can01.but51 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable HELP \
-command {TkW:message $WC_helpondrives}
#section wine
canvas .wineconf.can37 \
-background #fedcdc -borderwidth 2 -height 207 -relief ridge \
-width 296
label .wineconf.can37.lab39 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_wineSect
label .wineconf.can37.lab40 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_windows
label .wineconf.can37.lab41 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_system
button .wineconf.can37.but42 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -textvariable WC_winepath \
-command TkW:editWinePath
button .wineconf.can37.but43 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable HELP \
-command {TkW:message $WC_helponwine}
entry .wineconf.can37.ent45 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable windowspath
entry .wineconf.can37.ent46 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable syspath
label .wineconf.can37.lab47 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_temp
label .wineconf.can37.lab48 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_Symbols
entry .wineconf.can37.ent49 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable tmppath
entry .wineconf.can37.ent50 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable symbols
# section serialports
canvas .wineconf.can53 \
-background #fedcdc -borderwidth 2 -relief ridge
label .wineconf.can53.lab57 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_serialSect
listbox .wineconf.can53.lis58 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
listbox .wineconf.can53.lis59 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-yscrollcommand {.wineconf.can53.scr60 set }
scrollbar .wineconf.can53.scr60 \
-borderwidth 1 -orient vert -width 10 \
-command { .wineconf.can53.lis59 yview }
button .wineconf.can53.but63 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable EDIT \
-command {TkW:editports com}
button .wineconf.can53.but64 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable CLEAR -state disabled \
-command {
set com([expr $sel_com + 1]) " "
TkW:setboxes
.wineconf.can53.but64 configure -state disabled
}
button .wineconf.can53.help \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable HELP\
-command {TkW:message $WC_helponserial}
#section parallelports
canvas .wineconf.can54 \
-background #fedcdc -borderwidth 2 -relief ridge
label .wineconf.can54.lab65 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_parallelSect
listbox .wineconf.can54.lis67 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-yscrollcommand {.wineconf.can54.scr71 set }
listbox .wineconf.can54.lis68 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
button .wineconf.can54.but69 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable EDIT \
-command {TkW:editports lpt}
button .wineconf.can54.but70 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable CLEAR -state disabled \
-command {
set lpt([expr $sel_port + 1]) " "
TkW:setboxes
.wineconf.can54.but70 configure -state disabled
}
scrollbar .wineconf.can54.scr71 \
-borderwidth 1 -orient vert -width 10 \
-command {.wineconf.can54.lis67 yview}
button .wineconf.can54.help \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable HELP\
-command {TkW:message $WC_helponPP}
#sections spy et Tweak.Layout
canvas .wineconf.can55 \
-background #fedcdc -borderwidth 2 -height 207 -relief ridge \
-width 296
label .wineconf.can55.lab72 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_logSect
entry .wineconf.can55.ent74 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-textvariable wine_logfile
button .wineconf.can55.but75 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable WC_exclude
label .wineconf.can55.lab76 \
-background #fefefe \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-relief groove -text label -textvariable WC_wineLook
menubutton .wineconf.can55.men78 \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-menu .wineconf.can55.men78.m -padx 4 -pady 3 -text menu \
-textvariable winelook
menu .wineconf.can55.men78.m \
-cursor {} -font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
.wineconf.can55.men78.m add command \
-command {set winelook "Win31"} -label {Win 3.1}
.wineconf.can55.men78.m add command \
-command {set winelook "Win95"} -label win95/98
.wineconf.can55.men78.m add command \
-command {set winelook "Win98"} -label {Win 98}
button .wineconf.can55.help \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable HELP \
-command {TkW:message $WC_helponmisc}
#main window buttons:
button .wineconf.but80 \
-command {
set WAIT wait
TkW:message2 $WC_quit $WC_quitreally $WC_noquit
while {$WAIT == "wait"} {update}
if {$WAIT == "opt1"} { if {[winfo exists .desktop]} {
destroy .wineconf
set WAITconf 0
return
} else {
exit
}
}
} \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable QUIT
button .wineconf.save \
-command TkW:writewinerc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* -padx 9 \
-pady 3 -text button -textvariable SAVE
###################
# SETTING GEOMETRY
###################
place .wineconf.lab18 \
-x 3 -y 5 -width 453 -height 20 -anchor nw -bordermode ignore
#placing drives sctions widgets:
place .wineconf.can01 \
-x 5 -y 35 -width 466 -height 180 -anchor nw -bordermode ignore
place .wineconf.can01.lab22 \
-x 0 -y 0 -width 443 -height 25 -anchor nw -bordermode ignore
place .wineconf.can01.lis23 \
-x 10 -y 56 -width 130 -height 113 -anchor nw -bordermode ignore
place .wineconf.can01.lis24 \
-x 139 -y 55 -width 85 -height 113 -anchor nw -bordermode ignore
place .wineconf.can01.lis25 \
-x 223 -y 55 -width 65 -height 113 -anchor nw -bordermode ignore
place .wineconf.can01.lis26 \
-x 288 -y 55 -width 65 -height 113 -anchor nw -bordermode ignore
place .wineconf.can01.scrDrives \
-x 353 -y 55 -width 16 -height 113 -anchor nw -bordermode ignore
# bind lis23-26
bind .wineconf.can01.lis23 <ButtonRelease> {
set sel_drive [ .wineconf.can01.lis23 nearest %y]
#enable related button
.wineconf.can01.but30 configure -state normal
.wineconf.can01.but29 configure -state normal
# disable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state disabled
}
bind .wineconf.can01.lis24 <ButtonRelease> {
set sel_drive [ .wineconf.can01.lis23 nearest %y]
.wineconf.can01.lis23 selection set $sel_drive
.wineconf.can01.but30 configure -state normal
.wineconf.can01.but29 configure -state normal
# disable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state disabled
}
bind .wineconf.can01.lis25 <ButtonRelease> {
set sel_drive [ .wineconf.can01.lis23 nearest %y]
.wineconf.can01.lis23 selection set $sel_drive
.wineconf.can01.but30 configure -state normal
.wineconf.can01.but29 configure -state normal
# disble the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state disabled
}
bind .wineconf.can01.lis26 <ButtonRelease> {
set sel_drive [ .wineconf.can01.lis23 nearest %y]
.wineconf.can01.lis23 selection set $sel_drive
.wineconf.can01.but30 configure -state normal
.wineconf.can01.but29 configure -state normal
# disble the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state disabled
}
place .wineconf.can01.but28 \
-x 375 -y 44 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can01.but29 \
-x 375 -y 76 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can01.but30 \
-x 375 -y 110 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can01.lab31 \
-x 13 -y 36 -width 128 -height 20 -anchor nw -bordermode ignore
place .wineconf.can01.lab32 \
-x 140 -y 36 -width 83 -height 20 -anchor nw -bordermode ignore
place .wineconf.can01.lab33 \
-x 223 -y 36 -width 68 -height 20 -anchor nw -bordermode ignore
place .wineconf.can01.lab34 \
-x 290 -y 36 -width 68 -height 20 -anchor nw -bordermode ignore
place .wineconf.can01.but51 \
-x 375 -y 141 -width 60 -height 28 -anchor nw -bordermode ignore
#placing wine sctions widgets:
place .wineconf.can37 \
-x 5 -y 230 -width 449 -height 115 -anchor nw -bordermode ignore
place .wineconf.can37.lab39 \
-x 3 -y 1 -width 443 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.lab40 \
-x 7 -y 29 -width 58 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.lab41 \
-x 7 -y 55 -width 58 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.but42 \
-x 7 -y 84 -width 248 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.but43 \
-x 375 -y 80 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can37.ent45 \
-x 74 -y 26 -width 150 -height 24 -anchor nw -bordermode ignore
place .wineconf.can37.ent46 \
-x 74 -y 52 -width 150 -height 24 -anchor nw -bordermode ignore
place .wineconf.can37.lab47 \
-x 239 -y 29 -width 58 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.lab48 \
-x 239 -y 54 -width 58 -height 20 -anchor nw -bordermode ignore
place .wineconf.can37.ent49 \
-x 304 -y 26 -width 135 -height 24 -anchor nw -bordermode ignore
place .wineconf.can37.ent50 \
-x 304 -y 52 -width 135 -height 24 -anchor nw -bordermode ignore
#placing serialports sections widgets:
place .wineconf.can53 \
-x 9 -y 356 -width 144 -height 180 -anchor nw -bordermode ignore
place .wineconf.can53.lab57 \
-x 3 -y 3 -width 138 -height 20 -anchor nw -bordermode ignore
place .wineconf.can53.lis58 \
-x 3 -y 25 -width 40 -height 83 -anchor nw -bordermode ignore
place .wineconf.can53.lis59 \
-x 44 -y 25 -width 85 -height 83 -anchor nw -bordermode ignore
# bind lis59 to select lis58 at the same time...
bind .wineconf.can53.lis58 <ButtonRelease> {
set sel_com [ .wineconf.can53.lis58 nearest %y]
.wineconf.can53.lis58 selection set $sel_com
#disbale other list related buttons:
.wineconf.can01.but30 configure -state disabled
.wineconf.can01.but29 configure -state disabled
# disable/enable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state normal
}
# bind lis58 to select lis59 at the same time...
bind .wineconf.can53.lis59 <ButtonRelease> {
set sel_com [ .wineconf.can53.lis59 nearest %y]
.wineconf.can53.lis58 selection set $sel_com
#disbale other list related buttons:
.wineconf.can01.but30 configure -state disabled
.wineconf.can01.but29 configure -state disabled
# disable/enable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state disabled
.wineconf.can53.but64 configure -state normal
}
place .wineconf.can53.scr60 \
-x 123 -y 26 -width 16 -height 80 -anchor nw -bordermode ignore
place .wineconf.can53.but63 \
-x 10 -y 115 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can53.but64 \
-x 78 -y 115 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can53.help \
-x 10 -y 145 -width 130 -height 28 -anchor nw -bordermode ignore
#placing parallelports sections widgets:
place .wineconf.can54 \
-x 160 -y 356 -width 144 -height 180 -anchor nw -bordermode ignore
place .wineconf.can54.lab65 \
-x 1 -y 3 -width 143 -height 20 -anchor nw -bordermode ignore
place .wineconf.can54.lis67 \
-x 5 -y 26 -width 45 -height 83 -anchor nw -bordermode ignore
place .wineconf.can54.lis68 \
-x 50 -y 25 -width 75 -height 83 -anchor nw -bordermode ignore
# bind lis67
bind .wineconf.can54.lis68 <ButtonRelease> {
set sel_port [ .wineconf.can53.lis59 nearest %y]
#disbale other list related buttons:
.wineconf.can01.but30 configure -state disabled
.wineconf.can01.but29 configure -state disabled
# disable/enable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state normal
.wineconf.can53.but64 configure -state disabled
}
# bind lis68 to select lis67 at the same time...
bind .wineconf.can54.lis67 <ButtonRelease> {
set sel_port [ .wineconf.can53.lis59 nearest %y]
.wineconf.can54.lis67 selection set $sel_port
#disbale other list related buttons:
.wineconf.can01.but30 configure -state disabled
.wineconf.can01.but29 configure -state disabled
# disable/enable the tow CLEAR buttons of ports:
.wineconf.can54.but70 configure -state normal
.wineconf.can53.but64 configure -state disabled
}
place .wineconf.can54.but69 \
-x 10 -y 115 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can54.but70 \
-x 78 -y 115 -width 60 -height 28 -anchor nw -bordermode ignore
place .wineconf.can54.scr71 \
-x 123 -y 26 -width 16 -height 80 -anchor nw -bordermode ignore
place .wineconf.can54.help \
-x 10 -y 145 -width 130 -height 28 -anchor nw -bordermode ignore
#placing spy and Tweak.Layout sections widgets:
place .wineconf.can55 \
-x 313 -y 357 -width 139 -height 180 -anchor nw -bordermode ignore
place .wineconf.can55.lab72 \
-x 3 -y 3 -width 133 -height 20 -anchor nw -bordermode ignore
place .wineconf.can55.ent74 \
-x 5 -y 25 -width 130 -height 24 -anchor nw -bordermode ignore
place .wineconf.can55.but75 \
-x 5 -y 50 -width 130 -height 28 -anchor nw -bordermode ignore
place .wineconf.can55.lab76 \
-x 3 -y 83 -width 133 -height 20 -anchor nw -bordermode ignore
place .wineconf.can55.men78 \
-x 10 -y 110 -width 122 -height 24 -anchor nw -bordermode ignore
place .wineconf.can55.help \
-x 5 -y 145 -width 130 -height 28 -anchor nw -bordermode ignore
#Main window buttons:
pack .wineconf.but80 -padx 5 -pady 1 -side bottom -fill x
pack .wineconf.save -padx 5 -side bottom -fill x
# initialise the arrays
TkW:initarrays
# Now start reading the .winerc (or the default wine.ini)
TkW:readwinerc $DefaultConfFile
# Set the listboxes:
TkW:setboxes
#updates the scollings
set WAITconf 1
while {$WAITconf == 1} { TkW:scrollwindows }
}
proc TkW:readwinerc {DefaultConfFile} {
global sect ndrives drive n rcout line wine_logfile winelook
global nspool nalias srcdest TKW
TkW:debug "Entering readwinerc -----------------------------"
# OPEN THE FILE Read-Only:
TkW:fixme "TkW:wineconf::\
Detection of wine.ini will fail when ~/.winerc ~/wine.conf not there"
if {[file exist $DefaultConfFile] } then {
set winerc [open $DefaultConfFile r]
} else {
TkW:message "No file $DefaultConfFile... This is a TkWine error"
return
}
# Adds a fe setting in case they're missing (actually, they are in the std file) in the wine.ini
set winelook Win95
set wine_logfile /tmp/winelog
# OPEN /tmp/tkwwinerc for writting
set rcout [open /tmp/tkwinerc w]
set ndrives -1
set nspool 0
set nalias -1
global NDllOver NDllPairs DllPairs DllOver
set NDllOver 0
set NDllPairs 0
# Read line by line
set charread 0
while {$charread != -1} {
set charread [gets $winerc line]
set line [string trim $line]
set n [expr $charread - 1]
set idok 0
TkW:debug "READ:$line-$charread"
if {[string match ";*" $line]} {
#puts $rcout $line
TkW:debug Comment; set idok 1}
# The two lines below SHOULD work... they don't
#if {[string match "\[*\]" $line]} \
#{TkW:debug Section;set idok 1}
## a ugly replacement:
if {"[string range $line 0 0][string range $line $n $n]"\
== "\[\]"} {
TkW:sections
set idok 1
}
if {$idok != 1 && [string match "*=*" $line]} {
TkW:assign
TkW:debug Assignment
set idok 1
}
if {!$idok && $charread > 0} {
TkW:debug "Error::Unknow line in .winerc"
puts "************Warning: Error in config \
file ****************"
puts "Line $line incomprehensible"
}
}
}
proc TkW:sections {} {
global sect ndrives drive n rcout line
global drivepath drivelabel drivetype drivefstype driveserial drivedevice
set sect [string tolower [string range $line 1 [expr $n - 1]]]
if {[string tolower [string range $sect 0 4]] == "drive"} {
set ndrives [expr $ndrives + 1]
set drive($ndrives) [string range $sect 6 6]
set drivepath($ndrives) ""
set drivelabel($ndrives) ""
set drivetype($ndrives) ""
set drivefstype($ndrives) ""
set driveserial($ndrives) ""
set drivedevice($ndrives) ""
set sect drive
TkW:debug "Section $sect $drive($ndrives)"
#puts $rcout "\[$sect $drive($ndrives)\]"
} else {
TkW:debug "Section $sect"
#puts $rcout "\[$sect]"
}
}
proc TkW:assign {} {
global sect ndrives drive n rcout line
global windowspath varpath syspath tmppath symbols winelook
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial
global resolution defaultfont
global readport writeport
global exclude default_progs startup allocsyscolors winelook wine_logfile
global com lpt spool nspool alias nalias
global NDllOver NDllPairs
global DllOver DllPairs
set equalis [string first "=" $line ]
set varname [string tolower [string trim [string range $line 0 [expr $equalis - 1]]]]
set value [string trim [string range $line [expr $equalis + 1] $n]]
if {$varname == "default"} {set varname Default}
switch $varname {
{path} {
switch $sect {
{drive} {set drivepath($ndrives) $value}
{wine} {set varpath $value;update}
{default} {TkW:conferror $sect $varname $value}
}
}
{type} {
if {$sect != "drive"} then {
TkW:conferror $sect $varname $value
} else {
set drivetype($ndrives) $value
}
}
{label} {
if {$sect != "drive"} then {
TkW:conferror $sect $varname $value
} else {
set drivelabel($ndrives) $value
}
}
{serial} {
if {$sect != "drive"} then {
TkW:conferror $sect $varname $value
} else {
set driveserial($ndrives) $value
}
}
{filesystem} {
if {$sect != "drive"} then {
TkW:conferror $sect $varname $value
} else {
set drivefstype($ndrives) $value
}
}
{device} {
if {$sect != "drive"} then {
TkW:conferror $sect $varname $value
} else {
set drivedevice($ndrives) $value
}
}
{windows} {
if {$sect != "wine"} then {
TkW:conferror $sect $varname $value
} else {
set windowspath $value
}
}
{system} {
if {$sect != "wine"} then {
TkW:conferror $sect $varname $value
} else {
set syspath $value
}
}
{temp} {
if {$sect != "wine"} then {
TkW:conferror $sect $varname $value
} else {
set tmppath $value
}
}
{symboltablefile} {
if {$sect != "wine"} then {
TkW:conferror $sect\
$varname $value
} else {
set symbols $value
}
}
{resolution} {
if {$sect != "fonts"} then {
TkW:conferror $sect $varname $value
} else {
set resolution $value
}
}
{Default} {
switch $sect {
{fonts} { set defaultfont $value}
{programs} {set default_progs $value}
{default} { TkW:conferror \
$sect $varname $value }
}
}
{read} {
if {$sect != "ports"} then {
TkW:conferror $sect $varname $value
} else {
set readport $value
}
}
{write} {
if {$sect != "ports"} then {
TkW:conferror $sect $varname $value
} else {
set writeport $value
}
}
{file} {
if {$sect != "spy"} then {
TkW:conferror $sect $varname $value
} else {
set wine_logfile $value
}
}
{exclude} {
if {$sect != "spy"} then {
TkW:conferror $sect $varname $value
} else {
set Exclude $value
}
}
{allocsystemcolors} {
if {$sect != "options"} then {
TkW:conferror $sect $varname\
$value
} else {
set allocsyscolors $value
}
}
{winelook} {
if {$sect != "tweak.layout"} then {
TkW:conferror $sect $varname\
$value
} else {
set winelook $value
}
}
{startup} {
if {$sect != "programs"} then {
TkW:conferror $sect $varname\
$value
} else {
set startup $value
}
}
{printer} {
if {$sect != "wine"} then {
TkW:conferror $sect $varname\
$value
} else {
set printer $value
}
}
{default} {
if {$sect == "dllpairs"} {
set NDllPairs [expr $NDllPairs + 1]
set DllPairs($NDllPairs) "$varname = $value"
return
}
if {$sect == "dlloverrides"} {
set NDllOver [expr $NDllOver + 1]
set DllOver($NDllOver) "$varname = $value"
return
}
if {[string tolower [string trim [string range $line 0 2]]] == "lpt" && [string range $line 4 4 ] == ":" } {
if {$sect != "spooler"} then {
TkW:conferror $sect $varname $value
} else {
set nspool [expr $nspool + 1]
set spool($nspool) $value
}
return
}
set varname2 [string tolower [string trim \
[string range $line 0 [expr $equalis - 2]]]]
set letter [string tolower [string range $line [expr $equalis - 1]\
[expr $equalis - 1] ]]
#set varname2 [string tolower $varname2]
switch $varname2 {
{com} {
if {$sect != "serialports"} then {
TkW:conferror $sect $varname\
$value
} else {
set com($letter) $value
}
}
{lpt} {
if {$sect != "parallelports"} then {
TkW:conferror $sect $varname\
$value
} else {
set lpt($letter) $value
}
}
{alias} {
if {$sect != "fonts"} then {
TkW:conferror $sect $varname\
$value
} else {
set nalias [expr $nalias + 1]
set alias($nalias) $value
}
}
{default} {
TkW:conferror $sect $varname $value
}
}
}
}
}
proc TkW:conferror {sect varname value} {
puts "ERROR IN CONFIG FILE, FOUND $varname=$value in section $sect"
}
proc TkW:setboxes {} {
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial
global com lpt
.wineconf.can01.lis23 delete 0 end
.wineconf.can01.lis24 delete 0 end
.wineconf.can01.lis25 delete 0 end
.wineconf.can01.lis26 delete 0 end
for {set i 0} {$i <= $ndrives } {set i [expr $i + 1]} {
TkW:debug "Drive $i : $drive($i) $drivepath($i) $drivetype($i)\
$drivelabel($i)"
TkW:debug " $drivefstype($i) $drivedevice($i) $driveserial($i)"
set yes " "
if {![file isdirectory $drivepath($i)]} {set yes "*"}
.wineconf.can01.lis23 insert end \
"$yes\($drive($i):\\) $drivepath($i) "
.wineconf.can01.lis24 insert end \
"$yes$drivetype($i)"
.wineconf.can01.lis25 insert end \
"$yes$drivelabel($i)"
.wineconf.can01.lis26 insert end \
"$yes$drivefstype($i)"
}
.wineconf.can53.lis59 delete 0 end
.wineconf.can53.lis58 delete 0 end
for {set i 1} {$i <= 8 } {set i [expr $i + 1]} {
.wineconf.can53.lis58 insert end "com$i"
.wineconf.can53.lis59 insert end $com($i)
}
.wineconf.can54.lis67 delete 0 end
.wineconf.can54.lis68 delete 0 end
for {set i 1} {$i <= 8 } {set i [expr $i + 1]} {
.wineconf.can54.lis67 insert end "lpt$i"
.wineconf.can54.lis68 insert end $lpt($i)
}
}
proc TkW:scrollwindows {} {
global OldPos
if {![info exists OldPos]} {set OldPos 0}
# Serial
set lis58pos [.wineconf.can53.lis59 yview]; set a 1
foreach i $lis58pos { if {$a} {set pos $i}; set a 0 }
.wineconf.can53.lis58 yview moveto $pos
# // ports
set lis67pos [.wineconf.can54.lis67 yview]; set a 1
foreach i $lis67pos { if {$a} {set pos $i}; set a 0 }
.wineconf.can54.lis68 yview moveto $pos
# drives:
set lis23pos [.wineconf.can01.lis23 yview]; set a 1
foreach i $lis23pos { if {$a} {set pos $i}; set a 0 }
if {$lis23pos != $OldPos} {
TkW:debug "listbox23 has move from $OldPos to $lis23pos"
TkW:debug "listbox24 goes to $pos "
}
set OldPos $lis23pos
.wineconf.can01.lis24 yview moveto $pos
.wineconf.can01.lis25 yview moveto $pos
.wineconf.can01.lis26 yview moveto $pos
update
}
proc TkW:initarrays {} {
global com lpt spool
for {set i 1 } {$i <= 8 } {set i [expr $i + 1]} {
set com($i) ""
set lpt($i) ""
}
for {set i 1 } {$i <= 8 } {set i [expr $i + 1]} {
set spool($i) ""
}
}
proc TkW:editports {comlpt} {
global OK CANCEL com portch lpt lptcom win banner TKW
global WC_confserial WC_confparallel WC_PPbanner WC_serialbanner
.wineconf.can54.but69 configure -state disabled
.wineconf.can53.but63 configure -state disabled
# this is a ugly trick as buttons command need a global variable, not an arg
set lptcom $comlpt
if {$comlpt == "com"} then {
set win .comedit
set title $WC_confserial
set banner $WC_serialbanner
} else {
set win .lptedit
set title $WC_confparallel
set banner $WC_PPbanner
}
toplevel $win -class Toplevel \
-background #3c1cfe
wm focusmodel $win passive
wm geometry $win 205x365+448+253
wm maxsize $win 1265 994
wm minsize $win 1 1
wm overrideredirect $win 0
wm resizable $win 1 1
wm deiconify $win
wm title $win $title
#wm iconbitmap $win @$TKW/setupfiles/images/setup2.xbm
#wm iconmask $win @$TKW/setupfiles/images/setupmask2.xbm
# creating the Banner
label "$win.banner" \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text $banner
# creating the labels and entries
for {set i 1} {$i <= 8} {set i [expr $i + 1 ]} {
set portch($i) $com($i)
if {$comlpt == "com"} then {
set portch($i) $com($i)
} else {
set portch($i) $lpt($i)
}
label "$win.lab$i" \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text "Com$i"
entry "$win.ent$i" \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-textvariable portch($i)
set Y [expr 55 + $i * 30]
place "$win.lab$i"\
-x 5 -y $Y -width 45 -height 28 \
-anchor nw -bordermode ignore
place "$win.ent$i"\
-x 55 -y $Y -width 145 -height 28 \
-anchor nw -bordermode ignore
}
button $win.but80 \
-command {
for {set i 1} {$i <= 8} {set i [expr $i + 1]} {
if {$lptcom == "com"} then {
set com($i) $portch($i)
} else {
set lpt($i) $portch($i)
}
.wineconf.can54.but69 configure -state normal
.wineconf.can53.but63 configure -state normal
}
destroy $win
TkW:setboxes
} \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable OK
place $win.banner -x 5 -y 5 -width 195 -height 70
place $win.but80 \
-x 5 -y 335 -width 100 -height 28 \
-anchor nw -bordermode ignore
button $win.but81 \
-command {destroy $win
.wineconf.can54.but69 configure -state normal
.wineconf.can53.but63 configure -state normal
}\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable CANCEL \
place $win.but81 \
-x 105 -y 335 -width 100 -height 28 \
-anchor nw -bordermode ignore
}
proc TkW:drives {n} {
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial TKW
global WC_confdrives HELP WCHLP WC_driveSetBanner
global chdrives1 chdrives2 chdrives3 chdrives4
global chdrives5 chdrives6 chdrives7
global win i num ch drOK
set chdrives(1) $chdrives1
set chdrives(2) $chdrives2
set chdrives(3) $chdrives3
set chdrives(4) $chdrives4
set chdrives(5) $chdrives5
set chdrives(6) $chdrives6
set chdrives(7) $chdrives7
if {$n == "new"} then {
set num [expr $ndrives + 1]
set ch(1) ""
set ch(2) ""
set ch(3) ""
set ch(4) ""
set ch(5) ""
set ch(6) ""
set ch(7) ""
} else {
set num $n
set ch(1) $drive($num)
set ch(2) $drivepath($num)
set ch(3) $drivetype($num)
set ch(4) $drivefstype($num)
set ch(5) $drivelabel($num)
set ch(6) $drivedevice($num)
set ch(7) $driveserial($num)
}
TkW:debug "Entering TkW:drives - drive number: $num"
.wineconf.can01.but28 configure -state disabled
.wineconf.can01.but29 configure -state disabled
.wineconf.can01.but30 configure -state disabled
# re-enable the tow EDIT buttons of ports:
.wineconf.can54.but69 configure -state disabled
.wineconf.can53.but63 configure -state disabled
set win .drivedit
set title $WC_confdrives
toplevel $win -class Toplevel \
-background #3c1cfe
wm focusmodel $win passive
wm geometry $win 305x325+448+253
wm maxsize $win 1265 994
wm minsize $win 1 1
wm overrideredirect $win 0
wm resizable $win 1 1
wm deiconify $win
wm title $win $title
#wm iconbitmap $win @$TKW/setupfiles/images/setup2.xbm
#wm iconmask $win @$TKW/setupfiles/images/setupmask2.xbm
# setting the banner:
label "$win.banner" \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text $WC_driveSetBanner -height 35
# creating the labels and entries
# setting HELP buttons
button $win.hlp1\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(1)}
button $win.hlp2\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(2)}
button $win.hlp3\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(3)}
button $win.hlp4\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(4)}
button $win.hlp5\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(5)}
button $win.hlp6\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(6)}
button $win.hlp7\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable HELP \
-command {TkW:message $WCHLP(7)}
for {set i 1} {$i <= 7} {set i [expr $i + 1 ]} {
label "$win.lab$i" \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text $chdrives($i)
if {$i < 3 || $i > 4} then {
entry "$win.ent$i" \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-text text -textvariable ch($i)
} else {
menubutton $win.ent$i \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-* \
-menu $win.ent$i.m -padx 4 -pady 3 \
-text text -textvariable ch($i)
}
# settings the menus:
if {$i == 3} then {
menu $win.ent$i.m \
-cursor {} \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
$win.ent$i.m add command \
-command {set ch(3) "hd"} -label {Hard Drive}
$win.ent$i.m add command \
-command {set ch(3) "floppy"} -label {Floppy}
$win.ent$i.m add command \
-command {set ch(3) "cdrom"} -label {CDrom}
$win.ent$i.m add command \
-command {set ch(3) "network"} \
-label {network}
}
if {$i == 4} then {
menu $win.ent$i.m \
-cursor {} \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*
$win.ent$i.m add command \
-command {set ch(4) "msdos"} -label {msdos}
$win.ent$i.m add command \
-command {set ch(4) "win95"} -label {Win95}
$win.ent$i.m add command \
-command {set ch(4) "Unix"} -label {Unix}
}
set Y [expr 40 + $i * 30]
place "$win.lab$i"\
-x 5 -y $Y -width 145 -height 28 \
-anchor nw -bordermode ignore
place "$win.ent$i"\
-x 150 -y $Y -width 85 -height 28 \
-anchor nw -bordermode ignore
place "$win.hlp$i"\
-x 235 -y $Y -width 55 -height 28 \
-anchor nw -bordermode ignore
}
button $win.but80 \
-command {
TkW:checkdrives
if {$drOK} {
set drive($num) $ch(1)
set drivepath($num) $ch(2)
set drivetype($num) $ch(3)
set drivefstype($num) $ch(4)
set drivelabel($num) $ch(5)
set drivedevice($num) $ch(6)
set driveserial($num) $ch(7)
destroy $win
if {$num > $ndrives} {set ndrives $num}
TkW:setboxes
.wineconf.can01.but28 configure -state normal
# re-enable the tow EDIT buttons of ports:
.wineconf.can54.but69 configure -state normal
.wineconf.can53.but63 configure -state normal
}
} \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable OK \
place $win.but80 \
-x 5 -y 290 -width 145 -height 28 \
-anchor nw -bordermode ignore
button $win.but81 \
-command {
destroy $win
.wineconf.can01.but28 configure -state normal
#.wineconf.can01.but29 configure -state normal
#.wineconf.can01.but30 configure -state normal
# re-enable the tow EDIT buttons of ports:
#.wineconf.can54.but69 configure -state normal
#.wineconf.can53.but63 configure -state normal
}\
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-padx 9 -pady 3 -text button -textvariable CANCEL \
place $win.but81 \
-x 150 -y 290 -width 145 -height 28 \
-anchor nw -bordermode ignore
place $win.banner -width 290 -height 35 -x 5 -y 5
}
proc TkW:checkdrives {} {
global ndrives ch num drOK drive
global WC_givepath WC_oneletter WC_usedletter WC_11letters
if {[string length $ch(1)] != 1} {
TkW:message "$ch(1) $WC_oneletter"
set drOK 0
return
}
if {[string length $ch(5)] > 11} {
TkW:message "$ch(5) $WC_11letters"
set drOK 0
return
}
for {set i 0} {$i <=$ndrives} {set i [expr $i + 1]} {
if {$i != $num && [string tolower $ch(1)]\
== [string tolower $drive($i)] } {
TkW:message "$ch(1)$WC_usedletter"
set drOK 0
return
}
}
if { $ch(2) == ""} {TkW:message $WC_givepath; set drOK 0;return}
if { $ch(3) == ""} {set ch(3) hd}
if { $ch(4) == ""} {set ch(4) unix}
if { $ch(5) == ""} {set ch(5) "Drive $ch(1)"}
set drOK 1
}
proc TkW:editWinePath {} {
global OK varpath WC_editPathBanner WC_pathtitle TKW
TkW:debug "Entering TkW:editWinePath with path set to $varpath"
global ndrives dri
# Create the toplevel
toplevel .editpath -class Toplevel \
-background #3c1cfe
wm focusmodel .editpath passive
wm geometry .editpath 410x100+448+253
wm maxsize .editpath 1265 994
wm minsize .editpath 1 1
wm overrideredirect .editpath 0
wm resizable .editpath 1 1
wm deiconify .editpath
wm title .editpath $WC_pathtitle
#wm iconbitmap .editpath @$TKW/setupfiles/images/setup2.xbm
#wm iconmask .editpath @$TKW/setupfiles/images/setupmask2.xbm
#Creates the Banner
label .editpath.banner \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text $WC_editPathBanner
#Creates the entry box
entry .editpath.ent \
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -textvariable varpath
#Creates OK button
button .editpath.ok\
-background #dc96dc \
-font -Adobe-Helvetica-Medium-R-Normal-*-*-120-*-*-*-*-*-*\
-relief groove -text $OK -command {destroy .editpath}
place .editpath.banner -x 5 -y 5 -width 400 -height 30
place .editpath.ent -x 5 -y 40 -width 400 -height 30
place .editpath.ok -x 5 -y 70 -width 400 -height 30
}
proc TkW:writewinerc {} {
global windowspath varpath syspath tmppath symbols winelook
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial
global resolution defaultfont HOME
global readport writeport
global exclude default_progs startup allocsyscolors winelook wine_logfile
global com lpt spool nspool alias nalias
global NDllPairs NDllOver DllPairs DllOver
# open file for writing:;;
# move the old file:
if {[file exists ~/.winerc]} {
set free 1
while {[file exists ~/.winerc.$free]} {
set free [expr $free + 1]
}
exec mv -f $HOME/.winerc $HOME/.winerc.$free
}
set out [open ~/.winerc w]
# writes drives
# Puts the usual comments:
puts $out ";;"
puts $out ";; MS-DOS drives configuration "
puts $out ";;"
puts $out ";; Each section has the following format:"
puts $out ";; \[Drive X\]"
puts $out ";; Path=xxx (Unix path for drive root)"
puts $out ";; Type=xxx (supported types are 'floppy', 'hd', 'cdrom' and 'network')"
puts $out ";; Label=xxx (drive label, at most 11 characters)"
puts $out ";; Serial=xxx (serial number, 8 characters hexadecimal number)"
puts $out ";; Filesystem=xxx (supported types are 'msdos','win95','unix')"
puts $out ";; Device=/dev/xx (only if you want to allow raw device access)"
puts $out ";; "
for {set i 0} {$i <= $ndrives} {set i [expr $i + 1]} {
puts $out "\[Drive $drive($i)\]"
puts $out "Path=$drivepath($i)"
puts $out "Type=$drivetype($i)"
puts $out "Label=$drivelabel($i)"
if {$drivefstype($i) == ""} {set drivefstype($i) unix}
puts $out "Filesystem=$drivefstype($i)"
if {$driveserial($i) != "" } {puts $out "Serial=$driveserial($i)"}
if {$drivedevice($i) != "" } {puts $out "Device=$drivedevice($i)"}
puts $out ""
}
#write wine section
puts $out "\[wine\]"
puts $out "Windows=$windowspath"
puts $out "System=$syspath"
puts $out "Temp=$tmppath"
puts $out "Path=$varpath"
puts $out "SymbolTableFile=$symbols"
puts $out ""
# write options
TkW:fixme "Option not supported in wineconf, write de default"
puts $out "\[options\]"
puts $out "AllocSystemColors=$allocsyscolors"
puts $out ""
# DllPairs:
puts $out "\[DllPairs\]"
for {set i 1} {$i <= $NDllPairs} {set i [expr $i + 1]} {
puts $out $DllPairs($i)
}
puts $out
# DllOverrides:
puts $out "\[DllOverrides\]"
for {set i 1} {$i <= $NDllOver} {set i [expr $i + 1]} {
puts $out $DllOver($i)
}
puts $out
# write fonts section
TkW:fixme "fonts support to be added to wineconf...."
puts $out "\[fonts\]"
puts $out ";Read documentation/fonts before adding aliases"
puts $out "Resolution = $resolution"
puts $out "Default = $defaultfont"
puts $out ""
# write serial
puts $out "\[serialports\]"
for {set i 1} {$i <= 8} {set i [expr $i + 1]} {
if {$com($i) != ""} {puts $out "Com$i=$com($i)"}
}
puts $out ""
# write parallel
puts $out "\[parallelports\]"
for {set i 1} {$i <= 8} {set i [expr $i + 1]} {
if {$lpt($i) != ""} {puts $out "Lpt$i=$lpt($i)"}
}
puts $out ""
# write spooler
puts $out "\[spooler\]"
for {set i 1} {$i <= 8} {set i [expr $i + 1]} {
if {$spool($i) != ""} {puts $out "LPT$i:=$spool($i)"}
}
puts $out ""
# write ports
puts $out "\[ports]"
if {[info exists readport]} {puts $out $readport} {puts $out ";read=0x779,0x379,0x280-0x2a0"}
if {[info exists writeport]} {puts $out $writeport} {puts $out ";write=0x779,0x379,0x280-0x2a0"}
puts $out ""
#write spy
puts $out "\[spy\]"
puts $out "file=$wine_logfile"
if {[info exists exclude]} {puts $out "Exclude=$exclude"} {puts $out "Exclude=WM_SIZE;WM_TIMER;"}
puts $out ""
#write Tweak.Layout
puts $out "\[Tweak.Layout\]"
puts $out ";; WineLook=xxx (supported styles are \'Win31\'(default), \'Win95\', \'Win98\')"
puts $out "WineLook=Win95"
}
proc TkW:delDrive {n} {
global ndrives drive drivepath drivetype drivefstype drivelabel
global drivedevice driveserial
TkW:debug "Remove drive [expr $n + 1]"
for {set i $n} {$i<$ndrives} {set i [expr $i +1]} {
set i1 [expr $i + 1]
set drive($i) $drive($i1)
set drivepath($i) $drivepath($i1)
set drivelabel($i) $drivelabel($i1)
set drivetype($i) $drivetype($i1)
set drivefstype($i) $drivefstype($i1)
set driveserial($i) $driveserial($i1)
}
set ndrives [expr $ndrives - 1]
TkW:setboxes
}