blob: 2eab8db8359294b24d444fd9e6db3cd04ebea4d5 (
plain)
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
|
#!/usr/bin/env kjscmd
function item( parent )
{
var hbox = new TQHBox( parent );
var led = new KLed( hbox );
var btn = new TQCheckBox( hbox );
btn.checked = true;
btn.text = 'Toggle LED';
var r = Math.random();
if ((r > 0.5)&&(r < 0.7))
led.color = 'red';
else if (r >= 0.7)
led.color = 'blue';
led.connect( btn, 'toggled(bool)', 'toggle()' );
}
var vbox = new TQVBox( 'test' );
vbox.margin = 6;
vbox.spacing = 4;
var ttl = new TQLabel( vbox );
ttl.text = '<h1>Connections</h1>';
for ( var i = 0 ; i < 10 ; i++ )
item( vbox );
var quit = new TQPushButton( vbox );
quit.text = '&Quit';
vbox.connect( quit, 'clicked()', 'close()' );
vbox.show();
application.exec();
|