kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

support PROPERTYPUTREF. [ruby-talk:183042]

Browse source 
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@10280 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
suke 2006-06-16 15:11:53 +00:00
parent 20359b9bb2
commit 04d2c873b8
4 changed files with 30 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,3 +1,10 @@
Sat Jun 17 00:02:15 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
* ext/win32ole/win32ole.c (ole_propertyput): support
PROPERTYPUTREF. [ruby-talk:183042]
* ext/win32ole/tests/test_propertyputref.rb: ditto.
Thu Jun 15 23:02:47 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
* ext/win32ole/win32ole.c (fole_methods): The return value
@ -6,7 +13,7 @@ Thu Jun 15 23:02:47 2006 Masaki Suketa <masaki.suketa@nifty.ne.jp>
* ext/win32ole/win32ole.c (fole_put_methods): The return value
of WIN32OLE#ole_put_methods should include PROPERTYPUTREF methods.
* ext/win32ole/tests/test_ole_methods.rb : ditto.
* ext/win32ole/tests/test_ole_methods.rb: ditto.
* ext/win32ole/tests/testall.rb : ditto.

19
ext/win32ole/tests/test_propertyputref.rb Normal file
View file

@ -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

1
ext/win32ole/tests/testall.rb
View file

@ -10,4 +10,5 @@ require "testOLEVARIABLE"
require "testVARIANT"
require "testNIL2VTEMPTY"
require "test_ole_methods.rb"
require "test_propertyputref.rb"
# require "testOLEEVENT"

4
ext/win32ole/win32ole.c
View file

@ -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];