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
|
PROGRAM(check_button);
// Check buttons inherent many properties and functions from the the
// toggle buttons, but look a little different. Rather than
// being buttons with text inside them, they are small squares with
// the text to the right of them. These are often used for toggling
// options on and off in applications.
// IMG: GTK.Check_button( "title" )
INHERIT(toggle_button);
FUNCTION(create, "function(string|void:void)")
NAME_ARGS(label);
// The argument, if specified, is the label of the item.
// If no label is specified, use object->add() to add some
// other widget (such as an pixmap or image widget)
{
if(THIS->obj) error("GTK.Check_button->create() can only be called once.\n");
if(args)
{
char *s;
get_all_args("GTK.Check_button", args, "%s", &s);
THIS->obj = GTK_OBJECT( gtk_check_button_new_with_label( s ) );
} else {
THIS->obj = GTK_OBJECT( gtk_check_button_new( ) );
}
pgtk__init_this_object();
}
|
