morphunits: removed KVM unit, which was never meant for public use, and it's no longer used internally in the keyboard/video/mouse units.

git-svn-id: trunk@32708 -

.gitattributes

@@ -5820,7 +5820,6 @@ packages/morphunits/src/iffparse.pas svneol=native#text/plain
 packages/morphunits/src/inputevent.pas svneol=native#text/plain
 packages/morphunits/src/intuition.pas svneol=native#text/plain
 packages/morphunits/src/keymap.pas svneol=native#text/plain
-packages/morphunits/src/kvm.pas svneol=native#text/plain
 packages/morphunits/src/layers.pas svneol=native#text/plain
 packages/morphunits/src/mui.pas svneol=native#text/plain
 packages/morphunits/src/muihelper.pas svneol=native#text/plain

packages/morphunits/Makefile.fpc.fpcmake

@@ -7,9 +7,9 @@ name=morphunits
 version=3.1.1
 
 [target]
-units= aboxlib agraphics ahi amigados asl clipboard datatypes exec get9 \
-       hardware inputevent intuition keymap kvm layers mui muihelper timer \
-       tinygl utility iffparse diskfont cybergraphics cgxvideo
+units= amigalib agraphics ahi amigados asl clipboard datatypes exec get9 \
+       hardware inputevent intuition keymap layers mui muihelper timer \
+       tinygl utility iffparse diskfont cybergraphics cgxvideo gadtools
 
 [compiler]
 includedir=src

packages/morphunits/fpmake.pp

@@ -49,7 +49,6 @@ begin
     T:=P.Targets.AddUnit('mui.pas');
     T:=P.Targets.AddUnit('muihelper.pas');
     T:=P.Targets.AddUnit('ahi.pas');
-    T:=P.Targets.AddUnit('kvm.pas');
     T:=P.Targets.AddUnit('get9.pas');
     T:=P.Targets.AddUnit('tinygl.pas');
     T:=P.Targets.AddUnit('diskfont.pas');

packages/morphunits/src/kvm.pas

@@ -1,78 +0,0 @@
-{
-    This file is part of the Free Pascal run time library.
-    Copyright (c) 2006 Karoly Balogh
-    member of the Free Pascal Development Team
-
-    Keyboard/Video/Mouse helper unit for Amiga/MorphOS
-
-    See the file COPYING.FPC, included in this distribution,
-    for details about the copyright.
-
-    This program is distributed in the hope that it will be useful,
-    but WITHOUT ANY WARRANTY; without even the implied warranty of
-    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
-
- **********************************************************************}
-
-unit kvm;
-
-interface
-
-uses
-  exec, intuition, agraphics;
-
-
-function initKVM: boolean;
-procedure doneKVM;
-
-
-
-implementation
-
-
-var
-  kvmWindow: PWindow;
-
-const
-  DEFAULT_WINWIDTH  = 80;
-  DEFAULT_WINHEIGHT = 25;
-
-const
-  CHAR_XSIZE = 8;
-  CHAR_YSIZE = 16;
-
-
-
-
-function initKVM: boolean;
-begin
-  initKVM:=false;
-  kvmWindow:=OpenWindowTags(nil, [
-      WA_Left,50,
-      WA_Top, 50,
-      WA_InnerWidth, DEFAULT_WINWIDTH *CHAR_XSIZE,
-      WA_InnerHeight,DEFAULT_WINHEIGHT*CHAR_YSIZE,
-      WA_IDCMP, IDCMP_VANILLAKEY or IDCMP_RAWKEY,
-      WA_Title,DWord(PChar('Free Pascal Video Output')),
-      WA_Flags,(WFLG_GIMMEZEROZERO or 
-                WFLG_SMART_REFRESH or 
-                WFLG_NOCAREREFRESH or 
-                WFLG_ACTIVATE      or 
-                WFLG_DRAGBAR       or 
-                WFLG_DEPTHGADGET)
-    ]);
-
-  if kvmWindow<>nil then initKVM:=true;
-end;
-
-
-procedure doneKVM;
-begin
-  if kvmWindow <> nil then CloseWindow(kvmWindow);
-end;
-
-
-begin
-  InitGraphicsLibrary;
-  InitIntuitionLibrary;
-end.