echo "Creating $LOCATION_ROOT/${APP_NAME_LC}/${APP_NAME_LC}view.cpp...";
cat << EOF > $LOCATION_ROOT/${APP_NAME_LC}/${APP_NAME_LC}view.cpp
#include "${APP_NAME_LC}view.h"

#include <tqpainter.h>
#include <tqlayout.h>

#include <kurl.h>

#include <ktrader.h>
#include <klibloader.h>
#include <kmessagebox.h>
#include <krun.h>

${APP_NAME}View::${APP_NAME}View(TQWidget *parent)
    : TQWidget(parent),
      DCOPObject("${APP_NAME}Iface")
{
    // setup our layout manager to automatically add our widgets
    TQHBoxLayout *top_layout = new TQHBoxLayout(this);
    top_layout->setAutoAdd(true);

    // we want to look for all components that satisfy our needs.  the
    // trader will actually search through *all* registered KDE
    // applications and components -- not just KParts.  So we have to
    // specify two things: a service type and a constraint
    //
    // the service type is like a mime type.  we say that we want all
    // applications and components that can handle HTML -- 'text/html'
    // 
    // however, by itself, this will return such things as Netscape..
    // not what we wanted.  so we constrain it by saying that the
    // string 'KParts/ReadOnlyPart' must be found in the ServiceTypes
    // field.  with this, only components of the type we want will be
    // returned.
    KTrader::OfferList offers = KTrader::self()->query("text/html", "'KParts/ReadOnlyPart' in ServiceTypes");

    KLibFactory *factory = 0;
    // in theory, we only care about the first one.. but let's try all
    // offers just in case the first can't be loaded for some reason
    KTrader::OfferList::Iterator it(offers.begin());
    for( ; it != offers.end(); ++it)
    {
        KService::Ptr ptr = (*it);

        // we now know that our offer can handle HTML and is a part.
        // since it is a part, it must also have a library... let's try to
        // load that now
        factory = KLibLoader::self()->factory( ptr->library() );
        if (factory)
        {
            m_html = static_cast<KParts::ReadOnlyPart *>(factory->create(this, ptr->name(), "KParts::ReadOnlyPart"));
            break;
        }
    }

    // if our factory is invalid, then we never found our component
    // and we might as well just exit now
    if (!factory)
    {
        KMessageBox::error(this, "Could not find a suitable HTML component");
        return;
    }

    connect(m_html, TQT_SIGNAL(setWindowCaption(const TQString&)),
            this,   TQT_SLOT(slotSetTitle(const TQString&)));
    connect(m_html, TQT_SIGNAL(setStatusBarText(const TQString&)),
            this,   TQT_SLOT(slotOnURL(const TQString&)));

}

${APP_NAME}View::~${APP_NAME}View()
{
}

void ${APP_NAME}View::print(TQPainter *p, int height, int width)
{
    // do the actual printing, here
    // p->drawText(etc..)
}

TQString ${APP_NAME}View::currentURL()
{
    return m_html->url().url();
}

void ${APP_NAME}View::openURL(TQString url)
{
    openURL(KURL(url));
}

void ${APP_NAME}View::openURL(const KURL& url)
{
    m_html->openURL(url);
}

void ${APP_NAME}View::slotOnURL(const TQString& url)
{
    emit signalChangeStatusbar(url);
}

void ${APP_NAME}View::slotSetTitle(const TQString& title)
{
    emit signalChangeCaption(title);
}
#include "${APP_NAME_LC}view.moc"
