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

# 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: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\""

}