source: trunk/gui/init.tcl.in @ 829

Last change on this file since 829 was 503, checked in by nkissebe, 15 years ago

Converted to Tcl Extension Architecture (TEA) v3.5 for base Windows support. Added Windows ports of getrlimit, getrusage, gettimeofday, setrlimit functions.

File size: 1.2 KB
Line 
1# ----------------------------------------------------------------------
2#  RapptureGUI - scripts and C extensions required for Rappture GUI
3# ----------------------------------------------------------------------
4#  This file initializes the package when it is loaded by "package
5#  require".  It loads the dynamic library and sets up autoloading
6#  for other scripts.
7# ======================================================================
8#  AUTHOR:  Michael McLennan, Purdue University
9#  Copyright (c) 2004-2006  Purdue Research Foundation
10#
11#  See the file "license.terms" for information on usage and
12#  redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
13# ======================================================================
14proc RapptureGUI_init {} {
15    global auto_path
16
17    package require BLT
18
19    set dir [file dirname [info script]]
20    lappend auto_path [file join $dir scripts]
21
22    set suffix [info sharedlibextension]
23    set library [file join $dir @PKG_LIB_FILE@]
24    load $library RapptureGUI
25
26    namespace eval RapptureGUI "
27        variable version @EXACT_VERSION@
28        variable patchlevel @PATCHLEVEL@
29        variable library $dir
30    "
31
32    package provide RapptureGUI @VERSION@
33    rename RapptureGUI_init ""   
34}
35RapptureGUI_init
Note: See TracBrowser for help on using the repository browser.