More complete information regarding the Serial PCMCIA kconfig.tk

Miles Lane (miles@amazon.com)
Thu, 30 Dec 1999 00:03:41 -0800


I noticed that the snippet I sent in my previous e-mail will
be inadequate for debugging purposes. Here is the complete
section from my kconfig.tk file that relates to the "menu36"
(the PCMCIA serial device support dialog).

Many thanks!

BTW: Please CC: me, since I am only subscribed to the
linux-kernel digests.

proc menu36 {w title} {
set oldFocus [focus]
catch {focus .menu29}
catch {destroy $w; unregister_active 36}
toplevel $w -class Dialog
wm withdraw $w
global active_menus
set active_menus [lsort -integer [linsert $active_menus end 36]]
message $w.m -width 400 -aspect 300 -text \
"PCMCIA character device support" -relief raised
pack $w.m -pady 10 -side top -padx 10
wm title $w "PCMCIA character device support"

frame $w.f
button $w.f.back -text "OK" \
-width 15 -command "catch {focus $oldFocus}; destroy $w;
unregister_active 36"
button $w.f.next -text "Next" \
-width 15 -command "catch {focus $oldFocus}; destroy $w;
unregister_active 36; catch {destroy .menu29}; unregister_active 29;
menu37 .menu37 \"$title\""
button $w.f.prev -text "Prev" \
-width 15 -command "catch {focus $oldFocus}; destroy $w;
unregister_active 36; menu35 .menu35 \"$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

dep_tristate $w.config.f 36 0 "PCMCIA serial device support"
CONFIG_PCMCIA_SERIAL_CS
dep_tristate $w.config.f 36 1 "CardBus serial device support"
CONFIG_PCMCIA_SERIAL_CB
dep_tristate $w.config.f 36 2 "PCMCIA serial device support"
CONFIG_PCMCIA_SERIAL_CS
dep_tristate $w.config.f 36 3 "CardBus serial device support"
CONFIG_PCMCIA_SERIAL_CB

focus $w
update_active
global winx; global winy
if {[winfo exists .menu29] == 0} then {menu29 .menu29 "Character
devices"}
set winx [expr [winfo x .menu29]+30]; set winy [expr [winfo y
.menu29]+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_menu36 {} {
global CONFIG_MODULES
global CONFIG_PCMCIA
global CONFIG_SERIAL
global CONFIG_PCMCIA_SERIAL_CS
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 1) && ($CONFIG_PCMCIA
== 1 || $CONFIG_PCMCIA == 2 || $CONFIG_PCMCIA == 4)} then {
set tmpvar_dep [effective_dep [list $CONFIG_PCMCIA]];set
CONFIG_PCMCIA_SERIAL_CS [sync_tristate $CONFIG_PCMCIA_SERIAL_CS
$tmpvar_dep]; if {$tmpvar_dep != 1} then {configure_entry
.menu36.config.f.x0 disabled {y}} else {configure_entry
.menu36.config.f.x0 normal {y}}; if {$tmpvar_dep == 0} then
{configure_entry .menu36.config.f.x0 disabled {m}} else {configure_entry
.menu36.config.f.x0 normal {m}}; if {($CONFIG_MODULES == 1)} then
{configure_entry .menu36.config.f.x0 normal {m}} else {configure_entry
.menu36.config.f.x0 disabled {m}}; configure_entry .menu36.config.f.x0
normal {n l}} else {configure_entry .menu36.config.f.x0 disabled {y n m
l}}
global CONFIG_CARDBUS
global CONFIG_PCMCIA_SERIAL_CB
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 1) && ($CONFIG_CARDBUS
== 1) && ($CONFIG_PCMCIA == 1 || $CONFIG_PCMCIA == 2 || $CONFIG_PCMCIA
== 4)} then {
set tmpvar_dep [effective_dep [list $CONFIG_PCMCIA]];set
CONFIG_PCMCIA_SERIAL_CB [sync_tristate $CONFIG_PCMCIA_SERIAL_CB
$tmpvar_dep]; if {$tmpvar_dep != 1} then {configure_entry
.menu36.config.f.x1 disabled {y}} else {configure_entry
.menu36.config.f.x1 normal {y}}; if {$tmpvar_dep == 0} then
{configure_entry .menu36.config.f.x1 disabled {m}} else {configure_entry
.menu36.config.f.x1 normal {m}}; if {($CONFIG_MODULES == 1)} then
{configure_entry .menu36.config.f.x1 normal {m}} else {configure_entry
.menu36.config.f.x1 disabled {m}}; configure_entry .menu36.config.f.x1
normal {n l}} else {configure_entry .menu36.config.f.x1 disabled {y n m
l}}
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 2)} then {
global CONSTANT_M
set tmpvar_dep [effective_dep [list $CONSTANT_M]];set
CONFIG_PCMCIA_SERIAL_CS [sync_tristate $CONFIG_PCMCIA_SERIAL_CS
$tmpvar_dep]; if {$tmpvar_dep != 1} then {configure_entry
.menu36.config.f.x2 disabled {y}} else {configure_entry
.menu36.config.f.x2 normal {y}}; if {$tmpvar_dep == 0} then
{configure_entry .menu36.config.f.x2 disabled {m}} else {configure_entry
.menu36.config.f.x2 normal {m}}; if {($CONFIG_MODULES == 1)} then
{configure_entry .menu36.config.f.x2 normal {m}} else {configure_entry
.menu36.config.f.x2 disabled {m}}; configure_entry .menu36.config.f.x2
normal {n l}} else {configure_entry .menu36.config.f.x2 disabled {y n m
l}}
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 2) && ($CONFIG_CARDBUS
== 1)} then {
global CONSTANT_M
set tmpvar_dep [effective_dep [list $CONSTANT_M]];set
CONFIG_PCMCIA_SERIAL_CB [sync_tristate $CONFIG_PCMCIA_SERIAL_CB
$tmpvar_dep]; if {$tmpvar_dep != 1} then {configure_entry
.menu36.config.f.x3 disabled {y}} else {configure_entry
.menu36.config.f.x3 normal {y}}; if {$tmpvar_dep == 0} then
{configure_entry .menu36.config.f.x3 disabled {m}} else {configure_entry
.menu36.config.f.x3 normal {m}}; if {($CONFIG_MODULES == 1)} then
{configure_entry .menu36.config.f.x3 normal {m}} else {configure_entry
.menu36.config.f.x3 disabled {m}}; configure_entry .menu36.config.f.x3
normal {n l}} else {configure_entry .menu36.config.f.x3 disabled {y n m
l}}
}

proc update_define_menu36 {} {
update_define_mainmenu
global CONFIG_MODULES
global CONFIG_PCMCIA_CHRDEV
global CONFIG_PCMCIA
global CONFIG_SERIAL
global CONFIG_PCMCIA_SERIAL_CS
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 1) && ($CONFIG_PCMCIA
== 1 || $CONFIG_PCMCIA == 2 || $CONFIG_PCMCIA == 4)} then {
set tmpvar_dep [effective_dep [list $CONFIG_PCMCIA]]; set
CONFIG_PCMCIA_SERIAL_CS [sync_tristate $CONFIG_PCMCIA_SERIAL_CS
$tmpvar_dep]; set CONFIG_PCMCIA_SERIAL_CS [expr
$CONFIG_PCMCIA_SERIAL_CS&15]} else {set CONFIG_PCMCIA_SERIAL_CS [expr
$CONFIG_PCMCIA_SERIAL_CS|16]}
global CONFIG_CARDBUS
global CONFIG_PCMCIA_SERIAL_CB
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 1) && ($CONFIG_CARDBUS
== 1) && ($CONFIG_PCMCIA == 1 || $CONFIG_PCMCIA == 2 || $CONFIG_PCMCIA
== 4)} then {
set tmpvar_dep [effective_dep [list $CONFIG_PCMCIA]]; set
CONFIG_PCMCIA_SERIAL_CB [sync_tristate $CONFIG_PCMCIA_SERIAL_CB
$tmpvar_dep]; set CONFIG_PCMCIA_SERIAL_CB [expr
$CONFIG_PCMCIA_SERIAL_CB&15]} else {set CONFIG_PCMCIA_SERIAL_CB [expr
$CONFIG_PCMCIA_SERIAL_CB|16]}
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 2)} then {
global CONSTANT_M
set tmpvar_dep [effective_dep [list $CONSTANT_M]]; set
CONFIG_PCMCIA_SERIAL_CS [sync_tristate $CONFIG_PCMCIA_SERIAL_CS
$tmpvar_dep]; set CONFIG_PCMCIA_SERIAL_CS [expr
$CONFIG_PCMCIA_SERIAL_CS&15]} else {set CONFIG_PCMCIA_SERIAL_CS [expr
$CONFIG_PCMCIA_SERIAL_CS|16]}
if {($CONFIG_PCMCIA != 0) && ($CONFIG_SERIAL == 2) && ($CONFIG_CARDBUS
== 1)} then {
global CONSTANT_M
set tmpvar_dep [effective_dep [list $CONSTANT_M]]; set
CONFIG_PCMCIA_SERIAL_CB [sync_tristate $CONFIG_PCMCIA_SERIAL_CB
$tmpvar_dep]; set CONFIG_PCMCIA_SERIAL_CB [expr
$CONFIG_PCMCIA_SERIAL_CB&15]} else {set CONFIG_PCMCIA_SERIAL_CB [expr
$CONFIG_PCMCIA_SERIAL_CB|16]}
if {($CONFIG_PCMCIA != 0) && ($CONFIG_PCMCIA_SERIAL_CS == 1 ||
$CONFIG_PCMCIA_SERIAL_CB == 1)} then { global CONSTANT_Y
set CONFIG_PCMCIA_CHRDEV $CONSTANT_Y }
}

-
To unsubscribe from this list: send the line "unsubscribe linux-kernel" in
the body of a message to majordomo@vger.rutgers.edu
Please read the FAQ at http://www.tux.org/lkml/