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

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

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

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

Name: Rio-Debug-kph.1
Author: kph
Time: 7 November 2008, 2:59:06 am
UUID: 5abccac6-28d5-413a-b41d-d4cda5131b95
Ancestors: 

debug ftp

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

SystemOrganization addCategory: #'Rio-Debug'!

FTPClient subclass: #FTPClientDebug
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Rio-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!