diff --git a/repository/Grafoscopio/GrafoscopioGUI.class.st b/repository/Grafoscopio/GrafoscopioGUI.class.st index 16e5366..49594bc 100644 --- a/repository/Grafoscopio/GrafoscopioGUI.class.st +++ b/repository/Grafoscopio/GrafoscopioGUI.class.st @@ -130,6 +130,10 @@ GrafoscopioGUI class >> dockingBar: anObject [ { #category : #'graphical interface' } GrafoscopioGUI class >> downloadingFrom: downloadUrl withMessage: aString into: location [ + | fileName | + + fileName := (downloadUrl splitOn: $/) last. + (location / fileName) exists ifTrue: [ (location / fileName) ensureDelete ]. [: bar | bar title: aString. [ZnClient new