[etoys-dev] Etoys: MorphicExtras-kfr.49.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-kfr.49.mcz

==================== Summary ====================

Name: MorphicExtras-kfr.49
Author: kfr
Time: 18 October 2011, 8:07:44 pm
UUID: 6c41a019-2e4e-d54e-99c7-49babcafdb2c
Ancestors: MorphicExtras-kfr.48

Chenge WebCamMorph delete to not turn off camera if there are more instances. Translate 'camera is off'.  Stop stepping if instanceVariable comIsOn is false

=============== Diff against MorphicExtras-kfr.48 ===============

Item was changed:
  ----- Method: WebCamMorph>>delete (in category 'submorphs-add/remove') -----
  delete
+ 	(self class instanceCount > 1) 
+ 	ifFalse:[self off]
+ 	ifTrue:[self stopStepping. camIsOn := false].
- 	self off.
  	super delete.!

Item was changed:
  ----- Method: WebCamMorph>>step (in category 'stepping and presenter') -----
  step
+ 	camIsOn ifFalse:[self stopStepping].
- 	| |
  	self updateDisplay.
  	
  									!

Item was changed:
  ----- Method: WebCamMorph>>updateDisplay (in category 'stepping and presenter') -----
  updateDisplay
  	camIsOn
  		ifFalse: [displayForm getCanvas
+ 				drawString: 'Camera is off' translated
- 				drawString: 'Camera is off'
  				at: 5 @ 2
  				font: Preferences windowTitleFont
  				color: Color white.
  			]
  		ifTrue:[self nextFrame].
       self changed.!