[Pkg] The Trunk: System-pre.1063.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 9 14:34:38 UTC 2019


Patrick Rein uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-pre.1063.mcz

==================== Summary ====================

Name: System-pre.1063
Author: pre
Time: 9 May 2019, 4:34:28.264225 pm
UUID: 23cc0048-a923-3a4c-b799-4e2c18feadc4
Ancestors: System-dtl.1062

Deprecates classes and methods related to executing Squeak in a web browser through a browser plugin. They can be loaded through the 60Deprecated-NSPlugin-System-Support package.

=============== Diff against System-dtl.1062 ===============

Item was removed:
- HTTPDownloadRequest subclass: #PluginHTTPDownloadRequest
- 	instanceVariableNames: 'fileStream'
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'System-Download'!
- 
- !PluginHTTPDownloadRequest commentStamp: '<historical>' prior: 0!
- HTTPBrowserRequest attempts to fetch the contents through a Webbrowser. This works transparently if Squeak is not running in the browser.!

Item was removed:
- ----- Method: PluginHTTPDownloadRequest>>contentStream (in category 'accessing') -----
- contentStream
- 	semaphore wait.
- 	fileStream
- 		ifNotNil: [^ fileStream].
- 	^ content
- 		ifNotNil: [content isString
- 				ifTrue: [self error: 'Error loading ' , self url printString]
- 				ifFalse: [content contentStream]]!

Item was removed:
- ----- Method: PluginHTTPDownloadRequest>>contents (in category 'accessing') -----
- contents
- 	| |
- 	semaphore wait.
- 	(content isNil and:[fileStream notNil]) ifTrue:[
- "		pos := fileStream position."
- 		fileStream position: 0.
- 		content := MIMEDocument content: fileStream upToEnd.
- 		fileStream close.
- 	].
- 	^content!

Item was removed:
- ----- Method: PluginHTTPDownloadRequest>>maxAttempts (in category 'accessing') -----
- maxAttempts
- 	"Return the number of attempts to retry before giving up"
- 	^3!

Item was removed:
- ----- Method: PluginHTTPDownloadRequest>>signalAbort (in category 'accessing') -----
- signalAbort
- 	fileStream ifNotNil: [
- 		fileStream close].
- 	fileStream := nil.
- 	super signalAbort.!

Item was removed:
- ----- Method: PluginHTTPDownloadRequest>>startRetrieval (in category 'accessing') -----
- startRetrieval
- 	| attempts |
- 	attempts := self maxAttempts.
- 	"Note: Only the first request may fail due to not running in a browser"
- 	url first = $/
- 		ifTrue: [url := url copyFrom: 2 to: url size].
- 	fileStream := FileStream requestURLStream: url ifError:[^super startRetrieval].
- 	[fileStream == nil] whileTrue:[
- 		attempts := attempts - 1.
- 		attempts = 0 ifTrue:[^self content:'Error downloading file'].
- 		fileStream := FileStream requestURLStream: url].
- 	semaphore signal.!



More information about the Packages mailing list