| 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 | |