This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Symbian port 0.3.0 as of blead@25911
[perl5.git] / symbian / PerlApp.h
index 8782fa0..12131a4 100644 (file)
 # include <eikdialg.h>
 #endif /* #ifdef __SERIES60__ */
 
+#ifdef __UIQ__
+# include <qikapplication.h>
+# include <qikappui.h>
+# include <qikdocument.h>
+# include <eikdialg.h>
+#endif /* #ifdef __UIQ____ */
+
 #include <coecntrl.h>
 #include <f32file.h>
 
 # define CMyAppView     CEikBorderedControl
 #endif /* #ifdef __SERIES60__ */
 
+#ifdef __UIQ__
+# define CMyDocument    CEikDocument
+# define CMyApplication CQikApplication
+# define CMyAppUi       CQikAppUi
+# define CMyNoteDialog  CCknFlashingDialog
+# define CMyAppView     CCoeControl
+#endif /* #ifdef __UIQ__ */
+
 class CPerlAppDocument : public CMyDocument
 {
   public:
@@ -115,14 +130,14 @@ class CPerlAppView : public CMyAppView
     static CPerlAppView* NewLC(const TRect& aRect);
     ~CPerlAppView();
     void Draw(const TRect& aRect) const;
-#ifdef __SERIES80__
+#if defined(__SERIES80__) || defined(__UIQ__)
     void HandleCommandL(TInt aCommand);
-#endif /* #ifdef __SERIES80__ */
+#endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
   private:
     void ConstructL(const TRect& aRect);
 };
 
-#ifdef __SERIES80__
+#if defined(__SERIES80__) || defined(__UIQ__)
 
 class CPerlAppTextQueryDialog : public CEikDialog
 {
@@ -139,6 +154,6 @@ class CPerlAppTextQueryDialog : public CEikDialog
     TBool OkToExitL(TInt aKeycode);
 };
 
-#endif /* #ifdef __SERIES80__ */
+#endif /* #if defined(__SERIES80__) || defined(__UIQ__) */
 
 #endif // __PerlApp_h__