symbian/PerlAppS80.rss

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