UISelectionPanel.st
changeset 2486 a5d389685ab7
parent 2476 a8dbbb7aa571
child 2487 1bd0d0b7671c
--- a/UISelectionPanel.st	Tue Mar 31 06:34:49 2009 +0200
+++ b/UISelectionPanel.st	Wed May 06 09:08:14 2009 +0200
@@ -78,32 +78,6 @@
 
 !UISelectionPanel class methodsFor:'accessing'!
 
-specifications
-
-    ^ #(
-        #( 'Standard'  #( 
-                            #('Buttons' standardButtons)
-                            #('Menus'   standardMenus)
-                            #('Text'    standardTexts)
-                            #('Lists'   standardLists)
-                            #('Trees'   standardTrees)
-                            #('Groups'  standardGroups)
-                            #('Embed'   standardEmbed)
-                            #('Misc'    standardMisc)
-                         )
-         )
-
-        #( 'Clipboard'  #(
-                            #('Copy & Paste Buffer'     clipBoardSpec)
-                          )
-         )
-
-        #( 'User Def.'   #userDefined )
-     )
-
-    "Modified: / 21.4.1998 / 12:04:22 / cg"
-!
-
 userClass
     "return the class which provides the user defined gallery specs."
 
@@ -139,6 +113,33 @@
 
 !UISelectionPanel class methodsFor:'interface - standard specifications'!
 
+specifications
+
+    ^ #(
+        #( 'Standard'  #( 
+                            #('Buttons' standardButtons)
+                            #('Menus'   standardMenus)
+                            #('Text'    standardTexts)
+                            #('Lists'   standardLists)
+                            #('Trees'   standardTrees)
+                            #('Groups'  standardGroups)
+                            #('Embed'       standardEmbed)
+                            #('Geometric'   standardMorphs1)
+                            #('Misc'    standardMisc)
+                         )
+         )
+
+        #( 'Clipboard'  #(
+                            #('Copy & Paste Buffer'     clipBoardSpec)
+                          )
+         )
+
+        #( 'User Def.'   #userDefined )
+     )
+
+    "Modified: / 21.4.1998 / 12:04:22 / cg"
+!
+
 standardButtons
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
@@ -1059,6 +1060,55 @@
       )
 !
 
+standardMorphs1
+    "This resource specification was automatically generated
+     by the UIPainter of ST/X."
+
+    "Do not manually edit this!! If it is corrupted,
+     the UIPainter may not be able to read the specification."
+
+    "
+     UIPainter new openOnClass:UISelectionPanel andSelector:#standardMorphs1
+     UISelectionPanel new openInterface:#standardMorphs1
+    "
+
+    <resource: #canvas>
+
+    ^ 
+     #(FullSpec
+        name: standardMorphs1
+        window: 
+       (WindowSpec
+          label: 'Morphs'
+          name: 'Morphs'
+          min: (Point 10 10)
+          bounds: (Rectangle 0 0 441 218)
+        )
+        component: 
+       (SpecCollection
+          collection: (
+           (ArcMorphSpec
+              name: 'Arc'
+              layout: (LayoutFrame 2 0 3 0 80 0 80 0)
+            )
+           (ArcMorphSpec
+              name: 'Circle'
+              layout: (LayoutFrame 84 0 3 0 163 0 80 0)
+            )
+           (ArcMorphSpec
+              name: 'FilledArc'
+              layout: (LayoutFrame 168 0 3 0 247 0 80 0)
+            )
+           (ArcMorphSpec
+              name: 'FilledCircle'
+              layout: (LayoutFrame 251 0 3 0 330 0 80 0)
+            )
+           )
+         
+        )
+      )
+!
+
 standardTexts
     "This resource specification was automatically generated
      by the UIPainter of ST/X."
@@ -1471,8 +1521,8 @@
 !
 
 paste:something
-    "paste something at a point
-    "
+    "paste something at a point"
+
     |coll specs point device ext spec|
 
     clipBoardSpec isNil ifTrue:[
@@ -1508,8 +1558,8 @@
 !
 
 raiseMenu
-    "can open menu
-    "
+    "can open menu"
+
     |spec menu value paste|
 
     spec := self clientSpec value.
@@ -1570,8 +1620,6 @@
 !
 
 majorChannel
-    "automatically generated by UIPainter ..."
-
     |holder|
 
     (holder := builder bindingAt:#majorChannel) isNil ifTrue:[
@@ -1582,9 +1630,7 @@
 !
 
 majorList
-    "automatically generated by UIPainter ...
-    "
-  ^ self class specifications collect:[:el| el first]
+    ^ self class specifications collect:[:el| el first]
 !
 
 minorKeys
@@ -1594,8 +1640,8 @@
 !UISelectionPanel methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
-    "one of my models changed its value
-    "
+    "one of my models changed its value"
+
     |label|
 
     changedObject == self clientSpec  ifTrue:[
@@ -1667,8 +1713,8 @@
 !UISelectionPanel methodsFor:'queries'!
 
 canPaste:something
-    "returns true if something could be paste
-    "
+    "returns true if something could be paste"
+
     (self isClipBoard and:[something notNil]) ifTrue:[
         something isCollection ifTrue:[
             something notEmpty ifTrue:[
@@ -1679,25 +1725,24 @@
         ]
     ].
     ^ false
-
 !
 
 isClipBoard
-    "returns true if current view is clip board
-    "
+    "returns true if current view is clip board"
+
     majorSelection ~~ 0 ifTrue:[
         ^ (self majorList at:majorSelection) startsWith:'Clip'
     ].
-  ^ false
+    ^ false
 !
 
 isUserBoard
-    "returns true if current view is clip board
-    "
+    "returns true if current view is clip board"
+
     majorSelection ~~ 0 ifTrue:[
         ^ (self majorList at:majorSelection) startsWith:'User'
     ].
-  ^ false
+    ^ false
 ! !
 
 !UISelectionPanel methodsFor:'selection'!
@@ -1779,7 +1824,7 @@
 
 ^ '
 no user defined specifications are configured yet. To assign
-user defined specifications to the gallery press the middle
+user defined specifications to the gallery, press the middle
 button of your mouse to open a dialog.
 '
 !