* added log

This commit is contained in:
nils 2003-01-12 21:12:49 +00:00
parent c4bd066458
commit 9dcb4e1be6
33 changed files with 143 additions and 0 deletions

View File

@ -35,3 +35,9 @@
{$ifndef use_amiga_smartlink}
{$define use_amiga_smartlink}
{$endif}
{
$Log
}

View File

@ -43,3 +43,9 @@
{$ifndef use_auto_openlib}
{$define use_auto_openlib}
{$endif}
{
$Log
}

View File

@ -42,3 +42,8 @@ begin
freeSessionVal := QFreeSession(session);
end.
{
$Log
}

View File

@ -104,4 +104,9 @@ begin
CleanUp('all ok',0);
end.
{
$Log
}

View File

@ -1244,3 +1244,9 @@ begin
{$endif use_auto_openlib}
END. (* UNIT GTLAYOUT *)
{
$Log
}

View File

@ -662,3 +662,9 @@ begin
END. (* UNIT IDENTIFY *)
{
$Log
}

View File

@ -84,3 +84,9 @@ Begin
End Else
Writeln ('DisplayID is 0.');
End.
{
$Log
}

View File

@ -60,3 +60,9 @@ Begin
End Else
Writeln ('Unable to allocate list.');
End.
{
$Log
}

View File

@ -90,3 +90,8 @@ Begin
p96PIP_Close(wd);
End Else Writeln ('Unable to open PIP.');
End.
{
$Log
}

View File

@ -213,3 +213,7 @@ BEGIN
CleanUp('');
END.
{
$Log
}

View File

@ -88,3 +88,7 @@ begin
end;
end.
{
$Log
}

View File

@ -62,3 +62,8 @@ Begin
Writeln('No Dimensioninfo.');
End Else Writeln('DisplayID invalid.');
End.
{
$Log
}

View File

@ -167,3 +167,7 @@ if sc = nil then CleanUp('Can''t open screen');
CleanUp('');
End.
{
$Log
}

View File

@ -901,3 +901,8 @@ begin
{$endif use_auto_openlib}
END. (* UNIT PICASSO96API *)
{
$Log
}

View File

@ -409,3 +409,8 @@ BEGIN
NIL,@undertag);
CleanUp;
END.
{
$Log
}

View File

@ -1160,5 +1160,8 @@ BEGIN
END. (* UNIT REQTOOLS *)
{
$Log
}

View File

@ -1152,6 +1152,7 @@ END.
$Log
}

View File

@ -368,5 +368,6 @@ END.
$Log
}

View File

@ -280,6 +280,7 @@ END.
}

View File

@ -103,4 +103,8 @@ begin
Cleanexit('',0);
end.
{
$Log
}

View File

@ -74,5 +74,9 @@ begin
END ELSE writeln('Can''t create Application',20);
end.
{
$Log
}

View File

@ -122,3 +122,10 @@ begin
end
else writeln('Can''t create application');
end.
{
$Log
}

View File

@ -77,4 +77,10 @@ begin
END ELSE writeln(' Cant creat Application' );
end.
{
$Log
}

View File

@ -89,4 +89,9 @@ begin
END ELSE writeln(' Cant create Application');
end.
{
$Log
}

View File

@ -72,3 +72,9 @@ begin
END ELSE writeln('Can''t create application');
end.
{
$Log
}

View File

@ -158,5 +158,10 @@ begin
CleanUp('',0);
end.
{
$Log
}

View File

@ -165,4 +165,10 @@ begin
CleanUp('',0);
end.
{
$Log
}

View File

@ -162,6 +162,11 @@ begin
CleanUp('',0);
end.
{
$Log
}

View File

@ -166,6 +166,11 @@ begin
CleanExit('',0);
END.
{
$Log
}

View File

@ -1475,3 +1475,5 @@ END. (* UNIT TRITON *)