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
|