diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2018-05-19 11:18:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2018-05-19 11:18:51 (GMT) |
| commit | d7b2e89eedb17a2ea32cd9b13c7bc0f78f710c33 (patch) | |
| tree | 641dbf00fdbf67675a878bfe58c5672997fa32c9 /generic/tclOOMethod.c | |
| parent | 27ac662b5e74d0413f18cb0f5181a3b06ce2f6c8 (diff) | |
| download | tcl-d7b2e89eedb17a2ea32cd9b13c7bc0f78f710c33.zip tcl-d7b2e89eedb17a2ea32cd9b13c7bc0f78f710c33.tar.gz tcl-d7b2e89eedb17a2ea32cd9b13c7bc0f78f710c33.tar.bz2 | |
Minor updates to C API to handle private methods.
Diffstat (limited to 'generic/tclOOMethod.c')
| -rw-r--r-- | generic/tclOOMethod.c | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tclOOMethod.c b/generic/tclOOMethod.c index 9bc9daa..ad14a1a 100644 --- a/generic/tclOOMethod.c +++ b/generic/tclOOMethod.c @@ -1699,6 +1699,13 @@ Tcl_MethodIsPublic( { return (((Method *)method)->flags & PUBLIC_METHOD) ? 1 : 0; } + +int +Tcl_MethodIsPrivate( + Tcl_Method method) +{ + return (((Method *)method)->flags & TRUE_PRIVATE_METHOD) ? 1 : 0; +} /* * Extended method construction for itcl-ng. |