Symbian: better Series 80 support

[p5sagit/p5-mst-13.2.git] / symbian / PerlAppS80.rss

/* Copyright (c) 2004-2005 Nokia. All rights reserved. */ 

/* The PerlApp application is licensed under the same terms as Perl itself. */

NAME PERL

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

#include "PerlApp.hrh"

RESOURCE RSS_SIGNATURE
{
}

RESOURCE TBUF r_default_document_name
{
    buf = "";
}

RESOURCE EIK_APP_INFO
{
    menubar = r_Perl_menubar;
    cba = r_Perl_cba;
}

RESOURCE CBA r_Perl_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_Perl_menubar
{
    titles = {
        MENU_TITLE
            {
            menu_pane = r_Perl_menu; txt = "Options";
            }
    };
}


RESOURCE MENU_PANE r_Perl_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_Perl_oneliner_dialog
{
    title = "Title";
    buttons = R_EIK_BUTTONS_CANCEL_OK;
    flags = EEikDialogFlagWait;
    items = {
        DLG_LINE {
            type = EEikCtEdwin;
	    prompt = "Prompt";
            id = EPerlAppTextQueryInputField;
            control = EDWIN {
                width = 10;
                maxlength = 128;
            };
        }
    };
}