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