MenuEditor.st
changeset 224 c1d7bffe73f1
parent 220 8f0065e7a83d
child 227 434211399a54
--- a/MenuEditor.st	Sun Jul 20 12:23:35 1997 +0200
+++ b/MenuEditor.st	Sun Jul 20 12:24:32 1997 +0200
@@ -93,22 +93,6 @@
 iconCreateSep
     ^ Painter imageSeparator
 
-!
-
-iconStepDown
-    ^ ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal
-!
-
-iconStepIn
-    ^ ((Image fromFile:'stepIn.xpm') rotated:90) flipHorizontal
-!
-
-iconStepOut
-    ^ ((Image fromFile:'stepOut.xpm') rotated:90) flipHorizontal
-!
-
-iconStepUp
-    ^ ((Image fromFile:'stepOver.xpm') rotated:90) flipHorizontal flipVertical
 ! !
 
 !MenuEditor class methodsFor:'interface specs'!
@@ -351,7 +335,7 @@
                 #'enabled:' #enabledStepOver
                 #'labelImage:' 
                  #(#ResourceRetriever
-                    #MenuEditor #iconStepUp
+                    #UIPainter #iconStepUp
                 )
             )
              #(#MenuItem
@@ -360,7 +344,7 @@
                 #'enabled:' #enabledStepOver
                 #'labelImage:' 
                  #(#ResourceRetriever
-                    #MenuEditor #iconStepDown
+                    #UIPainter #iconStepDown
                 )
             )
              #(#MenuItem
@@ -369,7 +353,7 @@
                 #'enabled:' #enabledStepIn
                 #'labelImage:' 
                  #(#ResourceRetriever
-                    #MenuEditor #iconStepIn
+                    #UIPainter #iconStepIn
                 )
             )
              #(#MenuItem
@@ -378,7 +362,7 @@
                 #'enabled:' #enabledStepOut
                 #'labelImage:' 
                  #(#ResourceRetriever
-                    #MenuEditor #iconStepOut
+                    #UIPainter #iconStepOut
                 )
             )
           ) nil
@@ -1640,7 +1624,7 @@
             ^ self information:'no valid class defined'.
         ]
     ].
-    SystemBrowser openInClass:cls
+    SystemBrowser openInClass:cls class selector:(self painter selectorName)
 
 !