initial commit

Signed-off-by: Peter Siegmund <mars3142@noreply.mars3142.dev>

libs/wxWidgets-3.3.1/samples/caret/caret.cpp

@@ -0,0 +1,491 @@
+/////////////////////////////////////////////////////////////////////////////
+// Name:        caret.cpp
+// Purpose:     wxCaret sample
+// Author:      Robert Roebling
+// Created:     04/01/98
+// Copyright:   (c) wxWindows team
+// Licence:     wxWindows licence
+/////////////////////////////////////////////////////////////////////////////
+
+// For compilers that support precompilation, includes "wx/wx.h".
+#include "wx/wxprec.h"
+
+
+// for all others, include the necessary headers (this file is usually all you
+// need because it includes almost all <standard< wxWidgets headers
+#ifndef WX_PRECOMP
+    #include "wx/wx.h"
+    #include "wx/log.h"
+#endif
+
+#include "wx/caret.h"
+#include "wx/numdlg.h"
+
+// ----------------------------------------------------------------------------
+// resources
+// ----------------------------------------------------------------------------
+
+// the application icon
+#ifndef wxHAS_IMAGES_IN_RESOURCES
+    #include "../sample.xpm"
+#endif
+
+// ----------------------------------------------------------------------------
+// private classes
+// ----------------------------------------------------------------------------
+
+// Define a new application type, each program should derive a class from wxApp
+class MyApp : public wxApp
+{
+public:
+    // override base class virtuals
+    // ----------------------------
+
+    // this one is called on application startup and is a good place for the app
+    // initialization (doing it here and not in the ctor allows to have an error
+    // return: if OnInit() returns false, the application terminates)
+    virtual bool OnInit() override;
+};
+
+// MyCanvas is a canvas on which you can type
+class MyCanvas: public wxScrolledWindow
+{
+public:
+    MyCanvas() { }
+    MyCanvas( wxWindow *parent );
+    ~MyCanvas();
+
+    wxChar& CharAt(int x, int y) { return *(m_text + x + m_xChars * y); }
+
+    // operations
+    void SetFontSize(int fontSize);
+    void CreateCaret();
+    void MoveCaret(int x, int y);
+
+    // caret movement
+    void Home() { m_xCaret = 0; }
+    void End() { m_xCaret = m_xChars - 1; }
+    void FirstLine() { m_yCaret = 0; }
+    void LastLine() { m_yCaret = m_yChars - 1; }
+    void PrevChar() { if ( !m_xCaret-- ) { End(); PrevLine(); } }
+    void NextChar() { if ( ++m_xCaret == m_xChars ) { Home(); NextLine(); } }
+    void PrevLine() { if ( !m_yCaret-- ) LastLine(); }
+    void NextLine() { if ( ++m_yCaret == m_yChars ) FirstLine(); }
+
+    // event handlers
+    void OnPaint( wxPaintEvent &event );
+    void OnSize( wxSizeEvent &event );
+    void OnChar( wxKeyEvent &event );
+
+private:
+    // move the caret to m_xCaret, m_yCaret
+    void DoMoveCaret();
+
+    // update the geometry
+    void ChangeSize();
+
+    wxFont   m_font;
+
+    // the margin around the text (looks nicer)
+    int      m_xMargin, m_yMargin;
+
+    // size (in pixels) of one character
+    long     m_widthChar, m_heightChar;
+
+    // position (in text coords) of the caret
+    int      m_xCaret, m_yCaret;
+
+    // the size (in text coords) of the window
+    int      m_xChars, m_yChars;
+
+    // the text
+    wxChar  *m_text;
+
+    wxDECLARE_DYNAMIC_CLASS(MyCanvas);
+    wxDECLARE_EVENT_TABLE();
+};
+
+
+// Define a new frame type: this is going to be our main frame
+class MyFrame : public wxFrame
+{
+public:
+    // ctor(s)
+    MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size);
+
+    // event handlers (these functions should _not_ be virtual)
+    void OnQuit(wxCommandEvent& event);
+    void OnAbout(wxCommandEvent& event);
+    void OnSetBlinkTime(wxCommandEvent& event);
+    void OnSetFontSize(wxCommandEvent& event);
+    void OnCaretMove(wxCommandEvent& event);
+
+private:
+    MyCanvas *m_canvas;
+
+    // any class wishing to process wxWidgets events must use this macro
+    wxDECLARE_EVENT_TABLE();
+};
+
+// ----------------------------------------------------------------------------
+// constants
+// ----------------------------------------------------------------------------
+
+// IDs for the controls and the menu commands
+enum
+{
+    // menu items
+    Caret_Quit = 1,
+    Caret_About,
+    Caret_SetBlinkTime,
+    Caret_SetFontSize,
+    Caret_Move,
+
+    // controls start here (the numbers are, of course, arbitrary)
+    Caret_Text = 1000
+};
+
+// ----------------------------------------------------------------------------
+// event tables and other macros for wxWidgets
+// ----------------------------------------------------------------------------
+
+// the event tables connect the wxWidgets events with the functions (event
+// handlers) which process them. It can be also done at run-time, but for the
+// simple menu events like this the static method is much simpler.
+wxBEGIN_EVENT_TABLE(MyFrame, wxFrame)
+    EVT_MENU(Caret_Quit,  MyFrame::OnQuit)
+    EVT_MENU(Caret_About, MyFrame::OnAbout)
+    EVT_MENU(Caret_SetBlinkTime, MyFrame::OnSetBlinkTime)
+    EVT_MENU(Caret_SetFontSize, MyFrame::OnSetFontSize)
+    EVT_MENU(Caret_Move, MyFrame::OnCaretMove)
+wxEND_EVENT_TABLE()
+
+// Create a new application object: this macro will allow wxWidgets to create
+// the application object during program execution (it's better than using a
+// static object for many reasons) and also declares the accessor function
+// wxGetApp() which will return the reference of the right type (i.e. MyApp and
+// not wxApp)
+wxIMPLEMENT_APP(MyApp);
+
+// ============================================================================
+// implementation
+// ============================================================================
+
+// ----------------------------------------------------------------------------
+// the application class
+// ----------------------------------------------------------------------------
+
+// `Main program' equivalent: the program execution "starts" here
+bool MyApp::OnInit()
+{
+    if ( !wxApp::OnInit() )
+        return false;
+
+    // create and show the main application window
+    MyFrame *frame = new MyFrame("Caret wxWidgets sample",
+                                 wxPoint(50, 50), wxSize(450, 340));
+
+    frame->Show(true);
+
+    // success: wxApp::OnRun() will be called which will enter the main message
+    // loop and the application will run. If we returned false here, the
+    // application would exit immediately.
+    return true;
+}
+
+// ----------------------------------------------------------------------------
+// main frame
+// ----------------------------------------------------------------------------
+
+// frame constructor
+MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
+       : wxFrame(nullptr, wxID_ANY, title, pos, size)
+{
+    // set the frame icon
+    SetIcon(wxICON(sample));
+
+    // create a menu bar
+    wxMenu *menuFile = new wxMenu;
+
+    menuFile->Append(Caret_SetBlinkTime, "&Blink time...\tCtrl-B");
+    menuFile->Append(Caret_SetFontSize, "&Font size...\tCtrl-S");
+    menuFile->Append(Caret_Move, "&Move caret\tCtrl-C");
+    menuFile->AppendSeparator();
+    menuFile->Append(Caret_About, "&About\tCtrl-A", "Show about dialog");
+    menuFile->AppendSeparator();
+    menuFile->Append(Caret_Quit, "E&xit\tAlt-X", "Quit this program");
+
+    // now append the freshly created menu to the menu bar...
+    wxMenuBar *menuBar = new wxMenuBar;
+    menuBar->Append(menuFile, "&File");
+
+    // ... and attach this menu bar to the frame
+    SetMenuBar(menuBar);
+
+    m_canvas = new MyCanvas(this);
+
+#if wxUSE_STATUSBAR
+    // create a status bar just for fun (by default with 1 pane only)
+    CreateStatusBar(2);
+    SetStatusText("Welcome to wxWidgets!");
+#endif // wxUSE_STATUSBAR
+}
+
+
+// event handlers
+
+void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
+{
+    // true is to force the frame to close
+    Close(true);
+}
+
+void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
+{
+    wxMessageBox("The caret wxWidgets sample.\n(c) 1999 Vadim Zeitlin",
+                 "About Caret", wxOK | wxICON_INFORMATION, this);
+}
+
+void MyFrame::OnCaretMove(wxCommandEvent& WXUNUSED(event))
+{
+    m_canvas->MoveCaret(10, 10);
+}
+
+void MyFrame::OnSetBlinkTime(wxCommandEvent& WXUNUSED(event))
+{
+    long blinkTime = wxGetNumberFromUser
+                     (
+                      "The caret blink time is the time between two blinks",
+                      "Time in milliseconds:",
+                      "wxCaret sample",
+                      wxCaret::GetBlinkTime(), 0, 10000,
+                      this
+                     );
+    if ( blinkTime != -1 )
+    {
+        wxCaret::SetBlinkTime((int)blinkTime);
+        m_canvas->CreateCaret();
+        wxLogStatus(this, "Blink time set to %ld milliseconds.", blinkTime);
+    }
+}
+
+void MyFrame::OnSetFontSize(wxCommandEvent& WXUNUSED(event))
+{
+    long fontSize = wxGetNumberFromUser
+                    (
+                        "The font size also determines the caret size so\nthis demonstrates resizing the caret.",
+                        "Font size (in points):",
+                        "wxCaret sample",
+                        12, 1, 100,
+                        this
+                    );
+
+    if ( fontSize != -1 )
+    {
+        m_canvas->SetFontSize((int)fontSize);
+    }
+}
+
+// ----------------------------------------------------------------------------
+// MyCanvas
+// ----------------------------------------------------------------------------
+
+wxIMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow);
+
+wxBEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
+    EVT_PAINT(MyCanvas::OnPaint)
+    EVT_SIZE(MyCanvas::OnSize)
+    EVT_CHAR(MyCanvas::OnChar)
+wxEND_EVENT_TABLE()
+
+MyCanvas::MyCanvas( wxWindow *parent )
+        : wxScrolledWindow( parent, wxID_ANY,
+                            wxDefaultPosition, wxDefaultSize,
+                            wxSUNKEN_BORDER )
+{
+    m_text = nullptr;
+
+    SetBackgroundColour(wxSystemSettings::GetColour(wxSYS_COLOUR_WINDOW));
+
+    SetFontSize(12);
+
+    m_xCaret = m_yCaret =
+    m_xChars = m_yChars = 0;
+
+    m_xMargin = m_yMargin = 5;
+
+    CreateCaret();
+}
+
+MyCanvas::~MyCanvas()
+{
+    free(m_text);
+}
+
+void MyCanvas::CreateCaret()
+{
+    wxCaret *caret = new wxCaret(this, m_widthChar, m_heightChar);
+    SetCaret(caret);
+
+    caret->Move(m_xMargin, m_yMargin);
+    caret->Show();
+}
+
+void MyCanvas::SetFontSize(int fontSize)
+{
+    m_font = wxFont(wxFontInfo(fontSize).Family(wxFONTFAMILY_TELETYPE));
+
+    wxClientDC dc(this);
+    dc.SetFont(m_font);
+    m_heightChar = dc.GetCharHeight();
+    m_widthChar = dc.GetCharWidth();
+
+    wxCaret *caret = GetCaret();
+    if ( caret )
+    {
+        caret->SetSize(m_widthChar, m_heightChar);
+
+        ChangeSize();
+    }
+}
+
+void MyCanvas::MoveCaret(int x, int y)
+{
+    m_xCaret = x;
+    m_yCaret = y;
+
+    DoMoveCaret();
+}
+
+void MyCanvas::DoMoveCaret()
+{
+    wxLogStatus("Caret is at (%d, %d)", m_xCaret, m_yCaret);
+
+    GetCaret()->Move(m_xMargin + m_xCaret * m_widthChar,
+                     m_yMargin + m_yCaret * m_heightChar);
+}
+
+void MyCanvas::OnSize(wxSizeEvent& event)
+{
+    ChangeSize();
+
+    event.Skip();
+}
+
+void MyCanvas::ChangeSize()
+{
+    wxSize size = GetClientSize();
+    m_xChars = (size.x - 2*m_xMargin) / m_widthChar;
+    m_yChars = (size.y - 2*m_yMargin) / m_heightChar;
+    if ( !m_xChars )
+        m_xChars = 1;
+    if ( !m_yChars )
+        m_yChars = 1;
+
+    free(m_text);
+    m_text = (wxChar *)calloc(m_xChars * m_yChars, sizeof(wxChar));
+
+#if wxUSE_STATUSBAR
+    wxFrame *frame = wxDynamicCast(GetParent(), wxFrame);
+
+    if ( frame && frame->GetStatusBar() )
+    {
+        wxString msg;
+        msg.Printf("Panel size is (%d, %d)", m_xChars, m_yChars);
+        frame->SetStatusText(msg, 1);
+    }
+#endif // wxUSE_STATUSBAR
+}
+
+// NB: this method is horrible inefficient especially because the caret
+//     needs to be redrawn often and in this case we only have to redraw
+//     the caret location and not the entire window - in a real program we
+//     would use GetUpdateRegion() and iterate over rectangles it contains
+void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
+{
+    wxCaretSuspend cs(this);
+    wxPaintDC dc( this );
+    PrepareDC( dc );
+    dc.Clear();
+
+    dc.SetFont( m_font );
+
+    for ( int y = 0; y < m_yChars; y++ )
+    {
+        wxString line;
+
+        for ( int x = 0; x < m_xChars; x++ )
+        {
+            wxChar ch = CharAt(x, y);
+            if ( !ch )
+                ch = ' ';
+#if defined(__WXOSX__) || defined(__WXQT__)
+            dc.DrawText(ch, m_xMargin + x * m_widthChar,
+                        m_yMargin + y * m_heightChar );
+#else
+            line += ch;
+#endif
+        }
+
+        if ( !line.empty() )
+            dc.DrawText( line, m_xMargin, m_yMargin + y * m_heightChar );
+    }
+}
+
+void MyCanvas::OnChar( wxKeyEvent &event )
+{
+    switch ( event.GetKeyCode() )
+    {
+        case WXK_LEFT:
+            PrevChar();
+            break;
+
+        case WXK_RIGHT:
+            NextChar();
+            break;
+
+        case WXK_UP:
+            PrevLine();
+            break;
+
+        case WXK_DOWN:
+            NextLine();
+            break;
+
+        case WXK_HOME:
+            Home();
+            break;
+
+        case WXK_END:
+            End();
+            break;
+
+        case WXK_RETURN:
+            Home();
+            NextLine();
+            break;
+
+        default:
+            if ( !event.AltDown() && wxIsprint(event.GetKeyCode()) )
+            {
+                wxChar ch = (wxChar)event.GetKeyCode();
+                CharAt(m_xCaret, m_yCaret) = ch;
+
+                wxRect rect(
+                    m_xMargin + m_xCaret * m_widthChar,
+                    m_yMargin + m_yCaret * m_heightChar,
+                    m_widthChar,
+                    m_heightChar);
+                RefreshRect(rect, false /* don't erase background */);
+
+                NextChar();
+            }
+            else
+            {
+                event.Skip();
+            }
+    }
+
+    DoMoveCaret();
+}
+