Window creation: Difference between revisions
Content added Content deleted
(→{{header|Pascal}}: add example) |
|||
Line 1,163: | Line 1,163: | ||
{Window show} |
{Window show} |
||
end</lang> |
end</lang> |
||
=={{header|Pascal}}== |
|||
{{works with|Free_Pascal}} |
|||
{{libheader|SysUtils}}{{libheader|SDL}} |
|||
<lang pascal>Program WindowCreation_SDL; |
|||
{$linklib SDL} |
|||
uses |
|||
SDL, |
|||
SysUtils; |
|||
var |
|||
screen: PSDL_Surface; |
|||
begin |
|||
SDL_Init(SDL_INIT_VIDEO); |
|||
screen := SDL_SetVideoMode( 800, 600, 16, (SDL_SWSURFACE or SDL_HWPALETTE) ); |
|||
sleep(2000); |
|||
SDL_Quit; |
|||
end.</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |