From 6084c8b0800e3db781d9e0773202b55c9adbcaf0 Mon Sep 17 00:00:00 2001 From: AlexisCnockaert Date: Fri, 31 Jan 2025 11:02:37 +0100 Subject: [PATCH] adds property to morph when closed adn remove it when unhidden --- .../SpClosedWindowListPresenter.class.st | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st b/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st index 104a33b2..062484e4 100644 --- a/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st +++ b/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st @@ -92,6 +92,7 @@ SpClosedWindowListPresenter >> addClosedWindow: aModel [ self lastClosedWindows size >= 5 ifTrue: [ self lastClosedWindows removeLast close ]. self lastClosedWindows addFirst: aModel. + aModel setProperty: #isClosed toValue: true. self refresh ] @@ -131,7 +132,7 @@ SpClosedWindowListPresenter >> defaultLayout [ SpClosedWindowListPresenter >> initialize [ super initialize. - self unsubscribeFromWindowEvents . + self unsubscribeFromWindowEvents. self subscribeToWindowClosedAnnoucements. removeItemBlock := [ :item | item ifNotNil: [ @@ -140,6 +141,7 @@ SpClosedWindowListPresenter >> initialize [ self refresh ] ]. unhideItemBlock := [ :item | item ifNotNil: [ item visible: true ]. + item removeProperty: #isClosed. self items remove: item. self refresh ] ]