23 proc cget { w option } {
24 	return "[lindex [$w configure $option] 4]"
69 proc menu_option { w menu_num text } {
80 	button .f0.x$menu_num -anchor w -text "$text" \
81 	    -command "$w .$w \"$text\""
85 proc load_configfile { w title func } {
86 	catch {destroy $w}
87 	toplevel $w -class Dialog
95 	pack $w.x.l $w.x.x -anchor w -side left
97 	wm title $w "$title" 
102 		-command "destroy $w; focus $oldFocus;$func .fileio"
104 		-width 20 -command "destroy $w; focus $oldFocus"
106 	pack $w.f -pady 10 -side bottom -padx 10 -anchor w
107 	focus $w
110 	wm geometry $w +$winx+$winy
115 proc maybe_exit { w } {  argument
116 	catch {destroy $w}
117 	toplevel $w -class Dialog
123 	wm title $w "Are you sure?" 
130 		-width 20 -command "destroy $w; focus $oldFocus"
132 	pack $w.f -pady 10 -side bottom -padx 10 -anchor w
133   	bind $w <Return> "exit"
134     	bind $w <Escape> "destroy $w; focus $oldFocus"
135 	focus $w
138 	wm geometry $w +$winx+$winy
141 proc read_config_file { w } {  argument
146 		catch {destroy $w}
147 		toplevel $w -class Dialog
153 		wm title $w "Xconfig Internal Error" 
158 			-width 10 -command "destroy $w; focus $oldFocus"
161 		focus $w
164 		wm geometry $w +$winx+$winy
168 proc write_config_file  { w } {  argument
174 		catch {destroy $w}
175 		toplevel $w -class Dialog
181 		wm title $w "Xconfig Internal Error" 
186 			-width 10 -command "destroy $w; focus $oldFocus"
189 		focus $w
192 		wm geometry $w +$winx+$winy
314 proc option_name {w mnum line text helpidx} {
315 	button $w.x$line.l -text "$text" -relief groove -anchor w
324 proc toggle_switch2 {w mnum line text variable} {
333 	option_name $w $mnum $line $text $variable
338 proc toggle_switch3 {w mnum line text variable} {
347 	option_name $w $mnum $line $text $variable
356 proc bool {w mnum line text variable} {
357 	toggle_switch2 $w $mnum $line $text $variable
359 	pack $w.x$line -anchor w -fill both -expand on
362 proc tristate {w mnum line text variable } {
363 	toggle_switch3 $w $mnum $line $text $variable
364 	pack $w.x$line -anchor w -fill both -expand on
367 proc dep_tristate {w mnum line text variable } {
368 	tristate $w $mnum $line $text $variable
371 proc dep_bool {w mnum line text variable } {
372 	bool $w $mnum $line $text $variable
375 proc int { w mnum line text variable } {
379 	option_name $w $mnum $line $text $variable
380 	pack $w.x$line.x -anchor w -side right -fill y
381 	pack $w.x$line -anchor w -fill both -expand on
384 proc hex { w mnum line text variable } {
385 	int $w $mnum $line $text $variable
388 proc istring { w mnum line text variable } {
392 	option_name $w $mnum $line $text $variable
393 	pack $w.x$line.x -anchor w -side right -fill y
394 	pack $w.x$line -anchor w -fill both -expand on
397 proc minimenu { w mnum line text variable helpidx } {
401 		-anchor w
402 	option_name $w $mnum $line $text $helpidx
403 	pack $w.x$line.x -anchor w -side right -fill y
404 	pack $w.x$line -anchor w -fill both -expand on
407 proc menusplit {w m n} {
411 		set maxsize [winfo screenheight $w]
419 proc menutitle {text menu w} {  argument
420 	wm title $w "$text"
423 proc submenu { w mnum line text subnum } {
428 	button $w.x$line.m -text "$text" -relief raised -anchor w \
431 	pack $w.x$line.m -anchor w -side right -fill both -expand on
432 	pack $w.x$line -anchor w -fill both -expand on
435 proc comment {w mnum line text } {
440 	button $w.x$line.m -text "$text" -relief groove -anchor w
444 	pack $w.x$line.m -anchor w -side right -fill both -expand on
445 	pack $w.x$line -anchor w -fill both -expand on
448 proc dohelp {w var parent}  {
449 	catch {destroy $w}
450 	toplevel $w -class Dialog
484 		-width 10 -command "destroy $w; catch {focus $oldFocus}"
488 	scrollbar $w.f1.vscroll -command "$w.f1.canvas yview"
492 		-yscrollcommand "$w.f1.vscroll set"
505 		wm title $w "RTFM"
512 		wm title $w "Configuration help" 
517 	focus $w
520 	wm geometry $w +$winx+$winy
530 		-scrollregion "0 0 [winfo reqwidth $w.f1.f.m] \
531 			[winfo reqheight $w.f1.f.m]"
541 	wm maxsize $w [winfo width $w] $sizy
547 proc wrapup {w }  {  argument
548 	catch {destroy $w}
549 	toplevel $w -class Dialog
561 	wm title $w "Kernel build instructions" 
569 	focus $w
570         bind $w <Return> "exit"
573 	wm geometry $w +$winx+$winy
601 proc configure_entry {w option items} {