To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=86953





------- Additional comments from [EMAIL PROTECTED] Mon Mar 17 13:47:49 +0000 
2008 -------
Fixed in cws xmlfilter04 in
sw/inc/redline.hxx
sw/inc/unoobj.hxx
sw/inc/unocrsrhelper.hxx
sw/source/core/unocore/unocrsrhelper.cxx
sw/source/core/unocore/unoobj.cxx
sw/source/core/unocore/unoobj2.cxx
offapi/com/sun/star/text/makefile.mk
offapi/com/sun/star/text/XRedline.idl

Changed macro:

sub makeredline
xcrsr = thiscomponent.gettext.createtextcursor
thiscomponent.gettext.setstring( "This is a test.")
xcrsr.gotostart( false )
xcrsr.goright( 5, false )
xcrsr.goright( 2, true )

dim aRedlineProperties(1) as new com.sun.star.beans.PropertyValue
aRedlineProperties(0).Name = "RedlineAuthor"
aRedlineProperties(0).Value = "Author1"
aRedlineProperties(1).Name = "RedlineComment"
aRedlineProperties(1).Value = "My Comment"
aRedlineProperties(1).Name = "RedlineDateTime"
dim aDateTime as new com.sun.star.util.DateTime
aDateTime.Year = 2005
aDateTime.Month = 11
aDateTime.Day = 22
aDateTime.Hours = 9
aDateTime.Minutes = 23
aDateTime.Seconds = 8
aRedlineProperties(1).Value = aDateTime

'xcrsr.makeRedline("Insert", aRedlineProperties )
'xcrsr.makeRedline("Delete", aRedlineProperties )
xcrsr.makeRedline("Format", aRedlineProperties )

end sub


---------------------------------------------------------------------
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]

Reply via email to