DebugView.st
changeset 998 8740ae8fa5fe
parent 959 f1faf693f0d7
child 1004 cb182425a977
equal deleted inserted replaced
997:0edcba8790fd 998:8740ae8fa5fe
   344      actually occured.
   344      actually occured.
   345      Just for your convenience :-)"
   345      Just for your convenience :-)"
   346 
   346 
   347     |c found offset sel prev ex|
   347     |c found offset sel prev ex|
   348 
   348 
       
   349     aContext isNil ifTrue:[^ 1].
   349     aContext isBlockContext ifTrue:[^ 1].
   350     aContext isBlockContext ifTrue:[^ 1].
   350     VerboseBacktraceDefault == true ifTrue:[^ 1].
   351     VerboseBacktraceDefault == true ifTrue:[^ 1].
   351 
   352 
   352     "/ somewhere, at the bottom, there must be a raise ...
   353     "/ somewhere, at the bottom, there must be a raise ...
   353     "/ find the exception
   354     "/ find the exception
  3305 ! !
  3306 ! !
  3306 
  3307 
  3307 !DebugView class methodsFor:'documentation'!
  3308 !DebugView class methodsFor:'documentation'!
  3308 
  3309 
  3309 version
  3310 version
  3310     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.134 1997-01-15 17:55:07 cg Exp $'
  3311     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.135 1997-01-24 23:25:24 cg Exp $'
  3311 ! !
  3312 ! !