Index: freexp/xp9sel.pas
===================================================================
RCS file: /server/cvs/freexp/xp9sel.pas,v
retrieving revision 1.7
retrieving revision 1.9
diff -u -r1.7 -r1.9
--- freexp/xp9sel.pas 1 Jan 2005 11:16:30 -0000 1.7
+++ freexp/xp9sel.pas 28 Mar 2005 15:15:20 -0000 1.9
@@ -8,7 +8,7 @@
{ Die Nutzungsbedingungen fuer diesen Quelltext finden Sie in der }
{ Datei SLIZENZ.TXT oder auf www.crosspoint.de/oldlicense.html. }
{ --------------------------------------------------------------- }
-{ $Id: xp9sel.pas,v 1.7 2005/01/01 11:16:30 mw Exp $ }
+{ $Id: xp9sel.pas,v 1.9 2005/03/28 15:15:20 mw Exp $ }
{ CrossPoint - UniSel: Select-/Test-Routinen fuer Unisel-Menüs }
@@ -958,6 +958,11 @@
dir : dirstr;
name : namestr;
ext : extstr;
+{ JM Fix fuer DOS 28.03.2005}
+ p : byte;
+ s3 : string;
+{ /JM }
+
const cfgext : array [1..7] of string[5] = ('*.CFG','*.BFG','*.BFE','*.$CF',
'*.EXE','*.COM','*.BAT');
label restart;
@@ -1006,7 +1011,14 @@
begin
if not (Pos('start ', lstr(s1)) = 1) then
begin
- if (trim(s1) = '') then s2 := WildCard else s2 := s1;
+ { JM Fix fuer DOS 28.03.2005 }
+ if (trim(s1) = '') then s2 := WildCard else begin
+ s3 := s1;
+ p:=blankpos(s3); { Auf Leerzeichen prnfen }
+ if p<>0 then s2:=left(s3,p-1)
+ else s2:=s3;
+ end;
+ { /JM }
if (cpos(':',s2) = 2) or (cpos(DirSepa, s2) = 1) then
s2 := FExpand(s2)
else s2 := FExpand(cdir + s2);
@@ -1040,7 +1052,9 @@
rfehler(3); { 'Ungültiger Pfad- oder Dateiname!' }
goto restart;
end;
- s1 := s2;
+ { JM Fix fuer DOS 28.03.2005 }
+ if s3<>'' then s1:=s3 else s1 := s2;
+ { /JM }
end;
ReadExtCfgFilename := (s1<>'');
end else
@@ -2067,6 +2081,13 @@
{
$Log: xp9sel.pas,v $
+ Revision 1.9 2005/03/28 15:15:20 mw
+ MW: - Ergänzung letzter Commit
+
+ Revision 1.8 2005/03/28 10:16:32 mw
+ JM: - Fix für DOS: Unter DOS funktionierte Externe Einstellung (RFC/Client)
+ noch nicht richtig.
+
Revision 1.7 2005/01/01 11:16:30 mw
MW: - Willkommen im Jahr 2005
Index: freexp/doc/snapshot.dq
===================================================================
RCS file: /server/cvs/freexp/doc/snapshot.dq,v
retrieving revision 1.40
retrieving revision 1.41
diff -u -r1.40 -r1.41
--- freexp/doc/snapshot.dq 17 Mar 2005 19:04:40 -0000 1.40
+++ freexp/doc/snapshot.dq 28 Mar 2005 10:20:58 -0000 1.41
@@ -4729,3 +4729,14 @@
%----------------------------------
L. Snapshot vom xx.xx.2005, xx:xx Uhr
---------------------------------------
+· 28.03.2005
+-------------
+JM:
+%! Bugfix für DOS: Fehler im Dialog "Externe Einstellungen" (RFC/Client)
+ beseitigt.
+- Wurde als Externe Einstellung ein Programm mit Parametern
+ eingetragen, so versuchte FreeXP unsinnigerweise eine Datei zu suchen.
+ (z.B. bei E-SETUP von UKAW/UKAD). Es gab dabei zu unsinnigen
+ Fehlermeldungen.
+ XP9SEL.PAS
+
------------------------------------------------------------------------
FreeXP CVS-Mailingliste
CVS-List@freexp.de
http://www.freexp.de/cgi-bin/mailman/listinfo/cvs-list
