#92590# english texts inserted

4 files changed, 29 insertions, 7 deletions

diff --git a/wizards/source/gimmicks/ReadDir.xba b/wizards/source/gimmicks/ReadDir.xba
index 223249d3e..18c2810e9 100644
--- a/wizards/source/gimmicks/ReadDir.xba
+++ b/wizards/source/gimmicks/ReadDir.xba
@@ -42,18 +42,18 @@ Dim oDocument As Object
 Dim oPage As Object
 
 
-Sub Main
+Sub Main()
 Dim oStandardTemplate as Object
 	BasicLibraries.LoadLibrary("Tools")
 	oDocument = StarDesktop.LoadComponentFromURL("private:factory/sdraw","_blank",0, NoArgs())
 	oPage = oDocument.DrawPages(0)
-	oStandardTemplate = oDocument.StyleFamilies.GetByName("graphics").GetByName("Default")
+	oStandardTemplate = oDocument.StyleFamilies.GetByName("graphics").GetByName("standard")
 	oStandardTemplate.CharHeight = 10
 	oStandardTemplate.TextLeftDistance = 100
 	oStandardTemplate.TextRightDistance = 100
 	oStandardTemplate.TextUpperDistance = 50
 	oStandardTemplate.TextLowerDistance = 50
-	DlgReadDir = LoadDialog("Gimmicks","ReadDirdlg")
+	DlgReadDir = LoadDialog("Gimmicks","ReadFolderDlg")
 	oProgressBar = DlgReadDir.Model.ProgressBar1
 	DlgReadDir.Model.TextField1.Text = ConvertFromUrl(GetPathSettings("Work"))
 	DlgReadDir.Model.cmdGoOn.DefaultButton = True
diff --git a/wizards/source/gimmicks/ReadFolderDlg.xdl b/wizards/source/gimmicks/ReadFolderDlg.xdl
new file mode 100644
index 000000000..2148dbb68
--- /dev/null
+++ b/wizards/source/gimmicks/ReadFolderDlg.xdl
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE dlg:window PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "dialog.dtd">
+<dlg:window xmlns:dlg="http://openoffice.org/2000/dialog" xmlns:script="http://openoffice.org/2000/script" dlg:id="ReadFolderDlg" dlg:title="Read and Design Recursively" dlg:left="161" dlg:top="81" dlg:width="180" dlg:height="136">
+ <dlg:bulletinboard>
+  <dlg:button dlg:id="cmdGetDir" dlg:tab-index="0" dlg:left="161" dlg:top="49" dlg:width="14" dlg:height="14" dlg:value="...">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.ReadDir.GetSourceDirectory" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:textfield dlg:id="TextField1" dlg:tab-index="1" dlg:left="6" dlg:top="50" dlg:width="147" dlg:height="12"/>
+  <dlg:button dlg:id="cmdCancel" dlg:tab-index="2" dlg:left="49" dlg:top="115" dlg:width="35" dlg:height="14" dlg:value="~Cancel">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.ReadDir.CloseDialog" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:button dlg:id="cmdGoOn" dlg:tab-index="3" dlg:left="95" dlg:top="115" dlg:width="35" dlg:height="14" dlg:value="~GoOn">
+   <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.ReadDir.TreeInfo" script:language="StarBasic"/>
+  </dlg:button>
+  <dlg:text dlg:id="Label1" dlg:tab-index="4" dlg:left="6" dlg:top="38" dlg:width="122" dlg:height="8" dlg:value="Top level path"/>
+  <dlg:text dlg:id="Label2" dlg:tab-index="5" dlg:left="6" dlg:top="4" dlg:width="168" dlg:height="26" dlg:value="This macro will create a drawing document and  design a complete tree view of all subdirectories from a given path." dlg:multiline="true"/>
+  <dlg:progressmeter dlg:id="ProgressBar1" dlg:tab-index="6" dlg:left="6" dlg:top="101" dlg:width="170" dlg:height="10"/>
+  <dlg:text dlg:id="Label3" dlg:tab-index="7" dlg:disabled="true" dlg:left="6" dlg:top="69" dlg:width="170" dlg:height="8" dlg:value="Getting the files and subdirectories..."/>
+  <dlg:text dlg:id="Label4" dlg:tab-index="8" dlg:disabled="true" dlg:left="6" dlg:top="80" dlg:width="170" dlg:height="8" dlg:value="Sorting the siles and subdirectories..."/>
+  <dlg:text dlg:id="Label5" dlg:tab-index="9" dlg:disabled="true" dlg:left="6" dlg:top="91" dlg:width="170" dlg:height="8" dlg:value="Drawing the filestructure..."/>
+ </dlg:bulletinboard>
+</dlg:window>
\ No newline at end of file
diff --git a/wizards/source/gimmicks/UserfieldDlg.xdl b/wizards/source/gimmicks/UserfieldDlg.xdl
index c80c0dee3..a154c3b04 100644
--- a/wizards/source/gimmicks/UserfieldDlg.xdl
+++ b/wizards/source/gimmicks/UserfieldDlg.xdl
@@ -21,7 +21,7 @@
   <dlg:textfield dlg:id="TextField8" dlg:tab-index="16" dlg:left="65" dlg:top="158" dlg:width="193" dlg:height="12"/>
   <dlg:textfield dlg:id="TextField9" dlg:tab-index="17" dlg:left="65" dlg:top="174" dlg:width="193" dlg:height="12"/>
   <dlg:scrollbar dlg:id="ScrollBar1" dlg:tab-index="18" dlg:left="263" dlg:top="46" dlg:width="12" dlg:height="140" dlg:align="vertical">
-   <script:event script:event-name="on-mouseup" script:location="application" script:macro-name="Gimmicks.Userfields.ScrollControls" script:language="StarBasic"/>
+   <script:event script:event-name="on-adjustmentvaluechange" script:location="application" script:macro-name="Gimmicks.Userfields.ScrollControls" script:language="StarBasic"/>
   </dlg:scrollbar>
   <dlg:button dlg:id="cmdQuit" dlg:tab-index="19" dlg:left="6" dlg:top="193" dlg:width="35" dlg:height="14" dlg:help-text="Exit Macro" dlg:value="Exit">
    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.Userfields.StopMacro" script:language="StarBasic"/>
@@ -29,7 +29,7 @@
   <dlg:button dlg:id="cmdSave" dlg:tab-index="20" dlg:left="45" dlg:top="193" dlg:width="35" dlg:height="14" dlg:help-text="Save All Data of All Users to File" dlg:value="~Save">
    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.Userfields.SaveSettings" script:language="StarBasic"/>
   </dlg:button>
-  <dlg:button dlg:id="cmdTakeOver" dlg:tab-index="21" dlg:left="84" dlg:top="193" dlg:width="35" dlg:height="14" dlg:help-text="Replace the User Data in &lt;PRODUCTNAME&gt; With the User Data Above" dlg:value="Se~lect">
+  <dlg:button dlg:id="cmdSelect" dlg:tab-index="21" dlg:left="84" dlg:top="193" dlg:width="35" dlg:height="14" dlg:help-text="Replace the User Data in &lt;PRODUCTNAME&gt; With the User Data Above" dlg:value="Se~lect">
    <script:event script:event-name="on-performaction" script:location="application" script:macro-name="Gimmicks.Userfields.SelectCurrentFields" script:language="StarBasic"/>
   </dlg:button>
   <dlg:button dlg:id="cmdNextUser" dlg:tab-index="22" dlg:left="162" dlg:top="193" dlg:width="35" dlg:height="14" dlg:tag="1" dlg:help-text="Show Data of Next User" dlg:value="Next &gt;&gt;">
diff --git a/wizards/source/gimmicks/Userfields.xba b/wizards/source/gimmicks/Userfields.xba
index a19681d01..391337c6a 100644
--- a/wizards/source/gimmicks/Userfields.xba
+++ b/wizards/source/gimmicks/Userfields.xba
@@ -52,6 +52,8 @@ Dim SystemPath as String
 	DlgUserFields = LoadDialog(&quot;Gimmicks&quot;,&quot;UserfieldDlg&quot;)
 	SystemPath = ConvertFromUrl(FilePath)
 	DlgUserFields.Model.Label10.Label = ReplaceString(DlgUserFields.Model.Label10.Label, &quot;&apos;&quot; &amp; SystemPath &amp; &quot;&apos;&quot;, &quot;&lt;ConfigDir&gt;&quot;)
+	DlgUserFields.Model.Label10.Label = ReplaceString(DlgUserFields.Model.Label10.Label, GetProductName(), &quot;&lt;PRODUCTNAME&gt;&quot;)
+	DlgUserFields.Model.cmdSelect.HelpText = ReplaceString(DlgUserFields.Model.cmdSelect.HelpText, GetProductName(), &quot;&lt;PRODUCTNAME&gt;&quot;)
 	ScrollBarValue = 0
 	oUserDataAccess = GetRegistryKeyContent(&quot;org.openoffice.UserProfile/Data&quot;, True)
 	InitializeUserFamily()
@@ -126,8 +128,6 @@ Dim i as Integer
 End Sub
 
 
-
-
 Sub InitializeUserFamily()
 Dim FirstIndex as Integer
 Dim UserFieldstrings() as String