1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
{
This file extracted from the GTK 1.2 tutorial.
Section 6.4
Converted from C to Pascal by Thomas E. Payne
}
program Tut6_4;
{$mode objfpc}
uses
glib,gdk,gtk,sysutils;
//* example-start radiobuttons radiobuttons.c *//
procedure close_application( widget : pGtkWidget;
event : pGdkEvent;
data : gpointer ); cdecl;
begin
gtk_main_quit();
end;
var
window,box1,box2,button,separator : pGtkWidget;
group : pGSList;
begin
gtk_init(@argc,@argv);
window := Nil;
window := gtk_window_new (GTK_WINDOW_TOPLEVEL);
gtk_signal_connect (GTK_OBJECT (window), 'delete_event',
GTK_SIGNAL_FUNC(@close_application),
Nil);
gtk_window_set_title (GTK_WINDOW (window), 'radio buttons');
gtk_container_set_border_width (GTK_CONTAINER (window), 0);
box1 := gtk_vbox_new (FALSE, 0);
gtk_container_add (GTK_CONTAINER (window), box1);
gtk_widget_show (box1);
box2 := gtk_vbox_new (FALSE, 10);
gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
gtk_box_pack_start (GTK_BOX (box1), box2, TRUE, TRUE, 0);
gtk_widget_show (box2);
button := gtk_radio_button_new_with_label (Nil, 'button1');
gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
gtk_widget_show (button);
group := gtk_radio_button_group (GTK_RADIO_BUTTON (button));
button := gtk_radio_button_new_with_label(group, 'button2');
gtk_toggle_button_set_active (GTK_TOGGLE_BUTTON (button), TRUE);
gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
gtk_widget_show (button);
button := gtk_radio_button_new_with_label(
gtk_radio_button_group (GTK_RADIO_BUTTON (button)),
'button3');
gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
gtk_widget_show (button);
separator := gtk_hseparator_new ();
gtk_box_pack_start (GTK_BOX (box1), separator, FALSE, TRUE, 0);
gtk_widget_show (separator);
box2 := gtk_vbox_new (FALSE, 10);
gtk_container_set_border_width (GTK_CONTAINER (box2), 10);
gtk_box_pack_start (GTK_BOX (box1), box2, FALSE, TRUE, 0);
gtk_widget_show (box2);
button := gtk_button_new_with_label ('close');
gtk_signal_connect_object (GTK_OBJECT (button), 'clicked',
GTK_SIGNAL_FUNC(@close_application),
GTK_OBJECT (window));
gtk_box_pack_start (GTK_BOX (box2), button, TRUE, TRUE, 0);
GTK_WIDGET_SET_FLAGS (button, GTK_CAN_DEFAULT);
gtk_widget_grab_default (button);
gtk_widget_show (button);
gtk_widget_show (window);
gtk_main();
end.
|
