tixselect.wgt

来自「一个跨平台的TCL/TK可视开发环境类似VC. TCL/TK是一个跨平台的脚本」· WGT 代码 · 共 24 行

Name		tixSelect
Lib		tix

Class		TixSelect
Icon		icon_tixSelect.gif
TreeLabel	Tix Select
DefaultOptions	-radio 1
DumpCmd		vTcl:dump:TixSelect
InsertCmd	vTcl::widgets::tix::select::insertCmd
MegaWidget   yes

namespace eval vTcl::widgets::tix::select {

    proc insertCmd {target} {
        # Add two buttons to start with.  Unfortunately, additional options have
        # to be added manually by the user, and the project re-read into vtcl.

        $target add but1 -bitmap warning
        $target add but2 -bitmap error
        $target add but3 -bitmap info
    }
}