/* Copyright (c) 2006 Alexander Smishlajev. All rights reserved. */ 

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

/* The S90 definitions. */

NAME PERL

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

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

RESOURCE RSS_SIGNATURE
{
}

RESOURCE TBUF r_default_document_name
{
    buf = "";
}

RESOURCE EIK_APP_INFO
{
    menubar = r_perlui_menubar;
    cba = r_perlui_cba;
}

RESOURCE CBA r_perlui_cba
{
    buttons = {
        CBA_BUTTON { id = EPerlAppCommandRunFile;        txt = "Run"; },
        CBA_BUTTON { id = EPerlAppCommandOneLiner;       txt = "Oneliner"; },
        CBA_BUTTON { id = EPerlAppCommandAboutCopyright; txt = "About"; },
        CBA_BUTTON { id = EEikCmdExit;                   txt = "Exit"; }
    };
}


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 = EPerlAppCommandRunFile;
            txt = "Run";
        },
        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;
            };
        }
    };
}

