Etoys Inbox: Morphic-kfr.86.mcz

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
 
  !

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