[Pkg] The Trunk: MorphicExtras-nice.139.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 13 22:26:20 UTC 2013

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:

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

Name: MorphicExtras-nice.139
Author: nice
Time: 13 December 2013, 11:25:26.176 pm
UUID: 857937cc-10cb-4157-8ab4-bcf212dfe5f9
Ancestors: MorphicExtras-nice.138

Remember recently used colors for all paint tools using the selected color, not just for the paint brush.

=============== Diff against MorphicExtras-nice.138 ===============

Item was changed:
  ----- Method: SketchEditorMorph>>mouseDown: (in category 'morphic') -----
  mouseDown: evt
  	"Start a new stroke.  Check if any palette setting have changed.  6/11/97 20:30 tk"
  	| cur pfPen myAction |
  	"verify that we are in a good state"
  	self verifyState: evt.		"includes prepareToPaint and #scalingOrRotate"
  	pfPen := self get: #paintingFormPen for: evt.
  	paintingForm extent = undoBuffer extent ifTrue: [
  		paintingForm displayOn: undoBuffer at: 0 at 0 rule: Form over.
  	] ifFalse: [
  		undoBuffer := paintingForm deepCopy.	"know we will draw something"
  	pfPen place: (evt cursorPoint - bounds origin).
  	myAction := self getActionFor: evt.
+ 	palette colorable ifTrue:[
- 	myAction == #paint: ifTrue:[
  		palette recentColor: (self getColorFor: evt)].
  	self set: #strokeOrigin for: evt to: evt cursorPoint.
  		"origin point for pickup: rect: ellispe: polygon: line: star:.  Always take it."
  	myAction == #pickup: ifTrue: [
  		cur := Cursor corner clone.
  		cur offset: 0 at 0  "cur offset abs".
  		evt hand showTemporaryCursor: cur].
  	myAction == #polygon: ifTrue: [self polyNew: evt].	"a mode lets you drag vertices"
  	self mouseMove: evt.!

More information about the Packages mailing list