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

Last change on this file since 171 was 171, checked in by mmc, 19 years ago
  • Moved Rappture::result and Rappture::exec to the tcl library and cleaned up the installation.
  • Fixed the filexfer applet so that it is more robust, and can disconnect and reconnect to the Rappture application.
  • Added bindings to the postern so that it is easier to find.
File size: 1.3 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 .. libRapptureGUI@VERSION@${suffix}]
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.