diff -r 2d43dbc0e86c -r b85f4799add5 UISelectionPanel.st
--- 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)
+            )
            )
          
         )