1#
2# iwidgets.tcl
3# ----------------------------------------------------------------------
4# Invoked automatically by [incr Tk] upon startup to initialize
5# the [incr Widgets] package.
6# ----------------------------------------------------------------------
7#  AUTHOR: Mark L. Ulferts               EMAIL: mulferts@spd.dsccc.com
8#
9#  @(#) $Id: iwidgets.tcl.in,v 1.5 2007/06/10 19:28:16 hobbs Exp $
10# ----------------------------------------------------------------------
11#                Copyright (c) 1995  Mark L. Ulferts
12# ======================================================================
13# See the file "license.terms" for information on usage and
14# redistribution of this file, and for a DISCLAIMER OF ALL WARRANTIES.
15
16package require Tcl 8.0
17package require Tk 8.0
18package require Itcl @ITCL_VERSION@
19package require Itk @ITCL_VERSION@
20
21namespace eval ::iwidgets {
22    namespace export *
23
24    variable library [file dirname [info script]]
25    variable version @PACKAGE_VERSION@
26
27    lappend auto_path $iwidgets::library
28    variable subdir
29    foreach subdir {generic scripts} {
30	if {[file isdirectory [file join $iwidgets::library $subdir]]} {
31	    lappend auto_path [file join $iwidgets::library $subdir]
32	}
33    }
34    unset subdir
35}
36
37package provide Iwidgets $iwidgets::version
38