| 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 |