hlind.tcl

这是一个Linux下的集成开发环境

proc Test {} {
    set h [tixHList .h -indicator 1 -indent 20]
    pack $h -expand yes -fill both
    button .b -text close -command "Done forced"
    pack .b

    $h add hello -text hello
    $h add noind -text hello

    test {$h indicator} {args}
    test {$h indicator bad} {unknown}

    # Test for create
    #
    #

    test {$h indicator create} {args}
    test {$h indicator create xyz} {{not found}}
    test {$h indicator create hello -itemtype} {missing}
    test {$h indicator create hello -itemtype bad} {unknown}
    test {$h indicator create hello -itemtype imagetext \
	-image [tix getimage plus]}

    # Test for cget
    #
    test {$h indicator cget} {args}
    test {$h indicator cget hello} {args}
    test {$h indicator cget hello arg arg} {args}
    test {$h indicator cget noind -text} {{does not have}}
    test {$h indicator cget hello -bad} {{unknown}}
    test {$h indicator cget hello -image}

    # Test for size
    #
    test {$h indicator size} {args}
    test {$h indicator size hello hi} {args}
    test {$h indicator size bad} {{not found}}
    test {$h indicator size noind} {{does not have}}
    test {set x [$h indicator size hello]}
    test {$h indicator cget hello -image} {{does not}}

    # Test for delete
    #
    test {$h indicator delete} {args}
    test {$h indicator delete hello hi} {args}
    test {$h indicator delete bad} {{not found}}
    test {$h indicator delete hello}
    test {$h indicator cget hello -image} {{does not}}

    update
}