'From Squeak3.1alpha of 28 February 2001 [latest update: #3997] on 9 May 2001 at 2:41:33 pm'! "Change Set: WnldMenuCleanup Date: 9 May 2001 Author: Andreas Raab Some cleanup in the WonderlandCameraMorph menu."! !WonderlandCameraMorph methodsFor: 'event handling' stamp: 'ar 5/9/2001 14:36'! doFirstPersonControl ^firstPersonControls == true! ! !WonderlandCameraMorph methodsFor: 'menu' stamp: 'ar 5/9/2001 14:38'! addCustomMenuItems: aCustomMenu hand: aHandMorph super addCustomMenuItems: aCustomMenu hand: aHandMorph. aCustomMenu addLine. aCustomMenu addUpdating: #snapshotBackgroundString action: #toggleSnapshotBackground. aCustomMenu addUpdating: #firstPersonControlString action: #toggleFirstPersonControl. aCustomMenu addUpdating: #showControlsString action: #toggleCameraControls. aCustomMenu addLine. aCustomMenu add: 'Stop/Go button' action: #attachStopGoButtons. aCustomMenu add: 'Load actor' action: #loadActor. ! ! !WonderlandCameraMorph methodsFor: 'menu' stamp: 'ar 5/9/2001 14:36'! firstPersonControlString ^(self doFirstPersonControl) ifTrue:[^'first person control'] ifFalse:['first person control'].! ! !WonderlandCameraMorph methodsFor: 'menu' stamp: 'ar 5/9/2001 14:39'! showControlsString ^(myControls notNil) ifTrue:[^'camera controls'] ifFalse:['camera controls'].! ! !WonderlandCameraMorph methodsFor: 'menu' stamp: 'ar 5/9/2001 14:37'! toggleCameraControls myControls == nil ifTrue:[self showCameraControls] ifFalse:[self deleteCameraControls].! ! !WonderlandCameraMorph methodsFor: 'menu' stamp: 'ar 5/9/2001 14:37'! toggleFirstPersonControl self doFirstPersonControl: self doFirstPersonControl not.! ! WonderlandCameraMorph removeSelector: #getDragAndDropState! WonderlandCameraMorph removeSelector: #toggleDragAndDropState!