home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 December / PCWorld_2000-12_cd.bin / Komunikace / Comanche / comanche.exe / lib / iwidgets2.2.0 / iwidgets.tcl next >
Text File  |  1999-02-24  |  1KB  |  34 lines
  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,v 1.2 1999/02/20 03:39:49 rjohnson 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.  
  16. package require Tcl 8.0
  17. package require Tk 8.0
  18. package require Itcl 3.0
  19. package require Itk 3.0
  20.  
  21. namespace eval ::iwidgets {
  22.     variable library [file dirname [info script]]
  23.     variable version 2.2.0
  24. }
  25.  
  26. lappend auto_path [file join $iwidgets::library scripts]
  27. package provide Iwidgets $iwidgets::version
  28.  
  29. # For now we need to import all of the itcl functions into the global
  30. # namespace. This should be removed once iwidgets are upgraded to use the
  31. # itcl:: names directly.
  32.  
  33. namespace import -force itcl::*
  34.