From: ducasse at iam.unibe.ch
To: squeak-dev at lists.squeakfoundation.org
Subject: [BUG]ServerDirectory class(Object)>>error:

- Create a bookMorph
- Select save page on server
   (instead of prompting you for a server as indicated in the class  
comment)


14 June 2004 9:26:01 pm

VM: unix - a SmalltalkImage
Image: Squeak3.7beta [latest update: #5948]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir  
/Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes/JUNE2004
Trusted Dir  
/Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes/JUNE2004/ 
secure
Untrusted Dir  
/Volumes/Data/Users/ducasse/Workspace/FirstCircle/SqDemoes/JUNE2004/ 
untrusted

ServerDirectory class(Object)>>error:
	Receiver: ServerDirectory
	Arguments and temporary variables:
		aString: 	'Server name not found'
	Receiver's instance variables:
		superclass: 	Object
		methodDict: 	a MethodDictionary(#acceptsUploads->a CompiledMethod  
(3569) #accept...etc...
		format: 	158
		instanceVariables: 	#('server' 'directory' 'type' 'user'  
'passwordHolder' 'group...etc...
		organization: 	('accessing' acceptsUploads: altUrl altUrl:  
bareDirectory copy di...etc...
		subclasses: 	#(ServerFile ProjectSwikiServer)
		name: 	#ServerDirectory
		classPool: 	a Dictionary(#LocalEToyBaseFolderSpecs->nil  
#LocalEToyUserListUrls->...etc...
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil

[] in ServerDirectory class>>serverNamed: {[self error: 'Server name  
not found']}
	Arguments and temporary variables:
		nameString: 	'DaniOnJumbo'

[] in ServerDirectory class>>serverNamed:ifAbsent: {[aBlock value]}
	Arguments and temporary variables:
		nameString: 	'DaniOnJumbo'
		aBlock: 	[] in ServerDirectory class>>serverNamed: {[self error:  
'Server name no...etc...

Dictionary>>at:ifAbsent:
	Receiver: a Dictionary('Bobs  
SuperSwiki'->SuperSwikiServer<209.143.91.36>  
'SqueakDotOrg'->HTTPServer...etc...
	Arguments and temporary variables:
		key: 	'DaniOnJumbo'
		aBlock: 	[] in ServerDirectory class>>serverNamed:ifAbsent: {[aBlock  
value]}
		assoc: 	nil
	Receiver's instance variables:
		tally: 	9
		array: 	#(nil nil nil  
'Squeakland-Uploads'->HTTPServerDirectory<www.squeakalpha....etc...


--- The full stack ---
ServerDirectory class(Object)>>error:
[] in ServerDirectory class>>serverNamed: {[self error: 'Server name  
not found']}
[] in ServerDirectory class>>serverNamed:ifAbsent: {[aBlock value]}
Dictionary>>at:ifAbsent:
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ServerDirectory class>>serverNamed:ifAbsent:
ServerDirectory class>>serverNamed:
ServerDirectory class>>defaultStemUrl
PasteUpMorph(Morph)>>saveOnURLbasic
[] in BookMorph>>savePagesOnURL {[:aPage | aPage isInMemory   ifTrue:  
[aPage presenter     ifNotNil: [aPage p...]}
OrderedCollection>>do:
BookMorph>>savePagesOnURL
[] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector  
numArgs) = 0   ifTrue: [target perform: selector] ...]}
BlockContext>>ensure:
CursorWithMask(Cursor)>>showWhile:
MenuItemMorph>>invokeWithEvent:
MenuItemMorph>>mouseUp:
MenuItemMorph>>handleMouseUp:
MouseButtonEvent>>sentTo:
MenuItemMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuItemMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchDefault:with:
MorphicEventDispatcher>>dispatchEvent:with:
MenuMorph(Morph)>>processEvent:using:
MenuMorph(Morph)>>processEvent:
MenuMorph>>handleFocusEvent:
[] in HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.   
ActiveEvent := anEvent.  result := focusHolder     han...]}
[] 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 := capturingGest...]}
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]}