adding ui methods
MODIFY
src/PharoLauncher-Core/PhLTemplateCommand.class.st
src/PharoLauncher-Core/PhLTemplateCommand.class.st
@@ -7,6 +7,12 @@ Class {
#category : #'PharoLauncher-Core-Commands'
}
+{ #category : #accessing }
+PhLTemplateCommand >> application [
+
+ ^ self context application
+]
+
{ #category : #accessing }
PhLTemplateCommand >> templatesPresenter [
^ self context

MODIFY
src/PharoLauncher-Core/PhLVirtualMachineManager.class.st
src/PharoLauncher-Core/PhLVirtualMachineManager.class.st
@@ -107,12 +107,14 @@ PhLVirtualMachineManager class >> isPreSpur: anImageFormatVersion [
{ #category : #unzipping }
PhLVirtualMachineManager class >> pharoUnzip: aZipFileReference to: outputDirectory [
- PharoLauncherApplication default newProgress
- parentWindow: PharoLauncherApplication default topWindow;
- informUserDuring: [ :bar |
+ PharoLauncherApplication default
+ pushProgress: ('Unzipping {1}' format: { aZipFileReference basename })
+ with: [ :bar |
ZipArchive new
readFrom: aZipFileReference;
- extractAllTo: outputDirectory informing: bar overwrite: true ]
+ extractAllTo: outputDirectory
+ informing: bar
+ overwrite: true ]
]
{ #category : #private }
@@ -538,9 +540,9 @@ PhLVirtualMachineManager >> virtualMachines [
PhLVirtualMachineManager >> vm [
| vm |
- PharoLauncherApplication default newProgress
- parentWindow: PharoLauncherApplication default topWindow;
- informUserDuring: [ :bar |
+ PharoLauncherApplication default
+ pushProgress: 'UNNAMED'
+ with: [ :bar |
bar label: 'Determining Image version'.
vm := self availableVirtualMachines
at: self vmId

MODIFY
src/PharoLauncher-Spec2/PharoLauncherApplication.class.st
src/PharoLauncher-Spec2/PharoLauncherApplication.class.st
@@ -229,6 +229,7 @@ PharoLauncherApplication >> imageRepositoryChanged [
{ #category : #announcements }
PharoLauncherApplication >> imageRepositoryChanged: newImage [
+
self imageRepositoryChanged.
imagesPresenter ifNotNil: [ imagesPresenter selectImage: newImage ].
]
@@ -264,6 +265,15 @@ PharoLauncherApplication >> openAsWorld: aBoolean [
openAsWorld := aBoolean
]
+{ #category : #ui }
+PharoLauncherApplication >> pushProgress: aString with: aBlock [
+
+ self newProgress
+ parentWindow: self topWindow;
+ title: aString;
+ informUserDuring: aBlock
+]
+
{ #category : #initialization }
PharoLauncherApplication >> resetTemplateRepository [
templateRepository := TemplateRepository
@@ -282,6 +292,15 @@ PharoLauncherApplication >> scriptsDirectory: aFileReference [
scriptsDirectory := aFileReference
]
+{ #category : #ui }
+PharoLauncherApplication >> showError: anError [
+
+ self newInform
+ title: anError name;
+ label: anError longDescription;
+ openModalWithSpecParent: self topWindow
+]
+
{ #category : #running }
PharoLauncherApplication >> start [

adding ui methods