This device has a touchscreen and there are no mouse events.
and the click event is just <ButtonPress> for the widgets in this SDK.
Anyhow Thanks Bong.
I found another way by using a temporary list and sending the buttons names by substitution as like below:
for { set x 1} { $x <= $counter}...
Thanks for you reply Bong.
But the SDK that i use for programming a POS device supports full TCL and a minor TK support.They have overrided most of the widgets options and we have a separate widget library and an engine to interpret that.
so I cannot use the -command option in that.
I tried...
I have a collection of button controls
Instead of binding in this way,
bind .Btn1 <ButtonPress> {display}
bind .Btn2 <ButtonPress> {display}
bind .Btn3 <ButtonPress> {display}
All the bindings should map to the same procedure.
I tried in this way.
for { set x 1} { $x <= $counter} {incr x} {...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.