oop.tcl

来自「这是一个Linux下的集成开发环境」· TCL 代码 · 共 12 行

proc About {} {
    return "Testing OOP features"
}

proc Test {} {
    test {tix} {arg}
    test {tixWidgetClass} {arg}
    test {tixClass} {arg}
    test {tixNoteBook} {arg}
    test {tixAppContext} {arg}
}