diff options
| author | Oliver Bolte <obo@openoffice.org> | 2009-02-12 14:03:59 +0000 |
|---|---|---|
| committer | Oliver Bolte <obo@openoffice.org> | 2009-02-12 14:03:59 +0000 |
| commit | 20cea29aa241c198cfbd6cdda9f4cf198e6933bd (patch) | |
| tree | 16b877dc84dbf8eff62614606d8f145d8cc2e9d7 /wizards/source/gimmicks | |
| parent | bbef3ea39fc3fe0bed5bc6307e396fd434e02296 (diff) | |
CWS-TOOLING: integrate CWS fwk99
2009-01-20 17:39:31 +0100 pb r266605 : fix: #i98280# new 'More templates'-URL
2009-01-15 20:17:58 +0100 mst r266391 : #i95702# convert wizards to DocumentProperties (partially based on patch by cmc)
2009-01-12 07:35:44 +0100 pb r266131 : fix: #i96851# HID_PASTE_DLG and HID_LINKDLG_TABLB added
2009-01-09 10:40:48 +0100 pb r266061 : fix: #i97386# Execute_Impl() while sub-dialog is open this could be deleted; #i68415# patch from cmc
2009-01-09 10:35:24 +0100 pb r266059 : fix: #i97386# struct Deleted added
2009-01-09 10:05:17 +0100 pb r266057 : fix: #i97365# ModalDialog RID_SVXPAGE_IMPROVEMENT removed
2009-01-09 10:02:39 +0100 pb r266056 : fix: #i97841# new: set InfoURL and HandleHyperLink()
2009-01-09 09:59:13 +0100 pb r266053 : fix: #i97391# MinWidth re-calculated; #i97365# SvxImprovementDialog2 removed
2009-01-09 09:55:00 +0100 pb r266051 : fix: #i97841# new: HandleHyperLink(); #i97365# SvxImprovementDialog2 removed
2009-01-06 14:24:24 +0100 cd r265921 : #i96831# Fix build problem with gcc 4.3.2 using the return value of link correctly.
2009-01-06 12:18:41 +0100 cd r265907 : #i96831# Fix build problem with gcc 4.3.2
2009-01-06 12:02:59 +0100 mst r265905 : fix #i97775#
- xmloff/source/core/nmspmap.cxx:
+ SvXMLNamespaceMap::GetQNameByKey does not handle default namespace
correctly
Diffstat (limited to 'wizards/source/gimmicks')
| -rw-r--r-- | wizards/source/gimmicks/AutoText.xba | 4 | ||||
| -rw-r--r-- | wizards/source/gimmicks/GetTexts.xba | 34 |
2 files changed, 19 insertions, 19 deletions
diff --git a/wizards/source/gimmicks/AutoText.xba b/wizards/source/gimmicks/AutoText.xba index 6950b830eb79..5d3cc18e5e13 100644 --- a/wizards/source/gimmicks/AutoText.xba +++ b/wizards/source/gimmicks/AutoText.xba @@ -25,7 +25,7 @@ Dim n, m, iAutoCount as Integer ' Open a new empty document oDocument = CreateNewDocument("swriter") If Not IsNull(oDocument) Then - oDocument.DocumentInfo.Title = sDocumentTitle + oDocument.DocumentProperties.Title = sDocumentTitle oDocuText = oDocument.Text ' Create The Character-templates @@ -94,4 +94,4 @@ Dim oCellCursor as Object oCellCursor.CharStyleName = sCellStyle oCell.Text.insertString(oCellCursor,sCellString,False) oDocument.CurrentController.Select(oCellCursor) -End Sub</script:module>
\ No newline at end of file +End Sub</script:module> diff --git a/wizards/source/gimmicks/GetTexts.xba b/wizards/source/gimmicks/GetTexts.xba index af3ac041cb1e..c98e7d51f580 100644 --- a/wizards/source/gimmicks/GetTexts.xba +++ b/wizards/source/gimmicks/GetTexts.xba @@ -50,10 +50,10 @@ Dim oCharStyles as Object oHyperCursor.gotoStart(False) oHyperCursor.HyperLinkURL = oDocument.URL oHyperCursor.HyperLinkTarget = oDocument.URL - If oDocument.DocumentInfo.Title <> "" Then - oHyperCursor.HyperlinkName = oDocument.DocumentInfo.Title + If oDocument.DocumentProperties.Title <> "" Then + oHyperCursor.HyperlinkName = oDocument.DocumentProperties.Title End If - oLogText.insertString(oHyperCursor, oDocument.DocumentInfo.Title, False) + oLogText.insertString(oHyperCursor, oDocument.DocumentProperties.Title, False) oLogText.insertControlCharacter(oHyperCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False) oLogCursor = oLogText.createTextCursor() @@ -64,8 +64,8 @@ Dim oCharStyles as Object oLogCursor.SetPropertyToDefault("HyperLinkName") LogIndex = 0 - ' Get the Properties of the document Info - GetDocumentInfo() + ' Get the Properties of the document + GetDocumentProps() Select Case sDocType Case "swriter" @@ -400,18 +400,18 @@ End Sub ' ***********************************************Misc************************************************** -Sub GetDocumentInfo() -Dim oDocuInfo as Object +Sub GetDocumentProps() +Dim oDocuProps as Object MakeLogHeadLine("Document Properties") - oDocuInfo = oDocument.DocumentInfo - WriteStringToLogFile(oDocuInfo.Title) - WriteStringToLogFile(oDocuInfo.Description) - WriteStringToLogFile(oDocuInfo.Theme) - WriteStringToLogFile(oDocuInfo.Author) - WriteStringToLogFile(oDocuInfo.ReplyTo) - WriteStringToLogFile(oDocuInfo.Recipient) - WriteStringToLogFile(oDocuInfo.References) - WriteStringToLogFile(oDocuInfo.Keywords) + oDocuProps = oDocument.DocumentProperties + WriteStringToLogFile(oDocuProps.Title) + WriteStringToLogFile(oDocuProps.Description) + WriteStringToLogFile(oDocuProps.Subject) + WriteStringToLogFile(oDocuProps.Author) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.ReplyTo) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.Recipient) +' WriteStringToLogFile(oDocuProps.UserDefinedProperties.References) +' WriteStringToLogFile(oDocuProps.Keywords) End Sub @@ -519,4 +519,4 @@ Sub MakeLogHeadLine(HeadText as String) oLogText.insertControlCharacter(oLogCursor,com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK,False) oLogCursor.CharStyleName = "Log Body" End Sub -</script:module>
\ No newline at end of file +</script:module> |