Hi Felix,
Thanks a lot for checking this. If it works well with StarBasic that
should be a bridge-related problem.
I have updated the issue accordingly and have sent it to the responsible
engineer.
Thanks,
Mikhail.
On 08/ 4/09 10:35 AM, Zhang Xiaofei wrote:
Hi Mikhail,
Here is the code snippet I converted, it runs well but I could not
observe the thrown exceptions. Should there be a window or a dialog to
show the exceptions?
Best Regards,
Felix.
REM ***** BASIC *****
Sub Main
Dim objMy As Object
objMy = createHiddenDocument()
objmy.dispose()
End Sub
Function createHiddenDocument() As Object
'Try to create a hidden document
Dim objPropValue As New com.sun.star.beans.PropertyValue
'Set the members. If this fails then there is an Error
objPropValue.Name = "hidden"
objPropValue.Handle = -1
objPropValue.Value = True
'create a hidden document
'Create the Desktop
Dim objDesktop As Object
objDesktop = createUnoService("com.sun.star.frame.Desktop")
'Open a new empty writer document
Dim args(0) As Object
args(0) = objPropValue
createHiddenDocument =
objDesktop.loadComponentFromURL("private:factory/swriter", "_blank",
0, args)
End Function
--
Sun Microsystems GmbH Mikhail Voytenko
Nagelsweg 55 Software Engineer
20097 Hamburg Phone: (+49 40)23646 500
Germany Fax: (+49 40)23646 550
http://www.sun.de mailto:mikhail.voyte...@sun.com
Sitz der Gesellschaft:
Sun Microsystems GmbH, Sonnenallee 1, D-85551 Kirchheim-Heimstetten
Amtsgericht München: HRB 161028
Geschäftsführer: Thomas Schröder, Wolfgang Engels, Wolf Frenkel
Vorsitzender des Aufsichtsrates: Martin Häring
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscr...@framework.openoffice.org
For additional commands, e-mail: dev-h...@framework.openoffice.org