symbian/PerlUiS80.rss

   1 /* Copyright (c) 2004-2005 Nokia. All rights reserved. */
   2
   3 /* The PerlUi class is licensed under the same terms as Perl itself. */
   4
   5 /* The S80 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