To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=103134





------- Additional comments from npo...@openoffice.org Tue Jul 21 17:23:05 
+0000 2009 -------
creating a testcase for this is not so easy, non-basic code calling a basic
method via the scripting framework passing an object that has a default property
is the use case. e.g. 

function aFunc( aObj as Variant )

dim val as double
val = aObj

end sub


c++ code 

// assume aRangeAny is an Any containing a Range object for "A1"
//   note: Range objects have a default property 'Value' which returns 
//   the value of the object
// assume xScript is an XScript instance for aFunc above
  Sequence< sal_Int16 > aOutArgsIndex;
  Sequence< Any > aOutArgs;
  Sequence< Any > aInArgs(1);
  aInArgs[ 0 ] = aRangeAny;
  xScript->invoke( aInArgs, aOutArgsIndex, aOutArgs  );

so, what happens here is when unoToSbxValue is called, basic is not running so
'SbiRuntime::isVBAEnabled()' returns false and the name of the default property
is not set up. Therefore from this point on, the basic runtime does not know
that the SbxObject ( converted from aRangeAny ) has a default property, all
actions ( such as assignment ) that would automagically invoke call getValue()
on the object don't happen :-(

It would be possible I guess to craft a component ( or maybe a
beashell/javascript ) script to do this... but it will take me time. I don't
know is it really necessary in this case, as mentioned XDefaultProperty is only
implemented by VBA objects.


---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: issues-unsubscr...@script.openoffice.org
For additional commands, e-mail: issues-h...@script.openoffice.org


---------------------------------------------------------------------
To unsubscribe, e-mail: allbugs-unsubscr...@openoffice.org
For additional commands, e-mail: allbugs-h...@openoffice.org

Reply via email to