*** tail.tk.ori	Fri May 11 09:18:42 2001
--- tail.tk	Fri May 11 09:38:06 2001
***************
*** 7,13 ****
  # 8 January 1998, Michael Elizabeth Chastain, <mec@shout.net>
  # Arrange buttons in three columns for better screen fitting.
  #
! 
  #
  # 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
--- 7,17 ----
  # 8 January 1998, Michael Elizabeth Chastain, <mec@shout.net>
  # Arrange buttons in three columns for better screen fitting.
  #
! # 29 April 2001, Simon Geard, <simon.geard@ntlworld.com>
! # - 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,39 ****
  	read_config $defaults
  }
  
  update_define 1 $total_menus 0
  update_mainmenu
  
! button .f0.right.save -anchor w -text "Save and Exit" -underline 0\
!     -command { catch {exec cp -f .config .config.old}; \
  		writeconfig .config include/linux/autoconf.h; wrapup .wrap }
  
  button .f0.right.quit -anchor w -text "Quit Without Saving" -underline 0\
--- 33,46 ----
  	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 {file copy -force .config .config.old}; \
  		writeconfig .config include/linux/autoconf.h; wrapup .wrap }
  
  button .f0.right.quit -anchor w -text "Quit Without Saving" -underline 0\
***************
*** 87,89 ****
--- 94,100 ----
  			.f0.right.save configure -state disabled
  		}
  	}
+ 
+ # Local Variables:
+ # mode: tcl
+ # End: