[Seaside] VW WAModelProxy bug

[Roger Whitney]

VisualWorks is missing the following methods needed by WAModelProxy.

Symbol>>isKeyword
	"Answer whether the receiver is a message keyword."

	^ self precedence == 3

Symbol>>isUnary
	"Answer whether the receiver is an unary message selector."

	^ self precedence == 1

Symbol>>precedence
	"Answer the receiver's precedence, assuming it is a valid Smalltalk
	message selector or 0 otherwise.  The numbers are 1 for unary,
	2 for binary and 3 for keyword selectors."

	self size = 0 ifTrue: [^ 0].
	self first isLetter ifFalse: [^ 2].
	self last = $: ifTrue: [^ 3].
	^ 1
----
Roger Whitney              Department of Computer Science
whitney at cs.sdsu.edu        San Diego State University
http://www.eli.sdsu.edu/   San Diego, CA 92182-7720
(619) 583-1978
(619) 594-3535 (office)
(619) 594-6746 (fax)