32 lines
1 KiB
Text
32 lines
1 KiB
Text
$NetBSD: patch-ab,v 1.3 2010/09/10 07:31:45 taca Exp $
|
|
|
|
Use modern Ruby API.
|
|
|
|
--- ext/ming/mingc/swfbutton.c.orig 2008-03-02 09:08:51.000000000 +0000
|
|
+++ ext/ming/mingc/swfbutton.c
|
|
@@ -49,10 +49,10 @@ rb_SWFButton_s_key_press(self, key)
|
|
{
|
|
if(TYPE(key) != T_STRING)
|
|
rb_raise(rb_eMingError, "Argument must be a character on keyboard.");
|
|
- if(RSTRING(key)->len != 1)
|
|
+ if(RSTRING_LEN(key) != 1)
|
|
rb_raise(rb_eMingError, "Size of argument must be just 1.");
|
|
|
|
- return INT2FIX(SWFBUTTON_KEYPRESS(RSTRING(key)->ptr[0]));
|
|
+ return INT2FIX(SWFBUTTON_KEYPRESS(RSTRING_PTR(key)[0]));
|
|
}
|
|
|
|
static VALUE
|
|
@@ -61,10 +61,10 @@ rb_SWFButton_s_on_key_press(self, key)
|
|
{
|
|
if(TYPE(key) != T_STRING)
|
|
rb_raise(rb_eMingError, "Argument must be a character on keyboard.");
|
|
- if(RSTRING(key)->len != 1)
|
|
+ if(RSTRING_LEN(key) != 1)
|
|
rb_raise(rb_eMingError, "Size of argument must be just 1.");
|
|
|
|
- return INT2FIX(SWFBUTTON_ONKEYPRESS(RSTRING(key)->ptr[0]));
|
|
+ return INT2FIX(SWFBUTTON_ONKEYPRESS(RSTRING_PTR(key)[0]));
|
|
}
|
|
|
|
static VALUE
|