# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1494000868 -3600
# Fri May 05 17:14:28 2017 +0100
# Branch jv
# Node ID d3a2cc2bb3f82fa08bf064d17dbb075dae89b969
# Parent e33388a7f0d67b5780a46d31dfacd38c912c6013
Issue #144: Fixed slip in `Tools::ChangeSetBrowser2 >> #changeMenuApply:`
...caused likely by some refactoring in the past. Since I don't
use the menu pick, I did not noticed. My bad.
https://swing.fit.cvut.cz/projects/stx-jv/ticket/144
diff -r e33388a7f0d6 -r d3a2cc2bb3f8 Tools__ChangeSetBrowser2.st
a
|
b
|
|
3250 | 3250 | self changesDo:[:chg|chg removed ifFalse:[changesToApply add: chg]]. |
3251 | 3251 | self changeMenuApplyChanges: changesToApply. |
3252 | 3252 | "Advance to next change" |
3253 | | changeIdx := changeList list identityIndexOf: changesToApply last change. |
3254 | | changeIdx < changeList list size ifTrue:[ |
3255 | | changeList selection: { changeList list at: changeIdx + 1 } |
| 3253 | changeIdx := changeList list findFirst: [:each | each change == changesToApply last ]. |
| 3254 | changeIdx <= changeList list size ifTrue:[ |
| 3255 | changeIdx := changeIdx min: changeList list size. |
| 3256 | changeList selection: { changeList list at: (changeIdx + 1 min: changeList list size)} |
3256 | 3257 | ] ifFalse:[ |
3257 | 3258 | changeList redrawListItemAt: changeIdx. |
3258 | 3259 | ]. |
… |
… |
|
3265 | 3266 | "Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3266 | 3267 | "Modified: / 28-12-2011 / 15:49:00 / cg" |
3267 | 3268 | "Modified: / 25-04-2015 / 22:17:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
| 3269 | "Modified: / 05-05-2017 / 17:04:16 / jv" |
3268 | 3270 | ! |
3269 | 3271 | |
3270 | 3272 | changeMenuApplySelection: changeList |