diff options
| author | Ralf Baechle <ralf@linux-mips.org> | 2000-06-19 22:45:37 +0000 |
|---|---|---|
| committer | Ralf Baechle <ralf@linux-mips.org> | 2000-06-19 22:45:37 +0000 |
| commit | 6d403070f28cd44860fdb3a53be5da0275c65cf4 (patch) | |
| tree | 0d0e7fe7b5fb7568d19e11d7d862b77a866ce081 /scripts/header.tk | |
| parent | ecf1bf5f6c2e668d03b0a9fb026db7aa41e292e1 (diff) | |
Merge with 2.4.0-test1-ac21 + pile of MIPS cleanups to make merging
possible. Chainsawed RM200 kernel to compile again. Jazz machine
status unknown.
Diffstat (limited to 'scripts/header.tk')
| -rw-r--r-- | scripts/header.tk | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/scripts/header.tk b/scripts/header.tk index f2189e239..94963425a 100644 --- a/scripts/header.tk +++ b/scripts/header.tk @@ -110,6 +110,8 @@ proc load_configfile { w title func } { wm geometry $w +$winx+$winy } +bind all <Alt-q> {maybe_exit .maybe} + proc maybe_exit { w } { catch {destroy $w} toplevel $w -class Dialog @@ -128,6 +130,8 @@ proc maybe_exit { w } { -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 + bind $w <Return> "exit" + bind $w <Escape> "destroy $w; focus $oldFocus" focus $w global winx; global winy set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30] @@ -402,6 +406,7 @@ proc minimenu { w mnum line text variable helpidx } { proc menusplit {w m n} { if { $n > 2 } then { + update idletasks set menuoptsize [expr [$m yposition 2] - [$m yposition 1]] set maxsize [winfo screenheight $w] set splitpoint [expr $maxsize * 4 / 5 / $menuoptsize - 1] @@ -411,6 +416,10 @@ proc menusplit {w m n} { } } +proc menutitle {text menu w} { + wm title $w "$text" +} + proc submenu { w mnum line text subnum } { frame $w.x$line button $w.x$line.l -text "" -width 15 -relief groove @@ -531,6 +540,9 @@ ${var}:\\ wm maxsize $w [winfo width $w] $sizy } +bind all <Alt-s> { catch {exec cp -f .config .config.old}; \ + writeconfig .config include/linux/autoconf.h; wrapup .wrap } + proc wrapup {w } { catch {destroy $w} toplevel $w -class Dialog @@ -554,6 +566,7 @@ proc wrapup {w } { pack $w.f.back -side bottom -pady 10 -anchor s pack $w.f -pady 10 -side top -padx 10 -anchor s focus $w + bind $w <Return> "exit" global winx; global winy set winx [expr [winfo x .]+30]; set winy [expr [winfo y .]+30] wm geometry $w +$winx+$winy |