VSE Message

Important

! Message class methodsFor: #testing-VSECompat !
numberOfArgumentsFor: selector
   "Return the number of arguments required to evaluate the receiver."
   ^selector argumentCount! !

! Message class methodsFor: #instantiation-VSECompat !
receiver: receiver selector: selector
    "Answer an instance of the receiver representing a message
    sent to the <receiver> with the given message <selector> and
    no arguments."
    ^self new
        receiver: receiver
        selector: selector
        arguments: (Array new: (self numberOfArgumentsFor: selector))! !

! Message methodsFor: #testing-VSECompat!
isMessage
   "Answer whether the receiver is a kind of Message."
   ^true! !

! Object methodsFor: #testing-VSECompat!
isMessage
   "Answer whether the receiver is a kind of Message."
   ^false! !

! Message methodsFor: #accessing-VSECompat!
receiver: anObject selector: aSymbol arguments: anArray
   "Set the receiver to anObject, selector to aSymbol,
    and arguments to anArray."
    self receiver: anObject;
         selector: aSymbol;
         arguments: anArray! !

Secondary

Private