Added a couple of wxPerl notes.

[wxWidgets.git] / contrib / samples / stc / stctest.cpp

/////////////////////////////////////////////////////////////////////////////
// Name:        stctest.cpp
// Purpose:     sample of using wxStyledTextCtrl
// Author:      Robin Dunn
// Modified by:
// Created:     3-Feb-2000
// RCS-ID:      $Id$
// Copyright:   (c) 2000 by Total Control Software
// Licence:     wxWindows licence
/////////////////////////////////////////////////////////////////////////////

#if defined(__GNUG__) && !defined(__APPLE__)
    #pragma implementation "stctest.cpp"
    #pragma interface "stctest.cpp"
#endif

// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
    #pragma hdrstop
#endif

// for all others, include the necessary headers (this file is usually all you
// need because it includes almost all "standard" wxWindows headers
#ifndef WX_PRECOMP
    #include "wx/wx.h"
#endif

#include <wx/wfstream.h>

#include <wx/stc/stc.h>

//----------------------------------------------------------------------

class MyApp : public wxApp
{
public:
    virtual bool OnInit();
};

//----------------------------------------------------------------------
//  Make an editor class

class MySTC : public wxStyledTextCtrl
{
public:
    MySTC(wxWindow *parent, wxWindowID id,
          const wxPoint& pos = wxDefaultPosition,
          const wxSize& size = wxDefaultSize, long style = 0);

    void OnKeyPressed(wxKeyEvent& evt);

private:
    DECLARE_EVENT_TABLE()
};

BEGIN_EVENT_TABLE(MySTC, wxStyledTextCtrl)
    EVT_KEY_DOWN(MySTC::OnKeyPressed)
END_EVENT_TABLE()

//----------------------------------------------------------------------
// Define a new frame type: this is going to be our main frame
class MyFrame : public wxFrame
{
public:
    MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size);

    void OnQuit(wxCommandEvent& event);
    void OnAbout(wxCommandEvent& event);

private:
    MySTC* ed;

    DECLARE_EVENT_TABLE()
};


// IDs for the controls and the menu commands
enum
{
    // menu items
    ID_Quit = 1,
    ID_About,
    ID_ED
};

BEGIN_EVENT_TABLE(MyFrame, wxFrame)
    EVT_MENU            (ID_Quit,  MyFrame::OnQuit)
    EVT_MENU            (ID_About, MyFrame::OnAbout)
END_EVENT_TABLE()

IMPLEMENT_APP(MyApp)

//----------------------------------------------------------------------
// `Main program' equivalent: the program execution "starts" here

bool MyApp::OnInit()
{
    MyFrame *frame = new MyFrame(_T("Testing wxStyledTextCtrl"),
                                 wxPoint(5, 5), wxSize(600, 600));

    frame->Show(TRUE);
    return TRUE;
}

//----------------------------------------------------------------------

// frame constructor
MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
       : wxFrame((wxFrame *)NULL, -1, title, pos, size)
{
#ifdef __WXMAC__
    // we need this in order to allow the about menu relocation, since ABOUT is
    // not the default id of the about menu
    wxApp::s_macAboutMenuItemId = ID_About;
#endif


    // create a menu bar
    wxMenu *menuFile = new wxMenu(wxEmptyString, wxMENU_TEAROFF);

    // the "About" item should be in the help menu
    wxMenu *helpMenu = new wxMenu;
    helpMenu->Append(ID_About, _T("&About...\tCtrl-A"), _T("Show about dialog"));

    menuFile->Append(ID_Quit, _T("E&xit\tAlt-X"), _T("Quit this program"));

    // now append the freshly created menu to the menu bar...
    wxMenuBar *menuBar = new wxMenuBar();
    menuBar->Append(menuFile, _T("&File"));
    menuBar->Append(helpMenu, _T("&Help"));

    // ... and attach this menu bar to the frame
    SetMenuBar(menuBar);

#if wxUSE_STATUSBAR
    CreateStatusBar(2);
    SetStatusText(_T("Testing wxStyledTextCtrl"));
#endif // wxUSE_STATUSBAR


    //----------------------------------------
    // Setup the editor
    ed = new MySTC(this, ID_ED);
}


// event handlers

void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
{
    // TRUE is to force the frame to close
    Close(TRUE);
}

void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
{
    wxString msg;
    msg.Printf( _T("Testing wxStyledTextCtrl...\n"));

    wxMessageBox(msg, _T("About This Test"), wxOK | wxICON_INFORMATION, this);
}


//----------------------------------------------------------------------

wxChar* keywords =
_T("asm auto bool break case catch char class const \
const_cast continue default delete do double \
dynamic_cast else enum explicit export extern \
false float for friend goto if inline int long \
mutable namespace new operator private protected \
public register reinterpret_cast return short signed \
sizeof static static_cast struct switch template this \
throw true try typedef typeid typename union unsigned \
using virtual void volatile wchar_t while");



MySTC::MySTC(wxWindow *parent, wxWindowID id,
             const wxPoint& pos, const wxSize& size,
             long style)
    : wxStyledTextCtrl(parent, id, pos, size, style)
{
    // Default font
    wxFont font(10, wxMODERN, wxNORMAL, wxNORMAL);
    StyleSetFont(wxSTC_STYLE_DEFAULT, font);
    StyleClearAll();

    StyleSetForeground(0,  wxColour(0x80, 0x80, 0x80));
    StyleSetForeground(1,  wxColour(0x00, 0x7f, 0x00));
    //StyleSetForeground(2,  wxColour(0x00, 0x7f, 0x00));
    StyleSetForeground(3,  wxColour(0x7f, 0x7f, 0x7f));
    StyleSetForeground(4,  wxColour(0x00, 0x7f, 0x7f));
    StyleSetForeground(5,  wxColour(0x00, 0x00, 0x7f));
    StyleSetForeground(6,  wxColour(0x7f, 0x00, 0x7f));
    StyleSetForeground(7,  wxColour(0x7f, 0x00, 0x7f));
    StyleSetForeground(8,  wxColour(0x00, 0x7f, 0x7f));
    StyleSetForeground(9,  wxColour(0x7f, 0x7f, 0x7f));
    StyleSetForeground(10, wxColour(0x00, 0x00, 0x00));
    StyleSetForeground(11, wxColour(0x00, 0x00, 0x00));
    StyleSetBold(5,  TRUE);
    StyleSetBold(10, TRUE);

#ifdef __WXMSW__
    StyleSetSpec(2, _T("fore:#007f00,bold,face:Arial,size:9"));
#else
    StyleSetSpec(2, _T("fore:#007f00,bold,face:Helvetica,size:9"));
#endif

    // give it some text to play with
    wxString st;
    wxFileInputStream stream(wxT("stctest.cpp"));
    size_t sz = stream.GetSize();
    char* buf = new char[sz + 1];
    stream.Read((void*) buf, stream.GetSize());
    buf[sz] = 0;
    st = wxString::FromAscii(buf);
    delete[] buf;

    InsertText(0, st);
    EmptyUndoBuffer();

    SetLexer(wxSTC_LEX_CPP);
    SetKeyWords(0, keywords);
}

void MySTC::OnKeyPressed(wxKeyEvent& evt)
{
    if (CallTipActive())
        CallTipCancel();

    int key = evt.GetKeyCode();
    if ( key == WXK_SPACE && evt.ControlDown()) {
        int pos = GetCurrentPos();

        if (evt.ShiftDown()) {
            // show how to do CallTips
            CallTipSetBackground(wxColour(_T("YELLOW")));
            CallTipShow(pos, _T("lots of of text: blah, blah, blah\n\n\
show some suff, maybe parameters..\n\n\
fubar(param1, param2)"));
        }
        else {
            // show how to do AutoComplete
            AutoCompSetIgnoreCase(false);
            AutoCompShow(0, keywords);   // reuse the keyword list here
            // normally you would build a string of completion texts...
        }
    }
    else
        evt.Skip();
}