To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=53001
------- Additional comments from [EMAIL PROTECTED] Sun Aug 7 09:17:25 -0700
2005 -------
Sorry,
the code includes my workaround.
to reproduce the bug comment out the last 3 lines of Sub Main
'------------ START OF CODE -------------------
Sub Main
Dim oShape1 As Object
Dim oShape2 As Object
Dim oShape3 As Object
oShape1 = MakeTextShape(ThisComponent, MakePoint_Utils(7*1000, 5*1000),
MakeSize_Utils(5*1000, 1*1000))
ThisComponent.getCurrentController().getCurrentPage().add( oShape1 )
oShape1.setString("Foo")
oShape2 = MakeTextShape(ThisComponent, MakePoint_Utils(7*1000, 7*1000),
MakeSize_Utils(5*1000, 1*1000))
ThisComponent.getCurrentController().getCurrentPage().add( oShape2 )
oShape2.setString("Foo2")
'oShape3 = MakeTextShape(ThisComponent, MakePoint_Utils(7*1000, 9*1000),
MakeSize_Utils(5*1000, 1*1000))
'ThisComponent.getCurrentController().getCurrentPage().add( oShape3 )
'ThisComponent.getCurrentController().getCurrentPage().remove( oShape3 )
End Sub
'------------ END OF CODE -------------------
---------------------------------------------------------------------
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: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
