summaryrefslogtreecommitdiff
path: root/wizards/source/tutorials
diff options
context:
space:
mode:
authorOliver Bolte <obo@openoffice.org>2009-02-12 14:03:59 +0000
committerOliver Bolte <obo@openoffice.org>2009-02-12 14:03:59 +0000
commit20cea29aa241c198cfbd6cdda9f4cf198e6933bd (patch)
tree16b877dc84dbf8eff62614606d8f145d8cc2e9d7 /wizards/source/tutorials
parentbbef3ea39fc3fe0bed5bc6307e396fd434e02296 (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/tutorials')
-rw-r--r--wizards/source/tutorials/Functions.xba22
1 files changed, 10 insertions, 12 deletions
diff --git a/wizards/source/tutorials/Functions.xba b/wizards/source/tutorials/Functions.xba
index 55420d860a5b..6524ec19338c 100644
--- a/wizards/source/tutorials/Functions.xba
+++ b/wizards/source/tutorials/Functions.xba
@@ -39,8 +39,8 @@ Sub LoadTutorialDialog(exampleToUse, documentTYP)
SetTutorialDocumentPosSize()
- documentInfo = ThisComponent.getDocumentInfo()
- myDialog.Title = &quot;Tutorials - &quot; &amp; documentInfo.Title
+ documentProps = ThisComponent.getDocumentProperties()
+ myDialog.Title = &quot;Tutorials - &quot; &amp; documentProps.Title
oTextField = myDialog.GetControl(&quot;myTextField&quot;)
oTextField.setVisible(False)
@@ -143,18 +143,16 @@ Sub Init
End Sub
Sub InitStep
- userFieldName = ThisComponent.getDocumentInfo.getUserFieldName(0)
- ResultString = InStr (userFieldName, &quot;CurrentStep:&quot;)
- If ResultString &lt;&gt; 0 Then
- TutorStep = Val(ThisComponent.getDocumentInfo.getUserFieldValue(0))
- Else
- ThisComponent.getDocumentInfo.setUserFieldName(0, &quot;CurrentStep:&quot;)
- ThisComponent.getDocumentInfo.setUserFieldValue(0, TutorStep)
- End If
+ udProps = ThisComponent.DocumentProperties.UserDefinedProperties
+ If udProps.PropertySetInfo.hasPropertyByName(&quot;CurrentStep&quot;) Then
+ TutorStep = udProps.CurrentStep
+ Else
+ udProps.addProperty(&quot;CurrentStep&quot;, 0, TutorStep)
+ End If
End Sub
Sub setStep
- ThisComponent.getDocumentInfo.setUserFieldValue(0, TutorStep)
+ ThisComponent.DocumentProperties.UserDefinedProperties.CurrentStep = TutorStep
End Sub
Sub InitAction()
@@ -367,4 +365,4 @@ Sub ExitTutorial()
msgBox &quot;Error! Cannot close document.&quot;
End If
End Sub
-</script:module> \ No newline at end of file
+</script:module>