cget tcl tk

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

转载于:https://www.cnblogs.com/greencolor/archive/2011/04/25/2027075.html