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

[commits at source.squeak.org]

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.
  			}.
  		}.
  	}.
  !