1{
2    This file is part of the Free Pascal run time library.
3    Copyright (c) 2003 by the Free Pascal development team
4
5    Program source for GTK debug server.
6
7    See the file COPYING.FPC, included in this distribution,
8    for details about the copyright.
9
10    This program is distributed in the hope that it will be useful,
11    but WITHOUT ANY WARRANTY; without even the implied warranty of
12    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
13
14 **********************************************************************}
15program debugserver;
16{$mode objfpc}
17{$H+}
18{ $apptype gui}
19
20uses fpgtk,fpglib,fpgtkext,frmmain;
21
22begin
23  application := TFPgtkApplication.Create;
24  application.MainWindow := TMainForm.Create;
25  application.Run;
26  application.Free;
27end.
28