https://bugs.freedesktop.org/show_bug.cgi?id=78980
Priority: medium
Bug ID: 78980
Assignee: [email protected]
Summary: BASIC: Dispatcher .uno:InsertAnnotation wont accept
args()
Severity: normal
Classification: Unclassified
OS: Windows (All)
Reporter: [email protected]
Hardware: Other
Whiteboard: BSA
Status: UNCONFIRMED
Version: 4.2.4.2 release
Component: BASIC
Product: LibreOffice
Problem description:
I am attempting to write a series of macros that inserts preset comments into
the text. However, the InsertAnnotation dispatcher won't accept any arguments.
Sample Code:
sub Macro1
Dim document as object
Dim dispatcher as object
Dim oct1
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
oct1 = ThisComponent.getCurrentController()
dim args2(12) as new com.sun.star.beans.PropertyValue
args2(0).Name = "Text"
args2(0).Value = "Text of the annotation"
args2(1).Name = "Author"
args2(1).Value = "Test"
args2(2).Name = "Date"
args2(2).Value = Now
dispatcher.executeDispatch(document,".uno:InsertAnnotation", "", 0, args2())
end Sub
Current behavior:
Creates empty comment with focus, as if I had just inserted a comment.
Expected behavior:
It should create a full comment with provided arguments.
Operating System: Windows 7
Version: 4.2.4.2 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
