diff -r 7dde3777813a -r 00fa8c2e3329 MenuEditor.st
--- a/MenuEditor.st	Sat May 05 08:11:16 2001 +0200
+++ b/MenuEditor.st	Sun May 06 12:53:41 2001 +0200
@@ -288,12 +288,6 @@
 #hideMenuOnActivated
 'If on, the menu hides itself after an item was activated'
 
-#triggerOnDown
-'If on, the items action is performed on mouse-button press (default is on button-release)'
-
-#showBusyCursorWhilePerforming
-'If on, a busy cursor is shown while an items action is performed'
-
 #imageImageAndLabel
 'Toggles display of both image and textual label.'
 
@@ -312,6 +306,12 @@
 #keepLinkedMenu
 'Keep the linked menu after activation (do not destroy)'
 
+#showBusyCursorWhilePerforming
+'If on, a busy cursor is shown while an items action is performed'
+
+#triggerOnDown
+'If on, the items action is performed on mouse-button press (default is on button-release)'
+
 )
 ! !
 
@@ -1191,7 +1191,7 @@
           #name: 'Image Item'
           #min: #(#Point 10 10)
           #max: #(#Point 1280 1024)
-          #bounds: #(#Rectangle 707 147 995 442)
+          #bounds: #(#Rectangle 12 22 300 317)
         )
         #component: 
        #(#SpecCollection
@@ -1247,8 +1247,8 @@
               #tabable: true
               #model: #doBrowseForImageResource
             )
-           #(#SequenceViewSpec
-              #name: 'systemOrUserImagesList'
+           #(#SelectionInListModelViewSpec
+              #name: 'selectionOfImage'
               #layout: #(#LayoutFrame 20 0.0 67 0 -20 1.0 -30 1.0)
               #activeHelpKey: #imageImageList
               #tabable: true
@@ -1257,10 +1257,11 @@
               #hasHorizontalScrollBar: true
               #hasVerticalScrollBar: true
               #miniScrollerHorizontal: true
+              #listModel: #listOfImages
+              #useIndex: false
+              #highlightMode: #line
               #doubleClickSelector: #doEditImage
               #valueChangeSelector: #imageSelected
-              #useIndex: false
-              #sequenceList: #listOfImages
             )
            #(#ViewSpec
               #name: 'Box1'
@@ -2229,8 +2230,8 @@
                 newList := self class getAllImageSelectorsFrom:cls.
                 newList := newList collect: [:sel| |img| 
                                 img := cls perform: sel. 
-                                img height > 22 ifTrue:[
-                                    img := img magnifiedBy: 22 / img extent y
+                                img height > 32 ifTrue:[
+                                    img := img magnifiedBy: 32 / img extent y
                                 ].
                                 LabelAndIcon icon:img string:sel
                            ].