Etoys: Connectors-kfr.192.mcz

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

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

Name: Connectors-kfr.192
Author: kfr
Time: 24 July 2011, 10:02:17 pm
UUID: 2646987d-0c28-bd49-acc9-d3c862537d39
Ancestors: Connectors-kfr.191

Purple halo-handle: "open a Connector properties panel for the morph" broken
http://tracker.squeakland.org/browse/SQ-969

=============== Diff against Connectors-kfr.191 ===============

Item was changed:
  ----- Method: ConnectorPropertiesMorph>>rebuild (in category 'as yet unclassified') -----
  rebuild
 
+ | buttonColor menu menuIconsPref |
+      menuIconsPref := Preferences menuWithIcons.
+ buttonColor := color lighter.
- | buttonColor menu |
- buttonColor _ color lighter.
 
  self removeAllMorphs.
  self addAColumn: {
  self lockedString: ('Connector Properties for {1}' translated format:{myTarget name}).
  }.
+ Preferences setPreference: #menuWithIcons toValue: false.
+ menu := MenuMorph new defaultTarget: myTarget.
-
- menu _ MenuMorph new defaultTarget: myTarget.
  myTarget addYellowButtonMenuItemsTo: menu event: ActiveHand lastEvent.
+
-
  self addARow: { self inAColumn: (menu  submorphs collect: [ :item | item duplicateMorph: ActiveHand lastEvent ]) }.
+ Preferences setPreference: #menuWithIcons toValue: menuIconsPref.
-
  self addARow: {
  self inAColumn: {
  self addARow: {
  self
  buttonNamed: 'Accept' translated action: #doAccept color: buttonColor
  help: 'keep changes made and close panel' translated.
  self
  buttonNamed: 'Cancel' translated action: #doCancel color: buttonColor
  help: 'cancel changes made and close panel' translated.
  }.
  }.
  }.
  !

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