[etoys-dev] Etoys Inbox: Skeleton-kfr.4.mcz

[commits at source.squeak.org]

A new version of Skeleton was added to project Etoys Inbox:
http://source.squeak.org/etoysinbox/Skeleton-kfr.4.mcz

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

Name: Skeleton-kfr.4
Author: kfr
Time: 18 October 2011, 12:04:19 am
UUID: 824f71bd-4b2c-9e4f-b54e-7d85433b3ca1
Ancestors: Skeleton-kfr.3

Clean up method per Berts suggestion

=============== Diff against Skeleton-kfr.3 ===============

Item was changed:
  ----- Method: Morph>>showPointArrowFrom:to:label: (in category '*skeleton-base-arrow') -----
  showPointArrowFrom: morph1 to: morph2 label: aString 
  	"Morph new showPointArrowFrom: (Morph new position: 0 at 0) to: (Morph  
  	new position: 200 at 200) label: 'test'"
  	| p1 p2 arrow label connector |
  	p1 := morph1 center.
  	p2 := morph2 center.
  	arrow := PolygonMorph arrowPrototype.
  	arrow
  		borderColor: (TranslucentColor
  				r: 1.0
  				g: 0.3
  				b: 0.0
  				alpha: 0.6).
  	arrow
  		setVertices: (Array with: p1 with: p2).
  	arrow dashedBorder: {30. 30. Color transparent. 0. -10};
  		 startStepping.
  	(Smalltalk
+ 		at: #NCAAConnectorMorph
- 		at: #NCConnectorMorph
  		ifAbsent: [])
+ 		ifNotNil: [connector := NCAAConnectorMorph fromMorph: morph1 toMorph: morph2.
- 		ifNotNil: [connector := NCConnectorMorph fromMorph: morph1 toMorph: morph2.
  			connector line: arrow.
  			connector lock.
  			label := NCLabelMorph new string: aString.
  			label input: morph1.
  			label color: Color red.
  			label openInWorld.
  			arrow := connector].
+ 	arrow openInWorld.
+ 	arrow addAlarm: #delete after: 500.
+ 	label ifNotNil: [label addAlarm: #delete after: 500]
+ !
- 	[arrow openInWorld.
- 	(Delay forMilliseconds: 500) wait.
- 	arrow delete.
- 	label
- 		ifNotNilDo: [:obj | obj delete]] fork!