use newUnloadAction

pharo-vcs · Jan 7, 2024 · 7e80198 · 7e80198
1 parent 71af726
commit 7e80198
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 15 deletions.
diff --git a/Iceberg-TipUI/IceTipPackageModel.class.st b/Iceberg-TipUI/IceTipPackageModel.class.st
@@ -107,6 +107,21 @@ IceTipPackageModel >> newRemoveAction [
 		yourself
 ]
 
+{ #category : 'actions' }
+IceTipPackageModel >> newUnloadAction [
+	<noCache>
+
+	^ IceTipStandardAction new 
+		repository: self entity repository;
+		message: ('Unloading package {1}' format: { self entity name });
+		onSuccessRepositoryModified; 
+		action: [ 
+			Iceberg announcer
+				suspendAllForRepository: self entity repository
+				while: [ self entity unload ] ];
+		yourself
+]
+
 { #category : 'accessing' }
 IceTipPackageModel >> packageName [
 	^ self entity packageName
@@ -131,17 +146,3 @@ IceTipPackageModel >> statusDecorator [
 		ifFalse: [ IceTipDescriptionDecorator notLoaded ].
 	^ super statusDecorator
 ]
-
-{ #category : 'actions' }
-IceTipPackageModel >> unload [
-	<noCache>
-
-	IceTipStandardAction new 
-		repository: self entity repository;
-		message: ('Unloading package {1}' format: { self entity name });
-		onSuccessRepositoryModified; 
-		execute: [ 
-			Iceberg announcer
-				suspendAllForRepository: self entity repository
-				while: [ self entity unload ] ]
-]
diff --git a/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st b/Iceberg-TipUI/IceTipUnloadPackageCommand.class.st
@@ -30,7 +30,7 @@ IceTipUnloadPackageCommand >> canBeExecuted [
 { #category : 'executing' }
 IceTipUnloadPackageCommand >> execute [
 
-	self packageModel unload
+	self packageModel newUnloadAction executeWithContext: self context
 ]
 
 { #category : 'accessing' }