home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / tcltk805.zip / tcl805s.zip / tcl8.0.5 / os2 / pkg / std.tcl < prev   
Text File  |  1998-10-17  |  600b  |  29 lines
  1. # std.tcl --
  2. #
  3. #  Test package for pkg_mkIndex.
  4. #  Does a package require of direct1, whose pkgIndex.tcl entry (in pkg1)
  5. #  should be a -direct entry.
  6. #  This tests that pkg_mkIndex can handle code that is sourced in pkgIndex.tcl
  7. #  files.
  8. #
  9. # Copyright (c) 1998 by Scriptics Corporation.
  10. # All rights reserved.
  11. # 
  12. # RCS: @(#) $Id: std.tcl,v 1.1 1998/10/17 00:21:43 escoffon Exp $
  13.  
  14. package require direct1
  15.  
  16. package provide std 1.0
  17.  
  18. namespace eval std {
  19.     namespace export p1 p2
  20. }
  21.  
  22. proc std::p1 { stg } {
  23.     return [string tolower $stg]
  24. }
  25.  
  26. proc std::p2 { stg } {
  27.     return [string toupper $stg]
  28. }
  29.