Miles Lane wrote:
>
> 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/