From 726254360c987b9b3472a6098b5869970e819cc9 Mon Sep 17 00:00:00 2001 From: Guille Polito Date: Mon, 18 Jun 2018 15:43:27 +0200 Subject: [PATCH] Fix #864 Handle missing code subdirectory --- .../instance/basicExecute.st | 2 +- .../instance/defaultSubdirectory.st | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) create mode 100644 Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/defaultSubdirectory.st diff --git a/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/basicExecute.st b/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/basicExecute.st index 783755c03c..4364ce2d94 100644 --- a/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/basicExecute.st +++ b/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/basicExecute.st @@ -3,7 +3,7 @@ basicExecute | dialog | dialog := IceTipLocalRepositoryPanel new location: (self repository location ifNil: [ self defaultLocation ]); - subdirectory: self repository subdirectory; + subdirectory: (self repository subdirectory ifNil: [ self defaultSubdirectory ]); yourself. dialog openDialogWithSpec okAction: [ diff --git a/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/defaultSubdirectory.st b/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/defaultSubdirectory.st new file mode 100644 index 0000000000..f9fa96dba0 --- /dev/null +++ b/Iceberg-TipUI.package/IceTipRepairLocateRepository.class/instance/defaultSubdirectory.st @@ -0,0 +1,3 @@ +executing +defaultSubdirectory + ^ IceLibgitRepository defaultCodeSubdirectory \ No newline at end of file