From 1369b5fa139d08ea76e8bf6edc266a17fc092286 Mon Sep 17 00:00:00 2001 From: Esteban Lorenzano Date: Fri, 20 Sep 2024 12:46:49 +0200 Subject: [PATCH] Fixes https://github.com/pharo-spec/Spec/issues/1547 --- src/Spec2-Adapters-Morphic/SpWindow.class.st | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/Spec2-Adapters-Morphic/SpWindow.class.st b/src/Spec2-Adapters-Morphic/SpWindow.class.st index 13bf97db..455431b7 100644 --- a/src/Spec2-Adapters-Morphic/SpWindow.class.st +++ b/src/Spec2-Adapters-Morphic/SpWindow.class.st @@ -42,14 +42,13 @@ SpWindow >> announceWillClose [ { #category : 'open/close' } SpWindow >> close [ - self announceWillClose ifFalse: [ ^ self ]. super close. ] { #category : 'open/close' } SpWindow >> deleteDiscardingChanges [ - self announceWillClose. + self announceWillClose ifFalse: [ ^ self ]. ^ super deleteDiscardingChanges ] @@ -92,12 +91,13 @@ SpWindow >> taskbarTask [ "Answer a taskbar task for the receiver. Answer nil if not required." - (self valueOfProperty: #noTaskbarTask ifAbsent: [false]) ifTrue: [ ^ nil ]. + (self valueOfProperty: #noTaskbarTask ifAbsent: [ false ]) ifTrue: [ + ^ nil ]. taskbarTask := TaskbarTask morph: self state: self taskbarState - icon: self model taskbarIcon + icon: (self model iconNamed: self model taskbarIconName) label: self taskbarLabel. ^ taskbarTask