--- a/UISelectionPanel.st Tue Apr 21 17:37:27 1998 +0200
+++ b/UISelectionPanel.st Tue Apr 21 18:46:12 1998 +0200
@@ -82,10 +82,10 @@
specifications
^ #(
- #( 'Standards' #(
+ #( 'Standard' #(
#('Buttons' standardButtons)
#('Menus' standardMenus)
- #('Texts' standardTexts)
+ #('Text' standardTexts)
#('Lists' standardLists)
#('Groups' standardGroups)
#('Misc' standardMisc)
@@ -99,6 +99,8 @@
#( 'User Def.' #userDefined )
)
+
+ "Modified: / 21.4.1998 / 12:04:22 / cg"
!
userClass
@@ -373,11 +375,11 @@
#window:
#(#WindowSpec
#name: 'Buttons'
- #layout: #(#LayoutFrame 141 0 235 0 619 0 438 0)
+ #layout: #(#LayoutFrame 216 0 173 0 694 0 376 0)
#label: 'Buttons'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 141 235 620 439)
+ #bounds: #(#Rectangle 216 173 695 377)
#usePreferredExtent: false
)
#component:
@@ -434,16 +436,15 @@
)
#(#CheckToggleSpec
#name: 'Check Toggle'
- #layout: #(#LayoutFrame 157 0 111 0 176 0 130 0)
+ #layout: #(#LayoutOrigin 157 0 113 0)
#isTriggerOnDown: true
#showLamp: false
#lampColor: #(#Color 100.0 100.0 0.0)
)
#(#LabelSpec
#name: 'CheckToggleLabel'
- #layout: #(#AlignmentOrigin 182 0 115 0 0 0)
+ #layout: #(#AlignmentOrigin 180 0 112 0 0 0)
#label: 'Check Toggle'
- #style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
#resizeForLabel: true
#canUIDrag: false
@@ -455,9 +456,8 @@
)
#(#LabelSpec
#name: 'UpDownButtonLabel'
- #layout: #(#AlignmentOrigin 361 0 54 0 0 0)
- #label: 'UpDown Button'
- #style: #(#FontDescription #helvetica #medium #roman 10)
+ #layout: #(#AlignmentOrigin 361 0 49 0 0 0)
+ #label: 'Spin Button'
#adjust: #left
#resizeForLabel: true
#canUIDrag: false
@@ -469,9 +469,8 @@
)
#(#LabelSpec
#name: 'ArrowButtonsLabel'
- #layout: #(#AlignmentOrigin 361 0 86 0 0 0)
+ #layout: #(#AlignmentOrigin 361 0 83 0 0 0)
#label: 'Arrow Button'
- #style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
#resizeForLabel: true
#canUIDrag: false
@@ -485,6 +484,8 @@
)
)
)
+
+ "Modified: / 21.4.1998 / 13:03:11 / cg"
!
standardGraphs
@@ -916,11 +917,11 @@
#window:
#(#WindowSpec
#name: 'Menus'
- #layout: #(#LayoutFrame 56 0 405 0 532 0 594 0)
+ #layout: #(#LayoutFrame 216 0 173 0 692 0 362 0)
#label: 'Menus'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 56 405 533 595)
+ #bounds: #(#Rectangle 216 173 693 363)
#usePreferredExtent: false
)
#component:
@@ -933,7 +934,7 @@
)
#(#LabelSpec
#name: 'ToolBarLabel'
- #layout: #(#LayoutFrame 15 0 15 0 56 0 30 0)
+ #layout: #(#AlignmentOrigin 15 0 30 0 0 1)
#label: 'Tool Bar'
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
@@ -944,7 +945,6 @@
#name: 'PopUp List'
#layout: #(#LayoutFrame 15 0 72 0 140 0 94 0)
#label: 'PopUp List'
- #style: #(#FontDescription #helvetica #medium #roman 10)
#useIndex: false
)
#(#ComboListSpec
@@ -954,7 +954,7 @@
)
#(#LabelSpec
#name: 'ComboListLabel'
- #layout: #(#LayoutFrame 17 0 104 0 79 0 122 0)
+ #layout: #(#AlignmentOrigin 17 0 124 0 0 1)
#label: 'Combo List'
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
@@ -967,7 +967,7 @@
)
#(#LabelSpec
#name: 'ComboBoxLabel'
- #layout: #(#LayoutFrame 17 0 132 0 79 0 150 0)
+ #layout: #(#AlignmentOrigin 17 0 150 0 0 1)
#label: 'Combo Box'
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
@@ -1016,6 +1016,8 @@
)
)
)
+
+ "Modified: / 21.4.1998 / 13:50:08 / cg"
!
standardMisc
@@ -1180,10 +1182,11 @@
!
standardTexts
- "this window spec was automatically generated by the ST/X UIPainter"
+ "This resource specification was automatically generated
+ by the UIPainter of ST/X."
- "do not manually edit this - the painter/builder may not be able to
- handle the specification if its corrupted."
+ "Do not manually edit this!! If it is corrupted,
+ the UIPainter may not be able to read the specification."
"
UIPainter new openOnClass:UISelectionPanel andSelector:#standardTexts
@@ -1198,11 +1201,11 @@
#window:
#(#WindowSpec
#name: 'Texts'
- #layout: #(#LayoutFrame 147 0 281 0 613 0 487 0)
+ #layout: #(#LayoutFrame 216 0 173 0 682 0 379 0)
#label: 'Texts'
#min: #(#Point 10 10)
#max: #(#Point 1280 1024)
- #bounds: #(#Rectangle 147 281 614 488)
+ #bounds: #(#Rectangle 216 173 683 380)
#usePreferredExtent: false
)
#component:
@@ -1245,7 +1248,7 @@
)
#(#LabelSpec
#name: 'EntryFieldLabel'
- #layout: #(#LayoutFrame 53 0 127 0 106 0 147 0)
+ #layout: #(#AlignmentOrigin 53 0 147 0 0 1)
#label: 'Entry Field'
#style: #(#FontDescription #helvetica #medium #roman 10)
#adjust: #left
@@ -1260,6 +1263,8 @@
)
)
)
+
+ "Modified: / 21.4.1998 / 18:42:30 / cg"
!
standardUserPanel
@@ -1564,13 +1569,15 @@
!
majorSelection:aSelection
- |spec gallery|
+ |spec g gallery|
(majorSelection == aSelection or:[aSelection == 0]) ifTrue:[
^ self
].
- (self builder componentAt:#gallery) builder:nil.
+ (g := self builder componentAt:#gallery) notNil ifTrue:[
+ g builder:nil.
+ ].
majorSelection := aSelection.
spec := ((self class specifications) at:majorSelection) last.
@@ -1587,7 +1594,7 @@
].
gallery value:1.
-
+ "Modified: / 21.4.1998 / 11:59:08 / cg"
! !
!UISelectionPanel methodsFor:'startup / release'!