Marcel Taeumel uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-mt.254.mcz

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

Name: Network-mt.254
Author: mt
Time: 8 December 2021, 4:39:04.003213 pm
UUID: ea8179f1-4801-7f42-ba46-23647dacfb1d
Ancestors: Network-mt.253

Removes two (explicit) dependencies:
- MorphicExtras
- XML-Parser

=============== Diff against Network-mt.253 ===============

Item was changed:
  ----- Method: HTTPServerDirectory>>entries (in category 'file directory') -----
  entries 
  	| answer ftpEntries |
  	answer := HTTPSocket httpGetDocument: self dirListUrl.
  	answer isString
  		ifTrue: [^self error: 'Listing failed: ' , answer]
  		ifFalse: [answer := answer content].
  	answer first = $< ifTrue:
  		[(answer first: 5) =  '<?xml' ifTrue:
+ 			[(self environment classNamed: #XMLDOMParser) ifNotNil:
+ 				[:parserClass | ^ self parseFTPEntriesFromXML: (parserClass parseDocumentFrom: answer readStream useNamespaces: true)]].
- 			[(Smalltalk classNamed: #XMLDOMParser) ifNotNil:
- 				[^self parseFTPEntriesFromXML: (XMLDOMParser parseDocumentFrom: answer readStream useNamespaces: true)]].
  		 self error: 'Listing failed: ' , answer].
  	ftpEntries := answer lines.
  	^ ftpEntries 
  		collect:[:ftpEntry | self class parseFTPEntry: ftpEntry]
  		thenSelect: [:entry | entry notNil]!

Item was added:
+ ----- Method: MIMEDocument>>url (in category 'accessing') -----
+ url
+ 	"Answer the URL the receiver was downloaded from.  It may legitimately be nil."
+ 
+ 	^ url!