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