Re: simple line drawing

The mis-spelling of DERIVEDWINDOW was my fault originally, and it was
corrected a few releases back. This would mean that any code which
referenced it in previous versions would have used DERRIVEDWINDOW.

Sigh...

rick

On 4/12/07, Gene LeFave <gene_at_tekdata.com> wrote:
> 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
----------------------------------------------------------------------
Received on Thu Apr 12 2007 - 12:37:54 PDT