3239 ! ! |
3237 ! ! |
3240 |
3238 |
3241 !ChangeSetBrowser2 methodsFor:'menu actions - changes'! |
3239 !ChangeSetBrowser2 methodsFor:'menu actions - changes'! |
3242 |
3240 |
3243 changeMenuApply: changeList |
3241 changeMenuApply: changeList |
3244 | changesToApply | |
3242 | changesToApply changeIdx | |
3245 |
3243 |
3246 changesToApply := OrderedCollection new. |
3244 changesToApply := OrderedCollection new. |
3247 self changesDo:[:chg|chg removed ifFalse:[changesToApply add: chg]]. |
3245 self changesDo:[:chg|chg removed ifFalse:[changesToApply add: chg]]. |
3248 self changeMenuApplyChanges: changesToApply. |
3246 self changeMenuApplyChanges: changesToApply. |
3249 list2 notNil ifTrue:[ |
3247 "Advance to next change" |
|
3248 changeIdx := changeList list identityIndexOf: changesToApply last change. |
|
3249 changeIdx < changeList list size ifTrue:[ |
|
3250 changeList selection: { changeList list at: changeIdx + 1 } |
|
3251 ] ifFalse:[ |
|
3252 changeList redrawListItemAt: changeIdx. |
|
3253 ]. |
|
3254 |
|
3255 (list2 notNil and:[changeList ~~ list2]) ifTrue:[ |
3250 "/ to get the =-icons |
3256 "/ to get the =-icons |
3251 list2 updateList |
3257 list2 redrawList |
3252 ]. |
3258 ]. |
3253 |
3259 |
3254 "Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3260 "Created: / 04-08-2011 / 17:26:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3255 "Modified: / 28-12-2011 / 15:49:00 / cg" |
3261 "Modified: / 28-12-2011 / 15:49:00 / cg" |
|
3262 "Modified: / 25-04-2015 / 22:17:45 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3256 ! |
3263 ! |
3257 |
3264 |
3258 changeMenuApplySelection: changeList |
3265 changeMenuApplySelection: changeList |
3259 |
3266 |
3260 changeList selection do:[:change| |
3267 changeList selection do:[:change| |
3264 |
3271 |
3265 "Advance to next change" |
3272 "Advance to next change" |
3266 changeIdx := changeList list identityIndexOf: change. |
3273 changeIdx := changeList list identityIndexOf: change. |
3267 changeIdx < changeList list size ifTrue:[ |
3274 changeIdx < changeList list size ifTrue:[ |
3268 changeList selection: { changeList list at: changeIdx + 1 } |
3275 changeList selection: { changeList list at: changeIdx + 1 } |
|
3276 ] ifFalse:[ |
|
3277 changeList redrawListItemAt: changeIdx. |
3269 ]. |
3278 ]. |
3270 ]. |
3279 ]. |
3271 |
3280 |
3272 "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3281 "Created: / 04-08-2011 / 17:27:08 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3273 "Modified (format): / 28-12-2011 / 15:48:53 / cg" |
3282 "Modified (format): / 28-12-2011 / 15:48:53 / cg" |
3274 "Modified (comment): / 30-03-2012 / 13:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3283 "Modified: / 25-04-2015 / 22:17:29 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3275 ! |
3284 ! |
3276 |
3285 |
3277 changeMenuApplyToEnd: changeList |
3286 changeMenuApplyToEnd: changeList |
3278 | start stop list | |
3287 | start stop list | |
3279 |
3288 |