DebugView.st
changeset 11304 d142697b6c1e
parent 11303 28e758994349
child 11305 f9019302309d
equal deleted inserted replaced
11303:28e758994349 11304:d142697b6c1e
  3599         ] ifFalse:[
  3599         ] ifFalse:[
  3600             "might have been re-accepted"
  3600             "might have been re-accepted"
  3601             (home := selectedContext methodHome) notNil ifTrue:[
  3601             (home := selectedContext methodHome) notNil ifTrue:[
  3602                 (sel := home selector) notNil ifTrue:[
  3602                 (sel := home selector) notNil ifTrue:[
  3603                     cls := home receiver class 
  3603                     cls := home receiver class 
  3604                             whichClassImplements:selectedContext selector
  3604                             whichClassImplements:selectedContext selector.
       
  3605                     cls notNil ifTrue:[
       
  3606                         Dialog information:'Method has been changed/moved in the meanwhile.\Browser will show the most recent (current) version.' withCRs.
       
  3607                     ].
  3605                 ]
  3608                 ]
  3606             ].
  3609             ].
  3607         ].
  3610         ].
  3608     ].
  3611     ].
  3609     cls isNil ifTrue:[
  3612     cls isNil ifTrue:[
  3612     ].
  3615     ].
  3613 
  3616 
  3614     cls browserClass openInClass:cls selector:sel.
  3617     cls browserClass openInClass:cls selector:sel.
  3615 
  3618 
  3616     "Created: / 22-11-1995 / 21:27:01 / cg"
  3619     "Created: / 22-11-1995 / 21:27:01 / cg"
  3617     "Modified: / 01-03-2012 / 14:19:09 / cg"
  3620     "Modified: / 01-03-2012 / 14:21:11 / cg"
  3618 !
  3621 !
  3619 
  3622 
  3620 browseImplementors
  3623 browseImplementors
  3621     "open a browser on the implementors of the selected method's selector"
  3624     "open a browser on the implementors of the selected method's selector"
  3622 
  3625 
  7295     ^ self isHaltIgnored
  7298     ^ self isHaltIgnored
  7296 ! !
  7299 ! !
  7297 
  7300 
  7298 !DebugView class methodsFor:'documentation'!
  7301 !DebugView class methodsFor:'documentation'!
  7299 
  7302 
       
  7303 version
       
  7304     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
       
  7305 !
       
  7306 
  7300 version_CVS
  7307 version_CVS
  7301     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.528 2012-03-01 13:19:43 cg Exp $'
  7308     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.529 2012-03-01 13:21:31 cg Exp $'
  7302 !
  7309 !
  7303 
  7310 
  7304 version_SVN
  7311 version_SVN
  7305     ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
  7312     ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
  7306 ! !
  7313 ! !