=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
From:    Ruvim Pinka <ruvim@forth.org.ru>
To:      All <spf-dev@lists.sourceforge.net>
Date:    Sunday, May 12, 2002, 9:43:55 PM
Subject: [Spf-dev] CALLBACK
Files:   <>
--====----====----====----====----====----====----====----====----====----===--
!

in answer to Nicholas Nemtsev, 16.04.2002 21:07

NN>   ,      
NN>   (WNDPROC:).     
NN>  USER-INIT     ..,    
NN>   -    USER-  .
NN>      (  ,    
NN>   (EDI)) -  .

  .

CALLBACK-   ,
  .     
    - (.. 
   -).

 ,    
    user-..
   , ..   
-  user-,   
    CALLBACK-.

      
 -,  USER-INIT (  FORTH-INSTANCE> )
      USER-EXIT (  <FORTH-INSTANCE )

    CALLBACK-
  _WNDPROC-CODE ,   
 (  ,     API).

: QUICK_WNDPROC ( xt "name" -- )
  CREATE  ( -- enter_point )
  WNDPROC-CODE COMPILE,
  ,
;
 ,   ,  by CALLBACK , 
    ?
-    ,    
  [']

: MyCallBackProc ( -- )
  S" test passed" -11 GetStdHandle WRITE-FILE DROP
;
' MyCallBackWord QUICK_WNDPROC MyCallBackProc
MyCallBackProc ( -- addr ) API-CALL
test passed Ok


WBR
__________
Ruvim



_______________________________________________________________

Have big pipes? SourceForge.net is looking for download mirrors. We supply
the hardware. You get the recognition. Email Us: bandwidth@sourceforge.net
_______________________________________________
Spf-dev mailing list
Spf-dev@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/spf-dev

=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

