![]() |
||
| Home | SwiftForth Archive | SwiftX Archive | |

\ Start two SwiftForth windows.
\ Extract this value from the SwiftForth window which is the target. Use
\ the phrase "CONSOLE-WINDOW +ORDER HTTY H." (ingoring quotes) to find
\ it. Then compile this code in another SwiftForth window and you'll be
\ able to send arbitrary commands to the first one.
\ You could automate this process using EnumWindows searching
\ for SwiftForth windows, then use EnumChildWindows to search
\ for the "TTY" window.
$350384 VALUE OTHER-HTTY
: PUTC ( char -- )
OTHER-HTTY WM_CHAR ROT 0 SendMessage DROP ;
: PUTS ( zstring -- )
BEGIN COUNT DUP WHILE PUTC REPEAT 2DROP 13 PUTC ;
Z" HERE 100 DUMP" PUTS
----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe" to sftalk-request_at_forth.com
For list command help, send subject "help" to sftalk-request_at_forth.com
Message archives are located at http://www.forth.com/archive/sftalk
----------------------------------------------------------------------
This list is a forum for SwiftForth users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Fri Sep 05 2003 - 13:31:36 PDT
This archive was generated by hypermail 2.2.0 : Tue Dec 02 2008 - 03:04:33 PST