Etoys: MorphicExtras-kfr.49.mcz

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.!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev