--- tail.tk.ori Sun Apr 29 20:25:38 2001 +++ tail.tk Mon Apr 30 00:31:25 2001 @@ -7,7 +7,11 @@ # 8 January 1998, Michael Elizabeth Chastain, # Arrange buttons in three columns for better screen fitting. # - +# 29 April 2001, Simon Geard, +# - Added call to load the help-file on startup (see header.tk) +# - Replaced os call to copy a file with the native Tcl one +# +# ============================================================================= # # Read the user's settings from .config. These will override whatever is # in config.in. Don't do this if the user specified a -D to force @@ -29,11 +33,14 @@ read_config $defaults } +# Read the help file +read_help Documentation/Configure.help + update_define 1 $total_menus 0 update_mainmenu button .f0.right.save -anchor w -text "Save and Exit" \ - -command { catch {exec cp -f .config .config.old}; \ + -command { catch {file copy -force .config .config.old}; \ writeconfig .config include/linux/autoconf.h; wrapup .wrap } button .f0.right.quit -anchor w -text "Quit Without Saving" \ @@ -87,3 +94,7 @@ .f0.right.save configure -state disabled } } + +# Local Variables: +# mode: tcl +# End: