[Pkg] Rio: File-Debug-kph.1.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of File-Debug was added to project Rio:
http://www.squeaksource.com/Rio/File-Debug-kph.1.mcz

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

Name: File-Debug-kph.1
Author: kph
Time: 13 November 2008, 2:19:30 am
UUID: b92ead52-6b95-41e1-9146-68f52106ff73
Ancestors: 

First release of File version of Rio

==================== Snapshot ====================

SystemOrganization addCategory: #'File-Debug'!

FTPClient subclass: #FTPClientDebug
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'File-Debug'!

----- Method: FTPClientDebug>>checkResponse:onError:onWarning: (in category 'as yet unclassified') -----
checkResponse: aResponse onError: errorBlock onWarning: warningBlock
	"Get the response from the server and check for errors. Invoke one of the blocks if an error or warning is encountered. See class comment for classification of error codes."

	self responseIsError
		ifTrue: [ Transcript show: aResponse; cr. errorBlock value: aResponse].
	self responseIsWarning
		ifTrue: [  Transcript show: aResponse; cr. warningBlock value: aResponse].
!

----- Method: FTPClientDebug>>fetchPendingResponse (in category 'as yet unclassified') -----
fetchPendingResponse
	 
	| r |
	
	r := super fetchPendingResponse.

	Transcript show: self lastResponse ; cr. 

	
	^ r!

----- Method: FTPClientDebug>>sendCommand: (in category 'as yet unclassified') -----
sendCommand: aString
	Transcript show: aString; space.
	
	super sendCommand: aString!