view release on metacpan or  search on metacpan

tests/general/event0.tcl  view on Meta::CPAN

	update

	KeyboardEvent .e <Return>
	update
	Assert {$testEntry_Invoked == 1}
	Assert {$testEntry_value0 == $testEntry_value1}
    }

    TestBlock event0-1.2 {Typing characters in an entry widget} {
	set testEntry_value0 ""
	set val "Typing the keyboard ..."

	focus .e
	.e delete 0 end
	update
	KeyboardString .e $val
	update
	Assert {[tixStrEq "$testEntry_value0" "$val"]}
    }

    TestBlock event0-1.3 {Typing characters and slashes in an entry widget} {
	set testEntry_value0 ""
	set val "Typing the \\ keyboard ..."

	focus .e
	.e delete 0 end
	KeyboardString .e $val
	update
	Assert {[tixStrEq "$testEntry_value0" "$val"]}

	destroy .e
    }

    TestBlock event0-1.4 {Testing ClickListboxEntry} {
	listbox .l -selectmode single
	.l insert end "index 0"
	.l insert end "index 1"
	.l insert end "index 2"

	pack .l; update

	for {set x 0} {$x <= 2} {incr x} {
	    ClickListboxEntry .l $x single
	    update
	    Assert {[.l index active] == $x}
	    Assert {[.l curselection] == $x}
	}

	destroy .l
	update
    }

    TestBlock event0-1.5 {Clicking a button} {
	button .b -command "set foo 1"
	pack .b; update

	Click .b
	Assert {$foo == 1}
    }

    TestBlock event0-1.6 {Drag and selecting a combobox} {
	tixComboBox .c
	.c insert end 10
	.c insert end 10
	.c insert end 10
	.c insert end 10
	.c insert end 10
	pack .c; update

	HoldDown [.c subwidget arrow]
	Drag [.c subwidget listbox] 10 10
	Release [.c subwidget listbox] 10 10
	Release [.c subwidget arrow] -30 30

	Assert {[.c cget -value] == "10"}
    }
}