# Application RwdTinker orginally (c) 2004 Steven Gibson under GPL. 
# this method puts the configuration rexord on the screen

def loadconfigurationrecord

	require 'fileutils'
	if TinkerWin2ConfigurationFileName 
		@a_configurationfilename = TinkerWin2ConfigurationFileName 
	end

	begin # exception trapped block

		Dir.chdir($progdir)
		fileName = File.join(ConfigurationDir, TinkerWin2ConfigurationFileName)

		fd = File.open(fileName,"r")
		@a_configurationfile =        fd.read
		fd.close
	rescue SystemCallError, StandardError
		$stderr.print "system call error: " + $!
	end # exception rescue

end