/*
 * Program: canvas
 *
 * Author: Robert Roebling
 *
 * Copyright: (C) 1998, Robert Roebling
 *
 */
// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/wx.h"
#endif

#include <wx/image.h>
#include <wx/file.h>
#include <wx/timer.h>
#include <wx/log.h>


#include "smile.xpm"

#include "wx/canvas/canvas.h"

// derived classes

class MyFrame;
class MyApp;

// MyFrame

class MyFrame: public wxFrame
{
public:
    MyFrame();
    ~MyFrame();

    void OnAbout( wxCommandEvent &event );
    void OnNewFrame( wxCommandEvent &event );
    void OnQuit( wxCommandEvent &event );
    void OnTimer( wxTimerEvent &event );

    wxCanvas         *m_canvas;
    wxCanvasObject   *m_sm1;
    wxCanvasObject   *m_sm2;
    wxCanvasObject   *m_sm3;
    wxCanvasObject   *m_sm4;
    wxTimer          *m_timer;
    wxTextCtrl       *m_log;

private:
    DECLARE_DYNAMIC_CLASS(MyFrame)
    DECLARE_EVENT_TABLE()
};

// MyApp

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

    const wxString& GetFontPath() const { return m_fontpath; }

private:
    wxString m_fontpath;
};

// main program

IMPLEMENT_APP(MyApp)

// MyFrame

const int ID_QUIT  = 108;
const int ID_ABOUT = 109;

IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )

BEGIN_EVENT_TABLE(MyFrame,wxFrame)
  EVT_MENU    (ID_ABOUT, MyFrame::OnAbout)
  EVT_MENU    (ID_QUIT,  MyFrame::OnQuit)
  EVT_TIMER   (-1,       MyFrame::OnTimer)
END_EVENT_TABLE()

MyFrame::MyFrame()
       : wxFrame( (wxFrame *)NULL, -1, "wxCanvas sample",
                  wxPoint(20,20), wxSize(470,460) )
{
    wxMenu *file_menu = new wxMenu();
    file_menu->Append( ID_ABOUT, "&About...");
    file_menu->AppendSeparator();
    file_menu->Append( ID_QUIT, "E&xit");

    wxMenuBar *menu_bar = new wxMenuBar();
    menu_bar->Append(file_menu, "&File");

    SetMenuBar( menu_bar );

    CreateStatusBar(2);
    int widths[] = { -1, 100 };
    SetStatusWidths( 2, widths );

    m_canvas = new wxCanvas( this, -1, wxPoint(0,0), wxSize(10,10) );
    
    m_canvas->Freeze();

    m_canvas->SetArea( 400, 600 );
    m_canvas->SetColour( 255, 255, 255 );

    wxBitmap bitmap( smile_xpm );
    wxImage image( bitmap );

    m_sm1 = new wxCanvasImage( image, 0,70,16,16 );
    m_canvas->Append( m_sm1 );

    int i;
    for (i = 10; i < 300; i+=10)
        m_canvas->Append( new wxCanvasRect( i,50,3,140, 255,0,0 ) );

    m_sm2 = new wxCanvasImage( image, 0,140,24,24 );
    m_canvas->Append( m_sm2 );

    for (i = 15; i < 300; i+=10)
        m_canvas->Append( new wxCanvasRect( i,50,3,140, 255,0,0 ) );

    wxButton *button = new wxButton( m_canvas, -1, "Hello", wxPoint(80,50) );
    m_canvas->Append( new wxCanvasControl( button ) );

    m_canvas->Append( new wxCanvasText( "Hello", 180, 50,
                      wxGetApp().GetFontPath() + "/times.ttf", 20 ) );

    m_sm3 = new wxCanvasImage( image, 0,210,32,32 );
    m_canvas->Append( m_sm3 );

    for (i = 10; i < 300; i+=10)
        m_canvas->Append( new wxCanvasLine( 10,150,i,300, 0,255,0 ) );
                    
    m_sm4 = new wxCanvasImage( image, 0,270,64,32 );
    m_canvas->Append( m_sm4 );

    m_canvas->Thaw();

    m_log = new wxTextCtrl( this, -1, "", wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
    wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
    delete old_log;
    
    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
    
    topsizer->Add( m_canvas, 1, wxEXPAND );
    topsizer->Add( m_log, 0, wxEXPAND );

    SetAutoLayout( TRUE );
    SetSizer( topsizer );

    m_timer = new wxTimer( this );
    m_timer->Start( 100, FALSE );
}

MyFrame::~MyFrame()
{
   delete m_timer;
}

void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
{
    Close( TRUE );
}

void MyFrame::OnTimer( wxTimerEvent &WXUNUSED(event) )
{
    m_sm1->Move( m_sm1->GetX()+1, m_sm1->GetY() );
    m_sm2->Move( m_sm2->GetX()+1, m_sm2->GetY() );
    m_sm3->Move( m_sm3->GetX()+1, m_sm3->GetY() );
    m_sm4->Move( m_sm4->GetX()+1, m_sm4->GetY() );
    wxWakeUpIdle();
}

void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
{
   (void)wxMessageBox( "wxCanvas demo\n"
                      "Robert Roebling (c) 1998,2000",
                      "About wxCanvas Demo", wxICON_INFORMATION | wxOK );
}

//-----------------------------------------------------------------------------
// MyApp
//-----------------------------------------------------------------------------

bool MyApp::OnInit()
{
  m_fontpath = getenv("TRUETYPE");
  if ( !m_fontpath )
  {
      wxLogError("Please set env var TRUETYPE to the path where times.ttf lives.");

      return FALSE;

  }

#if wxUSE_LIBPNG
  wxImage::AddHandler( new wxPNGHandler );
#endif

  wxFrame *frame = new MyFrame();
  frame->Show( TRUE );

  return TRUE;
}