summaryrefslogtreecommitdiff
path: root/gnu/usr.bin/perl/symbian/PerlUiS80.rss
blob: 8028311f3523f2a6b7730f630a958ef3ebde2ccc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
/* Copyright (c) 2004-2005 Nokia. All rights reserved. */ 

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

/* The S80 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;
            };
        }
    };
}