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 / pkg1.tcl < prev    next >
Text File  |  1998-10-17  |  593b  |  27 lines
  1. # pkg1.tcl --
  2. #
  3. #  Test package for pkg_mkIndex. This package requires pkg3, but it does
  4. #  not use any of pkg3's procs in the code that is executed by the file
  5. #  (i.e. references to pkg3's procs are in the proc bodies only).
  6. #
  7. # Copyright (c) 1998 by Scriptics Corporation.
  8. # All rights reserved.
  9. # 
  10. # RCS: @(#) $Id: pkg1.tcl,v 1.1 1998/10/17 00:21:40 escoffon Exp $
  11.  
  12. package require pkg3 1.0
  13.  
  14. package provide pkg1 1.0
  15.  
  16. namespace eval pkg1 {
  17.     namespace export p1-1 p1-2
  18. }
  19.  
  20. proc pkg1::p1-1 { num } {
  21.     return [pkg3::p3-1 $num]
  22. }
  23.  
  24. proc pkg1::p1-2 { num } {
  25.     return [pkg3::p3-2 $num]
  26. }
  27.