paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 11:32:46 +02:00
Code Issues Packages Projects Releases Wiki Activity

Amiga: Missing TAG_END in video unit

Browse Source 
git-svn-id: trunk@35029 -
This commit is contained in:
marcus 2016-12-01 17:34:42 +00:00
parent b02d541e78
commit 7eccbad9d3
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
packages/rtl-console/src/amicommon/video.pp
View File

@ -119,7 +119,8 @@ begin
SA_Type , PUBLICSCREEN_F, // pubscreen
SA_PubName , PtrUInt(PChar(VIDEOSCREENNAME)),
SA_Quiet , 1,
SA_LikeWorkbench , 1 // Let OS
SA_LikeWorkbench , 1, // Let OS
TAG_END, TAG_END
]);
{$ifdef VIDEODEBUG}
if (GetScreen <> nil) then
@ -180,7 +181,8 @@ begin
WA_Borderless , 1,
WA_BackDrop , 1,
WA_FLAGS , VIDEO_WFLG_DEFAULTS,
WA_IDCMP , VIDEO_IDCMP_DEFAULTS
WA_IDCMP , VIDEO_IDCMP_DEFAULTS,
TAG_END, TAG_END
]);
end else
begin // Windowed Mode
@ -196,7 +198,8 @@ begin
WA_FLAGS , (VIDEO_WFLG_DEFAULTS or
WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or
WFLG_SIZEBBOTTOM or WFLG_CLOSEGADGET),
WA_IDCMP , VIDEO_IDCMP_DEFAULTS
WA_IDCMP , VIDEO_IDCMP_DEFAULTS,
TAG_END, TAG_END
]);
end;