From 04d2c873b88af2858826437c349014a3922ad52c Mon Sep 17 00:00:00 2001
From: suke <suke@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>
Date: Fri, 16 Jun 2006 15:11:53 +0000
Subject: support  PROPERTYPUTREF. [ruby-talk:183042]

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10280 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
---
 ext/win32ole/tests/test_propertyputref.rb | 19 +++++++++++++++++++
 ext/win32ole/tests/testall.rb             |  1 +
 ext/win32ole/win32ole.c                   |  4 ++--
 3 files changed, 22 insertions(+), 2 deletions(-)
 create mode 100644 ext/win32ole/tests/test_propertyputref.rb

(limited to 'ext/win32ole')

diff --git a/ext/win32ole/tests/test_propertyputref.rb b/ext/win32ole/tests/test_propertyputref.rb
new file mode 100644
index 0000000000..742a53b578
--- /dev/null
+++ b/ext/win32ole/tests/test_propertyputref.rb
@@ -0,0 +1,19 @@
+require 'test/unit'
+require 'win32ole'
+
+class TestWIN32OLE_PROPERTYPUTREF < Test::Unit::TestCase
+  def setup
+    begin
+      @sapi = WIN32OLE.new('SAPI.SpVoice')
+    rescue WIN32OLERuntimeErro
+      @sapi = nil
+    end
+  end
+  def test_sapi
+    if @sapi
+      new_id = @sapi.getvoices.item(2).Id
+      @sapi.voice = @sapi.getvoices.item(2)
+      assert_equal(new_id, @sapi.voice.Id)
+    end
+  end
+end
diff --git a/ext/win32ole/tests/testall.rb b/ext/win32ole/tests/testall.rb
index 2ae4a88986..51727d874d 100644
--- a/ext/win32ole/tests/testall.rb
+++ b/ext/win32ole/tests/testall.rb
@@ -10,4 +10,5 @@ require "testOLEVARIABLE"
 require "testVARIANT"
 require "testNIL2VTEMPTY"
 require "test_ole_methods.rb"
+require "test_propertyputref.rb"
 # require "testOLEEVENT"
diff --git a/ext/win32ole/win32ole.c b/ext/win32ole/win32ole.c
index cb6b1673d3..96a2c096ed 100644
--- a/ext/win32ole/win32ole.c
+++ b/ext/win32ole/win32ole.c
@@ -78,7 +78,7 @@
 
 #define WC2VSTR(x) ole_wc2vstr((x), TRUE)
 
-#define WIN32OLE_VERSION "0.6.7"
+#define WIN32OLE_VERSION "0.6.8"
 
 typedef HRESULT (STDAPICALLTYPE FNCOCREATEINSTANCEEX)
     (REFCLSID, IUnknown*, DWORD, COSERVERINFO*, DWORD, MULTI_QI*);
@@ -2495,7 +2495,7 @@ ole_propertyput(self, property, value)
     EXCEPINFO excepinfo;
     DISPID dispID = DISPID_VALUE;
     DISPID dispIDParam = DISPID_PROPERTYPUT;
-    USHORT wFlags = DISPATCH_PROPERTYPUT;
+    USHORT wFlags = DISPATCH_PROPERTYPUT|DISPATCH_PROPERTYPUTREF;
     DISPPARAMS dispParams;
     VARIANTARG propertyValue[2];
     OLECHAR* pBuf[1];
-- 
cgit v1.2.3