[KCP][FIX] KCP-185-RespondsToCleans ( [er][et][sm][cd] Works as advertised; Recommend including )

[tomkoenig at mindspring.com]

14 classes; 17 methods reviewed and tested using 3.7alpha #5657
Test cases follow:

(AnimatedGIFReadWriter formsFromFileNamed: 'mshead.gif') allImages  
this fails but not before it tests the change

CodeLoader (taken from example in class comments (removed invalid cache
messages)
	| loader |
	loader _ CodeLoader new.
	loader baseURL:'http://isgwww.cs.uni-magdeburg.de/~raab/test/'.
	"Sources and segments can be loaded in parallel"
	loader loadSourceFiles: #('file1.st' 'file2.st.gz').
	loader loadSegments: #('is1.extseg' 'is2.extseg.gz').
	"Install sources first - will wait until the files are actually loaded"
	loader installSourceFiles.
	"And then the segments"
	loader installSegments.


(FlashMorphReader on: (HTTPSocket httpGet:
'http://www.zogotounga.net/DAs/fmis.swf' 
    accept:'application/x-shockwave-flash')) processFile startPlaying
openInWorld.


CodeLoader (taken from examples method on class side (extended to act as
test)
	| writer extent center |
	writer := GIFReadWriter on: (FileStream newFileNamed: 'anim.gif').
	writer loopCount: 20.		"Repeat 20 times"
	writer delay: 10.		"Wait 10/100 seconds"
	extent := 42 at 42.
	center := extent / 2.
	Cursor write showWhile: [
		[2 to: center x - 1 by: 2 do: [:r |
			"Make a fancy anim without using Canvas - inefficient as hell"
			| image |
			image := ColorForm extent: extent depth: 8.
			0.0 to: 359.0 do: [:theta | image colorAt: (center + (Point r: r
degrees: theta)) rounded                                                
    put: Color red].
			writer nextPutImage: image]
		]	ensure: [writer close]].	
	writer nextImage


(ImageReadWriter on: (ReadStream on: 'mshead.gif')) close


(JPEGReadWriter2 on: (ReadWriteStream on: 'abcd'))  nextImage

(PNGReadWriter on: (ReadStream on: 'pngs-img-ie5mac-micro.png'))
nextImage
this puts up a debugger but not before testing changed method

(PluginHTTPRequest for:'www.altavista.digital.com/' in: (HTTPLoader
default))  contents 
(also comment out semaphore wait)

(PluginHTTPRequest for:'www.altavista.digital.com/' in: (HTTPLoader
default)) signalAbort
(also force nonNil stream)

ResourceManager reloadCachedResources

(SecurityManager default)  fileInObjectAndCode: (ReadStream on: #(abcd)
) (also force two called methods to return false)

(SunAudioFileWriter onFileNamed: 'sun') closeFile.
this puts up a debugger but not before testing changed method

(TTFontReader parseFileNamed: 'c:\windows\fonts\arial.ttf') asMorph open

ZipEncoder on: (ReadStream on: #(abcd) ) close













<This post brought to you by BFAV2>