[etoys-dev] Etoys: MorphicExtras-bf.9.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Jun 26 08:45:12 EDT 2010

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys:

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

Name: MorphicExtras-bf.9
Author: bf
Time: 26 June 2010, 2:44 pm
UUID: bad75b3d-b8d6-4703-a838-2f3c513dd265
Ancestors: MorphicExtras-kfr.8

- prevent deleting paint palette (SQ-687, fix by Karl Ramberg)

=============== Diff against MorphicExtras-kfr.8 ===============

Item was changed:
  ----- Method: PaintBoxMorph class>>new (in category 'instance creation') -----
  	| pb button dualUse formCanvas rect |
  	pb _ Prototype veryDeepCopy.
  		"Assume that the PaintBox does not contain any scripted Players!!"
  	pb stampHolder normalize.	"Get the stamps to show"
  	"Get my own copies of the brushes so I can modify them"
  	#(brush1: brush2: brush3: brush4: brush5: brush6:) do: [:sel |
  		button _ pb submorphNamed: sel.
  		button offImage: button offImage deepCopy.
  		dualUse _ button onImage == button pressedImage.	"sometimes shared"
  		button onImage: button onImage deepCopy.
  			ifTrue: [button pressedImage: button onImage]
  			ifFalse: [button pressedImage: button pressedImage deepCopy].
  		"force color maps for later mapping"
  		button offImage.
  		button onImage.
  		button pressedImage.
  		formCanvas _ button onImage getCanvas.
  		formCanvas _ formCanvas
  			copyOrigin: 0 at 0
  			clipRect: (rect _ 0 at 0 extent: button onImage extent).
  		(#(brush1: brush3:) includes: sel) ifTrue: [
  			rect _ rect origin corner: rect corner - (2 at 2)].
  		(#brush2: == sel) ifTrue: [
  			rect _ rect origin corner: rect corner - (2 at 4)].
  		formCanvas frameAndFillRectangle: rect fillColor: Color transparent
  			borderWidth: 2 borderColor: (Color r: 0.599 g: 0.8 b: 1.0).
  	pb showColor.
  	pb fixUpRecentColors.
  	pb addLabels.
+ 	pb resistsRemoval: true.
  	^ pb!

Item was added:
+ ----- Method: PaintBoxMorph>>willingToBeDiscarded (in category 'other') -----
+ willingToBeDiscarded
+ 	^ false!

More information about the etoys-dev mailing list