6 lines
115 B
Tcl
6 lines
115 B
Tcl
proc policyA_PolicyInit {slave {version {}}} {
|
|
interp alias $slave tada {} tada $slave
|
|
}
|
|
proc tada {slave} {}
|
|
|