[BUG] Not displaying full URL in HTTPClient error message

humasect at shaw.ca humasect at shaw.ca
Tue Nov 30 09:26:27 UTC 2004


Offending method: HTTClient class>>httpGetDocument:
Test with File List -> any remote connection that won't resolve
(SqueakDotOrg as example). Error dialog displays only characters before
the ':' it seems.

The error report: 30 November 2004 1:26:10 am

VM: Win32 - a SmalltalkImage
Image: Squeak3.9alpha [latest update: #6474]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Squeak
Trusted Dir C:\Squeak\Humasect
Untrusted Dir C:\My Squeak\Humasect

HTTPClient class(Object)>>error:
	Receiver: HTTPClient
	Arguments and temporary variables: 
		aString: 	'Listing failed: Could not resolve the server named: ftp'
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#HTTPClient
		classPool: 	a Dictionary(#BrowserSupportsAPI->nil
#RunningInBrowser->false )
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil

HTTPClient class>>getDirectoryListing:
	Receiver: HTTPClient
	Arguments and temporary variables: 
		dirListURL: 	'ftp://www.squeak.org/Squeaklets/'
		answer: 	'Could not resolve the server named: ftp'
		ftpEntries: 	nil
		ftpEntry: 	nil
		entry: 	nil
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary()
		format: 	2
		instanceVariables: 	nil
		organization: 	('as yet unclassified')

		subclasses: 	nil
		name: 	#HTTPClient
		classPool: 	a Dictionary(#BrowserSupportsAPI->nil
#RunningInBrowser->false )
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil

HTTPServerDirectory>>entries
	Receiver: HTTPServerDirectory<www.squeak.org>
	Arguments and temporary variables: 

	Receiver's instance variables: 
		server: 	'www.squeak.org'
		directory: 	'/Squeaklets'
		type: 	#ftp
		user: 	nil
		passwordHolder: 	nil
		group: 	nil
		moniker: 	nil
		altURL: 	nil
		urlObject: 	nil
		client: 	nil
		loaderUrl: 	nil
		eToyUserListUrl: 	nil
		eToyUserList: 	nil
		keepAlive: 	false
		acceptsUploads: 	true

[] in FileList2>>listForPatterns: {[:pat | newList   addAll: (directory
entries     select: [:entry | fileSelec...]}
	Arguments and temporary variables: 
		anArray: 	an OrderedCollection('*')
		sizePad: 	nil
		newList: 	a Set()
		pat: 	'*'
		entry: 	nil
		mx: 	nil
		e: 	nil


--- The full stack ---
HTTPClient class(Object)>>error:
HTTPClient class>>getDirectoryListing:
HTTPServerDirectory>>entries
[] in FileList2>>listForPatterns: {[:pat | newList   addAll: (directory
entries     select: [:entry | fileSelec...]}
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
OrderedCollection>>do:
FileList2>>listForPatterns:
[] in FileList2(FileList)>>updateFileList {[(pattern   findTokens:
(String     with: Character cr     with: Character l...]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
FileList2(FileList)>>updateFileList
FileList2(FileList)>>pattern:
FileList2>>directory:
FileList2>>setSelectedDirectoryTo:
SimpleHierarchicalListMorph>>setSelectedMorph:
SimpleHierarchicalListMorph>>mouseUp:
SimpleHierarchicalListMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
SimpleHierarchicalListMorph(Morph)>>handleEvent:
SimpleHierarchicalListMorph(Morph)>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand _ self. 
ActiveEvent _ anEvent.  result _ focusHolder     handle...]}
[] in PasteUpMorph>>becomeActiveDuring: {[aBlock value]}
BlockContext>>on:do:
PasteUpMorph>>becomeActiveDuring:
HandMorph>>sendFocusEvent:to:clear:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor: {[:h |  ActiveHand _ h.  h
processEvents.  capturingGesture _ capturingGestur...]}
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess {[[World doOneCycle.  Processor
yield.  false] whileFalse.  nil]}
[] in BlockContext>>newProcess {[self value.  Processor
terminateActive]}



More information about the Squeak-dev mailing list