This is an automated email from the ASF dual-hosted git repository.
mseidel pushed a commit to branch trunk
in repository https://gitbox.apache.org/repos/asf/openoffice.git
The following commit(s) were added to refs/heads/trunk by this push:
new fcaf345859 Revert "Add README. Feel free to enhance!"
fcaf345859 is described below
commit fcaf3458599ce2e36e94d3810ac2d4510905e27e
Author: mseidel <msei...@apache.org>
AuthorDate: Sun Nov 26 20:30:22 2023 +0100
Revert "Add README. Feel free to enhance!"
This reverts commit 019b6df1adafc2e0adcd2e54d934b402d8e818cb.
---
main/sw/README.md | 2 +-
main/wizards/source/depot/CommonLang.xba | 3 +--
main/wizards/source/depot/Lang_de.xba | 26 ++++++++++++--------------
main/wizards/source/depot/tools.xba | 29 +++++++++++++----------------
4 files changed, 27 insertions(+), 33 deletions(-)
diff --git a/main/sw/README.md b/main/sw/README.md
index 8e619c484b..57a933e178 100644
--- a/main/sw/README.md
+++ b/main/sw/README.md
@@ -1 +1 @@
-# Writer
+# OpenOffice Writer
diff --git a/main/wizards/source/depot/CommonLang.xba
b/main/wizards/source/depot/CommonLang.xba
index ddd6784100..78e9ffea5d 100644
--- a/main/wizards/source/depot/CommonLang.xba
+++ b/main/wizards/source/depot/CommonLang.xba
@@ -1,6 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
-
<!--***********************************************************
*
* Licensed to the Apache Software Foundation (ASF) under one
@@ -21,9 +20,9 @@
* under the License.
*
***********************************************************-->
-
<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="CommonLang" script:language="StarBasic">REM ***** BASIC *****
+
' Column A has the index 1
Public Const SBCOLUMNNAME1 = 3 ' Stock names, sheet 1
Public Const SBCOLUMNID1 = 4 ' Stock ID, sheet 1
diff --git a/main/wizards/source/depot/Lang_de.xba
b/main/wizards/source/depot/Lang_de.xba
index 2f70a6b059..4f40e32225 100644
--- a/main/wizards/source/depot/Lang_de.xba
+++ b/main/wizards/source/depot/Lang_de.xba
@@ -1,8 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
-
<!--***********************************************************
- *
+ *
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
@@ -10,24 +9,23 @@
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
- *
+ *
* http://www.apache.org/licenses/LICENSE-2.0
- *
+ *
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
- *
+ *
***********************************************************-->
-
<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="Lang_de" script:language="StarBasic">Option Explicit
Sub LoadGermanLanguage()
sProductname = GetProductname
- sOK = "~OK"
+ sOK = "~OK"
sCancel = "Abbrechen"
sColumnHeader = "Spaltenkopf"
sInsertStockName = "Bitte fügen Sie zunächst einige Aktien in Ihr
Depot ein!"
@@ -48,14 +46,14 @@ Sub LoadGermanLanguage()
sMsgDeleteAll = "Wollen Sie alle Bewegungen löschen und die
Depotübersicht rücksetzen?"
cSplit = "Aktiensplitt am "
sHistory = "Historie"
- TransactTitle(1) = "Aktien verkaufen"
+ TransactTitle(1) = "Aktien verkaufen"
TransactTitle(2) = "Aktien kaufen"
StockRatesTitle(1) = "Dividendenzahlung"
StockRatesTitle(2) = "Aktiensplitt"
StockRatesTitle(3) = sHistory
- sDepotCurrency = "Depotwährung"
+ sDepotCurrency = "Depotwährung"
sStockName = "Aktienname"
- TransactMode = LIFO ' Possible values: "FIFO" and
"LIFO"
+ TransactMode = LIFO ' Possible values: "FIFO" and
"LIFO"
DateCellStyle = "Ergebnis Datum"
CurrCellStyle = "Ergebnis Euro mit Dezimalen"
sStartDate = "Startdatum:"
@@ -86,7 +84,7 @@ Sub LoadGermanLanguage()
sMarket(0,8) = "409"
sMarket(0,9) = "44"
sMarket(0,10) = "1"
-
+
sMarket(1,0) = "Euro"
sMarket(1,1) = chr(8364)
sMarket(1,2) = "Frankfurt"
@@ -119,14 +117,14 @@ Sub LoadGermanLanguage()
sMarket(3,8) = "411"
sMarket(3,9) = ""
sMarket(3,10) = ""
-
+
sMarket(4,0) = "Hongkong Dollar"
sMarket(4,1) = "HK$"
sMarket(4,2) = "Hongkong"
sMarket(4,3) =
"http://hk.finance.yahoo.com/d/quotes.csv?s=<StockID>.HK&f=sl1d1t1c1ohgv&e=.csv"
sMarket(4,5) = "Nummer"
sMarket(4,6) = "zh"
- sMarket(4,7) = "HK"
+ sMarket(4,7) = "HK"
sMarket(4,8) = "C04"
sMarket(4,9) = "44"
sMarket(4,10) = "1"
@@ -159,7 +157,7 @@ Sub LoadGermanLanguage()
.cmdGoOn.Label = sOK
.cmdCancel.Label = sCancel
End With
-
+
With StockRatesModel
.optPerShare.Label = "Dividende/Aktie"
.optTotal.Label = "Dividende gesamt"
diff --git a/main/wizards/source/depot/tools.xba
b/main/wizards/source/depot/tools.xba
index 311cc64083..706acb8fe3 100644
--- a/main/wizards/source/depot/tools.xba
+++ b/main/wizards/source/depot/tools.xba
@@ -1,8 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN"
"module.dtd">
-
<!--***********************************************************
- *
+ *
* Licensed to the Apache Software Foundation (ASF) under one
* or more contributor license agreements. See the NOTICE file
* distributed with this work for additional information
@@ -10,20 +9,18 @@
* to you under the Apache License, Version 2.0 (the
* "License"); you may not use this file except in compliance
* with the License. You may obtain a copy of the License at
- *
+ *
* http://www.apache.org/licenses/LICENSE-2.0
- *
+ *
* Unless required by applicable law or agreed to in writing,
* software distributed under the License is distributed on an
* "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
* KIND, either express or implied. See the License for the
* specific language governing permissions and limitations
* under the License.
- *
+ *
***********************************************************-->
-
-<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="tools" script:language="StarBasic">REM ***** BASIC *****
-
+<script:module xmlns:script="http://openoffice.org/2000/script";
script:name="tools" script:language="StarBasic">REM ***** BASIC *****
Option Explicit
Sub RemoveSheet()
@@ -57,7 +54,7 @@ Function GetRowIndex(oSheet as Object, RowName as String)
Dim oRange as Object
oRange = oSheet.GetCellRangeByName(RowName)
GetRowIndex = oRange.RangeAddress.StartRow
-End Function
+End Function
Function GetTransactionCount(iStartRow as Integer)
@@ -65,7 +62,7 @@ Dim iEndRow as Integer
iStartRow = GetRowIndex(oMovementSheet, "ColumnsToHide")
iEndRow = GetRowIndex(oMovementSheet, "HiddenRow3" )
GetTransactionCount = iEndRow -iStartRow - 2
-End Function
+End Function
Function GetStocksCount(iStartRow as Integer)
@@ -94,7 +91,7 @@ Dim oCell as Object
Msgbox(sInsertStockName, 16, MsgTitle)
FillListbox() = False
End If
- End If
+ End If
End Function
@@ -104,7 +101,7 @@ Dim StringValue
oCell = GetCellByName(oSheet, CellName)
If
oControl.PropertySetInfo.HasPropertyByName("EffectiveValue") Then
oControl.EffectiveValue = oCell.Value
- Else
+ Else
oControl.Value = oCell.Value
End If
' If oCell.FormulaResultType = 1 Then
@@ -129,10 +126,10 @@ Dim OldValue
oCell = oMovementSheet.GetCellByPosition(iCellCol, iCellRow)
OldValue = oCell.Value
oCell.Value = OldValue + AddValue
-End Sub
+End Sub
-Sub CheckInputDate(aEvent as Object)
+Sub CheckInputDate(aEvent as Object)
Dim oRefDialog as Object
Dim oRefModel as Object
Dim oDateModel as Object
@@ -167,7 +164,7 @@ Dim OldValue
If NoteText <> "" Then
oCell.Annotation.SetString(NoteText)
End If
-End Sub
+End Sub
Function GetStockRowIndex(ByVal Stockname) as Integer
@@ -213,7 +210,7 @@ Dim iLastRow as Integer
End Function
-Function CheckDocLocale(LocLanguage as String, LocCountry as String)
+Function CheckDocLocale(LocLanguage as String, LocCountry as String)
Dim bIsDocLanguage as Boolean
Dim bIsDocCountry as Boolean
bIsDocLanguage = Instr(1, LocLanguage, sDocLanguage, SBBINARY) <> 0
