equal
deleted
inserted
replaced
2475 |
2475 |
2476 "Created: / 24-10-2009 / 19:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2476 "Created: / 24-10-2009 / 19:31:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2477 "Modified: / 20-07-2010 / 09:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2477 "Modified: / 20-07-2010 / 09:46:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2478 ! |
2478 ! |
2479 |
2479 |
|
2480 iconSelectorForChange:aChange |
|
2481 |currentMethod| |
|
2482 |
|
2483 targetPackage notNil ifTrue:[ |
|
2484 aChange isMethodChange ifTrue:[ |
|
2485 (currentMethod := aChange changeMethod) notNil ifTrue:[ |
|
2486 currentMethod package ~= targetPackage ifTrue:[ |
|
2487 ^ #iconExcla |
|
2488 ] |
|
2489 ] |
|
2490 ]. |
|
2491 ]. |
|
2492 ^ nil. |
|
2493 ! |
|
2494 |
2480 redrawChangeListViews |
2495 redrawChangeListViews |
2481 |
2496 |
2482 list1 notNil ifTrue:[ |
2497 list1 notNil ifTrue:[ |
2483 list1 builder window allSubViewsDo: [:v|v redraw] |
2498 list1 builder window allSubViewsDo: [:v|v redraw] |
2484 ]. |
2499 ]. |
2851 ! ! |
2866 ! ! |
2852 |
2867 |
2853 !ChangeSetBrowser2 class methodsFor:'documentation'! |
2868 !ChangeSetBrowser2 class methodsFor:'documentation'! |
2854 |
2869 |
2855 version |
2870 version |
2856 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.48 2013-04-14 11:30:53 cg Exp $' |
2871 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.49 2013-04-14 19:57:53 cg Exp $' |
2857 ! |
2872 ! |
2858 |
2873 |
2859 version_CVS |
2874 version_CVS |
2860 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.48 2013-04-14 11:30:53 cg Exp $' |
2875 ^ '$Header: /cvs/stx/stx/libtool/Tools__ChangeSetBrowser2.st,v 1.49 2013-04-14 19:57:53 cg Exp $' |
2861 ! |
2876 ! |
2862 |
2877 |
2863 version_SVN |
2878 version_SVN |
2864 ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
2879 ^ '§Id: Tools__ChangeSetBrowser.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
2865 ! ! |
2880 ! ! |