[squeak-dev] The Trunk: MorphicExtras-nice.136.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 12 01:36:06 UTC 2013
Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.136.mcz
==================== Summary ====================
Name: MorphicExtras-nice.136
Author: nice
Time: 12 December 2013, 2:35:20.979 am
UUID: 84e247ca-8197-4640-aa55-e9c52037613c
Ancestors: MorphicExtras-nice.135
Fix: PaintBoxMorph prototype requires a currentBrush
=============== Diff against MorphicExtras-nice.135 ===============
Item was changed:
ImageMorph subclass: #PaintBoxMorph
instanceVariableNames: 'action tool currentCursor thumbnail currentColor currentBrush colorMemory colorPatch stampHolder rotationTabForm scaleTabForm colorMemoryThin brushes focusMorph weakDependents recentColors'
+ classVariableNames: 'AllOffImage AllOnImage AllPressedImage ColorChart ImageLibrary OriginalBounds Prototype RecentColors UseLargeColorPicker'
- classVariableNames: 'AllOffImage AllOnImage AllPressedImage ColorChart ImageLibrary OriginalBounds Prototype RecentColors ScaleTabImage UseLargeColorPicker'
poolDictionaries: ''
category: 'MorphicExtras-Support'!
Item was changed:
----- Method: PaintBoxMorph>>buildAPrototype (in category 'initialization') -----
buildAPrototype
| onImage |
self initialize.
self image: self class paletteImage.
rotationTabForm := self class rotationTabImage.
scaleTabForm := self class scaleTabImage.
(colorMemoryThin := self class colorMemoryThinImage asMorph)
setNamePropertyTo: 'ColorPickerClosed';
position: self position + (11 at 150);
on: #mouseEnter send: #showColorPalette: to: self.
self addMorph: colorMemoryThin.
(colorMemory := PaintBoxColorPicker new image: self class colorMemoryImage)
setNamePropertyTo: 'ColorPickerOpened';
on: #mouseDown send: #takeColorEvt:from: to: self.
onImage := self class paletteOnImage.
self
addToolsOffImage: image onImage: onImage;
addBrushesOffImage: image onImage: onImage;
addActionsOffImage: image onImage: onImage;
addStampsAndShapes;
addShapeButtonsOffImage: self class shapesImage onImage: self class shapesOnImage;
addStampButtonsOffImage: self class stampsImage onImage: self class stampsOnImage.
+ stampHolder := ScrollingToolHolder newPrototypeFor: self.
+ currentBrush := brushes at: 1.!
- stampHolder := ScrollingToolHolder newPrototypeFor: self!
More information about the Squeak-dev
mailing list
|