--- a/UISelectionPanel.st Fri Jan 11 12:42:47 2008 +0100
+++ b/UISelectionPanel.st Fri Jan 11 12:43:02 2008 +0100
@@ -137,220 +137,7 @@
^ UserDefinedGallery
! !
-!UISelectionPanel class methodsFor:'interface specs'!
-
-nameAndSelectorSpec
- "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:#nameAndSelectorSpec
- UISelectionPanel new openInterface:#nameAndSelectorSpec
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: nameAndSelectorSpec
- window:
- (WindowSpec
- label: 'Painter'
- name: 'Painter'
- min: (Point 10 10)
- bounds: (Rectangle 14 46 329 262)
- )
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Class & selectors to access user specs:'
- name: 'title'
- layout: (Point 5 10)
- resizeForLabel: true
- adjust: left
- )
- (LabelSpec
- label: 'Class:'
- name: 'classLabel'
- layout: (AlignmentOrigin 68 0.11 51 0 1 0.5)
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'classField'
- layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
- tabable: true
- model: className
- type: string
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Labels:'
- name: 'labelsLabel'
- layout: (AlignmentOrigin 68 0.11 74 0 1 0.5)
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'labelsField'
- layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
- tabable: true
- model: labelsKey
- type: symbolOrNil
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Specifications:'
- name: 'specsLabel'
- layout: (AlignmentOrigin 68 0.11 99 0 1 0.5)
- resizeForLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'specsField'
- layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
- tabable: true
- model: specsKey
- type: symbolOrNil
- acceptOnPointerLeave: false
- )
- (HorizontalPanelViewSpec
- name: 'commitPanel'
- layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
- horizontalLayout: fitSpace
- verticalLayout: fit
- horizontalSpace: 3
- verticalSpace: 3
- reverseOrderIfOKAtLeft: true
- component:
- (SpecCollection
- collection: (
- (ActionButtonSpec
- label: 'cancel'
- name: 'cancel'
- tabable: true
- model: cancel
- extent: (Point 153 23)
- )
- (ActionButtonSpec
- label: 'ok'
- name: 'accept'
- tabable: true
- model: accept
- isDefault: true
- extent: (Point 153 23)
- )
- )
-
- )
- )
- (CheckBoxSpec
- label: 'Update Default Resources'
- name: 'updateDefaultResources'
- layout: (Point 5 133)
- model: updateDefaultResources
- )
- )
-
- )
- )
-!
-
-windowSpec
- "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:#windowSpec
- UISelectionPanel new openInterface:#windowSpec
- UISelectionPanel open
- "
-
- <resource: #canvas>
-
- ^
- #(FullSpec
- name: windowSpec
- window:
- (WindowSpec
- label: 'Widget Gallery'
- name: 'Widget Gallery'
- min: (Point 100 280)
- bounds: (Rectangle 14 46 508 348)
- )
- component:
- (SpecCollection
- collection: (
- (NoteBookViewSpec
- name: 'NoteBook1'
- layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- model: majorChannel
- menu: majorList
- direction: right
- useIndex: true
- canvas: gallery
- )
- )
-
- )
- )
-! !
-
-!UISelectionPanel class methodsFor:'menus'!
-
-menuSelected
-
- <resource: #menu>
-
- ^ #(#Menu #(
- #(#MenuItem
- #'label:' 'copy'
- #'value:' #copy
- )
- #(#MenuItem
- #'label:' 'cut'
- #'value:' #cut
- )
- )
- nil
- nil
- )
-
- "Modified: / 29.10.1997 / 03:20:30 / cg"
-!
-
-menuUnselected
- <resource: #menu>
-
- ^ #(#Menu #(
- #(#MenuItem
- #'label:' 'paste'
- #'value:' #paste
- )
- )
- nil
- nil
- )
-
- "Modified: / 29.10.1997 / 03:20:38 / cg"
-! !
-
-!UISelectionPanel class methodsFor:'resources'!
-
-classResources
- "my translations are found in the UIPainter classes resources"
-
- ^ UIPainter classResources
-! !
-
-!UISelectionPanel class methodsFor:'standard specifications'!
+!UISelectionPanel class methodsFor:'interface - standard specifications'!
standardButtons
"This resource specification was automatically generated
@@ -1429,6 +1216,219 @@
)
! !
+!UISelectionPanel class methodsFor:'interface specs'!
+
+nameAndSelectorSpec
+ "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:#nameAndSelectorSpec
+ UISelectionPanel new openInterface:#nameAndSelectorSpec
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: nameAndSelectorSpec
+ window:
+ (WindowSpec
+ label: 'Painter'
+ name: 'Painter'
+ min: (Point 10 10)
+ bounds: (Rectangle 14 46 329 262)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Class & selectors to access user specs:'
+ name: 'title'
+ layout: (Point 5 10)
+ resizeForLabel: true
+ adjust: left
+ )
+ (LabelSpec
+ label: 'Class:'
+ name: 'classLabel'
+ layout: (AlignmentOrigin 68 0.11 51 0 1 0.5)
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'classField'
+ layout: (LayoutFrame 74 0.11 39 0 -5 1.0 61 0)
+ tabable: true
+ model: className
+ type: string
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Labels:'
+ name: 'labelsLabel'
+ layout: (AlignmentOrigin 68 0.11 74 0 1 0.5)
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'labelsField'
+ layout: (LayoutFrame 74 0.11 64 0 -5 1.0 86 0)
+ tabable: true
+ model: labelsKey
+ type: symbolOrNil
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Specifications:'
+ name: 'specsLabel'
+ layout: (AlignmentOrigin 68 0.11 99 0 1 0.5)
+ resizeForLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'specsField'
+ layout: (LayoutFrame 74 0.11 89 0 -5 1.0 111 0)
+ tabable: true
+ model: specsKey
+ type: symbolOrNil
+ acceptOnPointerLeave: false
+ )
+ (HorizontalPanelViewSpec
+ name: 'commitPanel'
+ layout: (LayoutFrame 0 0.0 -23 1.0 0 1.0 0 1.0)
+ horizontalLayout: fitSpace
+ verticalLayout: fit
+ horizontalSpace: 3
+ verticalSpace: 3
+ reverseOrderIfOKAtLeft: true
+ component:
+ (SpecCollection
+ collection: (
+ (ActionButtonSpec
+ label: 'cancel'
+ name: 'cancel'
+ tabable: true
+ model: cancel
+ extent: (Point 153 23)
+ )
+ (ActionButtonSpec
+ label: 'ok'
+ name: 'accept'
+ tabable: true
+ model: accept
+ isDefault: true
+ extent: (Point 153 23)
+ )
+ )
+
+ )
+ )
+ (CheckBoxSpec
+ label: 'Update Default Resources'
+ name: 'updateDefaultResources'
+ layout: (Point 5 133)
+ model: updateDefaultResources
+ )
+ )
+
+ )
+ )
+!
+
+windowSpec
+ "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:#windowSpec
+ UISelectionPanel new openInterface:#windowSpec
+ UISelectionPanel open
+ "
+
+ <resource: #canvas>
+
+ ^
+ #(FullSpec
+ name: windowSpec
+ window:
+ (WindowSpec
+ label: 'Widget Gallery'
+ name: 'Widget Gallery'
+ min: (Point 100 280)
+ bounds: (Rectangle 14 46 508 348)
+ )
+ component:
+ (SpecCollection
+ collection: (
+ (NoteBookViewSpec
+ name: 'NoteBook1'
+ layout: (LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ model: majorChannel
+ menu: majorList
+ direction: right
+ useIndex: true
+ canvas: gallery
+ )
+ )
+
+ )
+ )
+! !
+
+!UISelectionPanel class methodsFor:'menus'!
+
+menuSelected
+
+ <resource: #menu>
+
+ ^ #(#Menu #(
+ #(#MenuItem
+ #'label:' 'copy'
+ #'value:' #copy
+ )
+ #(#MenuItem
+ #'label:' 'cut'
+ #'value:' #cut
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 29.10.1997 / 03:20:30 / cg"
+!
+
+menuUnselected
+ <resource: #menu>
+
+ ^ #(#Menu #(
+ #(#MenuItem
+ #'label:' 'paste'
+ #'value:' #paste
+ )
+ )
+ nil
+ nil
+ )
+
+ "Modified: / 29.10.1997 / 03:20:38 / cg"
+! !
+
+!UISelectionPanel class methodsFor:'resources'!
+
+classResources
+ "my translations are found in the UIPainter classes resources"
+
+ ^ UIPainter classResources
+! !
+
!UISelectionPanel methodsFor:'actions'!
defineClassAndSelector