Etoys Inbox: Skeleton-kfr.4.mcz

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@0) to: (Morph  
  new position: 200@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!

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