Optimize reversing an array in-place
[p5sagit/p5-mst-13.2.git] / symbian / PerlUiS90.rss
1 /* Copyright (c) 2006 Alexander Smishlajev. All rights reserved. */ 
2
3 /* The PerlUi class is licensed under the same terms as Perl itself. */
4
5 /* The S90 definitions. */
6
7 NAME PERL
8
9 #include <eikon.rh>
10 #include <eikon.rsg>
11
12 #include "PerlUi.hrh"
13 #include "PerlApp.hrh"
14
15 RESOURCE RSS_SIGNATURE
16 {
17 }
18
19 RESOURCE TBUF r_default_document_name
20 {
21     buf = "";
22 }
23
24 RESOURCE EIK_APP_INFO
25 {
26     menubar = r_perlui_menubar;
27     cba = r_perlui_cba;
28 }
29
30 RESOURCE CBA r_perlui_cba
31 {
32     buttons = {
33         CBA_BUTTON { id = EPerlAppCommandRunFile;        txt = "Run"; },
34         CBA_BUTTON { id = EPerlAppCommandOneLiner;       txt = "Oneliner"; },
35         CBA_BUTTON { id = EPerlAppCommandAboutCopyright; txt = "About"; },
36         CBA_BUTTON { id = EEikCmdExit;                   txt = "Exit"; }
37     };
38 }
39
40
41 RESOURCE MENU_BAR r_perlui_menubar
42 {
43     titles = {
44         MENU_TITLE
45             {
46             menu_pane = r_perlui_menu; txt = "Options";
47             }
48     };
49 }
50
51
52 RESOURCE MENU_PANE r_perlui_menu
53 {
54     items = {
55         MENU_ITEM {
56             command = EPerlAppCommandAbout;
57             txt = "About";
58         },
59         MENU_ITEM {
60             command = EPerlAppCommandTime;
61             txt = "Time";
62         },
63         MENU_ITEM {
64             command = EPerlAppCommandRunFile;
65             txt = "Run";
66         },
67         MENU_ITEM {
68             command = EPerlAppCommandOneLiner;
69             txt = "Oneliner";
70         },
71         MENU_ITEM {
72             command = EPerlAppCommandCopyright;
73             txt = "Copyright";
74             }
75         };
76 }
77
78 RESOURCE DIALOG r_perlui_oneliner_dialog
79 {
80     title = "Title";
81     buttons = R_EIK_BUTTONS_CANCEL_OK;
82     flags = EEikDialogFlagWait;
83     items = {
84         DLG_LINE {
85             type = EEikCtEdwin;
86             prompt = "Prompt";
87             id = EPerlUiTextQueryInputField;
88             control = EDWIN {
89                 width = 10;
90                 maxlength = 128;
91             };
92         }
93     };
94 }
95