[Win32forth-cvs] win32forth/src/lib AXControl.F,1.4,1.5

[George H. <geo...@us...>]

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