summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorBehrend Cornelius <bc@openoffice.org>2002-12-02 14:17:46 +0000
committerBehrend Cornelius <bc@openoffice.org>2002-12-02 14:17:46 +0000
commit0b0ae4662910d850c260357a78f483e918717acd (patch)
treeaf4771c9549453a519861d3643cd37fedb6829c2 /wizards
parentddf748da19bfd1d5236fc1fb76c62a12f8f5c734 (diff)
#105421# Overwrite Dialog improved
Diffstat (limited to 'wizards')
-rw-r--r--wizards/source/tools/ModuleControls.xba14
1 files changed, 7 insertions, 7 deletions
diff --git a/wizards/source/tools/ModuleControls.xba b/wizards/source/tools/ModuleControls.xba
index d5078c2fd65e..9fb2dc140258 100644
--- a/wizards/source/tools/ModuleControls.xba
+++ b/wizards/source/tools/ModuleControls.xba
@@ -277,11 +277,11 @@ NOSAVING:
oStoreDialog.dispose()
Resume NOERROR
NOERROR:
- End If
+ End If
End Function
-Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object)
+Sub AddFiltersToDialog(FilterNames() as String, oDialog as Object)
Dim i as Integer
Dim MaxIndex as Integer
Dim ViewFiltername as String
@@ -291,7 +291,7 @@ Dim sProdName as String
sProdName = oProdNameAccess.getByName(&quot;ooName&quot;)
MaxIndex = Ubound(FilterNames(), 1)
For i = 0 To MaxIndex
- Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,&quot;%productname%&quot;)
+ Filternames(i,0) = ReplaceString(Filternames(i,0), sProdName,&quot;%productname%&quot;)
oDialog.AppendFilter(FilterNames(i,0), FilterNames(i,1))
Next i
oDialog.SetCurrentFilter(FilterNames(0,0)
@@ -321,9 +321,9 @@ Dim OverwriteModel as Object
If InitResources(&quot;&quot;, &quot;com&quot;) Then
QueryString = GetResText(1007)
QueryString = ReplaceString(QueryString, ConvertFromUrl(FilePath), &quot;&lt;PATH&gt;&quot;)
- If Len(QueryString) &gt; 130 Then
+ If Len(QueryString) &gt; 190 Then
QueryString = DeleteStr(QueryString, &quot;.&lt;BR&gt;&quot;)
- End If
+ End If
QueryString = ReplaceString(QueryString, chr(13), &quot;&lt;BR&gt;&quot;)
lblYes = GetResText(1008)
lblYesToAll = GetResText(1009)
@@ -338,7 +338,7 @@ Dim OverwriteModel as Object
OverwriteModel.cmdCancel.Label = lblCancel
OverwriteModel.lblQueryforSave.Label = QueryString
OverwriteModel.cmdNo.DefaultButton = True
- DlgOverwrite.GetControl(&quot;cmdNo&quot;).SetFocus()
+ DlgOverwrite.GetControl(&quot;cmdNo&quot;).SetFocus()
LocRetValue = DlgOverwrite.execute()
If LocRetValue = 0 Then
iGeneralOverwrite = SBOVERWRITECANCEL
@@ -365,4 +365,4 @@ End Sub
Sub SetOVERWRITEToNever()
iGeneralOverwrite = SBOVERWRITENEVER
DlgOverwrite.EndExecute()
-End Sub</script:module> \ No newline at end of file
+End Sub</script:module>