Tools__BreakpointBrowser.st
changeset 9638 dec674bd410b
parent 9614 1f2c844d482a
child 9795 b1dc5c2513fe
equal deleted inserted replaced
9637:a89a667c84ef 9638:dec674bd410b
   817 enableAssertions:aBoolean
   817 enableAssertions:aBoolean
   818     ^ Smalltalk at:#IgnoreAssertion put:aBoolean not
   818     ^ Smalltalk at:#IgnoreAssertion put:aBoolean not
   819 !
   819 !
   820 
   820 
   821 enableHalts
   821 enableHalts
   822     ^ (Smalltalk at:#IgnoreHalt ifAbsent:false) not
   822     ^ Smalltalk ignoreHalt not
       
   823 
       
   824     "Modified: / 18-11-2010 / 11:24:11 / cg"
   823 !
   825 !
   824 
   826 
   825 enableHalts:aBoolean
   827 enableHalts:aBoolean
   826     ^ Smalltalk at:#IgnoreHalt put:aBoolean not
   828     ^ Smalltalk ignoreHalt:aBoolean not
       
   829 
       
   830     "Modified: / 18-11-2010 / 11:30:03 / cg"
   827 !
   831 !
   828 
   832 
   829 hasSelectionHolder
   833 hasSelectionHolder
   830     ^ BlockValue
   834     ^ BlockValue
   831 	with:[:selIndex | selIndex notNil and:[selIndex ~~ 0]]
   835 	with:[:selIndex | selIndex notNil and:[selIndex ~~ 0]]
  1751 ! !
  1755 ! !
  1752 
  1756 
  1753 !BreakpointBrowser class methodsFor:'documentation'!
  1757 !BreakpointBrowser class methodsFor:'documentation'!
  1754 
  1758 
  1755 version
  1759 version
  1756     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.22 2010-10-27 11:37:01 cg Exp $'
  1760     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.23 2010-11-18 10:41:18 cg Exp $'
  1757 !
  1761 !
  1758 
  1762 
  1759 version_CVS
  1763 version_CVS
  1760     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.22 2010-10-27 11:37:01 cg Exp $'
  1764     ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.23 2010-11-18 10:41:18 cg Exp $'
  1761 ! !
  1765 ! !
  1762 
  1766 
  1763 BreakpointBrowser initialize!
  1767 BreakpointBrowser initialize!