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

[commits at source.squeak.org]

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

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

Name: Connectors-kfr.196
Author: kfr
Time: 11 March 2012, 1:13:08 pm
UUID: f92eb2a7-b04b-4608-b840-9c0af4ec2460
Ancestors: Connectors-kfr.195

Attach label to connector midpoint

=============== Diff against Connectors-kfr.195 ===============

Item was changed:
  ----- Method: NCAAConnectorMorph>>addLabel: (in category 'labeling') -----
  addLabel: anEvent
  	| label |
  	label _ self labelClass new string: '  ' wrap: false minWidth: 20.
  	label
+ 		align: label center with: self midpoint;
+ 		attachUnobnoxiouslyTo: self at: self midpoint;
- 		align: label center with: anEvent position;
- 		attachUnobnoxiouslyTo: self at: anEvent position;
  		dieWithInput: true;
  		acceptOnCR: true;
  		acceptOnFocusLoss: true;
  		selectAll.
  	self pasteUpMorphOrWorld addMorph: label.
  	anEvent hand newKeyboardFocus: label label.
  	^label!