paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 12:29:18 +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_Type , PUBLICSCREEN_F, // pubscreen
SA_PubName , PtrUInt(PChar(VIDEOSCREENNAME)), SA_PubName , PtrUInt(PChar(VIDEOSCREENNAME)),
SA_Quiet , 1, SA_Quiet , 1,
SA_LikeWorkbench , 1 // Let OS SA_LikeWorkbench , 1, // Let OS
TAG_END, TAG_END
]); ]);
{$ifdef VIDEODEBUG} {$ifdef VIDEODEBUG}
if (GetScreen <> nil) then if (GetScreen <> nil) then
@ -180,7 +181,8 @@ begin
WA_Borderless , 1, WA_Borderless , 1,
WA_BackDrop , 1, WA_BackDrop , 1,
WA_FLAGS , VIDEO_WFLG_DEFAULTS, WA_FLAGS , VIDEO_WFLG_DEFAULTS,
WA_IDCMP , VIDEO_IDCMP_DEFAULTS WA_IDCMP , VIDEO_IDCMP_DEFAULTS,
TAG_END, TAG_END
]); ]);
end else end else
begin // Windowed Mode begin // Windowed Mode
@ -196,7 +198,8 @@ begin
WA_FLAGS , (VIDEO_WFLG_DEFAULTS or WA_FLAGS , (VIDEO_WFLG_DEFAULTS or
WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or WFLG_DRAGBAR or WFLG_DEPTHGADGET or WFLG_SIZEGADGET or
WFLG_SIZEBBOTTOM or WFLG_CLOSEGADGET), WFLG_SIZEBBOTTOM or WFLG_CLOSEGADGET),
WA_IDCMP , VIDEO_IDCMP_DEFAULTS WA_IDCMP , VIDEO_IDCMP_DEFAULTS,
TAG_END, TAG_END
]); ]);
end; end;