Package: optgeo / 2.25-1

40-exemples.patch Patch series | download
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
Index: optgeo-2.25/ray1.pas
===================================================================
--- optgeo-2.25.orig/ray1.pas
+++ optgeo-2.25/ray1.pas
@@ -426,6 +426,7 @@ procedure tform1.ConfigurationInitiale;
       readln(fc,s1);
       repertoire_exemples:=s1;
       repertoire_exemples:=AppendPathDelim(repertoire_exemples);
+      repertoire_exemples:='/usr/share/optgeo/exemples';
       end;
 
    if s='repertoire simulation perso' then
@@ -462,6 +463,7 @@ procedure tform1.ConfigurationInitiale;
             if titi=idcancel then close;
              if titi=idok then begin
              repertoire_exemples:=repertoire_exemples_par_defaut;
+		 repertoire_exemples:='/usr/share/optgeo/exemples';
                  repertoire_simul_perso:=repertoire_simul_perso_par_defaut;
                 exit;
                 end;
@@ -483,6 +485,7 @@ end;
    form16.directoryedit3.Directory:=repertoire_simul_perso;
    form16.showmodal;
    repertoire_exemples:=form16.directoryedit1.Directory;
+   repertoire_exemples:='/usr/share/optgeo/exemples';
     //repertoire_config_perso:=form16.directoryedit2.Directory;
     repertoire_simul_perso:=form16.directoryedit3.Directory;
 
@@ -492,6 +495,7 @@ end;
    if not(directoryexistsUTF8(repertoire_exemples)) then begin
    application.messagebox(pchar(rsJeNeParviens), pchar(rsMaisEuh), mb_ok);
         repertoire_exemples:=repertoire_exemples_par_defaut;
+        repertoire_exemples:='/usr/share/optgeo/exemples';
         goto 113;
     end;
 
@@ -533,6 +537,7 @@ end;
    if not(directoryexistsUTF8(repertoire_exemples)) then begin
    application.messagebox(pchar(rsRepertoireDe), pchar(rsMaisEuh), mb_ok);
         repertoire_exemples:=repertoire_exemples_par_defaut;
+        repertoire_exemples:='/usr/share/optgeo/exemples';
     end;
 
    if not(directoryexistsUTF8(repertoire_simul_perso)) then try
@@ -12882,6 +12887,7 @@ end;
 
     repertoire_simul_perso:=form16.directoryedit3.Directory;
     repertoire_exemples:=form16.directoryedit1.Directory;
+    repertoire_exemples:='/usr/share/optgeo/exemples';
 
 
    if not(directoryexistsutf8(repertoire_simul_perso)) then
@@ -12902,6 +12908,7 @@ end;
    if not(directoryexistsUTF8(repertoire_exemples)) then begin
    application.messagebox(pchar(rsJeNeParviens4), pchar(rsMaisEuh), mb_ok);
     repertoire_exemples:=repertoire_exemples_par_defaut;
+    repertoire_exemples:='/usr/share/optgeo/exemples';
         end;
 
    try