Etoys: MorphicExtras-kfr.47.mcz

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

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

Name: MorphicExtras-kfr.47
Author: kfr
Time: 17 October 2011, 9:08:44 pm
UUID: 38157df9-be44-af40-b559-1091291c4550
Ancestors: MorphicExtras-kfr.46

Fix some player issue and add longer delay for camera start

=============== Diff against MorphicExtras-kfr.46 ===============

Item was changed:
  ----- Method: Player>>setUseFrameSize: (in category '*MorphicExtras-WebCam') -----
  setUseFrameSize: aBoolean
+ self setCostumeSlot:#setUseFrameSize: toValue:aBoolean!
- costume setUseFrameSize: aBoolean!

Item was changed:
  ----- Method: WebCamMorph>>drawOn: (in category 'drawing') -----
  drawOn: aCanvas
  useFrameSize ifTrue: [self extent: frameExtent].
-
  aCanvas
  drawImage: (
  (self extent = displayForm extent)
  ifTrue: [displayForm]
  ifFalse: [displayForm scaledToSize: self extent]
  ) at: bounds origin.
  !

Item was changed:
  ----- Method: WebCamMorph>>on (in category 'accessing') -----
  on
 
  (CameraInterface cameraIsOpen: camNum)
  ifTrue: [ ^camIsOn := true.].
  (CameraInterface
  openCamera: camNum
  width: frameExtent x
  height: frameExtent y)
  ifNil: [^false].
+ (Delay forSeconds: 2) wait.
- (Delay forSeconds: 1) wait.
  displayForm := Form extent: frameExtent depth:32.
  camIsOn := true.
  self startStepping.
  !

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