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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
BEGIN { print "1..1\n" }
package ButtonsGroups;
use strict;
use TQt;
use TQt::isa qw(TQt::Widget);
use TQt::slots
slotChangeGrp3State => [];
use TQt::attributes qw(
state
rb21
rb22
rb23
);
#
# Constructor
#
# Creates all child widgets of the ButtonGroups window
#
sub NEW {
shift->SUPER::NEW(@_);
# Create Widgets which allow easy layouting
my $vbox = TQt::VBoxLayout(this);
my $box1 = TQt::HBoxLayout($vbox);
my $box2 = TQt::HBoxLayout($vbox);
# ------- first group
# Create an exclusive button group
my $bgrp1 = TQt::ButtonGroup(1, &Horizontal, "Button Group &1 (exclusive)", this);
$box1->addWidget($bgrp1);
$bgrp1->setExclusive(1);
# insert 3 radiobuttons
TQt::RadioButton("R&adiobutton 2", $bgrp1);
TQt::RadioButton("Ra&diobutton 3", $bgrp1);
# ------- second group
# Create a non-exclusive buttongroup
my $bgrp2 = TQt::ButtonGroup(1, &Horizontal, "Button Group &2 (non-exclusive)", this);
$box1->addWidget($bgrp2);
$bgrp2->setExclusive(0);
# insert 3 checkboxes
TQt::CheckBox("&Checkbox 1", $bgrp2);
my $cb12 = TQt::CheckBox("C&heckbox 2", $bgrp2);
$cb12->setChecked(1);
my $cb13 = TQt::CheckBox("Triple &State Button", $bgrp2);
$cb13->setTristate(1);
$cb13->setChecked(1);
# ----------- third group
# create a buttongroup which is exclusive for radiobuttons and non-exclusive for all other buttons
my $bgrp3 = TQt::ButtonGroup(1, &Horizontal, "Button Group &3 (Radiobutton-exclusive)", this);
$box2->addWidget($bgrp3);
$bgrp3->setRadioButtonExclusive(1);
# insert three radiobuttons
rb21 = TQt::RadioButton("Rad&iobutton 1", $bgrp3);
rb22 = TQt::RadioButton("Radi&obutton 2", $bgrp3);
rb23 = TQt::RadioButton("Radio&button 3", $bgrp3);
rb23->setChecked(1);
# insert a checkbox
state = TQt::CheckBox("E&nable Radiobuttons", $bgrp3);
state->setChecked(1);
# ...and connect its TQ_SIGNAL clicked() with the TQ_SLOT slotChangeGrp3State()
this->connect(state, TQ_SIGNAL('clicked()'), TQ_SLOT('slotChangeGrp3State()'));
# ----------- fourth group
# create a groupbox which layouts its childs in a columns
my $bgrp4 = TQt::ButtonGroup(1, &Horizontal, "Groupbox with &normal buttons", this);
$box2->addWidget($bgrp4);
# insert three pushbuttons...
TQt::PushButton("&Push Button", $bgrp4);
my $tb2 = TQt::PushButton("&Toggle Button", $bgrp4);
my $tb3 = TQt::PushButton("&Flat Button", $bgrp4);
# ... and make the second one a toggle button
$tb2->setToggleButton(1);
$tb2->setOn(1);
# ... and make the third one a flat button
$tb3->setFlat(1);
}
#
# TQ_SLOT slotChangeGrp3State()
#
# enables/disables the radiobuttons of the third buttongroup
#
sub slotChangeGrp3State {
rb21->setEnabled(state->isChecked);
rb22->setEnabled(state->isChecked);
rb23->setEnabled(state->isChecked);
}
1;
package main;
use TQt;
use ButtonsGroups;
TQt::StyleFactory::keys(); # disable style plugins (hacky)
my $a = TQt::Application(\@ARGV);
my $buttonsgroups = ButtonsGroups;
$buttonsgroups->resize(500, 250);
$buttonsgroups->setCaption("PerlTQt Test - Please wait");
$a->setMainWidget($buttonsgroups);
$buttonsgroups->show;
TQt::Timer::singleShot( 2000, TQt::app(), TQ_SLOT "quit()" );
my $r = $a->exec;
print +$r?"not ok\n" : "ok 1\n";
exit $r;
|
