[etoys-dev] Etoys Inbox: Morphic-kfr.86.mcz

[commits at source.squeak.org]

A new version of Morphic was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Morphic-kfr.86.mcz

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

Name: Morphic-kfr.86
Author: kfr
Time: 11 March 2012, 12:09:26 pm
UUID: 5de7611f-63a9-4e3e-ac85-8829e8a0a43b
Ancestors: Morphic-bf.85

Work in progress on properties morph

=============== Diff against Morphic-bf.85 ===============

Item was removed:
- ----- Method: ButtonPropertiesMorph>>adjustTargetMouseDownHaloSize: (in category 'as yet unclassified') -----
- adjustTargetMouseDownHaloSize: aFractionalPoint
- 
- 	self targetProperties mouseDownHaloWidth: ((aFractionalPoint x * 10) rounded max: 0).
- !

Item was added:
+ ----- Method: ButtonPropertiesMorph>>adjustTargetMouseDownHaloSize:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetMouseDownHaloSize: aFractionalPoint updateMorph: aMorph
+ 	self targetProperties mouseDownHaloWidth: ((aFractionalPoint x * 10) rounded max: 0).
+ !

Item was removed:
- ----- Method: ButtonPropertiesMorph>>adjustTargetMouseOverHaloSize: (in category 'as yet unclassified') -----
- adjustTargetMouseOverHaloSize: aFractionalPoint
- 
- 	self targetProperties mouseOverHaloWidth: ((aFractionalPoint x * 10) rounded max: 0).
- !

Item was added:
+ ----- Method: ButtonPropertiesMorph>>adjustTargetMouseOverHaloSize:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetMouseOverHaloSize: aFractionalPoint updateMorph: aMorph
+ 
+ 	self targetProperties mouseOverHaloWidth: ((aFractionalPoint x * 10) rounded max: 0).
+ !

Item was removed:
- ----- Method: ButtonPropertiesMorph>>adjustTargetRepeatingInterval: (in category 'as yet unclassified') -----
- adjustTargetRepeatingInterval: aFractionalPoint
- 
- 	| n |
- 
- 	n _ 2 raisedTo: ((aFractionalPoint x * 12) rounded max: 1).
- 	self targetProperties delayBetweenFirings: n.
- !

Item was added:
+ ----- Method: ButtonPropertiesMorph>>adjustTargetRepeatingInterval:updateMorph: (in category 'as yet unclassified') -----
+ adjustTargetRepeatingInterval: aFractionalPoint updateMorph: aMorph
+ 
+ 	| n |
+ 
+ 	n _ 2 raisedTo: ((aFractionalPoint x * 12) rounded max: 1).
+ 	self targetProperties delayBetweenFirings: n.
+ !

Item was changed:
  ----- Method: ButtonPropertiesMorph>>paneForMouseDownHaloWidth (in category 'as yet unclassified') -----
  paneForMouseDownHaloWidth
  
  	^(self inARow: {
  		self
  			buildFakeSlider: #valueForMouseDownHaloWidth 
+ 			selector: #adjustTargetMouseDownHaloSize:updateMorph:
- 			selector: #adjustTargetMouseDownHaloSize:
  			help: 'Drag in here to change the halo width' translated
  	}) hResizing: #shrinkWrap
  !

Item was changed:
  ----- Method: ButtonPropertiesMorph>>paneForMouseOverHaloWidth (in category 'as yet unclassified') -----
  paneForMouseOverHaloWidth
  
  	^(self inARow: {
  		self
  			buildFakeSlider: #valueForMouseOverHaloWidth
+ 			selector: #adjustTargetMouseOverHaloSize:updateMorph:
- 			selector: #adjustTargetMouseOverHaloSize:
  			help: 'Drag in here to change the halo width' translated
  	}) hResizing: #shrinkWrap
  !

Item was changed:
  ----- Method: ButtonPropertiesMorph>>paneForRepeatingInterval (in category 'as yet unclassified') -----
  paneForRepeatingInterval
  
  	^(self 
  		inAColumn: {
  			self
  				buildFakeSlider: #valueForRepeatingInterval
+ 				selector: #adjustTargetRepeatingInterval:updateMorph:
- 				selector: #adjustTargetRepeatingInterval:
  				help: 'Drag in here to change how often the button repeats while the mouse is down' translated
  		}
  		 named: #paneForRepeatingInterval
  	) hResizing: #shrinkWrap
  !

Item was removed:
- ----- Method: GraphPaperPanel>>adjustOffset: (in category 'adjusting parameters') -----
- adjustOffset: aFractionalPoint
- 	"Adjust the offset to reflect the value embodied in the argument supplied."
- 
- 	| constrained |
- 	constrained := aFractionalPoint min: (1 @ 1) max: (-1 @ -1).
- 	offset := (constrained * self gridEvery asPoint) rounded.
- 	self showSliderFeedback: offset.
- 	self makeToolReflectCurrentSettings!

Item was added:
+ ----- Method: GraphPaperPanel>>adjustOffset:updateMorph: (in category 'adjusting parameters') -----
+ adjustOffset: aFractionalPoint updateMorph: aMorph
+ 	"Adjust the offset to reflect the value embodied in the argument supplied."
+ 
+ 	| constrained |
+ 	constrained := aFractionalPoint min: (1 @ 1) max: (-1 @ -1).
+ 	offset := (constrained * self gridEvery asPoint) rounded.
+ 	self showSliderFeedback: offset.
+ 	self makeToolReflectCurrentSettings!

Item was changed:
  ----- Method: GraphPaperPanel>>paneForOffset (in category 'panes') -----
  paneForOffset
  	"Answer a pane for the Offset button."
  
  	| aPane |
  	aPane := (self inARow: {
  		self
  			buildFakeSlider: 'Offset' translated
+ 			selector: #adjustOffset:updateMorph:
- 			selector: #adjustOffset:
  			help: 'Drag in here to change the offset' translated
  				}) hResizing: #shrinkWrap.
  	aPane setNameTo: #offset.
  	^ aPane
  
  !