#% text_encoding = iso8859_1


def_package(:test1)
$
_package test1
$
def_slotted_exemplar(:t1_explr,
	{{:s1,_unset,:writable}
	},{})
$
_pragma(classify_level=basic)
_method t1_explr.a_meth()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/07 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	show(:t1_explr,:|a_meth()|)
	show(:s1,.s1)
		
_endmethod
$

_package user
$

def_slotted_exemplar(:user_explr,
	{{:s2,_unset,:writable}
	},{@test1:t1_explr})
$
_pragma(classify_level=basic)
_method user_explr.a_meth()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/07 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	_super.a_meth()
	show(:user_explr,:|a_meth()|)
	show(:s2,.s2)
_endmethod
$
_pragma(classify_level=basic)
_method user_explr.new()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/16 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	_return _clone.init()
		
_endmethod
$

_pragma(classify_level=basic)
_method user_explr.init()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/16 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	>> _self 
		
_endmethod
$

def_slotted_exemplar(:t1_explr,
	{
	},{@test1:t1_explr})
$

def_slotted_exemplar(:user_explr2,
	{{:s2,_unset,:writable}
	},{:t1_explr})
$
_pragma(classify_level=basic)
_method user_explr2.a_meth()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/07 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	_super.a_meth()
	show(:user_explr,:|a_meth()|)
	show(:s2,.s2)
_endmethod
$
_pragma(classify_level=basic)
_method user_explr2.new()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/16 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	_return _clone.init()
		
_endmethod
$

_pragma(classify_level=basic)
_method user_explr2.init()
	## Parameters  : 
	## Returns     : 
	## Function    : 
	## Methodology : 
	#---------------- HISTORY ---------------------
	# (2019/12/16 - Mark Field (FCSI)): Created.
	#----------------------------------------------
	>> _self 
		
_endmethod
$
_block
	_local t << user_explr2.new()
	t.s1 << :s1_set
	t.s2 << :s2_set
	t.a_meth()
_endblock
$