libreoffice-dmaths 3.4+dfsg1-1 / usr / lib / libreoffice / share / extensions / DmathsAddon / Dmaths / Module5.xba

This file is indexed.

/usr/lib/libreoffice/share/extensions/DmathsAddon/Dmaths/Module5.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
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
<?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="Module5" script:language="StarBasic">&apos;************************************************
&apos;Copyright (C) 2008 Didier Dorange-Pattoret
&apos;38, chemin de l&apos;Abbaye 
&apos;74940 Annecy le Vieux
&apos;France
&apos;ddorange@dmaths.com
&apos;
&apos;
&apos;This library is free software; you can redistribute it and/or
&apos;modify it under the terms of the GNU General Public Licence (GPL)
&apos;as published by the Free Software Foundation; either
&apos;version 2.1 of the License, or (at your option) any later version.

&apos;This library is distributed in the hope that it will be useful,
&apos;but WITHOUT ANY WARRANTY; without even the implied warranty of
&apos;MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
&apos;General Public License for more details.

&apos;You should have received a copy of the GNU General Public Licence (GPL)
&apos;along with this library; if not, write to the Free Software
&apos;Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
&apos;************************************************


Global bManuelFormula, bModifieTailleFormule as Boolean
&apos; Ce paramètre prend la valeur TRUE si la taille par defaut a été changée.  


Sub ChangeModeFormule rem permet de changer le mode formule mise a jour le 29 fevrier 2008
	Call VerifOperationnel
		If bManuelFormula = -1 Then 
		msgbox(sVocab(iLang,234),64,&quot;Dmaths&quot;)
		bManuelFormula = 0
		Else 
		msgbox(sVocab(iLang,235),64,&quot;Dmaths&quot;)
		bManuelFormula = -1
		Endif
End Sub 


Function LoadDialog(Libname as String, DialogName as String) &apos;, Optional oLibContainer) rem charge une boite de dialogue
	Dim oLib,oLibDialog,oRuntimeDialog,oDialogModel,oVar,oVar1 as Object
	Dim langue As New com.sun.star.lang.Locale

	DialogLibraries.LoadLibrary(LibName)
	oLib = DialogLibraries.GetByName(Libname)
	oLibDialog = oLib.GetByName(DialogName)
	oRuntimeDialog = CreateUnoDialog(oLibDialog)
	oDialogModel = oRuntimeDialog.Model
	
	If DialogName=&quot;DmOptions&quot; Then rem initialise la boîte Dmoptions
		If bItalic=False Then oRuntimeDialog.GetControl(&quot;CheckBox1&quot;).State=0
		If bVecteursItalic= False Then oRuntimeDialog.GetControl(&quot;CheckBox2&quot;).State=0
		If bAnglesItalic = False Then oRuntimeDialog.GetControl(&quot;CheckBox3&quot;).State=0
		If bMesuresAlgItalic = False Then oRuntimeDialog.GetControl(&quot;CheckBox4&quot;).State=0
		If bEdroit = FALSE Then  oRuntimeDialog.GetControl(&quot;CheckBox5&quot;).State=0
		If bChiffresDroits = FALSE Then oRuntimeDialog.GetControl(&quot;CheckBox6&quot;).State=0
		If sBorneInfIntegrales = &quot;_&quot; Then oRuntimeDialog.GetControl(&quot;CheckBox7&quot;).State=0
		If bTextMode = True Then oRuntimeDialog.GetControl(&quot;CheckBox8&quot;).State=1
		If bCoordColonne = True Then oRuntimeDialog.GetControl(&quot;CheckBox9&quot;).State=1
		If bFormulesGras = True Then oRuntimeDialog.GetControl(&quot;CheckBox10&quot;).State=1
		If bSystemesAlignes = True Then oRuntimeDialog.GetControl(&quot;CheckBox11&quot;).State=1
		If bTailleFormCarac = True Then oRuntimeDialog.GetControl(&quot;CheckBox12&quot;).State=1
		If bTailleFormCarac = True Then oRuntimeDialog.GetControl(&quot;TextField1&quot;).Enable=False
		If bPoliceFormCarac = True Then oRuntimeDialog.GetControl(&quot;CheckBox19&quot;).State=1
		If bUsingDisPatcher Then oRuntimeDialog.GetControl(&quot;CheckBox20&quot;).State=1
		If bConcateneFormules = True Then oRuntimeDialog.GetControl(&quot;CheckBox21&quot;).State=1	
		If bXpointaulieux = TRUE Then oRuntimeDialog.GetControl(&quot;CheckBox23&quot;).State=1
		If bLettresAreScalaires = False Then 
			oRuntimeDialog.GetControl(&quot;CheckBox22&quot;).State = 0
			oRuntimeDialog.GetControl(&quot;TextField7&quot;).Enable = False
		Endif
		If bFormulesEspacees = True Then oRuntimeDialog.GetControl(&quot;CheckBox13&quot;).State=1
		If bFormulesEncadrees = True Then oRuntimeDialog.GetControl(&quot;CheckBox14&quot;).State=1
		If bGrandesParentheses = False Then oRuntimeDialog.GetControl(&quot;CheckBox15&quot;).State=0
		If bIdroit = False Then oRuntimeDialog.GetControl(&quot;CheckBox16&quot;).State=0	
		If bFractions = True Then oRuntimeDialog.GetControl(&quot;CheckBox17&quot;).State=1	
		If bModeFactoriel = True Then oRuntimeDialog.GetControl(&quot;CheckBox18&quot;).State=1	
		If bMatricesRondes = False Then oRuntimeDialog.GetControl(&quot;OptionButton2&quot;).State=1
	 	If Len(sThemeIcons) &lt;&gt; 0 Then oRuntimeDialog.GetControl(&quot;OptionButton&quot;&amp; Mid(sThemeIcons,6,1)).State = 1 Else oRuntimeDialog.GetControl(&quot;OptionButton1&quot;).State = 1
		For I = 1 To iNbreThemesIcones 
			oRuntimeDialog.GetControl(&quot;OptionButton&quot;&amp;Cstr(I)).Model.ImageURL = sChemindmaths &amp; &quot;icons/theme&quot;&amp;Cstr(I)&amp;&quot;/metenvecteur_16.bmp&quot;
		Next I
		For I = iNbreThemesIcones+1 To 7 
			oRuntimeDialog.GetControl(&quot;OptionButton&quot;&amp;Cstr(I)).Visible = False
		Next I
		oRuntimeDialog.GetControl(&quot;TextField1&quot;).Text = iTailleFormules
		oRuntimeDialog.GetControl(&quot;TextField2&quot;).Text = iMarqHorPoints
		oRuntimeDialog.GetControl(&quot;TextField3&quot;).Text = iMarqVerPoints	
		oRuntimeDialog.GetControl(&quot;TextField4&quot;).Text = iDelaiEntreSauvegardes
		oRuntimeDialog.GetControl(&quot;TextField5&quot;).Text = sNomPoliceCursive
		oRuntimeDialog.GetControl(&quot;TextField7&quot;).Text = sLettresScalaires
		If Len(iMargesFormules) &lt;&gt; 0 then oRuntimeDialog.GetControl(&quot;TextField6&quot;).Text = iMargesFormules
		oRuntimeDialog.GetControl(&quot;ListBox1&quot;).SelectItemPos(iLang,True)
	End if
	
	If DialogName=&quot;TailleFormule&quot; Then
		If bItalic=False Then oRuntimeDialog.GetControl(&quot;CheckBox1&quot;).State=0
		If bTextMode = True Then oRuntimeDialog.GetControl(&quot;CheckBox2&quot;).State=1
	EndIf
	
	
	If DialogName=&quot;Tableau&quot; Then 
		oRuntimeDialog.Model.TextField1.Text = iNbreLignes
		oRuntimeDialog.Model.TextField2.Text = iNbreColonnes
		If bTitre = True Then oRuntimeDialog.GetControl(&quot;CheckBox1&quot;).State=1 Else oRuntimeDialog.GetControl(&quot;CheckBox1&quot;).State=0
		If bBordure = True Then oRuntimeDialog.GetControl(&quot;CheckBox2&quot;).State=1 Else oRuntimeDialog.GetControl(&quot;CheckBox2&quot;).State=0
		If bCentreHorizontal = True Then oRuntimeDialog.GetControl(&quot;CheckBox3&quot;).State=1 Else oRuntimeDialog.GetControl(&quot;CheckBox3&quot;).State=0
		If bCentreVertical = True Then oRuntimeDialog.GetControl(&quot;CheckBox4&quot;).State=1 Else oRuntimeDialog.GetControl(&quot;CheckBox4&quot;).State=0
	Endif
	
	If DialogName=&quot;ParCro&quot; Then
	    bBoite=True  
	    For I = 1 To 15
	    oRuntimeDialog.GetControl(&quot;CommandButton&quot;+Mid(Str(I),2,Len(Str(I))-1)).Model.BackGroundColor = RGB(170,170,255)
	    Next I
	Endif
	
	If 	DialogName=&quot;Tava&quot; Then
		For I = 9 To 20
		&apos;Xray oRuntimeDialog.GetControl(&quot;CommandButton9&quot;)
	    oRuntimeDialog.GetControl(&quot;CommandButton&quot;+cstr(I)).Label = &quot;0&quot;
	    Next I		
	Endif

	select case iLang	
	case 1
		langue.Language = &quot;en&quot;
		langue.Country = &quot;US&quot;
	case 2
		langue.Language = &quot;de&quot;
		langue.Country = &quot;DE&quot;
	case Else
		langue.Language = &quot;fr&quot;
		langue.Country = &quot;FR&quot;
	End Select
	oRuntimeDialog.Model.ResourceResolver.setCurrentLocale(langue, True)
	LoadDialog() = oRuntimeDialog	
End Function



</script:module>

APT Browse - Built by Thomas Orozco.