Biblioteca GTK2

Ao ler diariamente sites, blog e etc encontrei um post sobre como usar a biblioteca GTK2 na linguagem pascal, na hora eu fiquei um pouco sem acreditar, como a biblioteca já vem instalada no Free pascal, eu tentei criar meu primeiro programa em pascal usando essa biblioteca Resultado:

então ficou curioso como usar Pascal+GTK2? vou mostrar um exemplo
Sim, abaixo segue um exemplo de uma janela(em modo gráfico) feita em Pascal.
--------------------------------------------------------------------------------------|
 program janela;
{ $mode objfpc }
//Declarando quais bibliotecas serão utilizadas:
uses
glib2, gtk2, gdk2;
//Função usada para finalizar o programa
procedure destroy ( widget : pGtkWidget ; data : pgpointer); cdecl;
begin
gtk_main_quit();
end;
//Declaração de variáveis acompanhadas pelo tipo
var window:pGtkWidget;
//Início do programa:
begin
//Detectar display...
gtk_init (@argc, @argv);
//Produzir uma janela...
window:= gtk_window_new (GTK_WINDOW_TOPLEVEL);
//Caso alguém peça para a janela ser fechada, o que fazer...
gtk_signal_connect(pGTKOBJECT (window), 'destroy', GTK_SIGNAL_FUNC(@destroy), NULL);
//Mostre a janela...
gtk_widget_show(window);
//Ativar coração do GTK
gtk_main ();
end.

--------------------------------------------------------------------------------------|

Essa  biblioteca é muito conhecida onde é usada em programas como Gimp, gnome.. entre outras grandes ferramentas.. 
GTK = GIMP Tool Kit;




P.s: Pascal não esta parado no tempo, a free-pascal.org trabalha em cima da linguagem, adiciona bibliotecas e novas potencialidades.

 (Acompanhe essas novidades sempre)