diff options
| author | dkf <dkf@noemail.net> | 2009-06-07 23:33:22 (GMT) |
|---|---|---|
| committer | dkf <dkf@noemail.net> | 2009-06-07 23:33:22 (GMT) |
| commit | 01310e3b176abff3796a5abfac3f2a76e4ddd23b (patch) | |
| tree | 8daa0d86fcb863587d3f4758cbe6902b4e0165d0 /doc/copy.n | |
| parent | 44343777b32e8a7f1698c619490c94f09ebaf1dc (diff) | |
| download | tcl-01310e3b176abff3796a5abfac3f2a76e4ddd23b.zip tcl-01310e3b176abff3796a5abfac3f2a76e4ddd23b.tar.gz tcl-01310e3b176abff3796a5abfac3f2a76e4ddd23b.tar.bz2 | |
Fix docbug.
FossilOrigin-Name: d0eba32fc2cd1e2fffd189bb2d3689f0b544c34d
Diffstat (limited to 'doc/copy.n')
| -rw-r--r-- | doc/copy.n | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -4,7 +4,7 @@ '\" See the file "license.terms" for information on usage and redistribution '\" of this file, and for a DISCLAIMER OF ALL WARRANTIES. '\" -'\" RCS: @(#) $Id: copy.n,v 1.2 2008/10/17 10:22:25 dkf Exp $ +'\" RCS: @(#) $Id: copy.n,v 1.3 2009/06/07 23:33:23 dkf Exp $ '\" .so man.macros .TH copy n 0.1 TclOO "TclOO Commands" @@ -39,9 +39,9 @@ then demonstrates that the copied object is indeed a copy. .PP .CS oo::object create src -oo::define src method msg {} {puts foo} +oo::objdefine src method msg {} {puts foo} \fBoo::copy\fR src dst -oo::define src method msg {} {puts bar} +oo::objdefine src method msg {} {puts bar} src msg \fI\(-> prints "bar"\fR dst msg \fI\(-> prints "foo"\fR .CE |