programming tools for Windows applications development
  Home  |   SwiftForth Archive  |   SwiftX Archive  |

Re: simple line drawing

From: Mike Ghan <MikeGhan_at_logix-controls.com>
Date: Wed, 11 Apr 2007 11:09:19 -0700

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