[FIX]WonderlandActorBrowser

Karl Ramberg karl.ramberg at chello.se
Tue Jul 18 08:04:19 UTC 2000


Fixes optionClicking on the 'scene'
Before this would cause an error.

Karl
-------------- next part --------------
'From Squeak2.9alpha of 26 June 2000 [latest update: #2447] on 18 July 2000 at 10:02:29 am'!

!WonderlandActorBrowser methodsFor: 'actor list functions' stamp: 'kfr 7/18/2000 09:57'!
actorMenu: aMenu
	"Builds the menu to display when the user right clicks on an actor"

	(selectedActor isKindOf: WonderlandScene) | (selectedActor = nil)
	ifTrue: [ ^ aMenu ].

	(selectedActor isFirstClass)
		ifTrue: [
			^ aMenu addList: {
								{'Point camera at'. #pointAt}.
								{'Turn around once'. #turnAround}.
								{'Become part'. #becomePart }.
								{'Stand up'. #standUp}.
								{'Grow'. #grow}.
								{'Shrink'. #shrink}.
								{'Squash'. #squash}.
								{'Stretch'. #stretch}.
								{'Destroy'. #destroy}
							  }.
				]
		ifFalse: [
			^ aMenu addList: {
								{'Point camera at'. #pointAt}.
								{'Turn around once'. #turnAround}.
								{'Become first class'. #becomeFirstClass }.
								{'Stand up'. #standUp}.
								{'Grow'. #grow}.
								{'Shrink'. #shrink}.
								{'Squash'. #squash}.
								{'Stretch'. #stretch}.
								{'Destroy'. #destroy}
							  }.
				].
! !



More information about the Squeak-dev mailing list