Re: File to memory and memory to file allot + mem to swiftforth

I'm pretty sure that this isn't what you wanted, but
here goes anyway...

{ ====================================================================
hello.f

Copyright (C) 2002 FORTH, Inc. <br> Rick VanNorman rvn_at_forth.com
==================================================================== }

GENERICWINDOW SUBCLASS HELLOWINDOW

   : MyWindow_WindowName ( -- z ) Z" TEST WINDOW" ;
   : MYWindow_Shape ( -- x y cx cy ) 500 20 300 200 ;

   : OnPaint ( -- res )
      [OBJECTS PAINTCANVAS MAKES PC OBJECTS]
      mHWND PC ATTACH
      mHWND PAD :: GetClientRect DROP
      PC HDC Z" filename.ext" -1 PAD
      DT_SINGLELINE DT_CENTER OR DT_VCENTER OR
      :: DrawText DROP 0 ;

   WM_SIZE MESSAGE: ( -- res )
      mHWND 0 -1 :: InvalidateRect ;

END-CLASS

: MAIN ( -- ) 0 'MAIN !
   [OBJECTS HELLOWINDOW MAKES APP OBJECTS]
   DISPATCHER 0 ExitProcess ;

*********** REPLY SEPARATOR ***********

On 3/30/2002 at 7:32 PM Damir wrote:

>Hello,
>I am newbie to Forth.
>Please tell me how to display filename.ext in simple
>Windows window.
>Thank you.
>
> Damir
>

----------------------------------------------------------------------
sftalk_at_forth.com The SwiftForth programming discussion email list
To unsubscribe, send subject "unsubscribe sftalk" to listar_at_forth.com
For help with listar commands, send subject "help" to listar_at_forth.com
Archives are located at http://www.forth.com/sftalk -- check them out!
Search the archives! Visit http://www.forth.com/search for details.
Received on Sat Mar 30 2002 - 12:49:34 PST