summaryrefslogtreecommitdiffstats
path: root/languages/pascal/pascalsupport_part.h
blob: bac5c25ba7c08c437a1d2b61a51d1363af03ae39 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
/***************************************************************************
 *   Copyright (C) 2003 Alexander Dymo                                     *
 *   cloudtemple@mksat.net                                                 *
 *                                                                         *
 *   This program is free software; you can redistribute it and/or modify  *
 *   it under the terms of the GNU General Public License as published by  *
 *   the Free Software Foundation; either version 2 of the License, or     *
 *   (at your option) any later version.                                   *
 ***************************************************************************/
#ifndef __TDEVPART_PASCALSUPPORT_H__
#define __TDEVPART_PASCALSUPPORT_H__

#include <tqguardedptr.h>
#include "tdevlanguagesupport.h"

class PascalSupportWidget;
class KDialogBase;
class TQPopupMenu;
class Context;
class PascalSupportPartData;

class PascalSupportPart : public TDevLanguageSupport
{
    Q_OBJECT
  
public:
    PascalSupportPart(TQObject *parent, const char *name, const TQStringList &);
    ~PascalSupportPart();

    virtual Features features();
    virtual KMimeType::List mimeTypes();

    virtual TQString formatTag( const Tag& tag );
    virtual TQString formatModelItem( const CodeModelItem *item, bool shortDescription=false );
    
private slots:
    void projectOpened();
    void projectClosed();
    void savedFile(const KURL &fileName);
    void configWidget(KDialogBase *dlg);
    void projectConfigWidget(KDialogBase *dlg);
    void contextMenu(TQPopupMenu *popup, const Context *context);

    void addedFilesToProject(const TQStringList &fileList);
    void removedFilesFromProject(const TQStringList &fileList);
    void slotProjectCompiled();

    void initialParse();

private:
    void maybeParse(const TQString &fileName);
    void parse(const TQString &fileName);

    TQGuardedPtr<PascalSupportWidget> m_widget;

    bool m_projectClosed;
    TQStringList m_projectFileList;

    PascalSupportPartData* d;

};

#endif