add Extended ComboBox
authorClaus Gittinger <cg@exept.de>
Fri, 05 Mar 1999 16:56:53 +0100
changeset 1044 e63478a6e668
parent 1043 8414736f8846
child 1045 c387bcacdf37
add Extended ComboBox
UISelectionPanel.st
--- a/UISelectionPanel.st	Sun Feb 28 18:15:01 1999 +0100
+++ b/UISelectionPanel.st	Fri Mar 05 16:56:53 1999 +0100
@@ -13,17 +13,17 @@
 
 
 ApplicationModel subclass:#UISelectionPanel
-        instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
-        classVariableNames:'UserClass UserSpecs UserLabels'
-        poolDictionaries:''
-        category:'Interface-UIPainter'
+	instanceVariableNames:'userClass userSpecs userLabels majorSelection clipBoardSpec'
+	classVariableNames:'UserClass UserSpecs UserLabels'
+	poolDictionaries:''
+	category:'Interface-UIPainter'
 !
 
 Object subclass:#UserDefinedGallery
-        instanceVariableNames:''
-        classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
-        poolDictionaries:''
-        privateIn:UISelectionPanel
+	instanceVariableNames:''
+	classVariableNames:'LabelList SelectorList HolderList NextUniqueNumber'
+	poolDictionaries:''
+	privateIn:UISelectionPanel
 !
 
 !UISelectionPanel class methodsFor:'documentation'!
@@ -926,11 +926,12 @@
           #window: 
            #(#WindowSpec
               #name: 'Menus'
-              #layout: #(#LayoutFrame 216 0 173 0 692 0 395 0)
+              #layout: #(#LayoutFrame 110 0 120 0 586 0 342 0)
+              #level: 0
               #label: 'Menus'
               #min: #(#Point 10 10)
               #max: #(#Point 1280 1024)
-              #bounds: #(#Rectangle 216 173 693 396)
+              #bounds: #(#Rectangle 110 120 587 343)
               #usePreferredExtent: false
           )
           #component: 
@@ -939,29 +940,29 @@
                #(
                  #(#MenuPanelSpec
                     #name: 'Tool Bar'
-                    #layout: #(#LayoutFrame 15 0 123 0 140 0 155 0)
+                    #layout: #(#LayoutFrame 15 0 146 0 140 0 178 0)
                     #textDefault: true
                 )
                  #(#LabelSpec
                     #name: 'ToolBarLabel'
-                    #layout: #(#AlignmentOrigin 15 0 123 0 0 1)
+                    #layout: #(#AlignmentOrigin 15 0 146 0 0 1)
                     #label: 'Tool Bar'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
                  #(#MenuPanelSpec
                     #name: 'Menu Bar'
-                    #layout: #(#LayoutFrame 15 0 181 0 140 0 203 0)
+                    #layout: #(#LayoutFrame 15 0 196 0 140 0 218 0)
                 )
                  #(#LabelSpec
                     #name: 'MenuBarLabel'
-                    #layout: #(#AlignmentOrigin 15 0 181 0 0 1)
+                    #layout: #(#AlignmentOrigin 15 0 195 0 0 1)
                     #label: 'Menu Bar'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
                  #(#PopUpListSpec
@@ -980,8 +981,8 @@
                     #layout: #(#AlignmentOrigin 17 0 65 0 0 1)
                     #label: 'Combo List'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
                  #(#ComboBoxSpec
@@ -993,8 +994,22 @@
                     #layout: #(#AlignmentOrigin 17 0 93 0 0 1)
                     #label: 'Combo Box'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
+                    #canUIDrag: false
+                )
+                 #(#ExtendedComboBoxSpec
+                    #name: 'Extended Combo Box'
+                    #layout: #(#LayoutFrame 15 0 100 0 140 0 120 0)
+                    #adjustRight: true
+                )
+                 #(#LabelSpec
+                    #name: 'ExtendedComboBoxLabel'
+                    #layout: #(#AlignmentOrigin 18 0 120 0 0 1)
+                    #label: 'Extended Combo'
+                    #style: #(#FontDescription #helvetica #medium #roman 10)
                     #resizeForLabel: true
+                    #adjust: #left
                     #canUIDrag: false
                 )
                  #(#TabViewSpec
@@ -1006,8 +1021,8 @@
                     #layout: #(#Point 160 33)
                     #label: 'Tab Header'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
                  #(#NoteBookViewSpec
@@ -1019,8 +1034,8 @@
                     #layout: #(#Point 161 132)
                     #label: 'Note Book'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
                  #(#UIGalleryViewSpec
@@ -1032,15 +1047,13 @@
                     #layout: #(#Point 313 132)
                     #label: 'Gallery'
                     #style: #(#FontDescription #helvetica #medium #roman 10)
+                    #resizeForLabel: true
                     #adjust: #left
-                    #resizeForLabel: true
                     #canUIDrag: false
                 )
               )
           )
       )
-
-    "Modified: / 6.6.1998 / 16:54:56 / cg"
 !
 
 standardMisc