home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / tclX6.5c / tclsrc / tkdemo.tcl < prev    next >
Encoding:
Text File  |  1992-12-19  |  1.2 KB  |  36 lines
  1. #
  2. # tkdemo --
  3. #
  4. # Run the Tk demo at anytime after Extended Tcl is installed.
  5. # 
  6. #------------------------------------------------------------------------------
  7. # Copyright 1992 Karl Lehenbauer and Mark Diekhans.
  8. #
  9. # Permission to use, copy, modify, and distribute this software and its
  10. # documentation for any purpose and without fee is hereby granted, provided
  11. # that the above copyright notice appear in all copies.  Karl Lehenbauer and
  12. # Mark Diekhans make no representations about the suitability of this
  13. # software for any purpose.  It is provided "as is" without express or
  14. # implied warranty.
  15. #------------------------------------------------------------------------------
  16. # $Id: tkdemo.tcl,v 1.2 1992/12/19 07:57:51 markd Exp $
  17. #------------------------------------------------------------------------------
  18. #
  19.  
  20. #@package: Tk-demo tkdemo
  21.  
  22. proc tkdemo {} {
  23.     global TCLPATH
  24.     if {[info commands tkwait] == ""} {
  25.         error "tkdemo may only be used from wishx"
  26.     }
  27.     set demos [searchpath $TCLPATH demos]
  28.     if {$demos == "" || ![file isdirectory $demos]} {
  29.         error "can't find Tk `demos' directory on the TCLPATH ($TCLPATH)
  30. Extended Tcl must be installed with the Tk demos option to use this procedure"
  31.     }
  32.     uplevel #0 source $demos/widget
  33. }
  34.  
  35.  
  36.