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

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of MorphicExtras to project Etoys:
http://source.squeak.org/etoys/MorphicExtras-bf.71.mcz

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

Name: MorphicExtras-bf.71
Author: bf
Time: 24 June 2012, 8:34:07 pm
UUID: 06edc4a5-0577-4d5a-998b-1a2f473255f5
Ancestors: MorphicExtras-bf.70

Change Set:		brushSizePref-sw
Date:			13 January 2012
Author:			Scott Wallace

Adds a preference, 'singlePixelNib'.  when this preference is on, the smallest brush icon in the etoys painting tool will represent a single-pixel-wide nib; when it's off, the smallest brush icon will represent a three-pixel-wide nib.

=============== Diff against MorphicExtras-bf.70 ===============

Item was changed:
  ----- Method: PaintBoxMorph class>>initialize (in category 'class initialization') -----
  initialize
  	"PaintBoxMorph initialize"
  
  	Prototype eventHandler: nil.
  	Prototype focusMorph: nil.
  	Prototype stampHolder clear.  "clear stamps"
  	Prototype delete.  "break link to world, if any"
  	Prototype initializeBrush.
  
  	AllOnImage _ AllOffImage _ AllPressedImage _ nil.
  	OriginalBounds _ nil.
  	RecentColors _ nil.
  
+ 	Preferences addPreference: #singlePixelNib
+ 		categories: #(painting)
+ 		default: false
+ 		balloonHelp: 'when turned on, the smallest pen-size icon in the painting tool represents a single-pixel-wide painting nib; when turned off, that icon represents a three-pixel-wide pen'
+ 		projectLocal: false
+ 		changeInformee: PaintBoxMorph changeSelector: #smallestNibSizeChanged.
+ 	self smallestNibSizeChanged.!
- !

Item was added:
+ ----- Method: PaintBoxMorph class>>smallestNibSizeChanged (in category 'instance creation') -----
+ smallestNibSizeChanged
+ 	"The user changed the size of the smallest nib in the paint box.  Change the prototype(s) to reflect this change."
+ 
+ 	| aWidth aButton |
+ 	aWidth := Preferences singlePixelNib ifTrue: [1] ifFalse:[3].
+ 	self allInstancesDo:
+ 		[:aPaintBox |
+ 			aButton :=  aPaintBox submorphNamed: #brush1:.
+ 			aButton arguments at: 3
+ 				put: (Form dotOfSize:  aWidth).
+ 			aButton doButtonAction]!