8
procedure destroy(widget : pGtkWidget ; data: pgpointer ); cdecl;
20
gtk_init (@argc, @argv);
21
window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
22
fileed := gtkfileedit_new;
23
gtk_container_set_border_width(GTK_CONTAINER(Window),5);
24
box:=gtk_vbox_new(true,10);
25
button:=gtk_button_new_with_label('Quit');
26
gtk_box_pack_start(pgtkbox(box),PGtkWidget(fileed),False,False,0);
27
gtk_box_pack_start(pgtkbox(box),pgtkWidget(button),True,False,0);
28
gtk_container_add(GTK_Container(window),box);
29
gtk_signal_connect (PGTKOBJECT (window), 'destroy',
30
GTK_SIGNAL_FUNC (@destroy), NULL);
31
gtk_signal_connect_object(PgtkObject(button),'clicked',
32
GTK_SIGNAL_FUNC(@gtk_widget_destroy),
34
gtk_widget_show_all (window);