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.
58 lines
1.4 KiB
58 lines
1.4 KiB
#!/usr/bin/env kjscmd
|
|
|
|
//
|
|
// Script demonstrating how to create a custom widget.
|
|
//
|
|
|
|
function createField( parent )
|
|
{
|
|
var hbox = new TQHBox( box, 'hb' );
|
|
|
|
var label = new TQLabel( hbox );
|
|
label.text = 'Filename:';
|
|
var ed = new TQLineEdit( hbox, 'lineed' );
|
|
ed.text = './my_file.txt';
|
|
var pb = new TQPushButton( hbox, 'button' );
|
|
pb.text = 'Br&owse';
|
|
var led = new KLed( hbox, 'led' );
|
|
}
|
|
|
|
function createGroup( parent )
|
|
{
|
|
var grp = new TQGroupBox( box, 'grp' );
|
|
grp.columns = 1;
|
|
grp.title = 'A TQGroupBox';
|
|
|
|
var cb1 = new TQCheckBox( grp, 'check1' );
|
|
var cb2 = new TQCheckBox( grp, 'check2' );
|
|
cb1.text = 'Check Box One';
|
|
cb2.text = 'Check Box Two';
|
|
|
|
return grp;
|
|
}
|
|
|
|
// Outer layout
|
|
var box = new TQVBox();
|
|
box.margin = 6;
|
|
|
|
// Title
|
|
var ttl = new TQLabel( box, 'title' );
|
|
ttl.text = '<qt><center><h3>KJSEmbed Object Creation Demo</h3></center><hr></qt>';
|
|
|
|
// Named field
|
|
createField( box );
|
|
|
|
// Text editor
|
|
var l = new TQLabel( box, 'tl' );
|
|
l.txt = 'Editable Text Widget:';
|
|
var txt = new TQTextEdit( box, 'text_edit' );
|
|
txt.text = '<qt>This is an editable text widget created from <i>Javascript</i> using the '
|
|
+ '<b>KJSEmbed</b> library. As you can see, the facilities are powerful enough '
|
|
+ 'for many useful applications to be found.</qt>';
|
|
|
|
// Group of check boxes
|
|
var grp = createGroup( box );
|
|
|
|
box.show();
|
|
application.exec();
|