source: trunk/src/tcl/init.tcl.in @ 232

# ----------------------------------------------------------------------
#  RapptureLibrary - Tcl extensions to C++ core Rappture Library
# ----------------------------------------------------------------------
#  This file initializes the package when it is loaded by "package
#  require".  It loads the dynamic library and sets up autoloading
#  for other scripts.
# ======================================================================
#  AUTHOR:  Derrick Kearney, Purdue University
#  Copyright (c) 2005-2006  Purdue Research Foundation
#
#  See the file "license.terms" for information on usage and
#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
# ======================================================================
proc Rappture_init {} {
    global auto_path
    global rappture_library

    package require BLT

    set dir [file dirname [info script]]

    # set rappture_library [file join $dir scripts]
    # lappend auto_path $rappture_library

    set suffix [info sharedlibextension]
    set library [file join $dir .. libRappture@VERSION@${suffix}]
    load $library

    namespace eval Rappture {
        variable version @EXACT_VERSION@
        variable patchlevel @PATCHLEVEL@
    }

    package provide Rappture @VERSION@
    rename Rappture_init ""
}
Rappture_init