/usr/lib/libreoffice/share/extensions/DmathsAddon/OOoGdmath/NommageCode.xba is in libreoffice-dmaths 3.4+dfsg1-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 | <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="NommageCode" script:language="StarBasic">'OOoGdmath
'Copyright (C) 2005-2009 Gilles Daurat
'This program is free software; you can redistribute it and/or
'modify it under the terms of the GNU General Public License
'as published by the Free Software Foundation; either version 2
'of the License, or (at your option) any later version.
'This program is distributed in the hope that it will be useful,
'but WITHOUT ANY WARRANTY; without even the implied warranty of
'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'GNU General Public License for more details.
'You should have received a copy of the GNU General Public License
'along with this program; if not, write to the Free Software
'Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
option Explicit
Public oNommageForm as object
Sub Main
AfficheNommageForm
End Sub
Sub AfficheNommageForm()
'on error resume next
oNommageForm = LoadDialog("OOoGdmath","NommageForm")
ChangeTitreDialog(oNommageForm)
oNommageForm.Model.OptionButton1.State = (OOoGdmath_TypeNommage = 0)
oNommageForm.Model.OptionButton2.State = (OOoGdmath_TypeNommage = 1)
oNommageForm.Model.OptionButton3.State = (OOoGdmath_SensNommage = 0)
oNommageForm.Model.OptionButton4.State = (OOoGdmath_SensNommage = 1)
oNommageForm.Execute()
End Sub
Sub NommageForm_CommandButton3()
if (oNommageForm.Model.OptionButton3.State) Then
RemplaceConstante "n_OOoGdmath_SensNommage", 0
else
RemplaceConstante "n_OOoGdmath_SensNommage", 1
End if
if (oNommageForm.Model.OptionButton1.State) Then
RemplaceConstante "n_OOoGdmath_TypeNommage", 0
else
RemplaceConstante "n_OOoGdmath_TypeNommage", 1
End if
oNommageForm.EndExecute()
End sub
Sub ORenomme()
AfficheNommageForm
End Sub
Sub GRenomme(evt as Object, uneBoite as Object, zone())
Dim indice as String
Dim texte as String
Dim i, di, ni as integer
if (evt.Buttons=1) and (evt.ClickCount=2) Then
ni = ubound(zone()) - lbound(zone()) + 1
for i=lbound(zone()) to ubound(zone())
if zone(i)= evt.Source.Model.Name then di = i
next i
texte = uneBoite.GetControl(zone(di)).Text
i = di
indice = "1"
while(ni>0)
uneBoite.GetControl(zone(i)).Text = miif(OOoGdmath_TypeNommage, texte & indice, texte)
if OOoGdmath_TypeNommage = 0 then
texte = chr(asc(texte) + 1)
Else
indice = chr(asc(indice) + 1)
End if
if OOoGdmath_SensNommage=0 then
if i = ubound(zone()) then
i = lbound(zone())
Else
i = i + 1
End If
else
if i = lbound(zone()) then
i=ubound(zone())
Else
i = i - 1
End if
End If
ni = ni - 1
wEnd
End if
End Sub
</script:module>
|