Inicio Explorar Axuda
Iniciar sesión
pascal
/
freepascal.compiler
réplica de https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Ficheiros Incidencias 0 Wiki
Explorar o código

rtl-console: don't forget to open libraries on MorphOS

git-svn-id: trunk@28555 -
Károly Balogh %!s(int64=11) %!d(string=hai) anos
pai
143d7d7dd4
achega
1e86d2ba2f
Modificáronse 1 ficheiros con 3 adicións e 0 borrados
Unificar vista Mostrar estatísticas de Diff
  1. 3 0
      packages/rtl-console/src/morphos/video.pp

+ 3 - 0
packages/rtl-console/src/morphos/video.pp
Ver ficheiro 

@@ -249,6 +249,9 @@ procedure SysInitVideo;
 
 var
 
 var
 
   Counter: LongInt;
 
   Counter: LongInt;
 
 begin
 
 begin
 
+  InitGraphicsLibrary;
 
+  InitIntuitionLibrary;
 
+
 
   {$ifdef VIDEODEBUG}
 
   {$ifdef VIDEODEBUG}
 
   WriteLn('FULLSCREEN VIDEO UNIT MODIFICATION v2');  
   WriteLn('FULLSCREEN VIDEO UNIT MODIFICATION v2');  
   if FPC_VIDEO_FULLSCREEN then
 
   if FPC_VIDEO_FULLSCREEN then