# 
#   loadtk.tcl
#
#   Läd - abhängig vom Betriebssystem und der
#   aktuellen TCL-Version die entsprechende TK_lib.
#   Muß dazu zuerst tcl_library auf die mitgelieferten Libs setzen.
#   ACHTUNG ! DIESES FILE MUSS GEÄNDERT WERDEN, FALLS MAL EINE Andere TK_LIB
#   MITGELIEFERT WIRD.
#   ALLE SCRIPTS DIE TK BRAUCHEN, MÜSSEN DIESES SCRIPT ZUM LADEN VERWENDEN !
#   DIESES SCRIPT VERLÄSST SICH DARAUF, daß das aufrufende Script die
#   Variable home mit farwest_home gefüllt hat.
#
#   Dieses Script SOURCED außerdem diverse Standard-Routinen aus den Standard
#   Libs
#
#
#	created:	09-Jun-99
#	upd.:		07-Jul-99
#               05-Feb-00   floh    + auf Tk8.2 umgestellt
# 
#
#	(c) 1999 Bernd Beyreuther
#

set     tcl_library $home/bin/tcl/tcl8.2
set     tk_library  $home/bin/tcl/tk8.2

if {$tcl_platform(platform) == "windows"} {
    load    $home/bin/win32/tk82.dll
    source  $tk_library/focus.tcl
    source  $tk_library/button.tcl
} 
if { $tcl_platform(platform) == "unix" } {
    load libtk8.2.so tk
}