iwidgets/iwidgets.tcl.in

   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$
  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
  16 package require Tcl 8.0
  17 package require Tk 8.0
  18 package require Itcl @ITCL_VERSION@
  19 package require Itk @ITCL_VERSION@
  20
  21 namespace eval ::iwidgets {
  22     namespace export *
  23
  24     variable library [file dirname [info script]]
  25     variable version @VERSION@
  26 }
  27
  28 lappend auto_path $iwidgets::library \
  29                   [file join $iwidgets::library generic] \
  30                   [file join $iwidgets::library scripts]
  31 package provide Iwidgets $iwidgets::version