source: trunk/src/tcl/library/init.tcl.in @ 204

# ----------------------------------------------------------------------
#  RapptureGUI - scripts and C extensions required for Rappture GUI
# ----------------------------------------------------------------------
#  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:  Michael McLennan, Purdue University
#  Copyright (c) 2004-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 RapptureGUI_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 .. libRapptureGUI@VERSION@${suffix}]
    load $library RapptureGUI

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

    package provide RapptureGUI @VERSION@
    rename RapptureGUI_init ""    
}
RapptureGUI_init