symbian/PerlUi.cpp

   1 /* Copyright (c) 2005 Nokia. All rights reserved. */
   2
   3 /* The PerlUi class is licensed under the same terms as Perl itself. */
   4
   5 #include "PerlUi.h"
   6
   7 #ifdef __SERIES60__
   8 # include <avkon.hrh>
   9 # include <aknnotewrappers.h>
  10 # include <AknCommonDialogs.h>
  11 # ifndef __SERIES60_1X__
  12 #  include <CAknFileSelectionDialog.h>
  13 # endif
  14 #endif /* #ifdef __SERIES60__ */
  15
  16 #ifdef __SERIES80__
  17 # include <eikon.hrh>
  18 # include <cknflash.h>
  19 # include <ckndgopn.h>
  20 # include <ckndgfob.h>
  21 # include <eiklabel.h>
  22 # include <cknconf.h>
  23 #endif /* #ifdef __SERIES80__ */
  24
  25 #ifdef __UIQ__
  26 # include <qikon.hrh>
  27 # include <eikedwin.h>
  28 # include <eiklabel.h>
  29 #endif /* #ifdef __UIQ__ */
  30
  31 #include <apparc.h>
  32 #include <e32base.h>
  33 #include <e32cons.h>
  34 #include <eikenv.h>
  35 #include <bautils.h>
  36 #include <eikappui.h>
  37 #include <utf.h>
  38 #include <f32file.h>
  39
  40 #include <coemain.h>
  41
  42 #include "PerlUi.hrh"
  43 #include "PerlUi.rsg"
  44
  45 #ifdef __SERIES80__
  46 #include "Eikon.rsg"
  47 #endif /* #ifdef __SERIES80__ */
  48
  49 #include "EXTERN.h"
  50 #include "perl.h"
  51 #include "XSUB.h"
  52
  53 #include "PerlBase.h"
  54 #include "PerlUtil.h"
  55
  56 #define symbian_get_vars() Dll::Tls() // Not visible from perlXYZ.lib?
  57
  58 _LIT(KDefaultScript, "default.pl");
  59
  60 EXPORT_C void CPerlUiAppUi::ConstructL()
  61 {
  62     BaseConstructL();
  63     iAppView = CPerlUiAppView::NewL(ClientRect());
  64     AddToStackL(iAppView);
  65     CEikonEnv::Static()->DisableExitChecks(ETrue); // Symbian FAQ-0577.
  66 }
  67
  68 EXPORT_C TBool CPerlUi::OkCancelDialogL(TDesC& aMessage)
  69 {
  70 #ifdef __SERIES60__
  71     CAknNoteDialog* dlg =
  72         new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
  73     dlg->PrepareLC(R_PERLUI_OK_CANCEL_DIALOG);
  74     dlg->SetTextL(aMessage);
  75     return dlg->RunDlgLD() == EAknSoftkeyOk;
  76 #endif /* #ifdef __SERIES60__ */
  77 #ifdef __SERIES80__
  78     return CCknConfirmationDialog::RunDlgWithDefaultIconLD(aMessage, R_EIK_BUTTONS_CANCEL_OK);
  79 #endif /* #ifdef __SERIES80__ */
  80 #ifdef __UIQ__
  81     CEikDialog* dlg = new (ELeave) CEikDialog();
  82     return dlg->ExecuteLD(R_PERLUI_OK_CANCEL_DIALOG) == EEikBidOk;
  83 #endif /* #ifdef __UIQ__ */
  84 }
  85
  86 EXPORT_C TBool CPerlUi::YesNoDialogL(TDesC& aMessage)
  87 {
  88 #ifdef __SERIES60__
  89     CAknNoteDialog* dlg =
  90         new (ELeave) CAknNoteDialog(CAknNoteDialog::EConfirmationTone);
  91     dlg->PrepareLC(R_PERLUI_YES_NO_DIALOG);
  92     dlg->SetTextL(aMessage);
  93     return dlg->RunDlgLD() == EAknSoftkeyOk;
  94 #endif /* #ifdef __SERIES60__ */
  95 #ifdef __SERIES80__
  96     return CCknConfirmationDialog::RunDlgWithDefaultIconLD(aMessage, R_EIK_BUTTONS_NO_YES);
  97 #endif /* #ifdef __SERIES80__ */
  98 #ifdef __UIQ__
  99     CEikDialog* dlg = new (ELeave) CEikDialog();
 100     return dlg->ExecuteLD(R_PERLUI_YES_NO_DIALOG) == EEikBidOk;
 101 #endif /* #ifdef __UIQ__ */
 102 }
 103
 104 EXPORT_C void CPerlUi::InformationNoteL(TDesC& aMessage)
 105 {
 106 #ifdef __SERIES60__
 107     CAknInformationNote* note = new (ELeave) CAknInformationNote;
 108     note->ExecuteLD(aMessage);
 109 #endif /* #ifdef __SERIES60__ */
 110 #if defined(__SERIES80__) || defined(__UIQ__)
 111     CEikonEnv::Static()->InfoMsg(aMessage);
 112 #endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 113 }
 114
 115 EXPORT_C TInt CPerlUi::WarningNoteL(TDesC& aMessage)
 116 {
 117 #ifdef __SERIES60__
 118     CAknWarningNote* note = new (ELeave) CAknWarningNote;
 119     return note->ExecuteLD(aMessage);
 120 #endif /* #ifdef __SERIES60__ */
 121 #if defined(__SERIES80__) || defined(__UIQ__)
 122     CEikonEnv::Static()->AlertWin(aMessage);
 123     return ETrue;
 124 #endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 125 }
 126
 127 #if defined(__SERIES80__) || defined(__UIQ__)
 128
 129 CPerlUiTextQueryDialog::CPerlUiTextQueryDialog(HBufC*& aBuffer) :
 130   iData(aBuffer)
 131 {
 132 }
 133
 134 TBool CPerlUiTextQueryDialog::OkToExitL(TInt /* aKeycode */)
 135 {
 136   iData = static_cast<CEikEdwin*>(Control(EPerlUiTextQueryInputField))->GetTextInHBufL();
 137   return ETrue;
 138 }
 139
 140 void CPerlUiTextQueryDialog::PreLayoutDynInitL()
 141 {
 142   SetTitleL(iTitle);
 143   CEikLabel* promptLabel = ControlCaption(EPerlUiTextQueryInputField);
 144   promptLabel->SetTextL(iPrompt);
 145 }
 146
 147 /* TODO: OfferKeyEventL() so that newline can be seen as 'OK'.
 148  * Or a hotkey for the button? */
 149
 150 #endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 151
 152 EXPORT_C TBool CPerlUi::TextQueryDialogL(const TDesC& aTitle, const TDesC& aPrompt, TDes& aData, const TInt aMaxLength)
 153 {
 154 #ifdef __SERIES60__
 155     CAknTextQueryDialog* dlg =
 156         new (ELeave) CAknTextQueryDialog(aData);
 157     dlg->SetPromptL(aPrompt);
 158     dlg->SetMaxLength(aMaxLength);
 159     return dlg->ExecuteLD(R_PERLUI_TEXT_QUERY_DIALOG);
 160 #endif /* #ifdef __SERIES60__ */
 161 #if defined(__SERIES80__) || defined(__UIQ__)
 162     HBufC* data = NULL;
 163     CPerlUiTextQueryDialog* dlg =
 164       new (ELeave) CPerlUiTextQueryDialog(data);
 165     dlg->iTitle.Set(aTitle);
 166     dlg->iPrompt.Set(aPrompt);
 167     dlg->iMaxLength = aMaxLength;
 168     if (dlg->ExecuteLD(R_PERLUI_ONELINER_DIALOG)) {
 169         aData.Copy(*data);
 170         return ETrue;
 171     }
 172     return EFalse;
 173 #endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 174 }
 175
 176 EXPORT_C TBool CPerlUi::FileQueryDialogL(TDes& aFilename)
 177 {
 178 #ifdef __SERIES60__
 179   return AknCommonDialogs::RunSelectDlgLD(aFilename,
 180                                           R_PERLUI_FILE_SELECTION_DIALOG);
 181 #endif /* #ifdef __SERIES60__ */
 182 #ifdef __SERIES80__
 183   if (CCknOpenFileDialog::RunDlgLD(aFilename,
 184                                     CCknFileListDialogBase::EShowAllDrives
 185                                    |CCknFileListDialogBase::EShowSystemFilesAndFolders
 186                                    |CCknFileListDialogBase::EShowBothFilesAndFolders
 187                                    )) {
 188     TEntry aEntry; // Be paranoid and check that the file is there.
 189     RFs aFs;
 190     aFs.Connect();
 191     if (aFs.Entry(aFilename, aEntry) == KErrNone)
 192       return ETrue;
 193     else
 194       CEikonEnv::Static()->InfoMsg(_L("File not found"));
 195   }
 196   return EFalse;
 197 #endif /* #ifdef __SERIES80__ */
 198 #ifdef __UIQ__
 199   return EFalse; // No filesystem access in UIQ 2.x!
 200 #endif /* #ifdef __UIQ__ */
 201 }
 202
 203 #ifdef __SERIES60__
 204
 205 EXPORT_C void CPerlUiAppUi::HandleCommandL(TInt aCommand)
 206 {
 207     switch(aCommand)
 208     {
 209     case EEikCmdExit:
 210     case EAknSoftkeyExit:
 211         Exit();
 212         break;
 213     default:
 214         DoHandleCommandL(aCommand);
 215         break;
 216     }
 217 }
 218
 219 #endif /* #ifdef __SERIES60__ */
 220
 221 #if defined(__SERIES80__) || defined(__UIQ__)
 222
 223 EXPORT_C void CPerlUiAppView::HandleCommandL(TInt aCommand, CPerlUiAppUi* aAppUi) {
 224     aAppUi->DoHandleCommandL(aCommand);
 225 }
 226
 227 EXPORT_C void CPerlUiAppUi::HandleCommandL(TInt aCommand) {
 228     switch(aCommand)
 229     {
 230     case EEikCmdExit:
 231         Exit();
 232         break;
 233     default:
 234         iAppView->HandleCommandL(aCommand, this);
 235         break;
 236     }
 237 }
 238
 239 #endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 240
 241 CPerlUiAppView* CPerlUiAppView::NewL(const TRect& aRect)
 242 {
 243     CPerlUiAppView* self = CPerlUiAppView::NewLC(aRect);
 244     CleanupStack::Pop(self);
 245     return self;
 246 }
 247
 248 CPerlUiAppView* CPerlUiAppView::NewLC(const TRect& aRect)
 249 {
 250     CPerlUiAppView* self = new (ELeave) CPerlUiAppView;
 251     CleanupStack::PushL(self);
 252     self->ConstructL(aRect);
 253     return self;
 254 }
 255
 256 void CPerlUiAppView::ConstructL(const TRect& aRect)
 257 {
 258     CreateWindowL();
 259     SetRect(aRect);
 260     ActivateL();
 261 }
 262
 263 CPerlUiAppView::~CPerlUiAppView()
 264 {
 265 }
 266
 267 void CPerlUiAppView::Draw(const TRect& /*aRect*/) const
 268 {
 269     CWindowGc& gc = SystemGc();
 270     TRect rect = Rect();
 271     gc.Clear(rect);
 272 }
 273