diff -r 212bc7e46765 -r 9987c25de0f9 UISelectionPanel.st
--- 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'!