[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:
http://source.squeak.org/etoys/MorphicExtras-bf.9.mcz
==================== 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') -----
new
| 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.
dualUse
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