package require XOTcl
xotcl::Class A

Class create A -slots {
	Attribute type -default DIGIT -type ascii 
	Attribute value
}

A instproc init {_type _value} {
my type $_type
my value $_value
	
next
}

A instproc testA {} {
puts "testA was called"
}