core/generic/early-generic.facts

   1 USING: generic help ;
   2
   3 HELP: delegate
   4 { $values { "obj" "an object" } { "delegate" "an object" } }
   5 { $description "Returns an object's delegate, or " { $link f } " if no delegate is set." }
   6 { $notes "A direct consequence of this behavior is that an object may not have a delegate of " { $link f } "." } ;
   7
   8 HELP: set-delegate
   9 { $values { "delegate" "an object" } { "tuple" "a tuple" } }
  10 { $description "Sets a tuple's delegate. Method calls not handled by the tuple's class will now be passed on to the delegate." } ;