mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 12:38:36 +02:00
14 lines
278 B
ObjectPascal
14 lines
278 B
ObjectPascal
program fx;
|
|
|
|
uses glib,gdk,gtk,frmmain,sysutils;
|
|
|
|
Var
|
|
MainWindow : PMainWindow;
|
|
|
|
begin
|
|
gtk_init(@argc,@argv);
|
|
MainWindow:=NewMainForm;
|
|
gtk_widget_show_all(PGtkWidget(MainWindow^.Window));
|
|
ShowDir(mainwindow,Extractfilepath(Paramstr(0)){'/usr/bin/'});
|
|
gtk_main;
|
|
end. |