Headless-ToolBuilder.st

UIManager subclass: #HeadlessUIManager
	instanceVariableNames: 'stdin stdout stderr'
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Headless-ToolBuilder'!

!HeadlessUIManager methodsFor: 'private' stamp: 'fbs 8/5/2013 07:12'!
initializeWithStdIn: streamOne stdOut: streamTwo stdErr: streamThree
	stdin := streamOne.
	stdout := streamTwo.
	stderr := streamThree.! !


!HeadlessUIManager methodsFor: 'ui requests' stamp: 'fbs 8/6/2013 17:57'!
displayProgress: titleString at: aPoint from: minVal to: maxVal during: workBlock
	stdout nextPutAll: titleString; lf.! !

!HeadlessUIManager methodsFor: 'ui requests' stamp: 'fbs 8/5/2013 07:18'!
inform: aString
	stdout nextPutAll: aString; lf.! !

!HeadlessUIManager methodsFor: 'ui requests' stamp: 'fbs 8/6/2013 17:59'!
informUserDuring: workBlock
	ProgressInitiationException
		display: ''
		at: 0@0
		from: 0
		to: 0
		during: workBlock.! !

"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

HeadlessUIManager class
	instanceVariableNames: ''!

!HeadlessUIManager class methodsFor: 'instance creation' stamp: 'fbs 8/5/2013 07:11'!
stdIn: stdin stdOut: stdout stdErr: stderr
	^ self basicNew initializeWithStdIn: stdin stdOut: stdout stdErr: stderr.! !