Modified: MacRuby/trunk/encoding.c (3907 => 3908)

--- MacRuby/trunk/encoding.c	2010-04-05 01:00:33 UTC (rev 3907)
+++ MacRuby/trunk/encoding.c	2010-04-05 02:47:17 UTC (rev 3908)
@@ -87,12 +87,26 @@
 }
 
 static VALUE
+mr_enc_set_default_internal(VALUE klass, SEL sel, VALUE enc)
+{
+    default_internal = rb_to_encoding(enc);
+    return (VALUE)default_internal;
+}
+
+static VALUE
 mr_enc_s_default_external(VALUE klass, SEL sel)
 {
     return (VALUE)default_external;
 }
 
 static VALUE
+mr_enc_set_default_external(VALUE klass, SEL sel, VALUE enc)
+{
+    default_external = rb_to_encoding(enc);
+    return (VALUE)default_external;
+}
+
+static VALUE
 mr_enc_name(VALUE self, SEL sel)
 {
     return rb_usascii_str_new2(RENC(self)->public_name);
@@ -286,10 +300,12 @@
 
     rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_external",
 	    mr_enc_s_default_external, 0);
-    //rb_define_singleton_method(rb_cEncoding, "default_external=", set_default_external, 1);
+    rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_external=",
+	    mr_enc_set_default_external, 1);
     rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_internal",
 	    mr_enc_s_default_internal, 0);
-    //rb_define_singleton_method(rb_cEncoding, "default_internal=", set_default_internal, 1);
+    rb_objc_define_method(*(VALUE *)rb_cEncoding, "default_internal=",
+	    mr_enc_set_default_internal, 1);
     //rb_define_singleton_method(rb_cEncoding, "locale_charmap", rb_locale_charmap, 0);
 
     // Create constants.