1 files changed, 95 insertions, 0 deletions
diff --git a/symbian/PerlUiS90.rss b/symbian/PerlUiS90.rss
new file mode 100644
index 0000000000..28f71dd109
--- /dev/null
+++ b/symbian/PerlUiS90.rss
@@ -0,0 +1,95 @@
+/* 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;
+            };
+        }
+    };
+}
+