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!
packages@lists.squeakfoundation.org