[etoys-dev] Etoys: Connectors-kfr.194.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Connectors to project Etoys:
http://source.squeak.org/etoys/Connectors-kfr.194.mcz

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

Name: Connectors-kfr.194
Author: kfr
Time: 5 March 2012, 8:56:01 pm
UUID: 383b9527-38a4-954e-bbc2-954808e0c54b
Ancestors: Connectors-kfr.193

Change Set:             graphingFixes-sw
Date:                   4 March 2012
Author:                 Scott Wallace

Addresses various bug-reports and recommendations relating to recent number-line and graph-paper updates:
- Enforce reasonable ranges for the sliders governing the grid parameters, taking the grid-size, coarse-grid-size , and playfield dimensions into account.
- Provide a button to request 'graph paper' from the 'generic property sheet' when appropriate.
- Retain position of number line when its pixelsPerUnit changes.
- Disable the 'offset' when coarse-grid in effect.
- Protect sliders against zero-divide that can happen if minVal = maxVal.
- Protect InfiniteForms against incidental calls to #darker and #twiceDarker that can be sent to any object's fillStyle by some of the custom border code.
- Removes about a dozen superfluous methods that had mistakenly lingered in the earlier updates, and removes three inst vars of NumberLineMorph that were remnants from earlier code

=============== Diff against Connectors-kfr.193 ===============

Item was changed:
  ----- Method: ObjectPropertiesMorph>>addOptionalButtonsTo: (in category '*connectors-visual properties') -----
  addOptionalButtonsTo: aCollection 
  	"Add optional buttons to the tableau."
  
  	aCollection
  		addLast: (self transparentSpacerOfSize: 20 @ 3).
  	"aCollection
  		addLast: (self
  				buttonNamed: 'Button' translated
  				action: #doButtonProperties
  				color: color lighter
  				help: 'open a button properties panel for the morph' translated)."
+ 
+ 	myTarget wantsGraphPaperAlternative
+ 		ifTrue:
+ 			[aCollection
+ 				addLast: (self
+ 						buttonNamed: 'Graph paper' translated
+ 						action: #doGraphPaper
+ 						color: color lighter
+ 						help: 'adopt graph paper as fill style' translated)].
+ 
  	myTarget wantsTextPropertiesSheet
  		ifTrue: [aCollection
  				addLast: (self
  						buttonNamed: 'Text' translated
  						action: #doTextProperties
  						color: color lighter
  						help: 'open a text properties panel for the morph' translated)].
  	myTarget wantsConnectorPropertiesSheet
  		ifTrue: [aCollection
  				addLast: (self
  						buttonNamed: 'Connector' translated
  						action: #doConnectorProperties
  						color: color lighter
  						help: 'open a Connector properties panel for the morph' translated)].
  	^ aCollection!