Re: simple line drawing

Mike,

Works like a champ!

Thanks,

Gene

On 12 Apr 2007 at 12:45, Mike Ghan wrote:

> Hi Gene,
>
> Yep, we're still using V2.2.9, although I'm most of the way through
> validating V3.0.8. The changes to SWOOP (ASWOOP.f) are significant for
> our application.
>
> Anyhow, I've modified the example to compile with either version - it's
> at the same link.
>
> I was not able to reproduce your second error "a @".
>
> Mike
>
> -----Original Message-----
> From: sftalk-bounce_at_forth.com [mailto:sftalk-bounce_at_forth.com] On Behalf
> Of Gene LeFave
> Sent: Thursday, April 12, 2007 12: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
> ----------------------------------------------------------------------
>
> ----------------------------------------------------------------------
> 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/757 - Release Date: 4/11/2007 5:14 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 - 14:20:44 PDT