Update of /cvsroot/win32forth/win32forth/src/lib
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv7406/win32forth/src/lib
Modified Files:
AXControl.F
Log Message:
gah: minor mods
Index: AXControl.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/AXControl.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** AXControl.F 11 Jun 2006 07:37:27 -0000 1.4
--- AXControl.F 29 Jun 2006 10:14:14 -0000 1.5
***************
*** 60,64 ****
:M AXCreate: ( str len -- )
\ *G Initialize the ActiveX control
! 1+ asc>uni over + 0 swap 2 - w! dup >r
AXUCreate: self
r> free drop
--- 60,64 ----
:M AXCreate: ( str len -- )
\ *G Initialize the ActiveX control
! 1+ asc>uni over + 0 swap 2 - w! dup>r
AXUCreate: self
r> free drop
***************
*** 67,73 ****
:M QueryInterface: ( ppv riid -- flag )
\ *G flag is true on error
! 0 >r rp@ hwnd AtlAxGetControl if r> drop true exitm then
rp@ COM IUnknown IQueryInterface
! rp@ COM IUnknown IReleaseRef drop r> drop
;M
--- 67,73 ----
:M QueryInterface: ( ppv riid -- flag )
\ *G flag is true on error
! 0 >r rp@ hwnd AtlAxGetControl if r>drop true exitm then
rp@ COM IUnknown IQueryInterface
! rp@ COM IUnknown IReleaseRef drop r>drop
;M
|
