[Seaside] Class Variable Browser Fix

[Ted Wrinch]

Hi All,

There seems to be a buglet in the browser concerning class variables. When you select and right click on a class variable in the browser it brings up a walk-back. I'm not sure what the procedure is for applying fixes to the code base and have included the fix below:

OBCmdBrowseReferencesOfIt>>globalReference
	| binding |
	target hasSelector
		ifFalse: [ ^ nil ].
	(requestor selectedClass notNil and: [ (binding := requestor selectedClass bindingOf: target selector) notNil and:[binding value notNil] ])
		ifTrue: [ ^ binding value asNode ].
	(binding := Smalltalk classNamed: target selector) notNil
		ifTrue: [ ^ binding value asNode ].
	^ nil

I've added the phrase: "and:[binding value notNil]".

T.

Ted Wrinch