1369 menu addItem:( |
1369 menu addItem:( |
1370 MenuItem new |
1370 MenuItem new |
1371 label:'Toggle All'; |
1371 label:'Toggle All'; |
1372 translateLabel:true; |
1372 translateLabel:true; |
1373 hideMenuOnActivated:false; |
1373 hideMenuOnActivated:false; |
1374 value:[ |
1374 itemValue:[ |
1375 showCodeBreakpointsFor do:[:each | |
1375 showCodeBreakpointsFor do:[:each | |
1376 each value:(each value not) |
1376 each value:(each value not) |
1377 ] |
1377 ] |
1378 ]). |
1378 ]). |
1379 menu addSeparator. |
1379 menu addSeparator. |
1380 |
1380 |
1381 breakpointArgs do:[:arg| |
1381 breakpointArgs do:[:arg| |
1382 | menuItem | |
1382 | menuItem | |
1383 |
1383 |
1384 menuItem := MenuItem new. |
1384 menuItem := MenuItem new. |
1385 menuItem label:arg. |
1385 menuItem label:arg. |
1386 menuItem translateLabel:false. |
1386 menuItem translateLabel:false. |
1387 menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]). |
1387 menuItem indication:(showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]). |
1388 menuItem hideMenuOnActivated:false. |
1388 menuItem hideMenuOnActivated:false. |
1389 menuItem value:[:onOff | |
1389 menuItem |
1390 (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff. |
1390 itemValue:[:onOff | |
1391 self updateShownBreakpointList |
1391 (showCodeBreakpointsFor at:arg ifAbsentPut:[true asValue]) value:onOff. |
1392 ]. |
1392 self updateShownBreakpointList |
|
1393 ]. |
1393 menu addItem:menuItem. |
1394 menu addItem:menuItem. |
1394 ]. |
1395 ]. |
1395 menu findGuiResourcesIn:self. |
1396 menu findGuiResourcesIn:self. |
1396 ^ menu |
1397 ^ menu |
1397 |
1398 |
1398 "Modified: / 27-03-2007 / 10:54:29 / cg" |
1399 "Modified (format): / 09-09-2012 / 13:11:14 / cg" |
1399 ! |
1400 ! |
1400 |
1401 |
1401 enabledCodeBreakpointMenu |
1402 enabledCodeBreakpointMenu |
1402 <resource: #programMenu > |
1403 <resource: #programMenu > |
1403 |
1404 |
1419 menu addItem:( |
1420 menu addItem:( |
1420 MenuItem new |
1421 MenuItem new |
1421 label:'Toggle All'; |
1422 label:'Toggle All'; |
1422 translateLabel:true; |
1423 translateLabel:true; |
1423 hideMenuOnActivated:false; |
1424 hideMenuOnActivated:false; |
1424 value:[ |
1425 itemValue:[ |
1425 enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each | |
1426 enabledCodeBreakpointHolders keysAndValuesDo:[:arg :each | |
1426 each value:(each value not). |
1427 each value:(each value not). |
1427 each value ifTrue:[ |
1428 each value ifTrue:[ |
1428 Object enableBreakPoint:arg |
1429 Object enableBreakPoint:arg |
1429 ] ifFalse:[ |
1430 ] ifFalse:[ |
1439 menuItem := MenuItem new. |
1440 menuItem := MenuItem new. |
1440 menuItem label:arg. |
1441 menuItem label:arg. |
1441 menuItem translateLabel:false. |
1442 menuItem translateLabel:false. |
1442 menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]). |
1443 menuItem indication:(enabledCodeBreakpointHolders at:arg ifAbsentPut:[ (Object isBreakPointEnabled:arg) asValue ]). |
1443 menuItem hideMenuOnActivated:false. |
1444 menuItem hideMenuOnActivated:false. |
1444 menuItem value:[:onOff | |
1445 menuItem itemValue:[:onOff | |
1445 (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff. |
1446 (enabledCodeBreakpointHolders at:arg ifAbsentPut:[(Object isBreakPointEnabled:arg) asValue]) value:onOff. |
1446 onOff ifFalse:[ |
1447 onOff ifFalse:[ |
1447 Object disableBreakPoint:arg |
1448 Object disableBreakPoint:arg |
1448 ] ifTrue:[ |
1449 ] ifTrue:[ |
1449 Object enableBreakPoint:arg |
1450 Object enableBreakPoint:arg |
1764 ! ! |
1765 ! ! |
1765 |
1766 |
1766 !BreakpointBrowser class methodsFor:'documentation'! |
1767 !BreakpointBrowser class methodsFor:'documentation'! |
1767 |
1768 |
1768 version |
1769 version |
1769 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012-08-13 14:23:56 stefan Exp $' |
1770 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.29 2012-09-09 18:49:45 cg Exp $' |
1770 ! |
1771 ! |
1771 |
1772 |
1772 version_CVS |
1773 version_CVS |
1773 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.28 2012-08-13 14:23:56 stefan Exp $' |
1774 ^ '$Header: /cvs/stx/stx/libtool/Tools__BreakpointBrowser.st,v 1.29 2012-09-09 18:49:45 cg Exp $' |
1774 ! ! |
1775 ! ! |
1775 |
1776 |
1776 BreakpointBrowser initialize! |
1777 BreakpointBrowser initialize! |