3 lines
148 B
Tcl
3 lines
148 B
Tcl
# Simulate a full click cycle: button down and up
|
|
event generate .okBtn <ButtonPress-1> -x 5 -y 5
|
|
event generate .okBtn <ButtonRelease-1> -x 5 -y 5
|