- no unit dependencies

tests/tbs0020.pp

@@ -1,32 +0,0 @@
-{ this program need GPM !! }
-
-{$ifdef linux}
-uses
-  Gpm;
-
-var
-  Conn: TGPMConnect;
-  Quit: Boolean;
-  Event: TGPMEvent;
-
-begin
-
-  FillChar(Conn, SizeOf(Conn), 0);
-  Conn.EventMask := GPM_MOVE+GPM_DRAG+GPM_DOWN+GPM_UP+GPM_SINGLE+GPM_DOUBLE;
-  Conn.DefaultMask := 0;
-  GPM_Open(Conn, 0);
-  WriteLn('I have opened the mouse... trying to do something tricky...');
-  Quit := False;
-  while not Quit do begin
-    GPM_GetEvent(Event);
-    WriteLn('GetEvent returned... Event.EventType=', Event.EventType);
-    if Event.EventType and GPM_BARE_EVENTS = GPM_DOWN then begin
-      WriteLn('You have pressed a mouse button...');
-      Quit := True;
-    end;
-  end;
-  GPM_Close;
-{$else def linux}
-begin
-{$endif def linux}
-end.