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
----------------------------------------------------------------------
Received on Thu Apr 12 2007 - 12:15:04 PDT