Subversion Repositories or1k

#!/usr/bin/wish -f

#

# This is a handy replacement for ".widget cget" that requires neither tk4

# nor additional source code uglification.

#

proc cget { w option } {

        return "[lindex [$w configure $option] 4]"

}

#

# Function to compensate for broken config.in scripts like the sound driver,

# which make dependencies on variables that are never even conditionally

# defined.

#

proc vfix { var } {

        global $var

        if [ catch {eval concat $$var} ] {

                puts stdout "WARNING - broken Config.in!  $var was not declared!"

                set $var 0

        }

}

#

# Create a "reference" object to steal colors from.

#

button .ref

#

# On monochrome displays, -disabledforeground is blank by default; that's

# bad.  Fill it with -foreground instead.

#

if { [cget .ref -disabledforeground] == "" } {

        .ref configure -disabledforeground [cget .ref -foreground]

}

#

# Define some macros we will need to parse the config.in file.

#

proc mainmenu_name { text } {

        message .header.message -width 400 -relief raised -text "$text"

        pack .header.label .header.message -side left -padx 15

        wm title . "$text"

}

proc menu_option { w menu_num text } {

        button .f0.x$menu_num -text "$text" -width 50 -command "$w .$w \"$text\""

        pack .f0.x$menu_num -pady 1 -expand on

}

#

# Not used at the moment, but this runs a command in a subprocess and

# displays the result in a window with a scrollbar.

#

# For now, we just do external "make" commands to stdout with do_make, so

# this function is never called.

#

proc do_cmd { w command } {

        catch {destroy $w}

        toplevel $w -class Dialog

        frame $w.tb

        text $w.tb.text -relief raised -bd 2 -yscrollcommand "$w.tb.scroll set"

        scrollbar $w.tb.scroll -command "$w.tb.text yview"

        pack $w.tb.scroll -side right -fill y

        pack $w.tb.text -side left

        set oldFocus [focus]

        frame $w.back

        button $w.back.ok -text "OK" -width 20 \

                -command "destroy $w; focus $oldFocus" -state disabled

        button $w.back.ccl -text "Cancel" -width 20 \

                -command "destroy $w; focus $oldFocus"

        pack $w.tb -side top

        pack $w.back.ok $w.back.ccl -side left

        pack $w.back -side bottom -pady 10

        focus $w

        wm geometry $w +30+35

        $w.tb.text delete 1.0 end

        set f [open |$command]

        while {![eof $f]} {

                $w.tb.text insert end [read $f 256]

        }

        close $f

        $w.back.ok configure -state normal

}

proc load_configfile { w title func } {

        catch {destroy $w}

        toplevel $w -class Dialog

        global loadfile

        frame $w.x

        label $w.bm -bitmap questhead

        pack  $w.bm -pady 10 -side top -padx 10

        label $w.x.l -text "Enter filename:" -relief raised

        entry $w.x.x -width 35 -relief sunken -borderwidth 2 \

                -textvariable loadfile

        pack $w.x.l $w.x.x -anchor w -side left

        pack $w.x -side top -pady 10

        wm title $w "$title"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "OK" -width 20 \

                -command "destroy $w; focus $oldFocus;$func .fileio"

        button $w.f.canc -text "Cancel" \

                -width 20 -command "destroy $w; focus $oldFocus"

        pack $w.f.back $w.f.canc -side left -pady 10 -padx 45

        pack $w.f -pady 10 -side bottom -padx 10 -anchor w

        focus $w

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

}

proc maybe_exit { w } {

        catch {destroy $w}

        toplevel $w -class Dialog

        label $w.bm -bitmap questhead

        pack  $w.bm -pady 10 -side top -padx 10

        message $w.m -width 400 -aspect 300 \

                -text "Changes will be lost.  Are you sure?" -relief flat

        pack  $w.m -pady 10 -side top -padx 10

        wm title $w "Are you sure?"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "OK" -width 20 \

                -command "exit"

        button $w.f.canc -text "Cancel" \

                -width 20 -command "destroy $w; focus $oldFocus"

        pack $w.f.back $w.f.canc -side left -pady 10 -padx 45

        pack $w.f -pady 10 -side bottom -padx 10 -anchor w

        focus $w

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

}

proc read_config_file { w } {

        global loadfile

        if { [string length $loadfile] != 0 && [file readable $loadfile] == 1 } then {

                read_config $loadfile

        } else {

                catch {destroy $w}

                toplevel $w -class Dialog

                message $w.m -width 400 -aspect 300 -text \

                        "Unable to read file $loadfile" \

                         -relief raised

                label $w.bm -bitmap error

                pack $w.bm $w.m -pady 10 -side top -padx 10

                wm title $w "Oops"

                set oldFocus [focus]

                frame $w.f

                button $w.f.back -text "Bummer" \

                        -width 10 -command "destroy $w; focus $oldFocus"

                pack $w.f.back -side bottom -pady 10 -anchor s

                pack $w.f -pady 10 -side top -padx 10 -anchor s

                focus $w

                global winx; global winy

                set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

                wm geometry $w +$winx+$winy

        }

}

proc write_config_file  { w } {

        global loadfile

        if { [string length $loadfile] != 0

                && ([file writable $loadfile] == 1 || ([file exists $loadfile] == 0 && [file writable [file dirname $loadfile]] == 1)) } then {

                writeconfig $loadfile /dev/null

        } else {

                catch {destroy $w}

                toplevel $w -class Dialog

                message $w.m -width 400 -aspect 300 -text \

                        "Unable to write file $loadfile" \

                         -relief raised

                label $w.bm -bitmap error

                pack $w.bm $w.m -pady 10 -side top -padx 10

                wm title $w "Oops"

                set oldFocus [focus]

                frame $w.f

                button $w.f.back -text "OK" \

                        -width 10 -command "destroy $w; focus $oldFocus"

                pack $w.f.back -side bottom -pady 10 -anchor s

                pack $w.f -pady 10 -side top -padx 10 -anchor s

                focus $w

                global winx; global winy

                set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

                wm geometry $w +$winx+$winy

        }

}

proc read_config { filename } {

        set file1 [open $filename r]

        clear_choices

        while { [gets $file1 line] >= 0} {

                if [regexp {([0-9A-Za-z_]+)=([ynm])} $line foo var value] {

                        if { $value == "y" } then { set cmd "global $var; set $var 1" }

                        if { $value == "n" } then { set cmd "global $var; set $var 0" }

                        if { $value == "m" } then { set cmd "global $var; set $var 2" }

                        eval $cmd

                }

                if [regexp {# ([0-9A-Za-z_]+) is not set} $line foo var] {

                        set cmd "global $var; set $var 0"

                        eval $cmd

                }

                if [regexp {([0-9A-Za-z_]+)=([0-9A-Fa-f]+)} $line foo var value] {

                        set cmd "global $var; set $var $value"

                        eval $cmd

                }

        }

        close $file1

        update_choices

        update_mainmenu .rdupd

}

proc write_comment { file1 file2 text } {

        puts $file1 ""

        puts $file1 "#"

        puts $file1 "# $text"

        puts $file1 "#"

        puts $file2 "/*"

        puts $file2 " * $text"

        puts $file2 " */"

}

proc write_tristate { file1 file2 varname variable dep } {

        if { $variable == 0 } \

                then { puts $file1 "# $varname is not set"; \

                       puts $file2 "#undef $varname"} \

        elseif { $variable == 2 || ($dep == 2 && $variable == 1) } \

                then { puts $file1 "$varname=m"; \

                       puts $file2 "#undef $varname"; \

                       puts $file2 "#define ${varname}_MODULE 1" } \

        elseif { $variable == 1 && $dep != 2 } \

                then { puts $file1 "$varname=y"; \

                       puts $file2 "#define $varname 1" } \

        else { \

            error "Attempting to write value for variable that is not configured ($varname)." \

        }

}

proc write_int { file1 file2 varname variable dep } {

        if { $dep == 0 } \

                then { puts $file1 "# $varname is not set"; \

                       puts $file2 "#undef $varname"} \

        else {

                puts $file1 "$varname=$variable"; \

                puts $file2 "#define $varname $variable"; \

        }

}

proc write_hex { file1 file2 varname variable dep } {

        if { $dep == 0 } \

                then { puts $file1 "# $varname is not set"; \

                       puts $file2 "#undef $varname"} \

        else {

                puts $file1 "$varname=$variable"; \

                puts $file2 "#define $varname 0x$variable"; \

        }

}

proc option_name {w mnum line text helpidx} {

        button $w.x$line.l -text "$text" -relief groove -anchor w

        $w.x$line.l configure -activefore [cget $w.x$line.l -fg] \

                                -activeback [cget $w.x$line.l -bg]

        button $w.x$line.help -text "Help" -relief raised \

                -command "dohelp .dohelp $helpidx"

        pack $w.x$line.help -side right -fill y

        pack $w.x$line.l -side right -fill both -expand on

}

proc toggle_switch {w mnum line text variable} {

        frame $w.x$line -relief sunken

        radiobutton $w.x$line.y -text "y" -variable $variable -value 1 \

                -relief groove -width 2 -command "update_menu$mnum .menu$mnum"

        radiobutton $w.x$line.m -text "m"  -variable $variable -value 2 \

                -relief groove -width 2 -command "update_menu$mnum .menu$mnum"

        radiobutton $w.x$line.n -text "n"  -variable $variable -value 0 \

                -relief groove -width 2 -command "update_menu$mnum .menu$mnum"

        option_name $w $mnum $line $text $variable

        pack $w.x$line.n $w.x$line.m $w.x$line.y -side right -fill y

}

proc bool {w mnum line text variable} {

        toggle_switch $w $mnum $line $text $variable

        $w.x$line.m configure -state disabled

        pack $w.x$line -anchor w -fill both -expand on

}

proc tristate {w mnum line text variable } {

        toggle_switch $w $mnum $line $text $variable

        pack $w.x$line -anchor w -fill both -expand on

}

proc dep_tristate {w mnum line text variable depend } {

        tristate $w $mnum $line $text $variable

}

proc int { w mnum line text variable } {

        frame $w.x$line

        entry $w.x$line.x -width 18 -relief sunken -borderwidth 2 \

                -textvariable $variable

        option_name $w $mnum $line $text $variable

        pack $w.x$line.x -anchor w -side right -fill y

        pack $w.x$line -anchor w -fill both -expand on

}

proc hex { w mnum line text variable } {

        int $w $mnum $line $text $variable

}

proc minimenu { w mnum line text variable helpidx } {

        frame $w.x$line

        menubutton $w.x$line.x -textvariable $variable -menu \

                $w.x$line.x.menu -relief raised \

                -width 15 -anchor w

        option_name $w $mnum $line $text $helpidx

        pack $w.x$line.x -anchor w -side right -fill y

        pack $w.x$line -anchor w -fill both -expand on

}

proc comment {w line text } {

#nothing done for comments now.

}

proc do_make { command } {

        exec sh -c $command <@stdin >@stdout 2>@stderr

#       do_cmd .make_window "sh -c $command"

}

proc dohelp {w var }  {

        catch {destroy $w}

        toplevel $w -class Dialog

        set filefound 0

        set found 0

        set lineno 0

        if { [file readable Documentation/Configure.help] == 1} then {

                set filefound 1

                set message [exec sed -n "

                        /^$var\[        \]*\$/,\${

                                /^$var\[        \]*\$/c\\

${var}:\\

                                /^#.*/d

                                /^\[    \]*\$/bL

                                H

                        }

                        d

                        :L x

                        s/\\n  //

                        s/\\n  / /g

                        p

                        q

                        " Documentation/Configure.help]

                set found [expr [string length "$message"] > 0]

        }

        frame $w.f1

        if { $found == 0 } then {

                if { $filefound == 0 } then {

                message $w.f1.m -width 750 -aspect 300 -relief flat -text \

                        "No help available - unable to open file Documentation/Configure.help.  This file should have come with your kernel."

                } else {

                message $w.f1.m -width 400 -aspect 300 -relief flat -text \

                        "No help available for $var"

                }

                label $w.f1.bm -bitmap error

                wm title $w "RTFM"

        } else {

                message $w.f1.m -width 400 -aspect 300 -text $message \

                         -relief flat

                label $w.f1.bm -bitmap info

                wm title $w "Configuration help"

        }

        pack $w.f1.bm $w.f1.m -side left -padx 10

        pack $w.f1 -side top

        set oldFocus [focus]

        # Do the OK button

        #

        frame $w.f2

        button $w.f2.ok -text "OK" \

                -width 10 -command "destroy $w; focus $oldFocus"

        pack $w.f2.ok -side bottom -pady 10 -anchor s

        pack $w.f2 -side bottom -padx 10 -anchor s

        # Finish off the window

        #

        focus $w

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

}

proc wrapup {w }  {

        catch {destroy $w}

        toplevel $w -class Dialog

        message $w.m -width 400 -aspect 300 -text \

                "The linux kernel is now hopefully configured for your setup. Check the top-level Makefile for additional configuration, and do a 'make dep ; make clean' if you want to be sure all the files are correctly re-made."  -relief raised

        label $w.bm -bitmap info

        pack $w.bm $w.m -pady 10 -side top -padx 10

        wm title $w "Kernel build instructions"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "OK" \

                -width 10 -command "exit"

        pack $w.f.back -side bottom -pady 10 -anchor s

        pack $w.f -pady 10 -side top -padx 10 -anchor s

        focus $w

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

}

proc check_sound_config { num } {

#nothing for now.

}

proc do_sound {w mnum line} {

        message $w.x$line -width 400 -aspect 300 -text "Note: The sound drivers cannot as of yet be configured via the X-based interface" -relief raised

        pack $w.x$line -side top -pady 10

}

#

# Next set up the particulars for the top level menu, and define a few

# buttons which we will stick down at the bottom.

#

frame .header

label .header.label

frame .f0

mainmenu_name "uClinux/OR1K (w/o MMU) Kernel Configuration"

menu_option menu1 1 "Code maturity level options"

proc menu1 {w title} {

        catch {destroy $w}

        toplevel $w -class Dialog

        wm withdraw $w

        message $w.m -width 400 -aspect 300 -text \

                "Code maturity level options"  -relief raised

        pack $w.m -pady 10 -side top -padx 10

        wm title $w "Code maturity level options"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "Main Menu" \

                -width 15 -command "destroy $w; focus $oldFocus; update_mainmenu $w"

        button $w.f.next -text "Next" \

                -width 15 -command " destroy $w; focus $oldFocus;  menu2 .menu2 \"$title\""

        button $w.f.prev -text "Prev" \

                -width 15 -command " destroy $w; focus $oldFocus; menu0 .menu0 \"$title\""

        $w.f.prev configure -state disabled

        pack $w.f.back $w.f.next $w.f.prev -side left -expand on

        pack $w.f -pady 10 -side bottom -anchor w -fill x

        frame $w.topline -relief ridge -borderwidth 2 -height 2

        pack $w.topline -side top -fill x

        frame $w.botline -relief ridge -borderwidth 2 -height 2

        pack $w.botline -side bottom -fill x

        frame $w.config

        pack $w.config -fill y -expand on

        scrollbar $w.config.vscroll -command "$w.config.canvas yview"

        pack $w.config.vscroll -side right -fill y

        canvas $w.config.canvas -height 1\

                -relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \

                -width [expr [winfo screenwidth .] * 1 / 2]

        frame $w.config.f

        pack $w.config.canvas -side right -fill y

        bool $w.config.f 1 0 "Prompt for development and/or incomplete code/drivers" CONFIG_EXPERIMENTAL

        focus $w

        update_menu1 $w.config.f

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

        update idletasks

        $w.config.canvas create window 0 0 -anchor nw -window $w.config.f

        $w.config.canvas configure \

                -width [expr [winfo reqwidth $w.config.f] + 1]\

                -scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \

                         [expr [winfo reqheight $w.config.f] + 1]"

        set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]

        set scry [expr [winfo screenh $w] / 2]

        set maxy [expr [winfo screenh $w] * 3 / 4]

        set canvtotal [expr [winfo reqh $w.config.f] + 2]

        if [expr $winy + $canvtotal < $maxy] {

                $w.config.canvas configure -height $canvtotal

        } else {

                $w.config.canvas configure -height [expr $scry - $winy]

        }

        update idletasks

        wm maxsize $w [winfo width $w] [winfo screenheight $w]

        wm minsize $w [winfo width $w] 100

        wm deiconify $w

}

proc update_menu1 {w}  {

        update_define

}

menu_option menu2 2 "Platform dependant setup"

proc menu2 {w title} {

        catch {destroy $w}

        toplevel $w -class Dialog

        wm withdraw $w

        message $w.m -width 400 -aspect 300 -text \

                "Platform dependant setup"  -relief raised

        pack $w.m -pady 10 -side top -padx 10

        wm title $w "Platform dependant setup"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "Main Menu" \

                -width 15 -command "destroy $w; focus $oldFocus; update_mainmenu $w"

        button $w.f.next -text "Next" \

                -width 15 -command " destroy $w; focus $oldFocus;  menu3 .menu3 \"$title\""

        button $w.f.prev -text "Prev" \

                -width 15 -command " destroy $w; focus $oldFocus; menu1 .menu1 \"$title\""

        pack $w.f.back $w.f.next $w.f.prev -side left -expand on

        pack $w.f -pady 10 -side bottom -anchor w -fill x

        frame $w.topline -relief ridge -borderwidth 2 -height 2

        pack $w.topline -side top -fill x

        frame $w.botline -relief ridge -borderwidth 2 -height 2

        pack $w.botline -side bottom -fill x

        frame $w.config

        pack $w.config -fill y -expand on

        scrollbar $w.config.vscroll -command "$w.config.canvas yview"

        pack $w.config.vscroll -side right -fill y

        canvas $w.config.canvas -height 1\

                -relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \

                -width [expr [winfo screenwidth .] * 1 / 2]

        frame $w.config.f

        pack $w.config.canvas -side right -fill y

        global tmpvar_0

        minimenu $w.config.f 2 0 "CPU" tmpvar_0 CONFIG_OR32

        menu $w.config.f.x0.x.menu

        $w.config.f.x0.x.menu add radiobutton -label "OR32" -variable tmpvar_0 -value "OR32" -command "update_menu2 .menu2.config.f"

        bool $w.config.f 2 1 "General OR32 board support" CONFIG_GEN

        global tmpvar_1

        minimenu $w.config.f 2 2 "Kernel executes from" tmpvar_1 CONFIG_RAMKERNEL

        menu $w.config.f.x2.x.menu

        $w.config.f.x2.x.menu add radiobutton -label "RAM" -variable tmpvar_1 -value "RAM" -command "update_menu2 .menu2.config.f"

        $w.config.f.x2.x.menu add radiobutton -label "ROM" -variable tmpvar_1 -value "ROM" -command "update_menu2 .menu2.config.f"

        focus $w

        update_menu2 $w.config.f

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

        update idletasks

        $w.config.canvas create window 0 0 -anchor nw -window $w.config.f

        $w.config.canvas configure \

                -width [expr [winfo reqwidth $w.config.f] + 1]\

                -scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \

                         [expr [winfo reqheight $w.config.f] + 1]"

        set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]

        set scry [expr [winfo screenh $w] / 2]

        set maxy [expr [winfo screenh $w] * 3 / 4]

        set canvtotal [expr [winfo reqh $w.config.f] + 2]

        if [expr $winy + $canvtotal < $maxy] {

                $w.config.canvas configure -height $canvtotal

        } else {

                $w.config.canvas configure -height [expr $scry - $winy]

        }

        update idletasks

        wm maxsize $w [winfo width $w] [winfo screenheight $w]

        wm minsize $w [winfo width $w] 100

        wm deiconify $w

}

proc update_menu2 {w}  {

        update_define

        global tmpvar_0; vfix tmpvar_0

        global CONFIG_GEN; vfix CONFIG_GEN

        if {($tmpvar_0 == "OR32")} then { .menu2.config.f.x1.y configure -state normal;.menu2.config.f.x1.n configure -state normal;.menu2.config.f.x1.l configure -state normal;set CONFIG_GEN [expr $CONFIG_GEN&15];} else { .menu2.config.f.x1.y configure -state disabled;.menu2.config.f.x1.n configure -state disabled;.menu2.config.f.x1.l configure -state disabled;set CONFIG_GEN [expr $CONFIG_GEN|16];}

}

menu_option menu3 3 "General setup"

proc menu3 {w title} {

        catch {destroy $w}

        toplevel $w -class Dialog

        wm withdraw $w

        message $w.m -width 400 -aspect 300 -text \

                "General setup"  -relief raised

        pack $w.m -pady 10 -side top -padx 10

        wm title $w "General setup"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "Main Menu" \

                -width 15 -command "destroy $w; focus $oldFocus; update_mainmenu $w"

        button $w.f.next -text "Next" \

                -width 15 -command " destroy $w; focus $oldFocus;  menu4 .menu4 \"$title\""

        button $w.f.prev -text "Prev" \

                -width 15 -command " destroy $w; focus $oldFocus; menu2 .menu2 \"$title\""

        pack $w.f.back $w.f.next $w.f.prev -side left -expand on

        pack $w.f -pady 10 -side bottom -anchor w -fill x

        frame $w.topline -relief ridge -borderwidth 2 -height 2

        pack $w.topline -side top -fill x

        frame $w.botline -relief ridge -borderwidth 2 -height 2

        pack $w.botline -side bottom -fill x

        frame $w.config

        pack $w.config -fill y -expand on

        scrollbar $w.config.vscroll -command "$w.config.canvas yview"

        pack $w.config.vscroll -side right -fill y

        canvas $w.config.canvas -height 1\

                -relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \

                -width [expr [winfo screenwidth .] * 1 / 2]

        frame $w.config.f

        pack $w.config.canvas -side right -fill y

        bool $w.config.f 3 0 "PCI bios support" CONFIG_PCI

        bool $w.config.f 3 1 "    PCI device list support" CONFIG_PCIDEVLIST

        bool $w.config.f 3 2 "Networking support" CONFIG_NET

        bool $w.config.f 3 3 "System V IPC" CONFIG_SYSVIPC

        bool $w.config.f 3 4 "Reduced memory footprint" CONFIG_REDUCED_MEMORY

        tristate $w.config.f 3 5 "Kernel support for flat binaries" CONFIG_BINFMT_FLAT

        tristate $w.config.f 3 6 "Kernel support for ELF binaries" CONFIG_BINFMT_ELF

        bool $w.config.f 3 7 "Compile kernel as ELF - if your GCC is ELF-GCC" CONFIG_KERNEL_ELF

        bool $w.config.f 3 8 "Console support" CONFIG_CONSOLE

        bool $w.config.f 3 9 "Enable serial echo" CONFIG_SERIAL_ECHO

        bool $w.config.f 3 10 "Frame buffer" CONFIG_FRAMEBUFFER

        focus $w

        update_menu3 $w.config.f

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

        update idletasks

        $w.config.canvas create window 0 0 -anchor nw -window $w.config.f

        $w.config.canvas configure \

                -width [expr [winfo reqwidth $w.config.f] + 1]\

                -scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \

                         [expr [winfo reqheight $w.config.f] + 1]"

        set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]

        set scry [expr [winfo screenh $w] / 2]

        set maxy [expr [winfo screenh $w] * 3 / 4]

        set canvtotal [expr [winfo reqh $w.config.f] + 2]

        if [expr $winy + $canvtotal < $maxy] {

                $w.config.canvas configure -height $canvtotal

        } else {

                $w.config.canvas configure -height [expr $scry - $winy]

        }

        update idletasks

        wm maxsize $w [winfo width $w] [winfo screenheight $w]

        wm minsize $w [winfo width $w] 100

        wm deiconify $w

}

proc update_menu3 {w}  {

        update_define

        global CONFIG_PCI; vfix CONFIG_PCI

        global CONFIG_PCIDEVLIST; vfix CONFIG_PCIDEVLIST

        if {($CONFIG_PCI == 1)} then { .menu3.config.f.x1.y configure -state normal;.menu3.config.f.x1.n configure -state normal;.menu3.config.f.x1.l configure -state normal;set CONFIG_PCIDEVLIST [expr $CONFIG_PCIDEVLIST&15];} else { .menu3.config.f.x1.y configure -state disabled;.menu3.config.f.x1.n configure -state disabled;.menu3.config.f.x1.l configure -state disabled;set CONFIG_PCIDEVLIST [expr $CONFIG_PCIDEVLIST|16];}

        global CONFIG_CONSOLE; vfix CONFIG_CONSOLE

        global CONFIG_SERIAL_ECHO; vfix CONFIG_SERIAL_ECHO

        if {($CONFIG_CONSOLE == 1)} then { .menu3.config.f.x9.y configure -state normal;.menu3.config.f.x9.n configure -state normal;.menu3.config.f.x9.l configure -state normal;set CONFIG_SERIAL_ECHO [expr $CONFIG_SERIAL_ECHO&15];} else { .menu3.config.f.x9.y configure -state disabled;.menu3.config.f.x9.n configure -state disabled;.menu3.config.f.x9.l configure -state disabled;set CONFIG_SERIAL_ECHO [expr $CONFIG_SERIAL_ECHO|16];}

        global CONFIG_FRAMEBUFFER; vfix CONFIG_FRAMEBUFFER

        if {($CONFIG_CONSOLE == 1)} then { .menu3.config.f.x10.y configure -state normal;.menu3.config.f.x10.n configure -state normal;.menu3.config.f.x10.l configure -state normal;set CONFIG_FRAMEBUFFER [expr $CONFIG_FRAMEBUFFER&15];} else { .menu3.config.f.x10.y configure -state disabled;.menu3.config.f.x10.n configure -state disabled;.menu3.config.f.x10.l configure -state disabled;set CONFIG_FRAMEBUFFER [expr $CONFIG_FRAMEBUFFER|16];}

}

menu_option menu4 4 "Floppy, IDE, and other block devices"

proc menu4 {w title} {

        catch {destroy $w}

        toplevel $w -class Dialog

        wm withdraw $w

        message $w.m -width 400 -aspect 300 -text \

                "Floppy, IDE, and other block devices"  -relief raised

        pack $w.m -pady 10 -side top -padx 10

        wm title $w "Floppy, IDE, and other block devices"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "Main Menu" \

                -width 15 -command "destroy $w; focus $oldFocus; update_mainmenu $w"

        button $w.f.next -text "Next" \

                -width 15 -command " destroy $w; focus $oldFocus;  menu5 .menu5 \"$title\""

        button $w.f.prev -text "Prev" \

                -width 15 -command " destroy $w; focus $oldFocus; menu3 .menu3 \"$title\""

        pack $w.f.back $w.f.next $w.f.prev -side left -expand on

        pack $w.f -pady 10 -side bottom -anchor w -fill x

        frame $w.topline -relief ridge -borderwidth 2 -height 2

        pack $w.topline -side top -fill x

        frame $w.botline -relief ridge -borderwidth 2 -height 2

        pack $w.botline -side bottom -fill x

        frame $w.config

        pack $w.config -fill y -expand on

        scrollbar $w.config.vscroll -command "$w.config.canvas yview"

        pack $w.config.vscroll -side right -fill y

        canvas $w.config.canvas -height 1\

                -relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \

                -width [expr [winfo screenwidth .] * 1 / 2]

        frame $w.config.f

        pack $w.config.canvas -side right -fill y

        tristate $w.config.f 4 0 "ROM disk memory block device" CONFIG_BLK_DEV_BLKMEM

        bool $w.config.f 4 1 "IDE harddisk support" CONFIG_BLK_DEV_IDE

        bool $w.config.f 4 2 "   Include IDE/ATAPI CDROM support" CONFIG_BLK_DEV_IDECD

        bool $w.config.f 4 3 "   Include IDE/ATAPI TAPE support" CONFIG_BLK_DEV_IDETAPE

        bool $w.config.f 4 4 "   Include IDE/ATAPI FLOPPY support (new)" CONFIG_BLK_DEV_IDEFLOPPY

        tristate $w.config.f 4 5 "Loopback device support" CONFIG_BLK_DEV_LOOP

        bool $w.config.f 4 6 "Multiple devices driver support" CONFIG_BLK_DEV_MD

        tristate $w.config.f 4 7 "   Linear (append) mode" CONFIG_MD_LINEAR

        tristate $w.config.f 4 8 "   RAID-0 (striping) mode" CONFIG_MD_STRIPED

        tristate $w.config.f 4 9 "RAM disk support" CONFIG_BLK_DEV_RAM

        bool $w.config.f 4 10 "   Release empty RAM disk blocks" CONFIG_RD_RELEASE_BLOCKS

        bool $w.config.f 4 11 "   Initial RAM disk (initrd) support" CONFIG_BLK_DEV_INITRD

        tristate $w.config.f 4 12 "FLASH device support" CONFIG_DEV_FLASH

        bool $w.config.f 4 13 "   FLASH Block device" CONFIG_BLK_DEV_FLASH

        bool $w.config.f 4 14 "   FLASH Character device" CONFIG_CHR_DEV_FLASH

        focus $w

        update_menu4 $w.config.f

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

        update idletasks

        $w.config.canvas create window 0 0 -anchor nw -window $w.config.f

        $w.config.canvas configure \

                -width [expr [winfo reqwidth $w.config.f] + 1]\

                -scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \

                         [expr [winfo reqheight $w.config.f] + 1]"

        set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]

        set scry [expr [winfo screenh $w] / 2]

        set maxy [expr [winfo screenh $w] * 3 / 4]

        set canvtotal [expr [winfo reqh $w.config.f] + 2]

        if [expr $winy + $canvtotal < $maxy] {

                $w.config.canvas configure -height $canvtotal

        } else {

                $w.config.canvas configure -height [expr $scry - $winy]

        }

        update idletasks

        wm maxsize $w [winfo width $w] [winfo screenheight $w]

        wm minsize $w [winfo width $w] 100

        wm deiconify $w

}

proc update_menu4 {w}  {

        update_define

        global CONFIG_BLK_DEV_IDE; vfix CONFIG_BLK_DEV_IDE

        global CONFIG_BLK_DEV_IDECD; vfix CONFIG_BLK_DEV_IDECD

        if {($CONFIG_BLK_DEV_IDE == 1)} then { .menu4.config.f.x2.y configure -state normal;.menu4.config.f.x2.n configure -state normal;.menu4.config.f.x2.l configure -state normal;set CONFIG_BLK_DEV_IDECD [expr $CONFIG_BLK_DEV_IDECD&15];} else { .menu4.config.f.x2.y configure -state disabled;.menu4.config.f.x2.n configure -state disabled;.menu4.config.f.x2.l configure -state disabled;set CONFIG_BLK_DEV_IDECD [expr $CONFIG_BLK_DEV_IDECD|16];}

        global CONFIG_BLK_DEV_IDETAPE; vfix CONFIG_BLK_DEV_IDETAPE

        if {($CONFIG_BLK_DEV_IDE == 1)} then { .menu4.config.f.x3.y configure -state normal;.menu4.config.f.x3.n configure -state normal;.menu4.config.f.x3.l configure -state normal;set CONFIG_BLK_DEV_IDETAPE [expr $CONFIG_BLK_DEV_IDETAPE&15];} else { .menu4.config.f.x3.y configure -state disabled;.menu4.config.f.x3.n configure -state disabled;.menu4.config.f.x3.l configure -state disabled;set CONFIG_BLK_DEV_IDETAPE [expr $CONFIG_BLK_DEV_IDETAPE|16];}

        global CONFIG_BLK_DEV_IDEFLOPPY; vfix CONFIG_BLK_DEV_IDEFLOPPY

        if {($CONFIG_BLK_DEV_IDE == 1)} then { .menu4.config.f.x4.y configure -state normal;.menu4.config.f.x4.n configure -state normal;.menu4.config.f.x4.l configure -state normal;set CONFIG_BLK_DEV_IDEFLOPPY [expr $CONFIG_BLK_DEV_IDEFLOPPY&15];} else { .menu4.config.f.x4.y configure -state disabled;.menu4.config.f.x4.n configure -state disabled;.menu4.config.f.x4.l configure -state disabled;set CONFIG_BLK_DEV_IDEFLOPPY [expr $CONFIG_BLK_DEV_IDEFLOPPY|16];}

        global CONFIG_BLK_DEV_MD; vfix CONFIG_BLK_DEV_MD

        global CONFIG_MD_LINEAR; vfix CONFIG_MD_LINEAR

        if {($CONFIG_BLK_DEV_MD == 1)} then { .menu4.config.f.x7.y configure -state normal;.menu4.config.f.x7.n configure -state normal;.menu4.config.f.x7.m configure -state normal;.menu4.config.f.x7.l configure -state normal;set CONFIG_MD_LINEAR [expr $CONFIG_MD_LINEAR&15];} else { .menu4.config.f.x7.y configure -state disabled;.menu4.config.f.x7.n configure -state disabled;.menu4.config.f.x7.m configure -state disabled;.menu4.config.f.x7.l configure -state disabled;set CONFIG_MD_LINEAR [expr $CONFIG_MD_LINEAR|16];}

        global CONFIG_MD_STRIPED; vfix CONFIG_MD_STRIPED

        if {($CONFIG_BLK_DEV_MD == 1)} then { .menu4.config.f.x8.y configure -state normal;.menu4.config.f.x8.n configure -state normal;.menu4.config.f.x8.m configure -state normal;.menu4.config.f.x8.l configure -state normal;set CONFIG_MD_STRIPED [expr $CONFIG_MD_STRIPED&15];} else { .menu4.config.f.x8.y configure -state disabled;.menu4.config.f.x8.n configure -state disabled;.menu4.config.f.x8.m configure -state disabled;.menu4.config.f.x8.l configure -state disabled;set CONFIG_MD_STRIPED [expr $CONFIG_MD_STRIPED|16];}

        global CONFIG_BLK_DEV_RAM; vfix CONFIG_BLK_DEV_RAM

        global CONFIG_RD_RELEASE_BLOCKS; vfix CONFIG_RD_RELEASE_BLOCKS

        if {($CONFIG_BLK_DEV_RAM == 1)} then { .menu4.config.f.x10.y configure -state normal;.menu4.config.f.x10.n configure -state normal;.menu4.config.f.x10.l configure -state normal;set CONFIG_RD_RELEASE_BLOCKS [expr $CONFIG_RD_RELEASE_BLOCKS&15];} else { .menu4.config.f.x10.y configure -state disabled;.menu4.config.f.x10.n configure -state disabled;.menu4.config.f.x10.l configure -state disabled;set CONFIG_RD_RELEASE_BLOCKS [expr $CONFIG_RD_RELEASE_BLOCKS|16];}

        global CONFIG_BLK_DEV_INITRD; vfix CONFIG_BLK_DEV_INITRD

        if {($CONFIG_BLK_DEV_RAM == 1)} then { .menu4.config.f.x11.y configure -state normal;.menu4.config.f.x11.n configure -state normal;.menu4.config.f.x11.l configure -state normal;set CONFIG_BLK_DEV_INITRD [expr $CONFIG_BLK_DEV_INITRD&15];} else { .menu4.config.f.x11.y configure -state disabled;.menu4.config.f.x11.n configure -state disabled;.menu4.config.f.x11.l configure -state disabled;set CONFIG_BLK_DEV_INITRD [expr $CONFIG_BLK_DEV_INITRD|16];}

        global CONFIG_DEV_FLASH; vfix CONFIG_DEV_FLASH

        global CONFIG_BLK_DEV_FLASH; vfix CONFIG_BLK_DEV_FLASH

        if {($CONFIG_DEV_FLASH == 1)} then { .menu4.config.f.x13.y configure -state normal;.menu4.config.f.x13.n configure -state normal;.menu4.config.f.x13.l configure -state normal;set CONFIG_BLK_DEV_FLASH [expr $CONFIG_BLK_DEV_FLASH&15];} else { .menu4.config.f.x13.y configure -state disabled;.menu4.config.f.x13.n configure -state disabled;.menu4.config.f.x13.l configure -state disabled;set CONFIG_BLK_DEV_FLASH [expr $CONFIG_BLK_DEV_FLASH|16];}

        global CONFIG_CHR_DEV_FLASH; vfix CONFIG_CHR_DEV_FLASH

        if {($CONFIG_DEV_FLASH == 1)} then { .menu4.config.f.x14.y configure -state normal;.menu4.config.f.x14.n configure -state normal;.menu4.config.f.x14.l configure -state normal;set CONFIG_CHR_DEV_FLASH [expr $CONFIG_CHR_DEV_FLASH&15];} else { .menu4.config.f.x14.y configure -state disabled;.menu4.config.f.x14.n configure -state disabled;.menu4.config.f.x14.l configure -state disabled;set CONFIG_CHR_DEV_FLASH [expr $CONFIG_CHR_DEV_FLASH|16];}

}

menu_option menu5 5 "Networking options"

proc menu5 {w title} {

        catch {destroy $w}

        toplevel $w -class Dialog

        wm withdraw $w

        message $w.m -width 400 -aspect 300 -text \

                "Networking options"  -relief raised

        pack $w.m -pady 10 -side top -padx 10

        wm title $w "Networking options"

        set oldFocus [focus]

        frame $w.f

        button $w.f.back -text "Main Menu" \

                -width 15 -command "destroy $w; focus $oldFocus; update_mainmenu $w"

        button $w.f.next -text "Next" \

                -width 15 -command " destroy $w; focus $oldFocus;  menu6 .menu6 \"$title\""

        button $w.f.prev -text "Prev" \

                -width 15 -command " destroy $w; focus $oldFocus; menu4 .menu4 \"$title\""

        pack $w.f.back $w.f.next $w.f.prev -side left -expand on

        pack $w.f -pady 10 -side bottom -anchor w -fill x

        frame $w.topline -relief ridge -borderwidth 2 -height 2

        pack $w.topline -side top -fill x

        frame $w.botline -relief ridge -borderwidth 2 -height 2

        pack $w.botline -side bottom -fill x

        frame $w.config

        pack $w.config -fill y -expand on

        scrollbar $w.config.vscroll -command "$w.config.canvas yview"

        pack $w.config.vscroll -side right -fill y

        canvas $w.config.canvas -height 1\

                -relief flat -borderwidth 0 -yscrollcommand "$w.config.vscroll set" \

                -width [expr [winfo screenwidth .] * 1 / 2]

        frame $w.config.f

        pack $w.config.canvas -side right -fill y

        bool $w.config.f 5 0 "Network firewalls" CONFIG_FIREWALL

        bool $w.config.f 5 1 "Network aliasing" CONFIG_NET_ALIAS

        bool $w.config.f 5 2 "TCP/IP networking" CONFIG_INET

        bool $w.config.f 5 3 "IP: forwarding/gatewaying" CONFIG_IP_FORWARD

        bool $w.config.f 5 4 "IP: multicasting" CONFIG_IP_MULTICAST

        bool $w.config.f 5 5 "IP: syn cookies" CONFIG_SYN_COOKIES

        bool $w.config.f 5 6 "IP: firewalling" CONFIG_IP_FIREWALL

        bool $w.config.f 5 7 "IP: firewall packet logging" CONFIG_IP_FIREWALL_VERBOSE

        bool $w.config.f 5 8 "IP: masquerading" CONFIG_IP_MASQUERADE

        bool $w.config.f 5 9 "IP: ipautofw masquerading (EXPERIMENTAL)" CONFIG_IP_MASQUERADE_IPAUTOFW

        bool $w.config.f 5 10 "IP: ipportfw masquerading (EXPERIMENTAL)" CONFIG_IP_MASQUERADE_IPPORTFW

        bool $w.config.f 5 11 "IP: MS PPTP masq support (EXPERIMENTAL)" CONFIG_IP_MASQUERADE_PPTP

        bool $w.config.f 5 12 "IP: MS PPTP Call ID masq support (EXPERIMENTAL)" CONFIG_IP_MASQUERADE_PPTP_MULTICLIENT

        bool $w.config.f 5 13 "IP: MS PPTP masq debugging" DEBUG_IP_MASQUERADE_PPTP

        bool $w.config.f 5 14 "IP: MS PPTP masq verbose debugging" DEBUG_IP_MASQUERADE_PPTP_VERBOSE

        bool $w.config.f 5 15 "IP: IPSEC ESP & ISAKMP masq support (EXPERIMENTAL)" CONFIG_IP_MASQUERADE_IPSEC

        int $w.config.f 5 16 "IP: IPSEC masq table lifetime (minutes)" CONFIG_IP_MASQUERADE_IPSEC_EXPIRE

        bool $w.config.f 5 17 "IP: Disable inbound ESP destination guessing" CONFIG_IP_MASQUERADE_IPSEC_NOGUESS

        bool $w.config.f 5 18 "IP: IPSEC masq debugging" DEBUG_IP_MASQUERADE_IPSEC

        bool $w.config.f 5 19 "IP: IPSEC masq verbose debugging" DEBUG_IP_MASQUERADE_IPSEC_VERBOSE

        bool $w.config.f 5 20 "IP: ICMP masquerading" CONFIG_IP_MASQUERADE_ICMP

        bool $w.config.f 5 21 "IP: transparent proxy support (EXPERIMENTAL)" CONFIG_IP_TRANSPARENT_PROXY

        bool $w.config.f 5 22 "IP: always defragment" CONFIG_IP_ALWAYS_DEFRAG

        bool $w.config.f 5 23 "IP: accounting" CONFIG_IP_ACCT

        bool $w.config.f 5 24 "IP: optimize as router not host" CONFIG_IP_ROUTER

        tristate $w.config.f 5 25 "IP: tunneling" CONFIG_NET_IPIP

        bool $w.config.f 5 26 "IP: multicast routing (EXPERIMENTAL)" CONFIG_IP_MROUTE

        tristate $w.config.f 5 27 "IP: aliasing support" CONFIG_IP_ALIAS

        bool $w.config.f 5 28 "IP: ARP daemon support (EXPERIMENTAL)" CONFIG_ARPD

        bool $w.config.f 5 29 "IP: PC/TCP compatibility mode" CONFIG_INET_PCTCP

        tristate $w.config.f 5 30 "IP: Reverse ARP" CONFIG_INET_RARP

        bool $w.config.f 5 31 "IP: Disable Path MTU Discovery (normally enabled)" CONFIG_NO_PATH_MTU_DISCOVERY

        bool $w.config.f 5 32 "IP: Drop source routed frames" CONFIG_IP_NOSR

        bool $w.config.f 5 33 "IP: Allow large windows (not recommended if <16Mb of memory)" CONFIG_SKB_LARGE

        tristate $w.config.f 5 34 "The IPX protocol" CONFIG_IPX

        tristate $w.config.f 5 35 "Appletalk DDP" CONFIG_ATALK

        tristate $w.config.f 5 36 "Amateur Radio AX.25 Level 2" CONFIG_AX25

        dep_tristate $w.config.f 5 37 "Amateur Radio NET/ROM" CONFIG_NETROM CONFIG_AX25

        dep_tristate $w.config.f 5 38 "Amateur Radio X.25 PLP (Rose)" CONFIG_ROSE CONFIG_AX25

        bool $w.config.f 5 39 "Bridging (EXPERIMENTAL)" CONFIG_BRIDGE

        bool $w.config.f 5 40 "Kernel/User network link driver" CONFIG_NETLINK

        bool $w.config.f 5 41 "Routing messages" CONFIG_RTNETLINK

        focus $w

        update_menu5 $w.config.f

        global winx; global winy

        set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30]

        wm geometry $w +$winx+$winy

        update idletasks

        $w.config.canvas create window 0 0 -anchor nw -window $w.config.f

        $w.config.canvas configure \

                -width [expr [winfo reqwidth $w.config.f] + 1]\

                -scrollregion "-1 -1 [expr [winfo reqwidth $w.config.f] + 1] \

                         [expr [winfo reqheight $w.config.f] + 1]"

        set winy [expr [winfo reqh $w] - [winfo reqh $w.config.canvas]]

        set scry [expr [winfo screenh $w] / 2]

        set maxy [expr [winfo screenh $w] * 3 / 4]

        set canvtotal [expr [winfo reqh $w.config.f] + 2]

        if [expr $winy + $canvtotal < $maxy] {

                $w.config.canvas configure -height $canvtotal

        } else {

                $w.config.canvas configure -height [expr $scry - $winy]

        }

        update idletasks

        wm maxsize $w [winfo width $w] [winfo screenheight $w]

        wm minsize $w [winfo width $w] 100

        wm deiconify $w

}

proc update_menu5 {w}  {

        update_define

        global CONFIG_NET; vfix CONFIG_NET

        global CONFIG_FIREWALL; vfix CONFIG_FIREWALL