'From Pharo0.1 of 16 May 2008 [Latest update: #10373] on 31 August 2009 at 5:24:32 pm'!
Object subclass: #KernelLibrary
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Dolphincompatibility-Idioms'!

!KernelLibrary methodsFor: 'as yet unclassified' stamp: 'Bill Schwab 8/28/2009 16:15'!
outputDebugString:aString
	"8-09 - for Windows"
	
	OSPlatform current platformFamily = #Windows ifTrue:[
		^self windowsOutputDebugString:aString.
	].
! !

!KernelLibrary methodsFor: 'as yet unclassified' stamp: 'Bill Schwab 8/28/2009 16:15'!
windowsOutputDebugString:aString
	"8-09 - for Windows"
	
	<apicall: void 'OutputDebugStringA' (char*) module:'kernel32.dll'>
	^self externalCallFailed.
! !

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

KernelLibrary class
	instanceVariableNames: 'Default'!

!KernelLibrary class methodsFor: 'as yet unclassified' stamp: 'Bill Schwab 10/13/2008 09:06'!
default
	Default isNil ifTrue:[
		Default := self new.
	].
	^Default.

! !