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

Well it's really not a very good example.
Rick Van Norman created examples of SWOOP class based Windows skeleton
applications. I expanded his example code to include the Scribble.f
behavior - posted to our site:
http://www.logix-controls.com/SwiftForth/SWOOP-Scribble.zip
I added random coloring to show the proper way to create and destroy
Windows object.
Hope this helps,
Mike
-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com] On Behalf
Of Kenneth Butterfield
Sent: Wednesday, April 11, 2007 9:35 AM
To: sftalk_at_forth.com
Subject: [sftalk] Re: simple line drawing
Hi Mike
Thanks for explaining how to use canvas. It is the best example of
objects I have seen in SWIFTFORTH. Changing the line color would also be
nice. I had not run into CANVAS and I did not find it in either the
samples or the forth manuals.
Ken B
At 07:26 PM 4/9/2007, you wrote:
>Hi Charley,
>
>Windows does takes a bit to get used to. Try the following:
>
>-----------------------------------------------
>
>CANVAS BUILDS MY-CANVAS
>
>HWND GetDC ( console hDC ) MY-CANVAS ATTACH
>
>10 100 200 300 MY-CANVAS Line
>
>20 120 S" Hello" MY-CANVAS Text
>
>MY-CANVAS HDC $0000FF SetTextColor DROP
>
>20 150 S" World" MY-CANVAS Text
>
>-----------------------------------------------
----------------------------------------------------------------------
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 Wed Apr 11 2007 - 11:08:26 PDT
This archive was generated by hypermail 2.2.0 : Wed Jan 07 2009 - 03:04:18 PST