Subversion Repositories oidplus

Compare Revisions

Regard whitespace Rev 964 → Rev 965

/trunk_dos/OIDPLUS.EXE
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/trunk_dos/OIDPLUS.PAS
3,7 → 3,7
(************************************************)
(* OIDPLUS.PAS *)
(* Author: Daniel Marschall *)
(* Revision: 2022-02-27 *)
(* Revision: 2022-09-26 *)
(* License: Apache 2.0 *)
(* This file contains: *)
(* - "OIDplus for DOS" program *)
22,7 → 22,7
Weid;
 
const
VERSIONINFO = 'Revision: 2022-02-27';
VERSIONINFO = 'Revision: 2022-09-26';
TITLEBAR_LEFT_TEXT = 'OIDplus';
DISKIO_SOUND_DEBUGGING = false;
DISKIO_SOUND_DELAY = 500;
771,7 → 771,7
WeidNotation := OidToWeid(oid^.DotNotation);
end;
 
procedure DisplayOIDFile(filename: string);
procedure DisplayOIDFile(filename, from: string);
var
isRoot: boolean;
oid, tmpOID: POID;
863,7 → 863,7
 
if isRoot then
begin
menuIdExit := ListAppend(subsel, 'Back to main menu');
menuIdExit := ListAppend(subsel, 'Back to '+from);
ListAppend(subfiles, '');
end
else menuIdExit := -99;
1056,7 → 1056,7
rootfile := _GetRootFile(true);
if rootfile = '' then Exit;
 
DisplayOIDFile(rootfile);
DisplayOIDFile(rootfile, 'main menu');
end;
 
procedure OP_ReturnToMSDOS;
1172,7 → 1172,7
end
else
begin
DisplayOidFile(sTmp + '.OID');
DisplayOidFile(sTmp + '.OID', 'TreeView Export');
end;
end
else