--- 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.
'
!