Etoys: Connectors-kfr.194.mcz

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!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev