292 self doSelect:aAppl. |
292 self doSelect:aAppl. |
293 ! |
293 ! |
294 |
294 |
295 closeSubCanvas:aApplication |
295 closeSubCanvas:aApplication |
296 |
296 |
297 | applIndex historyList localHistoryList| |
297 | applIndex historyList localHistoryList selectedPage| |
298 |
298 |
299 applIndex := self getIndexFor:aApplication. |
299 applIndex := self getIndexFor:aApplication. |
300 applIndex notNil ifTrue:[ |
300 applIndex notNil ifTrue:[ |
301 "/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES |
301 "/ "/ UPDATE THE LAST SELECTION BECAUSE SEL INDEX IS DECREMENTED FOR HIGHER INDEXES |
302 "/ self lastSelection:applIndex. |
302 "/ self lastSelection:applIndex. |
303 |
303 |
304 historyList := self selectionHistoryList. |
304 historyList := self selectionHistoryList. |
305 historyList remove:applIndex ifAbsent:nil. |
305 historyList remove:applIndex ifAbsent:nil. |
306 localHistoryList := OrderedCollection new. |
306 localHistoryList := OrderedCollection new. |
307 historyList notEmpty ifTrue:[ |
307 historyList notEmpty ifTrue:[ |
308 self selectedEditorPage value:(historyList last). |
308 selectedPage := historyList last. |
309 ] ifFalse:[ |
309 ] ifFalse:[ |
310 self selectedEditorPage value:1. |
310 selectedPage := 1. |
311 ]. |
311 ]. |
|
312 self selectedEditorPage value:selectedPage. |
|
313 |
312 historyList do:[ : index | |
314 historyList do:[ : index | |
313 index <= applIndex ifTrue:[ |
315 index <= applIndex ifTrue:[ |
314 localHistoryList add:index |
316 localHistoryList add:index |
315 ] ifFalse:[ |
317 ] ifFalse:[ |
316 localHistoryList add:(index - 1) |
318 localHistoryList add:(index - 1) |