#!/usr/bin/perl -w

# Name     : PerlQt Welcome Message
# Author   : Terrence Ma
# Email    : terrence@terrence.com
# Web      : http://www.terrence.com
# Date     : V1.0 04/06/2003
# License  : GNU GPL - http://www.gnu.org/copyleft/gpl.html
# Warranty : No Warranty

# see http://www.terrence.com/qt/welcome/welcome.html

# Form implementation generated from reading ui file 'dlgWelcome05.ui'
#
# Created: Sat Apr 5 03:19:25 2003
#      by: The PerlQt User Interface Compiler (puic)
#
# WARNING! All changes made in this file will be lost!


use strict;
use utf8;


package dlgWelcome01;
use Qt;
use Qt::isa qw(Qt::Dialog);
use Qt::slots
    lblAns_setText => [];
use Qt::attributes qw(
    lblQuestion01
    tbxName01
    btnSubmit01
    linCenter01
    lblAnswer01
    lblAnswer02
);



sub NEW
{
    shift->SUPER::NEW(@_[0..3]);

    if( name() eq "unnamed" )
    {
        setName("dlgWelcome01");
    }
    resize(328,95);
    setCaption(trUtf8("PerlQt Welcome Message"));


    my $LayoutWidget = Qt::Widget(this, '$LayoutWidget');
    $LayoutWidget->setGeometry(Qt::Rect(0, 0, 326, 93));
    my $layAll01 = Qt::VBoxLayout($LayoutWidget, 0, 6, '$layAll01');

    my $layUp01 = Qt::HBoxLayout(undef, 0, 6, '$layUp01');

    lblQuestion01 = Qt::Label($LayoutWidget, "lblQuestion01");
    lblQuestion01->setText(trUtf8("Please enter your name :"));
    $layUp01->addWidget(lblQuestion01);

    tbxName01 = Qt::LineEdit($LayoutWidget, "tbxName01");
    tbxName01->setText(trUtf8("Anonymous"));
    $layUp01->addWidget(tbxName01);

    btnSubmit01 = Qt::PushButton($LayoutWidget, "btnSubmit01");
    btnSubmit01->setText(trUtf8("Submit"));
    $layUp01->addWidget(btnSubmit01);
    $layAll01->addLayout($layUp01);

    linCenter01 = Qt::Frame($LayoutWidget, "linCenter01");
    linCenter01->setFrameStyle(&Qt::Frame::HLine | &Qt::Frame::Sunken);
    $layAll01->addWidget(linCenter01);

    lblAnswer01 = Qt::Label($LayoutWidget, "lblAnswer01");
    lblAnswer01->setText(trUtf8("Hello Anonymous, welcome to this application !"));
    $layAll01->addWidget(lblAnswer01);

#   add $time
    my $time = scalar localtime;
    lblAnswer02 = Qt::Label($LayoutWidget, "lblAnswer02");
    lblAnswer02->setText(trUtf8("Time is now $time."));
    $layAll01->addWidget(lblAnswer02);

    Qt::Object::connect(tbxName01, SIGNAL "returnPressed()", this, SLOT "lblAns_setText()");
    Qt::Object::connect(btnSubmit01, SIGNAL "released()", this, SLOT "lblAns_setText()");
}


sub lblAns_setText
{
#   print "dlgWelcome01->lblAns_setText(): Not implemented yet.\n";
    my $name = dlgWelcome01->tbxName01->text();
    dlgWelcome01->lblAnswer01->setText(trUtf8("Hello $name, welcome to this application !"));
    my $time = scalar localtime;
    dlgWelcome01->lblAnswer02->setText(trUtf8("Time is now $time."));
}

1;


package main;

use Qt;
use dlgWelcome01;

my $a = Qt::Application(\@ARGV);
my $w = dlgWelcome01;
$a->setMainWidget($w);
$w->show;
exit $a->exec;