'' examples/manual/udt/baseinit2.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'BASE (initializer)'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgBaseInit
'' --------

Type ComplexParent
	As Integer i
	Declare Constructor( ByVal As Integer = 0 )
End Type

Constructor ComplexParent( ByVal i As Integer = 0 )
	this.i = i
End Constructor

Type Child Extends ComplexParent
	Declare Constructor( )
	Declare Constructor( ByRef As Child )
End Type

Constructor Child( )
	'' Base UDT constructor call
	Base( 1 )
End Constructor

Constructor Child( ByRef rhs As Child )
	'' Base UDT constructor call
	Base( rhs.i )
End Constructor