immutable class TK_EVENT_INFO |
---|
**** | Information about an event. Created from the argument string. This should really be part of an even hierarchy.
__Implementation_detail:_Remember_that_the_window_id_gets_added_onto __the_beginning_of_the_callback_string._Offset_all_args_by_1 _ __Please_see http://www.icsi.berkeley.edu/~sather/Documentation/Gui/TclTkDocs/TkCmd/bind.n.html _ 0 = window id # = 1 a b c d = 2 3 4 5 f h k m = 6 7 8 9 o p s t = 10 11 12 13 w = 14 __x_y_A_B_=_15_16_17_18 E K N R = 18 19 20 21 T W X Y = 22 23 24 25 |
shared debug: BOOL := true; |
---|
shared debug: BOOL := true; |
---|
button_number: INT |
---|
**** | #ERR+"Button string:"+args[3]; |
create(args: ARRAY{STR}): SAME |
---|
**** | Create from the array of arguments that comes back from tcl #ERR+"Num args:"+args.size+" Args:"+args.str+"\n"; |
has_button_number: BOOL |
---|
has_coordinates: BOOL |
---|
has_key:BOOL |
---|
key:CHAR |
---|
mouse_coordinates(out x,out y: INT) |
---|
str: STR |
---|
**** | Return the args as a single string |
attr args: ARRAY{STR}; |
---|
attr args: ARRAY{STR}; |
---|
deb(msg: STR): BOOL |
---|
**** | If checking is on, and the debug flag is set, the message will be printed |
valid(s: STR): BOOL |
---|
**** | Return true if the field is valid, i.e. the first character is not the @ sign. Use valid_ascii for that field |
valid_ascii(s: STR): BOOL |
---|
**** | Return true if the field is valid, i.e. the first character is not the @ sign. The second character then holds the actual char Specially for the %A field. May be needed for other fields that can return an @ sign as a valid value |