You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
728 B
37 lines
728 B
#!/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();
|