DebugView.st
changeset 11304 d142697b6c1e
parent 11303 28e758994349
child 11305 f9019302309d
--- a/DebugView.st	Thu Mar 01 14:19:43 2012 +0100
+++ b/DebugView.st	Thu Mar 01 14:21:31 2012 +0100
@@ -3601,7 +3601,10 @@
             (home := selectedContext methodHome) notNil ifTrue:[
                 (sel := home selector) notNil ifTrue:[
                     cls := home receiver class 
-                            whichClassImplements:selectedContext selector
+                            whichClassImplements:selectedContext selector.
+                    cls notNil ifTrue:[
+                        Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
+                    ].
                 ]
             ].
         ].
@@ -3614,7 +3617,7 @@
     cls browserClass openInClass:cls selector:sel.
 
     "Created: / 22-11-1995 / 21:27:01 / cg"
-    "Modified: / 01-03-2012 / 14:19:09 / cg"
+    "Modified: / 01-03-2012 / 14:21:11 / cg"
 !
 
 browseImplementors
@@ -7297,8 +7300,12 @@
 
 !DebugView class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
+!
+
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.528 2012-03-01 13:19:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
 !
 
 version_SVN