--- a/UISelectionPanel.st Wed Jun 04 13:31:50 1997 +0200
+++ b/UISelectionPanel.st Wed Jun 04 13:32:25 1997 +0200
@@ -226,90 +226,6 @@
!
-menuComboSpec
- "this window spec was automatically generated by the ST/X UIPainter"
-
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
-
- "
- UIPainter new openOnClass:UISelectionPanel andSelector:#menuComboSpec
- UISelectionPanel new openInterface:#menuComboSpec
- "
-
- <resource: #canvas>
-
- ^
-
- #(#FullSpec
- #'window:'
- #(#WindowSpec
- #'name:' 'uIPainterView'
- #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
- #'label:' 'unnamed'
- #'bounds:' #(#Rectangle 0 0 464 253)
- )
- #'component:'
- #(#SpecCollection
- #'collection:'
- #(
- #(#ComboBoxSpec
- #'name:' 'ComboBox'
- #'layout:' #(#LayoutFrame 20 0 20 0 123 0 40 0)
- #'immediateAccept:' false
- #'acceptOnLeave:' true
- #'acceptOnReturn:' true
- #'acceptOnTab:' true
- #'acceptOnLostFocus:' true
- #'hasBorder:' false
- )
- #(#ComboListSpec
- #'name:' 'ComboList'
- #'layout:' #(#LayoutFrame 20 0 51 0 123 0 71 0)
- #'tabable:' false
- )
- #(#PopUpListSpec
- #'name:' 'PopUpList'
- #'layout:' #(#LayoutFrame 145 0 20 0 248 0 42 0)
- #'label:' 'PopUpList'
- )
- #(#MenuPanelSpec
- #'name:' 'MenuPanel'
- #'layout:' #(#LayoutFrame 147 0 67 0 250 0 89 0)
- )
- #(#TabViewSpec
- #'name:' 'TabView'
- #'layout:' #(#LayoutFrame 269 0 20 0 409 0 56 0)
- #'tabWidget:' #Window
- #'direction:' #top
- #'useIndex:' false
- #'fitLastRow:' true
- #'moveSelectedRow:' true
- )
- #(#NoteBookViewSpec
- #'name:' 'noteBookView'
- #'layout:' #(#LayoutFrame 269 0 66 0 409 0 182 0)
- #'tabWidget:' #Window
- #'direction:' #top
- #'useIndex:' false
- #'fitLastRow:' true
- #'moveSelectedRow:' true
- #'level:' 2
- )
- #(#LabelSpec
- #'name:' 'label1'
- #'layout:' #(#LayoutFrame 147 0 51 0 250 0 67 0)
- #'label:' 'MenuPanel'
- #'level:' 0
- #'adjust:' #center
- #'hasCharacterOrientedLabel:' true
- #'canUIDrag:' false
- )
- )
- )
- )
-!
-
panelSpec
"this window spec was automatically generated by the ST/X UIPainter"
@@ -596,6 +512,96 @@
)
)
+! !
+
+!UISelectionPanel class methodsFor:'interface specs'!
+
+menuComboSpec
+ "this window spec was automatically generated by the ST/X UIPainter"
+
+ "do not manually edit this - the painter/builder may not be able to
+ handle the specification if its corrupted."
+
+ "
+ UIPainter new openOnClass:UISelectionPanel andSelector:#menuComboSpec
+ UISelectionPanel new openInterface:#menuComboSpec
+ "
+
+ <resource: #canvas>
+
+ ^
+
+ #(#FullSpec
+ #'window:'
+ #(#WindowSpec
+ #'name:' 'uIPainterView'
+ #'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
+ #'label:' 'unnamed'
+ #'bounds:' #(#Rectangle 0 0 464 253)
+ )
+ #'component:'
+ #(#SpecCollection
+ #'collection:'
+ #(
+ #(#ComboBoxSpec
+ #'name:' 'ComboBox'
+ #'layout:' #(#LayoutFrame 20 0 20 0 123 0 40 0)
+ #'immediateAccept:' false
+ #'acceptOnLeave:' true
+ #'acceptOnReturn:' true
+ #'acceptOnTab:' true
+ #'acceptOnLostFocus:' true
+ #'hasBorder:' false
+ )
+ #(#ComboListSpec
+ #'name:' 'ComboList'
+ #'layout:' #(#LayoutFrame 20 0 51 0 123 0 71 0)
+ #'tabable:' false
+ )
+ #(#PopUpListSpec
+ #'name:' 'PopUpList'
+ #'layout:' #(#LayoutFrame 147 0 20 0 250 0 42 0)
+ #'label:' 'PopUpList'
+ #'useIndex:' false
+ )
+ #(#MenuPanelSpec
+ #'name:' 'MenuPanel'
+ #'layout:' #(#LayoutFrame 147 0 67 0 250 0 89 0)
+ #'showSeparatingLines:' false
+ #'verticalLayout:' true
+ #'fitFirstPanel:' true
+ )
+ #(#TabViewSpec
+ #'name:' 'TabView'
+ #'layout:' #(#LayoutFrame 269 0 20 0 409 0 56 0)
+ #'tabWidget:' #Window
+ #'direction:' #top
+ #'useIndex:' false
+ #'fitLastRow:' true
+ #'moveSelectedRow:' true
+ )
+ #(#NoteBookViewSpec
+ #'name:' 'noteBookView'
+ #'layout:' #(#LayoutFrame 269 0 66 0 409 0 182 0)
+ #'tabWidget:' #Window
+ #'direction:' #top
+ #'useIndex:' false
+ #'fitLastRow:' true
+ #'moveSelectedRow:' true
+ #'level:' 2
+ )
+ #(#LabelSpec
+ #'name:' 'label1'
+ #'layout:' #(#LayoutFrame 147 0 51 0 250 0 67 0)
+ #'label:' 'MenuPanel'
+ #'level:' 0
+ #'adjust:' #center
+ #'hasCharacterOrientedLabel:' true
+ #'canUIDrag:' false
+ )
+ )
+ )
+ )
!
textSpec
@@ -612,14 +618,14 @@
<resource: #canvas>
^
-
+
#(#FullSpec
#'window:'
#(#WindowSpec
#'name:' 'uIPainterView'
#'layout:' #(#LayoutFrame 0 0.0 0 0.0 0 1.0 0 1.0)
#'label:' 'unnamed'
- #'bounds:' #(#Rectangle 0 0 573 264)
+ #'bounds:' #(#Rectangle 0 0 467 207)
)
#'component:'
#(#SpecCollection
@@ -627,12 +633,17 @@
#(
#(#InputFieldSpec
#'name:' 'EditField'
- #'layout:' #(#LayoutFrame 20 0 20 0 115 0 42 0)
+ #'layout:' #(#LayoutFrame 222 0 109 0 401 0 131 0)
#'immediateAccept:' true
+ #'acceptOnLeave:' false
+ #'acceptOnReturn:' true
+ #'acceptOnTab:' true
+ #'acceptOnLostFocus:' false
+ #'hasBorder:' false
)
#(#LabelSpec
#'name:' 'Text Label'
- #'layout:' #(#LayoutFrame 20 0 50 0 115 0 66 0)
+ #'layout:' #(#LayoutFrame 222 0 138 0 401 0 160 0)
#'label:' 'Text Label'
#'level:' 0
#'adjust:' #center
@@ -640,56 +651,61 @@
)
#(#TextEditorSpec
#'name:' 'EditTextView'
- #'layout:' #(#LayoutFrame 130 0 20 0 234 0 100 0)
+ #'layout:' #(#LayoutFrame 20 0 13 0 199 0 92 0)
+ #'hasHorizontalScrollBar:' true
+ #'hasVerticalScrollBar:' true
+ #'miniScrollerHorizontal:' false
+ #'miniScrollerVertical:' false
+ )
+ #(#SequenceViewSpec
+ #'name:' 'SelectionInListView'
+ #'layout:' #(#LayoutFrame 222 0 12 0 401 0 91 0)
+ #'tabable:' false
+ #'hasHorizontalScrollBar:' true
+ #'hasVerticalScrollBar:' true
+ #'miniScrollerHorizontal:' false
+ #'miniScrollerVertical:' false
+ #'isMultiSelect:' false
+ #'useIndex:' false
+ )
+ #(#HTMLViewSpec
+ #'name:' 'HTMLView'
+ #'layout:' #(#LayoutFrame 23 0 109 0 202 0 188 0)
#'hasHorizontalScrollBar:' true
#'hasVerticalScrollBar:' true
#'miniScrollerHorizontal:' false
#'miniScrollerVertical:' false
)
- #(#TextEditorSpec
- #'name:' 'EditTextView miniH'
- #'layout:' #(#LayoutFrame 246 0 20 0 350 0 100 0)
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' true
- #'miniScrollerVertical:' false
- )
- #(#SequenceViewSpec
- #'name:' 'SelectionInListView miniH'
- #'layout:' #(#LayoutFrame 246 0 116 0 350 0 196 0)
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' true
- #'miniScrollerVertical:' false
+ #(#LabelSpec
+ #'name:' 'HTMLViewLabel'
+ #'layout:' #(#LayoutFrame 99 0 169 0 164 0 183 0)
+ #'label:' 'HTMLView'
+ #'level:' 0
+ #'adjust:' #center
+ #'hasCharacterOrientedLabel:' true
+ #'canUIDrag:' false
)
- #(#SequenceViewSpec
- #'name:' 'SelectionInListView'
- #'layout:' #(#LayoutFrame 130 0 116 0 234 0 196 0)
- #'hasHorizontalScrollBar:' true
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' false
- #'miniScrollerVertical:' false
+ #(#LabelSpec
+ #'name:' 'label1'
+ #'layout:' #(#LayoutFrame 91 0 73 0 153 0 87 0)
+ #'label:' 'EditText'
+ #'level:' 0
+ #'adjust:' #center
+ #'hasCharacterOrientedLabel:' true
+ #'canUIDrag:' false
)
- #(#TextEditorSpec
- #'name:' 'EditTextView noH'
- #'layout:' #(#LayoutFrame 364 0 20 0 468 0 100 0)
- #'hasHorizontalScrollBar:' false
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' false
- #'miniScrollerVertical:' false
- )
- #(#SequenceViewSpec
- #'name:' 'scrollableView2'
- #'layout:' #(#LayoutFrame 365 0 116 0 469 0 196 0)
- #'hasHorizontalScrollBar:' false
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' false
- #'miniScrollerVertical:' false
+ #(#LabelSpec
+ #'name:' 'label2'
+ #'layout:' #(#LayoutFrame 297 0 73 0 384 0 87 0)
+ #'label:' 'SelectionInList'
+ #'level:' 0
+ #'adjust:' #center
+ #'hasCharacterOrientedLabel:' true
+ #'canUIDrag:' false
)
)
)
)
-
!
viewsSpec
@@ -762,29 +778,10 @@
#'hasCharacterOrientedLabel:' true
#'canUIDrag:' false
)
- #(#HTMLViewSpec
- #'name:' 'HTMLView'
- #'layout:' #(#LayoutFrame 324 0 20 0 449 0 85 0)
- #'hasHorizontalScrollBar:' false
- #'hasVerticalScrollBar:' true
- #'miniScrollerHorizontal:' false
- #'miniScrollerVertical:' false
- )
- #(#LabelSpec
- #'name:' 'HTMLViewLabel'
- #'layout:' #(#LayoutFrame 355 0 25 0 436 0 42 0)
- #'label:' 'HTML View'
- #'level:' 0
- #'adjust:' #center
- #'hasCharacterOrientedLabel:' true
- #'canUIDrag:' false
- )
)
)
)
-! !
-
-!UISelectionPanel class methodsFor:'interface specs'!
+!
windowSpec
"this window spec was automatically generated by the ST/X UIPainter"
@@ -907,6 +904,9 @@
selection:aValue
|spec|
+ (aValue isNil or:[aValue == 0]) ifTrue:[
+ ^ self
+ ].
selection ~~ aValue ifTrue:[
(selection := aValue) notNil ifTrue:[
selectors size >= aValue ifTrue:[
@@ -1235,5 +1235,4 @@
version
^ '$Header$'
-
! !