UIManager default informUserDuring: [ :bar |
		bar label: 'Downloading ...'.
		[ ZnClient new
			url: 'http://scg.unibe.ch/download/jk/sources/smalltalk-src-selected.zip';
			signalProgress: true;
			downloadTo: FileSystem workingDirectory ]
		on: HTTPProgress 
		do: [ :progress |
			progress isEmpty ifFalse: [ 
				bar current: progress percentage.
				progress total ifNotNil: [ :aTotalNumber |
					bar label: 'Downloading ' ] ].
			progress resume ] 
	].
(FileSystem zip: 'smalltalk-src-selected.zip' asFileReference) open workingDirectory