Offray/GrafoscopioUtils
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Non blocking downloads utility (see how they can be used in the Comtrade package).

Browse Source
This commit is contained in:
Offray Vladimir Luna Cárdenas 2017-08-15 11:54:55 +00:00
parent dadc950987
commit 76ee21f9a3
1 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
repository/Grafoscopio-Utils/GrafoscopioUtils.class.st
View File

@ -11,7 +11,7 @@ Class {
{ #category : #'graphical interface' }
GrafoscopioUtils class >> downloadingFrom: downloadUrl withMessage: aString into: location [
| fileName |
fileName := downloadUrl segments last.
fileName := (self sanitize: downloadUrl) segments last.
(location / fileName) ensureDelete.
[: bar |
bar title: aString.
@ -28,6 +28,24 @@ GrafoscopioUtils class >> downloadingFrom: downloadUrl withMessage: aString into
] asJob run.
]
{ #category : #'graphical interface' }
GrafoscopioUtils class >> getContentsFrom: url withMessage: aString [
| client |
[: bar |
bar title: aString.
[client := ZnClient new
enforceHttpSuccess: true;
get: (url);
signalProgress: true
]
on: HTTPProgress
do: [ :progress |
progress isEmpty ifFalse: [ bar current: progress percentage ].
progress resume ].
] asJob run.
^ client contents.
]
{ #category : #private }
GrafoscopioUtils class >> sanitize: url [
"I remove white spaces in url's and prepend 'http://' to urls when it is ommited, so