--- a/UISelectionPanel.st Sun May 10 22:49:47 2009 +0200
+++ b/UISelectionPanel.st Sun May 10 22:49:57 2009 +0200
@@ -124,7 +124,7 @@
#('Trees' standardTrees)
#('Groups' standardGroups)
#('Embed' standardEmbed)
-"/ #('Geometric' standardMorphs1)
+ #('Geometric' standardMorphs1)
#('Misc' standardMisc)
)
)
@@ -1090,19 +1090,19 @@
(ArcMorphSpec
name: 'Circle'
layout: (LayoutFrame 3 0 3 0 63 0 63 0)
- lineColor: (Color 100.0 0 0)
+ lineColor: (Color 100.0 0.0 0.0)
)
(ArcMorphSpec
name: 'Arc1'
layout: (LayoutFrame 3 0 70 0 63 0 133 0)
- lineColor: (Color 100.0 0 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)
+ lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
closePath: true
@@ -1110,123 +1110,127 @@
(ArcMorphSpec
name: 'Pie'
layout: (LayoutFrame 3 0 213 0 63 0 276 0)
- lineColor: (Color 100.0 0 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)
+ foregroundColor: (Color 100.0 100.0 0.0)
fill: true
)
-"/ (ArcMorphSpec
-"/ name: 'FilledArc1'
-"/ layout: (LayoutFrame 70 0 70 0 133 0 133 0)
-"/ foregroundColor: (Color 100.0 100.0 0)
-"/ startAngle: -45
-"/ sweepAngle: 270
-"/ fill: true
-"/ )
(ArcMorphSpec
name: 'FilledArc2'
layout: (LayoutFrame 70 0 143 0 133 0 206 0)
- foregroundColor: (Color 100.0 100.0 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
startAngle: -45
sweepAngle: 270
- fill: true
closePath: true
)
(ArcMorphSpec
name: 'FilledPie'
layout: (LayoutFrame 70 0 213 0 133 0 276 0)
- foregroundColor: (Color 100.0 100.0 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
startAngle: -45
sweepAngle: 270
- fill: true
pie: true
)
-
(ArcMorphSpec
name: 'FilledCircleL'
layout: (LayoutFrame 143 0 3 0 206 0 63 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 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)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
+ lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
- fill: true
)
(ArcMorphSpec
name: 'FilledArc2L'
layout: (LayoutFrame 143 0 143 0 206 0 206 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
+ lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
- fill: true
closePath: true
)
(ArcMorphSpec
name: 'FilledPieL'
layout: (LayoutFrame 143 0 213 0 206 0 276 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
+ foregroundColor: (Color 100.0 100.0 0.0)
+ fill: true
+ lineColor: (Color 100.0 0.0 0.0)
startAngle: -45
sweepAngle: 270
- fill: true
pie: true
)
-
(ArcMorphSpec
name: 'FilledCircleLB'
layout: (LayoutFrame 213 0 3 0 276 0 63 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
- backgroundColor: (Color 0 100.0 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)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
- backgroundColor: (Color 0 100.0 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
- fill: true
)
(ArcMorphSpec
name: 'FilledArc2LB'
layout: (LayoutFrame 213 0 143 0 276 0 206 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
- backgroundColor: (Color 0 100.0 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
- fill: true
closePath: true
)
(ArcMorphSpec
name: 'FilledPieLB'
layout: (LayoutFrame 213 0 213 0 276 0 276 0)
- lineColor: (Color 100.0 0 0)
- foregroundColor: (Color 100.0 100.0 0)
- backgroundColor: (Color 0 100.0 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
- fill: true
pie: true
)
-
+ (RectangleMorphSpec
+ name: 'RectangleMorph1'
+ layout: (LayoutFrame 283 0 3 0 346 0 63 0)
+ 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)
+ )
)
)