Re: simple line drawing

From: Anil Rodrigues <arodrix_at_weld.com>
Date: Thu, 12 Apr 2007 16:00:36 -0400

I downloaded Mike's SWOOP-Scribble.zip, unzipped in a new directory,
included MAIN, typed GO as directed, and it ran without problem.
Using SF 3.0.3.
Are we looking at the same thing? 3.0.3 is not quite the latest,
admittedly.
Cheers! Anil

-----Original Message-----
From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com]On Behalf
Of Gene LeFave
Sent: Thursday, April 12, 2007 3:08 PM
To: sftalk_at_forth.com
Subject: [sftalk] Re: simple line drawing

Mike,

I tried to load scribble but had a few problems.

In STATUSBAR.F I think DERRIVEDWINDOW s.b. DERIVEDWINDOW
line12

I then get a access error on line 80 at the reference to a @
   : WHICH-PANE ( xpos -- n )
      PANEMAP 0 LOCALS| n a xpos | BEGIN
         a @ DUP 0< IF EXIT THEN
         DUP xpos > IF DROP n EXIT THEN
         CELL +TO a 1 +TO n
      AGAIN ;

Have you ever compilied this on latest SF?

Gene

On 11 Apr 2007 at 11:09, Mike Ghan wrote:

> 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
> ----------------------------------------------------------------------
>
>
>
>
> --
> No virus found in this incoming message.
> Checked by AVG Free Edition.
> Version: 7.5.446 / Virus Database: 269.2.0/756 - Release Date: 4/10/2007 10:44 PM
>

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

This archive was generated by hypermail 2.2.0 : Tue Dec 02 2008 - 03:04:42 PST