The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/* Copyright (c) 200-2005 Nokia. All rights reserved. */ 

/* The PerlUi class is licensed under the same terms as Perl itself. */

/* The UIQ definitions. */

NAME PERL

#include <eikon.rh>
#include <eikcore.rsg>
#include <qikon.rh>

#include "PerlUi.hrh"
#include "PerlApp.hrh"

RESOURCE RSS_SIGNATURE
{
}

RESOURCE TBUF r_default_document_name
{
    buf = "";
}

RESOURCE EIK_APP_INFO
{
    menubar = r_perlui_menubar;
    toolbar = r_perlui_menubar;
}


RESOURCE MENU_BAR r_perlui_menubar
{
    titles = {
        MENU_TITLE
            {
            menu_pane = r_perlui_menu; txt = "Options";
            }
    };
}


RESOURCE MENU_PANE r_perlui_menu
{
    items = {
        MENU_ITEM {
            command = EPerlAppCommandAbout;
            txt = "About";
        },
        MENU_ITEM {
            command = EPerlAppCommandTime;
            txt = "Time";
        },
        MENU_ITEM {
            command = EPerlAppCommandOneLiner;
            txt = "Oneliner";
        },
        MENU_ITEM {
            command = EPerlAppCommandCopyright;
            txt = "Copyright";
            }
        };
}

RESOURCE DIALOG r_perlui_oneliner_dialog
{
    title = "Title";
    buttons = R_EIK_BUTTONS_CANCEL_OK;
    flags = EEikDialogFlagWait;
    items = {
        DLG_LINE {
            type = EEikCtEdwin;
	    prompt = "Prompt";
            id = EPerlUiTextQueryInputField;
            control = EDWIN {
                width = 10;
                maxlength = 128;
            };
        }
    };
}

RESOURCE DIALOG r_perlui_ok_cancel_dialog
{
    title = "OK / Cancel ?";
    buttons = r_perlui_ok_cancel_buttons;
}

RESOURCE DLG_BUTTONS r_perlui_ok_cancel_buttons
{
    buttons = {
        DLG_BUTTON {
            id = EEikBidOk;
            button = CMBUT { txt = "Ok"; };
        },
        DLG_BUTTON {
            id = EEikBidCancel;
            button = CMBUT { txt = "Cancel"; };
        }
    };
}

RESOURCE DIALOG r_perlui_yes_no_dialog
{
    title = "Yes / No ?";
    buttons = r_perlui_yes_no_buttons;
}

RESOURCE DLG_BUTTONS r_perlui_yes_no_buttons
{
    buttons = {
        DLG_BUTTON {
            id = EEikBidOk;
            button = CMBUT { txt = "Yes"; };
        },
        DLG_BUTTON {
            id = EEikBidCancel;
            button = CMBUT { txt = "No"; };
        }
    };
}