patch-1.3.60 linux/scripts/header.tk
Next file: linux/scripts/ksymoops.cc
Previous file: linux/scripts/README.Menuconfig
Back to the patch index
Back to the overall index
- Lines: 42
- Date:
Wed Feb 7 08:56:04 1996
- Orig file:
v1.3.59/linux/scripts/header.tk
- Orig date:
Thu Jan 4 21:55:00 1996
diff -u --recursive --new-file v1.3.59/linux/scripts/header.tk linux/scripts/header.tk
@@ -5,7 +5,7 @@
set winy 200
#
-# Define some macros we will need to parse the kmenu-config.dat file.
+# Define some macros we will need to parse the config.in file.
#
proc mainmenu_name { text } {
message .header.message -width 400 -relief raised -bg grey -text "$text"
@@ -230,12 +230,12 @@
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 -padx 15 -fill both -expand on
+ 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 -padx 15 -fill both -expand on
+ pack $w.x$line -anchor w -fill both -expand on
}
proc dep_tristate {w mnum line text variable } {
@@ -248,7 +248,7 @@
entry $w.x$line.x -width 15 -relief sunken -borderwidth 2 \
-textvariable $variable
pack $w.x$line.x -anchor w -side right -fill y
- pack $w.x$line -anchor w -padx 15 -fill both -expand on
+ pack $w.x$line -anchor w -fill both -expand on
}
proc minimenu { w mnum line text variable } {
@@ -257,7 +257,7 @@
menubutton $w.x$line.x -text "Choose..." -menu $w.x$line.x.menu \
-relief raised -width 15
pack $w.x$line.x -anchor w -side right -fill y
- pack $w.x$line -anchor w -padx 15 -fill both -expand on
+ pack $w.x$line -anchor w -fill both -expand on
}
proc comment {w line text } {
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov
with Sam's (original) version of this