--- a/UISelectionPanel.st Tue May 12 00:52:42 2009 +0200
+++ b/UISelectionPanel.st Tue May 12 01:42:30 2009 +0200
@@ -1082,7 +1082,7 @@
label: 'Morphs'
name: 'Morphs'
min: (Point 10 10)
- bounds: (Rectangle 0 0 441 218)
+ bounds: (Rectangle 0 0 433 286)
)
component:
(SpecCollection
@@ -1093,143 +1093,81 @@
lineColor: (Color 100.0 0.0 0.0)
)
(ArcMorphSpec
- name: 'Arc1'
+ name: 'FilledCircle'
layout: (LayoutFrame 3 0 70 0 63 0 133 0)
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
- )
- (ArcMorphSpec
- name: 'Arc2'
- layout: (LayoutFrame 3 0 143 0 63 0 206 0)
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
- closePath: true
- )
- (ArcMorphSpec
- name: 'Pie'
- layout: (LayoutFrame 3 0 213 0 63 0 276 0)
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
- pie: true
- )
- (ArcMorphSpec
- name: 'FilledCircle'
- layout: (LayoutFrame 70 0 3 0 133 0 63 0)
foregroundColor: (Color 100.0 100.0 0.0)
fill: true
)
(ArcMorphSpec
- name: 'FilledArc2'
- layout: (LayoutFrame 70 0 143 0 133 0 206 0)
+ name: 'FilledCircleL'
+ layout: (LayoutFrame 3 0 143 0 63 0 206 0)
foregroundColor: (Color 100.0 100.0 0.0)
fill: true
- startAngle: -45
- sweepAngle: 270
- closePath: true
+ lineColor: (Color 100.0 0.0 0.0)
)
- (ArcMorphSpec
- name: 'FilledPie'
- layout: (LayoutFrame 70 0 213 0 133 0 276 0)
+ (RectangleMorphSpec
+ name: 'RectangleMorph1'
+ layout: (LayoutFrame 70 0 3 0 133 0 63 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: false
+ lineColor: (Color 100.0 0.0 0.0)
+ )
+ (RectangleMorphSpec
+ name: 'RectangleMorph2'
+ layout: (LayoutFrame 70 0 72 0 133 0 135 0)
foregroundColor: (Color 100.0 100.0 0.0)
fill: true
- startAngle: -45
- sweepAngle: 270
- pie: true
)
- (ArcMorphSpec
- name: 'FilledCircleL'
- layout: (LayoutFrame 143 0 3 0 206 0 63 0)
+ (RectangleMorphSpec
+ name: 'RectangleMorph3'
+ layout: (LayoutFrame 70 0 139 0 133 0 202 0)
foregroundColor: (Color 100.0 100.0 0.0)
fill: true
lineColor: (Color 100.0 0.0 0.0)
)
(ArcMorphSpec
- name: 'FilledArc1L'
- layout: (LayoutFrame 143 0 70 0 206 0 133 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- fill: true
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
- )
- (ArcMorphSpec
- name: 'FilledArc2L'
+ name: 'FilledPieL'
layout: (LayoutFrame 143 0 143 0 206 0 206 0)
foregroundColor: (Color 100.0 100.0 0.0)
fill: true
lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
- closePath: true
- )
- (ArcMorphSpec
- name: 'FilledPieL'
- layout: (LayoutFrame 143 0 213 0 206 0 276 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- fill: true
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
pie: true
)
(ArcMorphSpec
- name: 'FilledCircleLB'
- layout: (LayoutFrame 213 0 3 0 276 0 63 0)
+ name: 'FilledPie'
+ layout: (LayoutFrame 143 0 70 0 206 0 133 0)
foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
fill: true
- lineColor: (Color 100.0 0.0 0.0)
- )
- (ArcMorphSpec
- name: 'FilledArc1LB'
- layout: (LayoutFrame 213 0 70 0 276 0 133 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
- fill: true
- lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
+ pie: true
)
(ArcMorphSpec
- name: 'FilledArc2LB'
- layout: (LayoutFrame 213 0 143 0 276 0 206 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
- fill: true
- lineColor: (Color 100.0 0.0 0.0)
- startAngle: -45
- sweepAngle: 270
- closePath: true
- )
- (ArcMorphSpec
- name: 'FilledPieLB'
- layout: (LayoutFrame 213 0 213 0 276 0 276 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
- fill: true
+ name: 'Pie'
+ layout: (LayoutFrame 143 0 3 0 206 0 63 0)
lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
pie: true
)
- (RectangleMorphSpec
- name: 'RectangleMorph1'
- layout: (LayoutFrame 283 0 3 0 346 0 63 0)
+ (LineSegmentMorphSpec
+ name: 'Line1'
foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
- fill: false
- lineColor: (Color 100.0 0.0 0.0)
- )
- (RectangleMorphSpec
- name: 'RectangleMorph2'
- layout: (LayoutFrame 283 0 70 0 346 0 130 0)
- foregroundColor: (Color 100.0 100.0 0.0)
- backgroundColor: (Color 0.0 100.0 0.0)
fill: true
lineColor: (Color 100.0 0.0 0.0)
+ startPoint: (Point 225 29)
+ endPoint: (Point 246 53)
+ )
+ (LineSegmentMorphSpec
+ name: 'LineSegmentMorph1'
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
+ lineColor: (Color 100.0 0.0 0.0)
+ startPoint: (Point 213 9)
+ endPoint: (Point 261 32)
+ showArrow: true
)
)