]> git.saurik.com Git - wxWidgets.git/blame - samples/memcheck/memcheck.cpp
Remove empty PalmOS-related directories.
[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$
6aa89a22 8// Copyright: (c) Julian Smart
526954c5 9// Licence: wxWindows licence
457814b5
JS
10/////////////////////////////////////////////////////////////////////////////
11
457814b5
JS
12// For compilers that support precompilation, includes "wx.h".
13#include "wx/wxprec.h"
14
15#ifdef __BORLANDC__
16#pragma hdrstop
17#endif
18
19#ifndef WX_PRECOMP
20#include "wx/wx.h"
21#endif
22
c6376731 23#include "wx/datetime.h"
457814b5 24
3cb332c1
VZ
25#if !defined(__WXMSW__) && !defined(__WXPM__)
26 #include "../sample.xpm"
47908e25
RR
27#endif
28
6b037754
JS
29#ifndef __WXDEBUG__
30#error This program must be compiled in debug mode.
457814b5
JS
31#endif
32
7fe7d506
JS
33// Normally, new is automatically defined to be the
34// debugging version. If not, this does it.
b58deaec 35#if !defined(new) && defined(WXDEBUG_NEW) && wxUSE_MEMORY_TRACING && wxUSE_GLOBAL_MEMORY_OPERATORS
7fe7d506
JS
36#define new WXDEBUG_NEW
37#endif
38
457814b5
JS
39// Define a new application type
40class MyApp: public wxApp
41{ public:
42 bool OnInit(void);
43};
44
45// Define a new frame type
46class MyFrame: public wxFrame
47{ public:
48 MyFrame(wxFrame *parent);
49 void OnQuit(wxCommandEvent& event);
50
51DECLARE_EVENT_TABLE()
52};
53
54IMPLEMENT_APP(MyApp)
55
56// `Main program' equivalent, creating windows and returning main app frame
57bool MyApp::OnInit(void)
58{
45e6e6f8 59 if ( !wxApp::OnInit() )
3cb332c1 60 return false;
45e6e6f8 61
457814b5 62 // Create the main frame window
c67daf87 63 MyFrame *frame = new MyFrame((wxFrame *) NULL);
457814b5
JS
64
65 // Give it an icon
3cb332c1 66 frame->SetIcon(wxICON(sample));
457814b5
JS
67
68 // Make a menubar
69 wxMenu *file_menu = new wxMenu;
70
9a83f860 71 file_menu->Append(wxID_EXIT, wxT("E&xit"));
457814b5 72 wxMenuBar *menu_bar = new wxMenuBar;
9a83f860 73 menu_bar->Append(file_menu, wxT("File"));
457814b5
JS
74 frame->SetMenuBar(menu_bar);
75
76 // Make a panel with a message
77 wxPanel *panel = new wxPanel(frame);
78
9a83f860 79 (void)new wxStaticText(panel, wxID_ANY, wxT("Hello, this is a minimal debugging wxWidgets program!"), wxPoint(10, 10));
457814b5
JS
80
81 // Show the frame
0c7cbf7d 82 frame->Show(true);
457814b5 83
c242a1ec 84#if wxUSE_MEMORY_TRACING
bd7d06f2 85 wxDebugContext::SetCheckpoint();
ea787af1
JS
86#endif
87
88 // object allocation
89 wxBrush* brush = new wxBrush(*wxRED);
90 wxBitmap* bitmap = new wxBitmap(100, 100);
91
92 // non-object allocation
93 char *ordinaryNonObject = new char[1000];
457814b5 94
e55ad60e 95 wxString *thing = new wxString;
c6376731
VZ
96
97#if wxUSE_DATETIME
98 wxDateTime* date = new wxDateTime;
99#endif // wxUSE_DATETIME
457814b5 100
457814b5
JS
101 const char *data = (const char*) thing ;
102
c242a1ec 103#if wxUSE_MEMORY_TRACING
2db0bbde
JS
104 // On MSW, Dump() crashes if using wxLogGui,
105 // so use wxLogStderr instead.
106 wxLog* oldLog = wxLog::SetActiveTarget(new wxLogStderr);
107
bd7d06f2
RR
108 wxDebugContext::PrintClasses();
109 wxDebugContext::Dump();
110 wxDebugContext::PrintStatistics();
457814b5 111
2db0bbde
JS
112 // Set back to wxLogGui
113 delete wxLog::SetActiveTarget(oldLog);
ea787af1 114#endif
2db0bbde 115
6b037754 116 // Don't delete these objects, to force wxApp to flag a memory leak.
457814b5
JS
117// delete thing;
118// delete date;
119// delete[] ordinaryNonObject;
0c7cbf7d
WS
120
121 return true;
457814b5
JS
122}
123
124BEGIN_EVENT_TABLE(MyFrame, wxFrame)
125 EVT_MENU(wxID_EXIT, MyFrame::OnQuit)
126END_EVENT_TABLE()
127
128// My frame constructor
129MyFrame::MyFrame(wxFrame *parent):
9a83f860 130 wxFrame(parent, wxID_ANY, wxT("MemCheck wxWidgets Sample"), wxDefaultPosition, wxSize(400, 200))
457814b5
JS
131{}
132
133// Intercept menu commands
cb43b372 134void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
457814b5 135{
0c7cbf7d 136 Close(true);
457814b5
JS
137}
138