* hide the (currently broken, to be fixed) unix internal/external code page

  stuff to the implementation part of the unit

git-svn-id: branches/unicodekvm@48916 -

packages/fv/src/views.inc

@@ -2826,11 +2826,8 @@ begin
 {$else FV_UNICODE}
   ColorMask:=Color shl 8;
   p:=framechars_437;
-  {$ifdef unix}
-  {Codepage variables are currently Unix only.}
-  if internal_codepage<>cp437 then
+  if GetActiveCodePage<>437 then
     p:=framechars_850;
-  {$endif}
   for i:=0 to Size.X-1 do
     TVideoBuf(FrameBuf)[i]:=ord(p[FrameMask[i]]) or ColorMask;
 {$endif FV_UNICODE}

packages/rtl-console/src/unix/video.pp

@@ -24,6 +24,14 @@ unit video;
 
 {$i videoh.inc}
 
+{*****************************************************************************}
+                                implementation
+{*****************************************************************************}
+
+uses  baseunix,termio,strings,unixkvmbase,graphemebreakproperty,eastasianwidth
+     ,charset
+     {$ifdef linux},linuxvcs{$endif};
+
 type  Tencoding=(cp437,         {Codepage 437}
                  cp850,         {Codepage 850}
                  cp852,         {Codepage 852}
@@ -53,15 +61,6 @@ const  {Contains all code pages that can be considered a normal vga font.
 
 var internal_codepage,external_codepage:Tencoding;
 
-
-{*****************************************************************************}
-                                implementation
-{*****************************************************************************}
-
-uses  baseunix,termio,strings,unixkvmbase,graphemebreakproperty,eastasianwidth
-     ,charset
-     {$ifdef linux},linuxvcs{$endif};
-
 {$i video.inc}
 {$i convert.inc}