home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / tcl / tclx7_31.z / tclx7_31 / tcldev / tclX7.3a-p1 / tktclsrc / tkdemo.tcl < prev   
Encoding:
Text File  |  1993-11-19  |  1.2 KB  |  35 lines
  1. #
  2. # tkdemo --
  3. #
  4. # Run the Tk demo at anytime after Extended Tcl is installed.
  5. # 
  6. #------------------------------------------------------------------------------
  7. # Copyright 1992-1993 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 3.0 1993/11/19 07:01:10 markd Rel $
  17. #------------------------------------------------------------------------------
  18. #
  19.  
  20. #@package: Tk-demo tkdemo
  21.  
  22. proc tkdemo {} {
  23.     global auto_path
  24.     if {[info commands tkwait] == ""} {
  25.         error "tkdemo may only be used from wishx"
  26.     }
  27.     set demos [searchpath $auto_path demos]
  28.     if {$demos == "" || ![file isdirectory $demos]} {
  29.         error "can't find Tk `demos' directory on the auto_path (auto_path):
  30.     }
  31.     uplevel #0 source $demos/widget
  32. }
  33.  
  34.  
  35.