[squeak-dev] The Trunk: MorphicExtras-nice.132.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Dec 9 21:24:48 UTC 2013


Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.132.mcz

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

Name: MorphicExtras-nice.132
Author: nice
Time: 9 December 2013, 10:24:06.153 pm
UUID: a59ef5cb-c29a-49fe-ab2b-87bea72f3edf
Ancestors: MorphicExtras-cmm.131

Remove a (now) useless Cursor wait.
[ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89] timeToRun -> 34ms on my not so recent Mac
Which machine was that slow to justify visual feedback?

=============== Diff against MorphicExtras-cmm.131 ===============

Item was changed:
  ----- Method: PaintBoxMorph>>fixUpColorPicker (in category 'recent colors') -----
  fixUpColorPicker
  	| chart picker |
+ 	chart := ColorChart ifNil: [ColorChart := (ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89)].
- 	chart := ColorChart ifNil: [ColorChart := Cursor wait showWhile: [(ColorPickerMorph colorPaletteForDepth: 16 extent: 120 @ 89)]].
  	chart getCanvas frameRectangle: chart boundingBox color: Color black.
  	picker := Form extent: (chart extent + (14 @ 12)) depth: 16.
  	picker fillWhite.
  	"top"
  	picker copy: (0 @ 0 extent: picker width @ 6)
  			from: (colorMemory image width - picker width) @ 0 
  			in: colorMemory image rule: Form over.
  	"bottom"
  	picker copy: (0 @  (picker height - 6) extent: picker width @ 6) 
  			from: (colorMemory image width - picker width) @ (colorMemory image height - 7)
  			in: colorMemory image rule: Form over.
  	"left"
  	picker copy: (0 @ 6 corner: 8 @ (picker height - 6))
  			from: (colorMemory image boundingBox topLeft + (0 @ 6)) 
  			in: colorMemory image rule: Form over.
  	"right"
  	picker copy: (picker width-6 @ 6 corner: picker width @ (picker height - 6))
  			from: (colorMemory image boundingBox topRight - (6 @ -6)) 
  			in: colorMemory image rule: Form over.
  	chart displayOn: picker at: 8 @ 6.
  	picker getCanvas frameRectangle: picker boundingBox color: Color black.
  	colorMemory image: picker.
  !



More information about the Squeak-dev mailing list