equal
deleted
inserted
replaced
1463 |
1463 |
1464 "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1464 "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1465 ! |
1465 ! |
1466 |
1466 |
1467 changeMenuBrowse: changeList |
1467 changeMenuBrowse: changeList |
1468 |
1468 |changes methods classes| |
1469 self breakPoint: #jv. |
1469 |
1470 Dialog warn: 'Not yet implemented' |
1470 changes := changeList listHolder value collect:[:c | c change]. |
|
1471 (changes conform:[:c | c isClassDefinitionChange]) ifTrue:[ |
|
1472 classes := (changes collect:[:c | c changeClass]). |
|
1473 UserPreferences current systemBrowserClass |
|
1474 browseClasses:classes title:'selected monticello classes'. |
|
1475 ] ifFalse:[ |
|
1476 methods := (changes collect:[:c | c changeMethod]). |
|
1477 UserPreferences current systemBrowserClass |
|
1478 browseMethods:methods title:'selected monticello methods' sort:false. |
|
1479 ]. |
1471 |
1480 |
1472 "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1481 "Created: / 04-08-2011 / 17:27:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
1482 "Modified: / 21-08-2011 / 16:48:13 / cg" |
1473 ! |
1483 ! |
1474 |
1484 |
1475 changeMenuDeleteSelection: changeList |
1485 changeMenuDeleteSelection: changeList |
1476 |
1486 |
1477 self selectionDo:[:chg|chg removed: true] |
1487 self selectionDo:[:chg|chg removed: true] |
1758 ! ! |
1768 ! ! |
1759 |
1769 |
1760 !ChangeSetBrowser2 class methodsFor:'documentation'! |
1770 !ChangeSetBrowser2 class methodsFor:'documentation'! |
1761 |
1771 |
1762 version |
1772 version |
1763 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.11 2011-08-04 20:18:26 cg Exp $' |
1773 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.12 2011-08-21 14:48:23 cg Exp $' |
1764 ! |
1774 ! |
1765 |
1775 |
1766 version_CVS |
1776 version_CVS |
1767 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.11 2011-08-04 20:18:26 cg Exp $' |
1777 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.12 2011-08-21 14:48:23 cg Exp $' |
1768 ! |
1778 ! |
1769 |
1779 |
1770 version_SVN |
1780 version_SVN |
1771 ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1781 ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1772 ! ! |
1782 ! ! |