wxMGL compilation fixes
[wxWidgets.git] / samples / memcheck / memcheck.cpp
CommitLineData
457814b5
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: memcheck.cpp
3// Purpose: Memory-checking sample
4// Author: Julian Smart
5// Modified by:
6// Created: 04/01/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart and Markus Holzem
9// Licence: wxWindows license
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13#pragma implementation
14#pragma interface
15#endif
16
17// For compilers that support precompilation, includes "wx.h".
18#include "wx/wxprec.h"
19
20#ifdef __BORLANDC__
21#pragma hdrstop
22#endif
23
24#ifndef WX_PRECOMP
25#include "wx/wx.h"
26#endif
27
28#include "wx/date.h"
29
7fe7d506 30#if defined(__WXGTK__) || defined(__WXMOTIF__)
47908e25
RR
31#include "mondrian.xpm"
32#endif
33
6b037754
JS
34#ifndef __WXDEBUG__
35#error This program must be compiled in debug mode.
457814b5
JS
36#endif
37
7fe7d506
JS
38// Normally, new is automatically defined to be the
39// debugging version. If not, this does it.
40#if !defined(new) && defined(WXDEBUG_NEW)
41#define new WXDEBUG_NEW
42#endif
43
457814b5
JS
44// Define a new application type
45class MyApp: public wxApp
46{ public:
47 bool OnInit(void);
48};
49
50// Define a new frame type
51class MyFrame: public wxFrame
52{ public:
53 MyFrame(wxFrame *parent);
54 void OnQuit(wxCommandEvent& event);
55
56DECLARE_EVENT_TABLE()
57};
58
59IMPLEMENT_APP(MyApp)
60
61// `Main program' equivalent, creating windows and returning main app frame
62bool MyApp::OnInit(void)
63{
64 // Create the main frame window
c67daf87 65 MyFrame *frame = new MyFrame((wxFrame *) NULL);
457814b5
JS
66
67 // Give it an icon
7fe7d506 68 frame->SetIcon(wxICON(mondrian));
457814b5
JS
69
70 // Make a menubar
71 wxMenu *file_menu = new wxMenu;
72
73 file_menu->Append(wxID_EXIT, "E&xit");
74 wxMenuBar *menu_bar = new wxMenuBar;
75 menu_bar->Append(file_menu, "File");
76 frame->SetMenuBar(menu_bar);
77
78 // Make a panel with a message
79 wxPanel *panel = new wxPanel(frame);
80
81 (void)new wxStaticText(panel, -1, "Hello, this is a minimal debugging wxWindows program!", wxPoint(10, 10));
82
83 // Show the frame
84 frame->Show(TRUE);
85
bd7d06f2 86 wxDebugContext::SetCheckpoint();
457814b5 87
e55ad60e 88 wxString *thing = new wxString;
457814b5
JS
89 wxDate* date = new wxDate;
90
457814b5
JS
91 // non-object allocation
92 char *ordinaryNonObject = new char[1000];
93
94 const char *data = (const char*) thing ;
95
2db0bbde
JS
96 // On MSW, Dump() crashes if using wxLogGui,
97 // so use wxLogStderr instead.
98 wxLog* oldLog = wxLog::SetActiveTarget(new wxLogStderr);
99
bd7d06f2
RR
100 wxDebugContext::PrintClasses();
101 wxDebugContext::Dump();
102 wxDebugContext::PrintStatistics();
457814b5 103
2db0bbde
JS
104 // Set back to wxLogGui
105 delete wxLog::SetActiveTarget(oldLog);
106
6b037754 107 // Don't delete these objects, to force wxApp to flag a memory leak.
457814b5
JS
108// delete thing;
109// delete date;
110// delete[] ordinaryNonObject;
111
112 return TRUE;
113}
114
115BEGIN_EVENT_TABLE(MyFrame, wxFrame)
116 EVT_MENU(wxID_EXIT, MyFrame::OnQuit)
117END_EVENT_TABLE()
118
119// My frame constructor
120MyFrame::MyFrame(wxFrame *parent):
121 wxFrame(parent, -1, "MemCheck wxWindows Sample", wxPoint(-1, -1), wxSize(400, 200))
122{}
123
124// Intercept menu commands
cb43b372 125void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
457814b5
JS
126{
127 Close(TRUE);
128}
129