Gecko [ www.blackthorn-inc.com ]

Name	Size	Permission	Date
ext	[ DIR ]	drwxr-xr-x	2015-02-14 16:56
PerlApp.cpp	15.25 KB	-r--r--r--	2014-12-27 11:49
PerlApp.h	2.3 KB	-r--r--r--	2014-12-27 11:49
PerlApp.hrh	608 B	-r--r--r--	2014-12-27 11:49
PerlAppAif.rss	521 B	-r--r--r--	2014-12-27 11:49
PerlBase.cpp	11.19 KB	-r--r--r--	2014-12-27 11:49
PerlBase.h	4.23 KB	-r--r--r--	2014-12-27 11:49
PerlBase.pod	4.5 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.cpp	1.49 KB	-r--r--r--	2014-12-27 11:49
PerlRecog.mmp	197 B	-r--r--r--	2014-12-27 11:49
PerlUi.cpp	7.63 KB	-r--r--r--	2014-12-27 11:49
PerlUi.h	3.52 KB	-r--r--r--	2014-12-27 11:49
PerlUi.hrh	331 B	-r--r--r--	2014-12-27 11:49
PerlUiS60.rss	2.78 KB	-r--r--r--	2014-12-27 11:49
PerlUiS80.rss	1.89 KB	-r--r--r--	2014-12-27 11:49
PerlUiS90.rss	1.9 KB	-r--r--r--	2014-12-27 11:49
PerlUiUIQ.rss	2.26 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.cpp	2.88 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.h	1.19 KB	-r--r--r--	2014-12-27 11:49
PerlUtil.pod	1.24 KB	-r--r--r--	2014-12-27 11:49
README	558 B	-r--r--r--	2014-12-27 11:49
TODO	6.99 KB	-r--r--r--	2014-12-27 11:49
bld.inf	40 B	-r--r--r--	2014-12-27 11:49
config.pl	27.36 KB	-r--r--r--	2014-12-27 11:49
config.sh	16.55 KB	-r--r--r--	2014-12-27 11:49
cwd.pl	87 B	-r--r--r--	2014-12-27 11:49
demo_pl	3.25 KB	-r--r--r--	2014-12-27 11:49
find_writeable_data.pl	1.41 KB	-r--r--r--	2014-12-27 11:49
hexdump.pl	959 B	-r--r--r--	2014-12-27 11:49
install.cfg	2.32 KB	-r--r--r--	2014-12-27 11:49
makesis.pl	5.41 KB	-r--r--r--	2014-12-27 11:49
port.pl	154 B	-r--r--r--	2014-12-27 11:49
sanity.pl	925 B	-r--r--r--	2014-12-27 11:49
sdk.pl	7.93 KB	-r--r--r--	2014-12-27 11:49
sisify.pl	81.87 KB	-r--r--r--	2014-12-27 11:49
symbian_dll.cpp	639 B	-r--r--r--	2014-12-27 11:49
symbian_proto.h	2.78 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.c	3.48 KB	-r--r--r--	2014-12-27 11:49
symbian_stubs.h	482 B	-r--r--r--	2014-12-27 11:49
symbian_utils.cpp	13.92 KB	-r--r--r--	2014-12-27 11:49
symbianish.h	7.23 KB	-r--r--r--	2014-12-27 11:49
uid.pl	11 B	-r--r--r--	2014-12-27 11:49
version.pl	494 B	-r--r--r--	2014-12-27 11:49
xsbuild.pl	27.3 KB	-r--r--r--	2014-12-27 11:49

Rename

/* The PerlUi class is licensed under the same terms as Perl itself. */

#ifndef __PerlUi_h__
#define __PerlUi_h__

#ifdef __SERIES60__
# include <aknapp.h>
# include <aknappui.h>
# include <akndoc.h>
#endif /* #ifdef __SERIES60__ */

#if defined(__SERIES80__) || defined(__SERIES90__)
# include <eikapp.h>
# include <eikappui.h>
# include <eikdoc.h>
# include <eikbctrl.h>
# include <eikgted.h>
# include <eikdialg.h>
#endif /* #if defined(__SERIES80__) || defined(__SERIES90__) */

#ifdef __UIQ__
# include <qikapplication.h>
# include <qikappui.h>
# include <qikdocument.h>
# include <eikdialg.h>
#endif /* #ifdef __UIQ____ */

#include <coecntrl.h>
#include <f32file.h>

#ifdef __SERIES60__
# define CgPerlUiDocument    CAknDocument
# define CgPerlUiApplication CAknApplication
# define CgPerlUiAppUi       CAknAppUi
# define CgPerlUiNoteDialog  CAknNoteDialog
# define CgPerlUiAppView     CCoeControl
#endif /* #ifdef __SERIES60__ */

#if defined(__SERIES80__) || defined(__SERIES90__)
# define CgPerlUiDocument    CEikDocument
# define CgPerlUiApplication CEikApplication
# define CgPerlUiAppUi       CEikAppUi
# define CgPerlUiNoteDialog  CCknFlashingDialog
# define CgPerlUiAppView     CEikBorderedControl
#endif /* #if defined(__SERIES80__) || defined(__SERIES90__) */

#ifdef __UIQ__
# define CgPerlUiDocument    CEikDocument
# define CgPerlUiApplication CQikApplication
# define CgPerlUiAppUi       CQikAppUi
# define CgPerlUiNoteDialog  CCknFlashingDialog
# define CgPerlUiAppView     CCoeControl
#endif /* #ifdef __UIQ__ */

class CPerlUiApplication : public CgPerlUiApplication
{
};

const TUint KPerlUiPromptSize   = 20;
const TUint KPerlUiOneLinerSize = 128;

class CPerlUiAppView;

class CPerlUiAppUi : public CgPerlUiAppUi
{
  public:
    IMPORT_C void ConstructL();
    void virtual DoHandleCommandL(TInt aCommand) = 0;
    IMPORT_C void HandleCommandL(TInt aCommand);
    TBuf<KPerlUiOneLinerSize> iOneLiner; // Perl code to evaluate.
    CPerlUiAppView* iAppView;
};

class CPerlUiAppView : public CgPerlUiAppView
{
  public:
    static CPerlUiAppView* NewL(const TRect& aRect);
    static CPerlUiAppView* NewLC(const TRect& aRect);
    ~CPerlUiAppView();
    void Draw(const TRect& aRect) const;
#if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__)
    IMPORT_C void HandleCommandL(TInt aCommand, CPerlUiAppUi* aAppUi);
#endif /* #if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__) */
  private:
    void ConstructL(const TRect& aRect);
};

#if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__)

class CPerlUiTextQueryDialog : public CEikDialog
{
  public:
    CPerlUiTextQueryDialog(HBufC*& aBuffer);
    /* TODO: OfferKeyEventL() so that newline can be seen as 'OK'. */
    HBufC*& iData;
    TPtrC iTitle;  // used in S80 but not in S60
    TPtrC iPrompt; // used in S60 and S80
    TInt iMaxLength;
  protected:
    void PreLayoutDynInitL();
  private:
    TBool OkToExitL(TInt aKeycode);
};

#endif /* #if defined(__SERIES80__) || defined(__SERIES90__) || defined(__UIQ__) */

class CPerlUi : public CgPerlUiAppUi
{
  public:
    IMPORT_C static TBool OkCancelDialogL(TDesC& aMessage);
    IMPORT_C static TBool YesNoDialogL(TDesC& aMessage);
    IMPORT_C static void  InformationNoteL(TDesC& aMessage);
    IMPORT_C static TInt  WarningNoteL(TDesC& aMessage);
    IMPORT_C static TBool TextQueryDialogL(const TDesC& aTitle, const TDesC& aPrompt, TDes& aData, const TInt aMaxLength);
    IMPORT_C static TBool FileQueryDialogL(TDes& aFilename);
};

#endif // __PerlUi_h__