https://bugs.freedesktop.org/show_bug.cgi?id=71343
Priority: medium
Bug ID: 71343
Assignee: [email protected]
Summary: Extensionname: Review-Toolbar feature request: move to
next line after accepting/rejecting change
Severity: normal
Classification: Unclassified
OS: Windows (All)
Reporter: [email protected]
Hardware: Other
Whiteboard: BSA
Status: UNCONFIRMED
Version: unspecified
Component: Extensions
Product: LibreOffice
Created attachment 88819
--> https://bugs.freedesktop.org/attachment.cgi?id=88819&action=edit
Revised version of the add-on attached. (Note: I have not attempted to update
version control.)
Extension: http://extensions.libreoffice.org/extension-center/review-toolbar
Feature request: When using the "accept/reject change" buttons, after
accepting/rejecting the change, focus should be moved to the next tracked
change.
Current behaviour: The focus stays on the current tracked change even after it
is accepted/rejected. The next change has to be manually selected with the
mouse. This can be very fiddly, for example when dealing with documents
containing a lot of physically small changes (e.g. apostrophe corrections).
Suggested implementation:
1) Add the following extra functions, e.g. to \CleanDoc\Core.xba:
Sub AcceptAndMove
Dim document As Object
Dim dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher =
createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:AcceptTracedChange",
"", 0, Array())
dispatcher.executeDispatch(document, ".uno:NextTrackedChange",
"", 0, Array())
End Sub
Sub RejectAndMove
Dim document As Object
Dim dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher =
createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:RejectTracedChange",
"", 0, Array())
dispatcher.executeDispatch(document, ".uno:NextTrackedChange",
"", 0, Array())
End Sub
2) In \Addons.xcu, replace the call to:
.uno:AcceptTracedChange
with:
vnd.sun.star.script:CleanDoc.Core.AcceptAndMove?language=Basic&location=application
...and similarly for Reject.
Note: Ideally I would be able to submit this as a patch to the maintainer.
Unfortunately, the extension page doesn't include any way to get in touch with
them.
Operating System: Windows 7
Version: unspecified
--
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
