[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
|