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

[commits at source.squeak.org]

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