/packages/gtk1/examples/ttt_test.pp

 1{
 2
 3  Converted from C to Pascal by Frank Loemker
 4  <floemker@techfak.uni-bielefeld.de>
 5}
 6program ttt_test;
 7uses
 8  glib,gdk,gtk,
 9  tictactoe;
10
11procedure win (widget : pGtkWidget ; data: gpointer); cdecl;
12begin
13  writeln ('Yay!');
14  tictactoe_clear (pTICTACTOE (widget));
15end;
16
17
18var
19  window,ttt : pGtkWidget;
20begin
21  gtk_init (@argc, @argv);
22
23  window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
24
25  gtk_window_set_title (pGTKWINDOW (window), 'Aspect Frame');
26
27  gtk_signal_connect (pGTKOBJECT (window), 'destroy',
28                      GTK_SIGNAL_FUNC (@gtk_exit), NIL);
29
30  gtk_container_set_border_width (pGTKCONTAINER (window), 10);
31
32  ttt := tictactoe_new ();
33
34  gtk_container_add (pGTKCONTAINER (window), ttt);
35  gtk_widget_show (ttt);
36
37  gtk_signal_connect (pGTKOBJECT (ttt), 'tictactoe',
38                      GTK_SIGNAL_FUNC (@win), NIL);
39
40  gtk_widget_show (window);
41
42  gtk_main ();
43end.