96 lines
1.9 KiB
XML
96 lines
1.9 KiB
XML
/* 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;
|
|
};
|
|
}
|
|
};
|
|
}
|
|
|