878 ! ! |
878 ! ! |
879 |
879 |
880 !BreakpointBrowser methodsFor:'aspects'! |
880 !BreakpointBrowser methodsFor:'aspects'! |
881 |
881 |
882 enableAssertions |
882 enableAssertions |
883 ^ (Smalltalk at:#IgnoreAssertion ifAbsent:false) not |
883 ^ Smalltalk ignoreAssertions not |
884 ! |
884 ! |
885 |
885 |
886 enableAssertions:aBoolean |
886 enableAssertions:aBoolean |
887 ^ Smalltalk at:#IgnoreAssertion put:aBoolean not |
887 Smalltalk ignoreAssertions:aBoolean not. |
888 ! |
888 ! |
889 |
889 |
890 enableHalts |
890 enableHalts |
891 ^ Smalltalk ignoreHalt not |
891 ^ Smalltalk ignoreHalt not |
892 |
892 |
1395 ] |
1395 ] |
1396 ]. |
1396 ]. |
1397 ]. |
1397 ]. |
1398 |
1398 |
1399 mthd isMethodWithBreakpoints ifTrue:[ |
1399 mthd isMethodWithBreakpoints ifTrue:[ |
1400 mthd literalsDo:[:lit | |
1400 mthd breakpointsDo:[:bp | |
1401 lit class == Breakpoint ifTrue:[ |
1401 bp isVisible ifTrue:[ |
1402 lit isVisible ifTrue:[ |
1402 entry := BreakpointListEntryForLineBreak new. |
1403 entry := BreakpointListEntryForLineBreak new. |
1403 entry |
1404 entry |
1404 type:#line |
1405 type:#line |
1405 arg:nil |
1406 arg:nil |
1406 className:cls name |
1407 className:cls name |
1407 selector:sel |
1408 selector:sel |
1408 lineNumber:(bp line) |
1409 lineNumber:(lit line) |
1409 info:nil |
1410 info:nil |
1410 enabled:true. |
1411 enabled:true. |
1411 entry breakPoint:bp. |
1412 entry breakPoint:lit. |
1412 aBlock value:entry |
1413 aBlock value:entry |
|
1414 ] |
|
1415 ] |
1413 ] |
1416 ]. |
1414 ]. |
1417 ] |
1415 ] |
1418 ]. |
1416 ]. |
|
1417 |
|
1418 "Modified: / 03-02-2014 / 10:35:14 / cg" |
1419 ! ! |
1419 ! ! |
1420 |
1420 |
1421 !BreakpointBrowser methodsFor:'initialization & release'! |
1421 !BreakpointBrowser methodsFor:'initialization & release'! |
1422 |
1422 |
1423 codeViewClass |
1423 codeViewClass |
1509 breakpointArgs := breakpointArgs asSortedCollection. |
1509 breakpointArgs := breakpointArgs asSortedCollection. |
1510 |
1510 |
1511 menu := Menu new. |
1511 menu := Menu new. |
1512 menu addItem:( |
1512 menu addItem:( |
1513 MenuItem new |
1513 MenuItem new |
1514 label:'Toggle All'; |
|
1515 translateLabel:true; |
|
1516 hideMenuOnActivated:false; |
1514 hideMenuOnActivated:false; |
1517 itemValue:[ |
1515 label:'Toggle All' |
1518 showCodeBreakpointsFor do:[:each | |
1516 itemValue: |
1519 each value:(each value not) |
1517 [ |
1520 ] |
1518 showCodeBreakpointsFor do:[:each | |
1521 ]). |
1519 each value:(each value not) |
|
1520 ] |
|
1521 ]). |
1522 menu addSeparator. |
1522 menu addSeparator. |
1523 |
1523 |
1524 breakpointArgs do:[:arg| |
1524 breakpointArgs do:[:arg| |
1525 | menuItem | |
1525 | menuItem | |
1526 |
1526 |
1527 menuItem := MenuItem new. |
1527 menuItem := MenuItem |
1528 menuItem label:arg. |
1528 label:arg |
1529 menuItem translateLabel:false. |
1529 itemValue: |
|
1530 [:onOff | |
|
1531 (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff. |
|
1532 self updateShownBreakpointList |
|
1533 ] |
|
1534 translateLabel:false. |
1530 menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]). |
1535 menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]). |
1531 menuItem hideMenuOnActivated:false. |
1536 menuItem hideMenuOnActivated:false. |
1532 menuItem |
1537 |
1533 itemValue:[:onOff | |
|
1534 (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff. |
|
1535 self updateShownBreakpointList |
|
1536 ]. |
|
1537 menu addItem:menuItem. |
1538 menu addItem:menuItem. |
1538 ]. |
1539 ]. |
1539 menu findGuiResourcesIn:self. |
1540 menu findGuiResourcesIn:self. |
1540 ^ menu |
1541 ^ menu |
1541 |
1542 |
1560 breakpointArgs := breakpointArgs asSortedCollection. |
1561 breakpointArgs := breakpointArgs asSortedCollection. |
1561 |
1562 |
1562 menu := Menu new. |
1563 menu := Menu new. |
1563 menu addItem:( |
1564 menu addItem:( |
1564 MenuItem new |
1565 MenuItem new |
1565 label:'Toggle All'; |
|
1566 translateLabel:true; |
|
1567 hideMenuOnActivated:false; |
1566 hideMenuOnActivated:false; |
1568 itemValue:[ |
1567 label:'Toggle All' |
|
1568 itemValue: |
|
1569 [ |
1569 enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each | |
1570 enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each | |
1570 each value:(each value not). |
1571 each value:(each value not). |
1571 each value ifTrue:[ |
1572 each value ifTrue:[ |
1572 Object enableBreakPoint:arg |
1573 Object enableBreakPoint:arg |
1573 ] ifFalse:[ |
1574 ] ifFalse:[ |
1574 Object disableBreakPoint:arg |
1575 Object disableBreakPoint:arg |
1575 ]. |
1576 ]. |
1576 ] |
1577 ] |
1577 ]). |
1578 ]). |
1578 menu addSeparator. |
1579 menu addSeparator. |
1579 |
1580 |
1580 breakpointArgs do:[:arg| |
1581 breakpointArgs do:[:arg| |
1581 | menuItem | |
1582 | menuItem | |
1582 |
1583 |
1583 menuItem := MenuItem new. |
1584 menuItem := MenuItem |
1584 menuItem label:arg. |
1585 label:arg |
1585 menuItem translateLabel:false. |
1586 itemValue: |
|
1587 [:onOff | |
|
1588 (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff. |
|
1589 onOff ifFalse:[ |
|
1590 Object disableBreakPoint:arg |
|
1591 ] ifTrue:[ |
|
1592 Object enableBreakPoint:arg |
|
1593 ]. |
|
1594 ] |
|
1595 translateLabel:false. |
1586 menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]). |
1596 menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]). |
1587 menuItem hideMenuOnActivated:false. |
1597 menuItem hideMenuOnActivated:false. |
1588 menuItem itemValue:[:onOff | |
|
1589 (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff. |
|
1590 onOff ifFalse:[ |
|
1591 Object disableBreakPoint:arg |
|
1592 ] ifTrue:[ |
|
1593 Object enableBreakPoint:arg |
|
1594 ]. |
|
1595 ]. |
|
1596 menu addItem:menuItem. |
1598 menu addItem:menuItem. |
1597 ]. |
1599 ]. |
1598 menu findGuiResourcesIn:self. |
1600 menu findGuiResourcesIn:self. |
1599 ^ menu |
1601 ^ menu |
1600 |
1602 |
2053 ! ! |
2055 ! ! |
2054 |
2056 |
2055 !BreakpointBrowser class methodsFor:'documentation'! |
2057 !BreakpointBrowser class methodsFor:'documentation'! |
2056 |
2058 |
2057 version |
2059 version |
2058 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.50 2013-08-22 19:12:36 cg Exp $' |
2060 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.54 2015-02-24 11:48:49 cg Exp $' |
2059 ! |
2061 ! |
2060 |
2062 |
2061 version_CVS |
2063 version_CVS |
2062 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.50 2013-08-22 19:12:36 cg Exp $' |
2064 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.54 2015-02-24 11:48:49 cg Exp $' |
2063 ! |
|
2064 |
|
2065 version_HG |
|
2066 |
|
2067 ^ '$Changeset: <not expanded> $' |
|
2068 ! |
|
2069 |
|
2070 version_SVN |
|
2071 ^ '$Id: Tools__BreakpointBrowser.st 8074 2012-11-30 17:23:39Z vranyj1 $' |
|
2072 ! ! |
2065 ! ! |
2073 |
2066 |
2074 |
2067 |
2075 BreakpointBrowser initialize! |
2068 BreakpointBrowser initialize! |