diff -r ead2b25a2c63 -r fa59e48fc502 UISelectionPanel.st
--- a/UISelectionPanel.st	Fri May 08 13:53:41 2009 +0200
+++ b/UISelectionPanel.st	Fri May 08 16:06:02 2009 +0200
@@ -1088,21 +1088,145 @@
        (SpecCollection
           collection: (
            (ArcMorphSpec
-              name: 'Arc'
-              layout: (LayoutFrame 2 0 3 0 80 0 80 0)
+              name: 'Circle'
+              layout: (LayoutFrame 3 0 3 0 63 0 63 0)
+              lineColor: (Color 100.0 0 0)
+            )
+           (ArcMorphSpec
+              name: 'Arc1'
+              layout: (LayoutFrame 3 0 70 0 63 0 133 0)
+              lineColor: (Color 100.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)
+              startAngle: -45
+              sweepAngle: 270
+              closePath: true
             )
            (ArcMorphSpec
-              name: 'Circle'
-              layout: (LayoutFrame 84 0 3 0 163 0 80 0)
+              name: 'Pie'
+              layout: (LayoutFrame 3 0 213 0 63 0 276 0)
+              lineColor: (Color 100.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)
+              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)
+              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)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+              pie: true
+            )
+
+           (ArcMorphSpec
+              name: 'FilledCircle'
+              layout: (LayoutFrame 143 0 3 0 206 0 63 0)
+              lineColor: (Color 100.0 0 0)
+              foregroundColor: (Color 100.0 100.0 0)
+              fill: true
             )
            (ArcMorphSpec
-              name: 'FilledArc'
-              layout: (LayoutFrame 168 0 3 0 247 0 80 0)
+              name: 'FilledArc1'
+              layout: (LayoutFrame 143 0 70 0 206 0 133 0)
+              lineColor: (Color 100.0 0 0)
+              foregroundColor: (Color 100.0 100.0 0)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+            )
+           (ArcMorphSpec
+              name: 'FilledArc2'
+              layout: (LayoutFrame 143 0 143 0 206 0 206 0)
+              lineColor: (Color 100.0 0 0)
+              foregroundColor: (Color 100.0 100.0 0)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+              closePath: true
             )
            (ArcMorphSpec
+              name: 'FilledPie'
+              layout: (LayoutFrame 143 0 213 0 206 0 276 0)
+              lineColor: (Color 100.0 0 0)
+              foregroundColor: (Color 100.0 100.0 0)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+              pie: true
+            )
+
+           (ArcMorphSpec
               name: 'FilledCircle'
-              layout: (LayoutFrame 251 0 3 0 330 0 80 0)
+              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)
+              fill: true
+            )
+           (ArcMorphSpec
+              name: 'FilledArc1'
+              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)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
             )
+           (ArcMorphSpec
+              name: 'FilledArc2'
+              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)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+              closePath: true
+            )
+           (ArcMorphSpec
+              name: 'FilledPie'
+              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)
+              startAngle: -45
+              sweepAngle: 270
+              fill: true
+              pie: true
+            )
+
            )
          
         )