https://bugs.freedesktop.org/show_bug.cgi?id=74696
Priority: medium
Bug ID: 74696
Assignee: [email protected]
Summary: BASIC: Crash after adding second instance of nested
grouped objects after deleting in CALC
Severity: normal
Classification: Unclassified
OS: Windows (All)
Reporter: [email protected]
Hardware: Other
Whiteboard: BSA
Status: UNCONFIRMED
Version: 4.2.0.4 release
Component: BASIC
Product: LibreOffice
Created attachment 93632
--> https://bugs.freedesktop.org/attachment.cgi?id=93632&action=edit
Test Kit including code which crashes
Problem description:
After creating a nested grouped object in CALC using BASIC, you can delete the
object using the DrawPage.remove(group) function. When you go an re-create the
objects the second time after removing them, the first object in the next group
will be created, but the second object will cause LO to crash and hang
indefinitely when trying to add the object to the drawpage.
The code works perfectly in OpenOffice.org 3.2.1.
Steps to reproduce:
1. Open Test Kit, test1.ods
2. Press "Create Tested Grouped Objects and CRASH" button (one ore more times)
3. Press "Delete All Grouped Objects"
4. Press "Create Tested Grouped Objects and CRASH" button
- this will cause LO to hang at the code: on line 142 (last code)
Private function fnCreateGroupedObjects(oPage as Object, aNewPos As
com.sun.star.awt.Point) As Object
Dim oSquare1 As Object
Dim oSquare2 As Object
oSquare1 = createSquare(1000,1000,3000)
oSquare1.FillColor = RGB(255,128,128) ' light red
oPage.add(oSquare1)
oSquare2 = createSquare(1000, 7000, 3000)
oSquare2.FillColor = RGB(255,64,64) ' darker red
oPage.add(oSquare2) '<CRASH HERE second time through Line 142
Current behavior:
Crashes. Code makes it through the first instance of oSquare1 and adds to the
page using oPage.add(), then when it gets to the next instance, it crashes.
One can manually select and delete the nested objects without this behaviour
occurring (you can re-create)
Expected behavior:
Should create without an problem.
One probably could create some cleaner code to isolate the problem. However,
I'm not an expert at coding...
Operating System: Windows 7
Version: 4.2.0.4 release
--
You are receiving this mail because:
You are the assignee for the bug.
_______________________________________________
Libreoffice-bugs mailing list
[email protected]
http://lists.freedesktop.org/mailman/listinfo/libreoffice-bugs
