package require Itcl
itcl::class Person {
public variable name ""
public variable phone ""
public variable email ""
constructor {args} {
set aaa "sd"
eval configure $args
}
destructor {}
}
Person aaa -name "aa" -phone "1243" -email "ab@cc.com"
aaa cget -name