tcl/tests/pkg/circ3.tcl

   1 # circ3.tcl --
   2 #
   3 #  Test package for pkg_mkIndex. This package is required by circ2, and in
   4 #  turn requires circ1. This closes the circularity.
   5 #
   6 # Copyright (c) 1998 by Scriptics Corporation.
   7 # All rights reserved.
   8 #
   9 # RCS: @(#) $Id$
  10
  11 package require circ1 1.0
  12
  13 package provide circ3 1.0
  14
  15 namespace eval circ3 {
  16     namespace export c3-1 c3-4
  17 }
  18
  19 proc circ3::c3-1 {} {
  20     return [circ1::c1-3]
  21 }
  22
  23 proc circ3::c3-2 {} {
  24     return [circ1::c1-4]
  25 }