patch-2.2.0-pre8 linux/scripts/tail.tk
Next file: linux/scripts/tkgen.c
Previous file: linux/scripts/header.tk
Back to the patch index
Back to the overall index
- Lines: 89
- Date:
Fri Jan 15 14:36:20 1999
- Orig file:
v2.2.0-pre7/linux/scripts/tail.tk
- Orig date:
Wed Apr 1 20:11:55 1998
diff -u --recursive --new-file v2.2.0-pre7/linux/scripts/tail.tk linux/scripts/tail.tk
@@ -1,9 +1,12 @@
+# FILE: tail.tk
+# This file is boilerplate TCL/TK function definitions for 'make xconfig'.
+#
+# CHANGES
+# =======
+#
+# 8 January 1998, Michael Elizabeth Chastain, <mec@shout.net>
+# Arrange buttons in three columns for better screen fitting.
#
-# Misc buttons to save/restore state and so forth.
-#
-frame .f0_bot
-frame .f0_bot.r
-frame .f0_bot.l
#
# Read the user's settings from .config. These will override whatever is
@@ -28,53 +31,47 @@
update_mainmenu .f0
-button .f0_bot.r.save -text "Save and Exit" -width 25 -command {
- writeconfig .config include/linux/autoconf.h; wrapup .wrap }
+button .f0.right.save -anchor w -text "Save and Exit" \
+ -command { writeconfig .config include/linux/autoconf.h; wrapup .wrap }
-button .f0_bot.r.quit -text "Quit Without Saving" -width 25 \
- -command { maybe_exit .maybe }
+button .f0.right.quit -anchor w -text "Quit Without Saving" \
+ -command { maybe_exit .maybe }
-button .f0_bot.l.store -text "Store Configuration to File" -width 25 -command {
- load_configfile .load "Save Configuration in file" write_config_file
+button .f0.right.load -anchor w -text "Load Configuration from File" \
+ -command { load_configfile .load "Load Configuration from file" read_config_file
}
-button .f0_bot.l.load -text "Load Configuration from File" -width 25 -command {
- load_configfile .load "Load Configuration from file" read_config_file
-}
+button .f0.right.store -anchor w -text "Store Configuration to File" \
+ -command { load_configfile .load "Store Configuration to file" write_config_file }
#
-# Now pack everything, important things first because of small screens.
+# Now pack everything.
#
-pack .f0_bot.r.save .f0_bot.r.quit -padx 25 -ipadx 10 -expand on
-pack .f0_bot.l.load .f0_bot.l.store -padx 25 -ipadx 10 -expand on
-
-pack .f0_bot.r -side left -padx 15 -expand on -fill y
-pack .f0_bot.l -side right -padx 15 -expand on -fill y
-
-pack .f0_bot -side bottom -fill both -expand on -pady 4
-pack .f0 -side bottom -padx 15 -pady 0 -fill y -expand on
-pack .header -padx 10 -pady 7 -expand on
+pack .f0.right.store .f0.right.load .f0.right.quit .f0.right.save \
+ -padx 0 -pady 0 -side bottom -fill x
+pack .f0.left .f0.middle .f0.right -side left -padx 5 -pady 0 -fill y
+pack .f0 -padx 5 -pady 5
#
# If we cannot write our config files, disable the write button.
#
if { [file exists .config] == 1 } then {
if { [file writable .config] == 0 } then {
- .f0_bot.r.save configure -state disabled
+ .f0.right.save configure -state disabled
}
} else {
if { [file writable .] == 0 } then {
- .f0_bot.r.save configure -state disabled
+ .f0.right.save configure -state disabled
}
}
if { [file exists include/linux/autoconf.h] == 1 } then {
if { [file writable include/linux/autoconf.h] == 0 } then {
- .f0_bot.r.save configure -state disabled
+ .f0.right.save configure -state disabled
}
} else {
if { [file writable include/linux/] == 0 } then {
- .f0_bot.r.save configure -state disabled
+ .f0.right.save configure -state disabled
}
}
FUNET's LINUX-ADM group, linux-adm@nic.funet.fi
TCL-scripts by Sam Shen, slshen@lbl.gov