--- 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:
                   )