--- 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
].