Skip to content

Commit

Permalink
Fixed open and save file dialogs
Browse files Browse the repository at this point in the history
  • Loading branch information
belohma2 authored Oct 3, 2024
1 parent 0105c9f commit 6ad143e
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions repository/OpenPonk-Core/OPProjectController.class.st
Original file line number Diff line number Diff line change
Expand Up @@ -37,7 +37,7 @@ OPProjectController class >> fromDirectory: aFolder [
{ #category : 'opening' }
OPProjectController class >> fromDirectoryDo: aBlock [

StFBOpenDirectoryDialog new
StOpenDirectoryPresenter new
title: 'Choose an OpenPonk project directory';
okAction: [ :dir | aBlock value: (self fromDirectory: dir) ];
open
Expand All @@ -57,7 +57,7 @@ OPProjectController class >> fromFile: aFile [
{ #category : 'opening' }
OPProjectController class >> fromFileDo: aBlock [

StFBOpenFileDialog new
StOpenFilePresenter new
title: 'Choose an OpenPonk project';
okAction: [ :file | aBlock value: (self fromFile: file) ];
extensions: #( opp ) named: 'OP projects';
Expand All @@ -67,7 +67,7 @@ OPProjectController class >> fromFileDo: aBlock [
{ #category : 'opening' }
OPProjectController class >> modalFromFile [

^ StFBOpenFileDialog new
^ StOpenFilePresenter new
title: 'Choose an OpenPonk project';
extensions: #( opp ) named: 'OP projects';
openModal
Expand Down Expand Up @@ -320,7 +320,7 @@ OPProjectController >> removeModel: aModel [
{ #category : 'saving' }
OPProjectController >> replaceWritableProjectFile [

^ self project storageFile: ((StFBSaveFileDialog new
^ self project storageFile: ((StFileDialogPresenter new
title: 'Set a file for saving an OpenPonk project';
extensions: #( opp ) named: 'OP projects';
openModal) ifNil: [ OPProjectSaveCanceledException signal ])
Expand Down

0 comments on commit 6ad143e

Please sign in to comment.