libreoffice-dmaths 3.4+dfsg1-1 / usr / lib / libreoffice / share / extensions / DmathsAddon / OOoTep / Module4.xba

This file is indexed.

/usr/lib/libreoffice/share/extensions/DmathsAddon/OOoTep/Module4.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
<?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="Module4" script:language="StarBasic">&apos;OOoTep
&apos;Copyright (C) 2005-2006 Gilles Daurat

&apos;This program is free software; you can redistribute it and/or
&apos;modify it under the terms of the GNU General Public License
&apos;as published by the Free Software Foundation; either version 2
&apos;of the License, or (at your option) any later version.

&apos;This program 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
&apos;GNU General Public License for more details.

&apos;You should have received a copy of the GNU General Public License
&apos;along with this program; if not, write to the Free Software
&apos;Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110 - 1301, USA.

Public oScriptTepForm as Object

Sub Main()
Dim fichierSWF as String
Dim uneDescription as String

	uneDescription = RetourneDescriptionTep()
	if uneDescription &lt;&gt; &quot;&quot; then
		fichierSWF = RetourneOptionOOoTep(&quot;tracenpoche&quot;)
		Select Case fichierSWF
		Case &quot;internet&quot;
			LanceAppli(&quot;http://tracenpoche.sesamath.net/flash/index.php&quot;, &quot;&quot;)
		Case &quot;dialogue&quot;
			AfficheScriptTepForm(uneDescription)
		Case &quot;rien&quot;, &quot;&quot;
		Case Else
			LanceAppli(fichierSWF, &quot;&quot;)
		End Select
	End If
End Sub

Function LanceAppli(sChemin, sMessag as String)
&apos; Auteur Didier Dorrange Pattoret
	On Error Goto ImpLancer
	If GetguiType &lt;&gt; 1 Then
		Shell(sChemin, 2)
	Else
		Dim sys As Object
		Dim iFlags As Integer
		sys = CreateUnoService(&quot;com.sun.star.system.SystemShellExecute&quot;)
		iFlags = com.sun.star.system.SystemShellExecuteFlags.NO_SYSTEM_ERROR_MESSAGE &apos; = 0
		sys.execute(sChemin, &quot; &quot;, iFlags)
	End if
	Exit Function
ImpLancer:
	MsgBox1 &quot;Je n&apos;ai pas pu lancer TraceEnPoche !&quot;
End Function

Sub AfficheScriptTepForm(uneDescription as String)
Dim uneSelection as New com.sun.star.awt.Selection

	oScriptTepForm = LoadDialog(&quot;OOoTep&quot;, &quot;Dialog2&quot;)
	ChangeTitreDialog(oScriptTepForm)
	if uneDescription &lt;&gt; &quot;&quot; then
		oScriptTepForm.Model.TextBox1.Text = uneDescription
&apos;		uneSelection.Min = 1
&apos;		uneSelection.Min = len(uneDescription)
&apos;		oScriptTepForm.GetControl(&quot;TextBox1&quot;).SetSelection(uneSelection)
		oScriptTepForm.Execute()
	End if
End Sub

Sub CommandButton1_Click()
	oScriptTepForm.EndExecute()
End Sub


</script:module>

APT Browse - Built by Thomas Orozco.