REM  *****  BASIC  *****

Sub Singleton
	oSingleton = com.sun.star.logging.LoggerPool
	
	oInstance1 = oSingleton.get()
	msgbox oInstance1.dbg_properties
	
	oCtx = GetDefaultContext()
	oInstance2 = oSingleton.get( oCtx )
	msgbox oInstance2.dbg_properties
	
	' Uncommenting this should result in an error "Invalid procedure call"
	'oInstanceErr1 = oSingleton.get( 42 )
	
	' Uncommenting this should result in an error "Invalid procedure call"
	'oInstanceErr2 = oSingleton.get( oCtx, 42 )
	
End Sub