[Pkg] 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:

==================== 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') -----
  	| 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.
  		addToolsOffImage: image onImage: onImage;
  		addBrushesOffImage: image onImage: onImage;
  		addActionsOffImage: image onImage: onImage;
  		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 Packages mailing list