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 / circ1.tcl next >
Text File  |  1998-10-17  |  675b  |  35 lines
  1. # circ1.tcl --
  2. #
  3. #  Test package for pkg_mkIndex. This package requires circ2, and circ2
  4. #  requires circ3, which in turn requires circ1.
  5. #  In case of cirularities, pkg_mkIndex should give up when it gets stuck.
  6. #
  7. # Copyright (c) 1998 by Scriptics Corporation.
  8. # All rights reserved.
  9. # 
  10. # RCS: @(#) $Id: circ1.tcl,v 1.1 1998/10/17 00:21:39 escoffon Exp $
  11.  
  12. package require circ2 1.0
  13.  
  14. package provide circ1 1.0
  15.  
  16. namespace eval circ1 {
  17.     namespace export c1-1 c1-2 c1-3 c1-4
  18. }
  19.  
  20. proc circ1::c1-1 { num } {
  21.     return [circ2::c2-1 $num]
  22. }
  23.  
  24. proc circ1::c1-2 { num } {
  25.     return [circ2::c2-2 $num]
  26. }
  27.  
  28. proc circ1::c1-3 {} {
  29.     return 10
  30. }
  31.  
  32. proc circ1::c1-4 {} {
  33.     return 20
  34. }
  35.