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 / pkg3.tcl < prev    next >
Text File  |  1998-10-17  |  389b  |  23 lines
  1. # pkg3.tcl --
  2. #
  3. #  Test package for pkg_mkIndex.
  4. #
  5. # Copyright (c) 1998 by Scriptics Corporation.
  6. # All rights reserved.
  7. # 
  8. # RCS: @(#) $Id: pkg3.tcl,v 1.1 1998/10/17 00:21:42 escoffon Exp $
  9.  
  10. package provide pkg3 1.0
  11.  
  12. namespace eval pkg3 {
  13.     namespace export p3-1 p3-2
  14. }
  15.  
  16. proc pkg3::p3-1 { num } {
  17.     return {[expr $num * 2]}
  18. }
  19.  
  20. proc pkg3::p3-2 { num } {
  21.     return {[expr $num * 3]}
  22. }
  23.