1 /* Copyright (c) 2004-2005 Nokia. All rights reserved. */
3 /* The PerlApp application is licensed under the same terms as Perl itself. */
14 class CPerlAppDocument : public CAknDocument
17 CPerlAppDocument(CEikApplication& aApp):CAknDocument(aApp) {;}
18 CFileStore* OpenFileL(TBool aDoOpen, const TDesC& aFilename, RFs& aFs);
19 private: // from CEikDocument
20 CEikAppUi* CreateAppUiL();
23 class CPerlAppApplication : public CAknApplication
26 CApaDocument* CreateDocumentL();
27 TUid AppDllUid() const;
30 const TUint KPerlAppOneLinerSize = 80;
34 class CPerlAppUi : public CAknAppUi
39 void HandleCommandL(TInt aCommand);
40 void OpenFileL(const TDesC& aFileName);
41 TBool ProcessCommandParametersL(TApaCommand aCommand, TFileName& aDocumentName, const TDesC8& aTail);
42 void InstallOrRunL(const TFileName& aFileName);
43 void SetFs(const RFs& aFs);
45 CPerlAppView* iAppView;
47 TBuf<KPerlAppOneLinerSize> iOneLiner;
50 class CPerlAppView : public CCoeControl
53 static CPerlAppView* NewL(const TRect& aRect);
54 static CPerlAppView* NewLC(const TRect& aRect);
55 void Draw(const TRect& aRect) const;
57 void ConstructL(const TRect& aRect);
60 #endif // __PerlApp_h__