*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 12 May 2009 01:42:30 +0200
changeset 2517 0b6a4dedf64b
parent 2516 6c0bc4ed2d88
child 2518 41bacafffaa3
*** empty log message ***
UISelectionPanel.st
--- 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
             )
            )