Mouse position: Difference between revisions
Content added Content deleted
No edit summary |
m (→{{header|Factor}}: fix errant semicolon) |
||
| Line 403: | Line 403: | ||
Replaces the text in the button with the relative and absolute coordinates of the mouse |
Replaces the text in the button with the relative and absolute coordinates of the mouse |
||
<lang factor>: replace-text ( button text -- ) |
<lang factor>: replace-text ( button text -- ) |
||
[ drop children>> pop drop ] [ >label add-gadget drop ] 2bi; |
[ drop children>> pop drop ] [ >label add-gadget drop ] 2bi ; |
||
: present-locations ( loc1 loc2 -- string ) |
: present-locations ( loc1 loc2 -- string ) |
||
[ |
[ |
||