]> git.saurik.com Git - wxWidgets.git/blame - contrib/samples/ogl/ogledit/ogledit.cpp
addedd support for <pre width=...>
[wxWidgets.git] / contrib / samples / ogl / ogledit / ogledit.cpp
CommitLineData
1fc25a89
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: ogledit.cpp
3// Purpose: OGLEdit sample app
4// Author: Julian Smart
5// Modified by:
6// Created: 12/07/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12#ifdef __GNUG__
13// #pragma implementation
14#endif
15
16// For compilers that support precompilation, includes "wx.h".
92a19c2e 17#include "wx/wxprec.h"
1fc25a89
JS
18
19#ifdef __BORLANDC__
20#pragma hdrstop
21#endif
22
23#ifndef WX_PRECOMP
24#include <wx/wx.h>
25#endif
26
27#if !wxUSE_DOC_VIEW_ARCHITECTURE
28#error You must set wxUSE_DOC_VIEW_ARCHITECTURE to 1 in wx_setup.h!
29#endif
30
31#include "ogledit.h"
32#include "palette.h"
33#include "doc.h"
34#include "view.h"
35
618f2efa 36#if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) || defined(__WXMAC__)
1fc25a89
JS
37#include "ogl.xpm"
38#endif
39
40// A macro needed for some compilers (AIX) that need 'main' to be defined
41// in the application itself.
42IMPLEMENT_APP(MyApp)
43
44MyApp::MyApp(void)
45{
46 frame = NULL;
47 myDocManager= NULL;
48}
49
50// The `main program' equivalent, creating the windows and returning the
51// main frame
52bool MyApp::OnInit(void)
53{
54 wxOGLInitialize();
55
56 //// Create a document manager
57 myDocManager = new wxDocManager;
58
59 //// Create a template relating drawing documents to their views
1484b5cc 60 (void) new wxDocTemplate(myDocManager, _T("Diagram"), _T("*.dia"), wxEmptyString, _T("dia"), _T("Diagram Doc"), _T("Diagram View"),
1fc25a89
JS
61 CLASSINFO(DiagramDocument), CLASSINFO(DiagramView));
62
63 // If we've only got one window, we only get to edit
64 // one document at a time.
65 myDocManager->SetMaxDocsOpen(1);
66
67 //// Create the main frame window
1484b5cc 68 frame = new MyFrame(myDocManager, NULL, _T("OGLEdit Demo"), wxPoint(0, 0), wxSize(500, 400), wxDEFAULT_FRAME_STYLE);
1fc25a89
JS
69
70 //// Give it an icon
71 frame->SetIcon(wxICON(ogl));
72
73 //// Make a menubar
74 wxMenu *file_menu = new wxMenu;
75 wxMenu *edit_menu = NULL;
76
1484b5cc
VS
77 file_menu->Append(wxID_NEW, _T("&New..."));
78 file_menu->Append(wxID_OPEN, _T("&Open..."));
1fc25a89 79
1484b5cc
VS
80 file_menu->Append(wxID_CLOSE, _T("&Close"));
81 file_menu->Append(wxID_SAVE, _T("&Save"));
82 file_menu->Append(wxID_SAVEAS, _T("Save &As..."));
1fc25a89 83 file_menu->AppendSeparator();
1484b5cc
VS
84 file_menu->Append(wxID_PRINT, _T("&Print..."));
85 file_menu->Append(wxID_PRINT_SETUP, _T("Print &Setup..."));
86 file_menu->Append(wxID_PREVIEW, _T("Print Pre&view"));
1fc25a89
JS
87
88 edit_menu = new wxMenu;
1484b5cc
VS
89 edit_menu->Append(wxID_UNDO, _T("&Undo"));
90 edit_menu->Append(wxID_REDO, _T("&Redo"));
1fc25a89 91 edit_menu->AppendSeparator();
1484b5cc 92 edit_menu->Append(OGLEDIT_CUT, _T("&Cut"));
1fc25a89 93 edit_menu->AppendSeparator();
1484b5cc
VS
94 edit_menu->Append(OGLEDIT_CHANGE_BACKGROUND_COLOUR, _T("Change &background colour"));
95 edit_menu->Append(OGLEDIT_EDIT_LABEL, _T("Edit &label"));
1fc25a89
JS
96
97 frame->editMenu = edit_menu;
98
99 file_menu->AppendSeparator();
1484b5cc 100 file_menu->Append(wxID_EXIT, _T("E&xit"));
1fc25a89
JS
101
102 // A nice touch: a history of files visited. Use this menu.
103 myDocManager->FileHistoryUseMenu(file_menu);
104
105 wxMenu *help_menu = new wxMenu;
1484b5cc 106 help_menu->Append(OGLEDIT_ABOUT, _T("&About"));
1fc25a89
JS
107
108 wxMenuBar *menu_bar = new wxMenuBar;
109
1484b5cc 110 menu_bar->Append(file_menu, _T("&File"));
1fc25a89 111 if (edit_menu)
1484b5cc
VS
112 menu_bar->Append(edit_menu, _T("&Edit"));
113 menu_bar->Append(help_menu, _T("&Help"));
1fc25a89
JS
114
115 frame->canvas = frame->CreateCanvas(NULL, frame);
116 frame->palette = wxGetApp().CreatePalette(frame);
1484b5cc 117 myDocManager->CreateDocument(wxEmptyString, wxDOC_NEW);
1fc25a89
JS
118
119 //// Associate the menu bar with the frame
120 frame->SetMenuBar(menu_bar);
121
122 frame->CreateStatusBar(1);
123
124 frame->Centre(wxBOTH);
125 frame->Show(TRUE);
126
127 return TRUE;
128}
129
130int MyApp::OnExit(void)
131{
132 wxOGLCleanUp();
133 delete myDocManager;
134 return 0;
135}
136
137/*
138 * This is the top-level window of the application.
139 */
140
141IMPLEMENT_CLASS(MyFrame, wxDocParentFrame)
142
143BEGIN_EVENT_TABLE(MyFrame, wxDocParentFrame)
144 EVT_MENU(OGLEDIT_ABOUT, MyFrame::OnAbout)
145 EVT_SIZE(MyFrame::OnSize)
146 EVT_CLOSE(MyFrame::OnCloseWindow)
147END_EVENT_TABLE()
148
149MyFrame::MyFrame(wxDocManager *manager, wxFrame *frame, const wxString& title,
150 const wxPoint& pos, const wxSize& size, long type):
151 wxDocParentFrame(manager, frame, -1, title, pos, size, type)
152{
153 canvas = NULL;
154 palette = NULL;
155 editMenu = NULL;
156}
157
1484b5cc 158void MyFrame::OnSize(wxSizeEvent& WXUNUSED(event))
1fc25a89
JS
159{
160 if (canvas && palette)
161 {
162 int cw, ch;
163 GetClientSize(&cw, &ch);
164 int paletteX = 0;
165 int paletteY = 0;
166 int paletteW = 30;
167 int paletteH = ch;
168 int canvasX = paletteX + paletteW;
169 int canvasY = 0;
170 int canvasW = cw - paletteW;
171 int canvasH = ch;
172
173 palette->SetSize(paletteX, paletteY, paletteW, paletteH);
174 canvas->SetSize(canvasX, canvasY, canvasW, canvasH);
175 }
176}
177
178void MyFrame::OnCloseWindow(wxCloseEvent& event)
179{
180 wxDocParentFrame::OnCloseWindow(event);
181 if (!event.GetVeto())
182 {
183 wxOGLCleanUp();
184 }
185}
186
187// Intercept menu commands
1484b5cc 188void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
1fc25a89 189{
1484b5cc 190 (void)wxMessageBox(_T("OGLEdit Demo\nTo draw a shape, select a shape on the toolbar and left-click on the canvas.\nTo draw a line, right-drag between shapes.\nFor further details, see the OGL manual.\n (c) Julian Smart 1996"), _T("About OGLEdit"));
1fc25a89
JS
191}
192
193// Creates a canvas. Called by OnInit as a child of the main window
194MyCanvas *MyFrame::CreateCanvas(wxView *view, wxFrame *parent)
195{
196 int width, height;
197 parent->GetClientSize(&width, &height);
198
199 // Non-retained canvas
200 MyCanvas *canvas = new MyCanvas(view, parent, -1, wxPoint(0, 0), wxSize(width, height), 0);
201 canvas->SetCursor(wxCursor(wxCURSOR_HAND));
202
203 // Give it scrollbars
204 canvas->SetScrollbars(20, 20, 50, 50);
205
206 return canvas;
207}
208
209MyFrame *GetMainFrame(void)
210{
211 return wxGetApp().frame;
212}
213