[Gnash-commit] gnash ChangeLog server/sprite_instance.cpp test...

[Sandro Santilli]

CVSROOT:        /sources/gnash
Module name:    gnash
Changes by:     Sandro Santilli <strk>  07/01/04 23:11:04

Modified files:
        .              : ChangeLog 
        server         : sprite_instance.cpp 
        testsuite/actionscript.all: MovieClip.as 

Log message:
                * server/sprite_instance.cpp (movieclip_ctor): allow 'new 
MovieClip'.
                * testsuite/actionscript.all/MovieClip.as: test 'new MovieClip'.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/gnash/ChangeLog?cvsroot=gnash&r1=1.2046&r2=1.2047
http://cvs.savannah.gnu.org/viewcvs/gnash/server/sprite_instance.cpp?cvsroot=gnash&r1=1.118&r2=1.119
http://cvs.savannah.gnu.org/viewcvs/gnash/testsuite/actionscript.all/MovieClip.as?cvsroot=gnash&r1=1.24&r2=1.25

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/gnash/gnash/ChangeLog,v
retrieving revision 1.2046
retrieving revision 1.2047
diff -u -b -r1.2046 -r1.2047
--- ChangeLog   4 Jan 2007 18:39:25 -0000       1.2046
+++ ChangeLog   4 Jan 2007 23:11:03 -0000       1.2047
@@ -1,5 +1,7 @@
 2007-01-04 Sandro Santilli <address@hidden>
 
+       * server/sprite_instance.cpp (movieclip_ctor): allow 'new MovieClip'.
+       * testsuite/actionscript.all/MovieClip.as: test 'new MovieClip'.
        * server/impl.cpp, server/swf/tag_loaders.{h,cpp}:
          Implemented parsing (not use) of FILEATTRIBUTES (69)
          and METADATA (77) tags.

Index: server/sprite_instance.cpp
===================================================================
RCS file: /sources/gnash/gnash/server/sprite_instance.cpp,v
retrieving revision 1.118
retrieving revision 1.119
diff -u -b -r1.118 -r1.119
--- server/sprite_instance.cpp  2 Jan 2007 03:43:12 -0000       1.118
+++ server/sprite_instance.cpp  4 Jan 2007 23:11:04 -0000       1.119
@@ -62,6 +62,9 @@
 
 namespace gnash {
 
+// Forward declarations
+static as_object* getMovieClipInterface();
+
 // Initialize unnamed instance count
 unsigned int sprite_instance::_lastUnnamedInstanceNum=0;
 
@@ -1001,8 +1004,8 @@
 static void
 movieclip_ctor(const fn_call& fn)
 {
-       log_msg("User tried to invoke new MovieClip()");
-       fn.result->set_undefined();
+       boost::intrusive_ptr<as_object> clip = new 
as_object(getMovieClipInterface());
+       fn.result->set_as_object(clip.get());
 }
 
 static void

Index: testsuite/actionscript.all/MovieClip.as
===================================================================
RCS file: /sources/gnash/gnash/testsuite/actionscript.all/MovieClip.as,v
retrieving revision 1.24
retrieving revision 1.25
diff -u -b -r1.24 -r1.25
--- testsuite/actionscript.all/MovieClip.as     19 Dec 2006 19:20:42 -0000      
1.24
+++ testsuite/actionscript.all/MovieClip.as     4 Jan 2007 23:11:04 -0000       
1.25
@@ -22,7 +22,7 @@
 // compile this test case with Ming makeswf, and then
 // execute it like this gnash -1 -r 0 -v out.swf
 
-rcsid="$Id: MovieClip.as,v 1.24 2006/12/19 19:20:42 strk Exp $";
+rcsid="$Id: MovieClip.as,v 1.25 2007/01/04 23:11:04 strk Exp $";
 
 #include "check.as"
 
@@ -264,3 +264,12 @@
 check_equals(_root.c, 1);
 check_equals(b, 1);
 check_equals(_root.b, 1);
+
+//----------------------------------------------
+// Test new MovieClip
+//----------------------------------------------
+
+var cl = new MovieClip();
+check_equals(cl.__proto__.constructor, MovieClip);
+check(cl instanceOf MovieClip);
+check_equals(typeof(cl), "object");