# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1170787761 -3600
# Node ID 215e8d8f965e17ec2bea9c53a5bb6d53edd9c0a5
# Parent  bfc839d08928bf0538afe11ff055d8a3fc1778db
Add #defaultIcon

diff -r bfc839d08928 -r 215e8d8f965e MenuEditor.st
--- 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:
                   )