Mercurial Mercurial > hg > stx-libtool / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
DebugView.st
changeset 11364 af95026ebbda
parent 11305 f9019302309d
child 11366 d57e42f65841
equal deleted inserted replaced
11363:bdca5a341fa1 11364:af95026ebbda 
   332     IgnoredHalts isNil ifTrue:[^ false].
 
   332     IgnoredHalts isNil ifTrue:[^ false].
 
   333 
   333 
   334     "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
 
   334     "/ Transcript showCR:'halt/break in ',haltingMethod printString,' at ',lineNrInHaltingMethod printString.
 
   335     IgnoredHalts do:[:ign |
 
   335     IgnoredHalts do:[:ign |
 
   336         (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
 
   336         (ign isHaltIgnoredInMethod:haltingMethod line:lineNrInHaltingMethod) ifTrue:[
 
   337             Transcript show:'Debugger [info]: halt ignored in ', haltingMethod whoString.
 
   337             Transcript show:'Debugger [info]: halt/break ignored in ', haltingMethod whoString.
 
   338             Transcript show:' ('; show:ign; showCR:')'.
 
   338             Transcript show:' ('; show:ign; showCR:')'.
 
       
   339 
   339             modifyCount ifTrue:[ ign decrementIgnoreCount ].
 
   340             modifyCount ifTrue:[ ign decrementIgnoreCount ].
 
   340             ign isHaltIgnored ifFalse:[
 
   341             ign isHaltIgnored ifFalse:[
 
   341                 Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
 
   342                 Transcript showCR:'Debugger [info]: no longer ignore halt in ', haltingMethod whoString.
 
   342                 IgnoredHalts remove:ign ifAbsent:[].
 
   343                 IgnoredHalts remove:ign ifAbsent:[].
 
   343             ].
 
   344             ].
 
   353         IgnoredHalts := nil.
 
   354         IgnoredHalts := nil.
 
   354     ].
 
   355     ].
 
   355 
   356 
   356     ^ false.
 
   357     ^ false.
 
   357 
   358 
   358     "Modified: / 27-01-2012 / 11:41:19 / cg"
 
   359     "Modified: / 06-03-2012 / 11:15:01 / cg"
 
   359 !
 
   360 !
 
   360 
   361 
   361 removeInactiveIgnores
 
   362 removeInactiveIgnores
 
   362     IgnoredHalts notNil ifTrue:[
 
   363     IgnoredHalts notNil ifTrue:[
 
   363         IgnoredHalts := IgnoredHalts select:[:i | i isActive].
 
   364         IgnoredHalts := IgnoredHalts select:[:i | i isActive].
 
  7303 ! !
 
  7304 ! !
 
  7304 
  7305 
  7305 !DebugView class methodsFor:'documentation'!
 
  7306 !DebugView class methodsFor:'documentation'!
 
  7306 
  7307 
  7307 version
 
  7308 version
 
  7308     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
 
  7309     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.531 2012-03-06 10:24:07 cg Exp $'
 
  7309 !
 
  7310 !
 
  7310 
  7311 
  7311 version_CVS
 
  7312 version_CVS
 
  7312     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.530 2012-03-01 13:29:29 cg Exp $'
 
  7313     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.531 2012-03-06 10:24:07 cg Exp $'
 
  7313 !
 
  7314 !
 
  7314 
  7315 
  7315 version_SVN
 
  7316 version_SVN
 
  7316     ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
 
  7317     ^ '§Id: DebugView.st 7818 2011-08-18 11:42:39Z vranyj1 §'
 
  7317 ! !
 
  7318 ! !
hg/stx-libtool