--- a/MenuEditor.st Tue Feb 06 19:49:17 2007 +0100
+++ b/MenuEditor.st Tue Feb 06 19:49:21 2007 +0100
@@ -476,6 +476,12 @@
!MenuEditor class methodsFor:'image specs'!
+defaultIcon
+ <resource: #programImage>
+
+ ^ ToolbarIconLibrary startMenuEditorIcon
+!
+
iconUnknown
"returns an image used for picked items containing an image
"
@@ -511,6 +517,7 @@
min: (Point 550 385)
bounds: (Rectangle 0 0 574 473)
menu: menu
+ icon: defaultIcon
returnIsOKInDialog: false
escapeIsCancelInDialog: false
)
@@ -548,14 +555,14 @@
indicatorSelector: indicatorClickedAt:
properties:
(PropertyListDictionary
- leaveSelector: dropLeave:
+ dropSelector: doDrop:
dragArgument: nil
dropObjectSelector: dropObjects
overSelector: dropOver:
dropArgument: nil
+ leaveSelector: dropLeave:
canDropSelector: canDrop:
enterSelector: dropEnter:
- dropSelector: doDrop:
)
postBuildCallback: postBuildListOfItemsView:
)