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