added SetStatusText method (avoiding dc.Clear)
[wxWidgets.git] / demos / poem / wxpoem.cpp
CommitLineData
3013b6f4
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: wxpoem.cpp
3// Purpose: A small C++ program which displays a random poem on
4// execution. It also allows search for poems containing a
5// string.
6// It requires winpoem.dat and creates winpoem.idx.
7// Original version (WinPoem) written in 1994.
8// This has not been rewritten in a long time so
9// beware, inelegant code!
10// Author: Julian Smart
11// Created: 12/12/98
12// RCS-ID: $Id$
13// Copyright: (c) 1998 Julian Smart
14// Licence: wxWindows licence
15/////////////////////////////////////////////////////////////////////////////
16
17#ifdef __GNUG__
18#pragma implementation "wxpoem.h"
19#endif
20
21// For compilers that support precompilation, includes "wx.h".
22#include "wx/wxprec.h"
23
24#ifdef __BORLANDC__
25#pragma hdrstop
26#endif
27
28#ifndef WX_PRECOMP
88ac883a 29#include "wx/wx.h"
3013b6f4
JS
30#endif
31
32#include "wx/help.h"
33
34#include "wxpoem.h"
35
685aded8 36#if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__)
bbf73190
RR
37#include "corner1.xpm"
38#include "corner2.xpm"
39#include "corner3.xpm"
40#include "corner4.xpm"
41#endif
42
3013b6f4
JS
43#include <stdio.h>
44#include <stdlib.h>
45#include <string.h>
46#include <time.h>
47
e3065973
JS
48#ifdef __WINDOWS__
49#include <windows.h>
50#ifdef DrawText
51#undef DrawText
52#endif
53#endif
54
3013b6f4
JS
55#define buf_size 10000
56#define DEFAULT_POETRY_DAT "wxpoem"
57#define DEFAULT_POETRY_IND "wxpoem"
58#define DEFAULT_CHAR_HEIGHT 18
59#define DEFAULT_FONT "Swiss"
60#define DEFAULT_X_POS 0
61#define DEFAULT_Y_POS 0
62#define BORDER_SIZE 30
63#define THIN_LINE_BORDER 10
64#define THICK_LINE_BORDER 16
65#define THICK_LINE_WIDTH 2
66#define SHADOW_OFFSET 1
67#define X_SIZE 30
68#define Y_SIZE 20
69
70static char *poem_buffer; // Storage for each poem
71static char line[150]; // Storage for a line
72static char title[150]; // Remember the title
73static char *search_string = NULL; // The search string
74static int pages[30]; // For multipage poems -
75 // store the start of each page
76static long last_poem_start = 0; // Start of last found poem
77static long last_find = -1; // Point in file of last found
78 // search string
79static bool search_ok = FALSE; // Search was successful
80static bool same_search = FALSE; // Searching on same string
81
82static long poem_index[600]; // Index of poem starts
83static long nitems = 0; // Number of poems
3013b6f4
JS
84static int char_height = DEFAULT_CHAR_HEIGHT; // Actual height
85static int index_ptr = -1; // Pointer into index
86static int poem_height, poem_width; // Size of poem
87static int XPos; // Startup X position
88static int YPos; // Startup Y position
89static int pointSize = 12; // Font size
90
91static char *index_filename = NULL; // Index filename
92static char *data_filename = NULL; // Data filename
93static char error_buf[300]; // Error message buffer
94static bool loaded_ok = FALSE; // Poem loaded ok
95static bool index_ok = FALSE; // Index loaded ok
96
97static bool paging = FALSE; // Are we paging?
98static int current_page = 0; // Currently viewed page
99
100wxIcon *Corner1 = NULL;
101wxIcon *Corner2 = NULL;
102wxIcon *Corner3 = NULL;
103wxIcon *Corner4 = NULL;
104
105// Fonts
106wxFont *NormalFont = NULL;
107wxFont *BoldFont = NULL;
108wxFont *ItalicFont = NULL;
109
110// Pens
111wxPen *GreyPen = NULL;
112wxPen *DarkGreyPen = NULL;
113wxPen *WhitePen = NULL;
114
115// Backing bitmap
116wxBitmap *backingBitmap = NULL;
117
118void PoetryError(char *, char *caption="wxPoem Error");
119void PoetryNotify(char *Msg, char *caption="wxPoem");
120void TryLoadIndex();
121bool LoadPoem(char *, long);
122int GetIndex();
123int LoadIndex(char *);
124bool Compile(void);
125void WritePreferences();
126void ReadPreferences();
127void FindMax(int *max_thing, int thing);
128void CreateFonts();
129#ifdef __WXMSW__
130void CopyToClipboard(HWND, char *);
131#endif
132
133wxMenu *popupMenu = NULL;
3013b6f4 134
88ac883a
VZ
135#if wxUSE_HELP
136 wxHelpController *HelpController = NULL;
137#endif // wxUSE_HELP
3013b6f4 138
3013b6f4
JS
139IMPLEMENT_APP(MyApp)
140
141MainWindow *TheMainWindow = NULL;
142
143// Create the fonts
144void CreateFonts()
145{
146 NormalFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxNORMAL, wxNORMAL);
147 BoldFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxNORMAL, wxBOLD);
148 ItalicFont = wxTheFontList->FindOrCreateFont(pointSize, wxSWISS, wxITALIC, wxNORMAL);
149}
150
151BEGIN_EVENT_TABLE(MainWindow, wxFrame)
152 EVT_CLOSE(MainWindow::OnCloseWindow)
153 EVT_CHAR(MainWindow::OnChar)
508379ee 154 EVT_MENU(-1, MainWindow::OnPopup)
3013b6f4
JS
155END_EVENT_TABLE()
156
157MainWindow::MainWindow(wxFrame *frame, wxWindowID id, const wxString& title,
158 const wxPoint& pos, const wxSize& size, long style):
159 wxFrame(frame, id, title, pos, size, style)
160{
161}
162
b412f9be
JS
163MainWindow::~MainWindow()
164{
165 // Note: this must be done before the main window/canvas are destroyed
166 // or we get an error (no parent window for menu item button)
167 delete popupMenu;
168 popupMenu = NULL;
169}
170
3013b6f4
JS
171// Read the poetry buffer, either for finding the size
172// or for writing to a bitmap (not to the window directly,
173// since that displays messily)
174// If DrawIt is true, we draw, otherwise we just determine the
175// size the window should be.
176void MainWindow::ScanBuffer(wxDC *dc, bool DrawIt, int *max_x, int *max_y)
177{
178 int i = pages[current_page];
179 int ch = -1;
180 int x = 10;
181 int y = 0;
182 int j;
183 char *line_ptr;
184 int curr_width = 0;
185 bool page_break = FALSE;
186
187 int width = 0;
188 int height = 0;
189
190 if (DrawIt)
191 {
192 y = (*max_y - poem_height)/2;
193 width = *max_x;
194 height = *max_y;
195 }
196
197 if (DrawIt && wxColourDisplay())
198 {
199 dc->SetBrush(*wxLIGHT_GREY_BRUSH);
200 dc->SetPen(*GreyPen);
201 dc->DrawRectangle(0, 0, width, height);
202 dc->SetBackgroundMode(wxTRANSPARENT);
203 }
204
205 // See what ACTUAL char height is
206 dc->SetFont(* NormalFont);
207 long xx;
208 long yy;
209 dc->GetTextExtent("X", &xx, &yy);
210 char_height = (int)yy;
211
212 if (current_page == 0)
213 title[0] = 0;
214 else if (title[0] != 0)
215 {
216 dc->SetFont(* BoldFont);
217 dc->GetTextExtent(title, &xx, &yy);
218 FindMax(&curr_width, (int)xx);
219
220 if (DrawIt)
221 {
222 x = (width - xx)/2;
223 dc->SetFont(* BoldFont);
224
225 // Change text to BLACK!
226 dc->SetTextForeground(* wxBLACK);
227 dc->DrawText(title, x, y);
228 // Change text to WHITE!
229 dc->SetTextForeground(* wxWHITE);
230 dc->DrawText(title, x-SHADOW_OFFSET, y-SHADOW_OFFSET);
231 }
232 y += char_height;
233 y += char_height;
234 }
235
236 while (ch != 0 && !page_break)
237 {
238 j = 0;
685aded8 239#if defined(__WXMSW__) || defined(__WXMAC__)
3013b6f4
JS
240 while (((ch = poem_buffer[i]) != 13) && (ch != 0))
241#else
242 while (((ch = poem_buffer[i]) != 10) && (ch != 0))
243#endif
244 {
245 line[j] = ch;
246 j ++;
247 i ++;
248 }
249
685aded8 250#if defined(__WXMSW__) || defined(__WXMAC__)
3013b6f4
JS
251 if (ch == 13)
252#else
253 if (ch == 10)
254#endif
255 {
256 ch = -1;
257 i ++;
258#ifdef __WXMSW__
259 // Add another to skip the linefeed
260 i ++;
261#endif
262 // If a single newline on its own, put a space in
263 if (j == 0)
264 {
265 line[j] = ' ';
266 j ++;
267 line[j] = 0;
268 }
269 }
270
271 if (j > 0)
272 {
273 line[j] = 0;
274 if (line[0] == '@')
275 {
276 switch (line[1])
277 {
278 case 'P':
279 paging = TRUE;
280 page_break = TRUE;
281 break;
282
283 case 'T':
284 dc->SetFont(* BoldFont);
285 line_ptr = line+3;
286
287 strcpy(title, line_ptr);
288 strcat(title, " (cont'd)");
289
290 dc->GetTextExtent(line_ptr, &xx, &yy);
291 FindMax(&curr_width, (int)xx);
292
293 if (DrawIt)
294 {
295 x = (width - xx)/2;
296 dc->SetFont(* BoldFont);
297
298 // Change text to BLACK!
299 dc->SetTextForeground(* wxBLACK);
300 dc->DrawText(line_ptr, x, y);
301
302 // Change text to WHITE!
303 dc->SetTextForeground(* wxWHITE);
304 dc->DrawText(line_ptr, x-SHADOW_OFFSET, y-SHADOW_OFFSET);
305 dc->SetTextForeground(* wxWHITE);
306 }
307 break;
308
309 case 'A':
310 line_ptr = line+3;
311 dc->SetFont(* ItalicFont);
312
313 dc->GetTextExtent(line_ptr, &xx, &yy);
314 FindMax(&curr_width, (int)xx);
315
316 if (DrawIt)
317 {
318 x = (width - xx)/2;
319 dc->SetTextForeground(* wxBLACK);
320 dc->DrawText(line_ptr, x, y);
321 }
322 break;
323
324 // Default: just ignore this line
325 default:
326 y -= char_height;
327 }
328 }
329 else
330 {
331 dc->SetFont(* NormalFont);
332
333 dc->GetTextExtent(line, &xx, &yy);
334 FindMax(&curr_width, (int)xx);
f5d01a1c 335
3013b6f4
JS
336 if (DrawIt)
337 {
338 int x = (int)((width - xx)/2.0);
339 dc->SetFont(* NormalFont);
340 dc->SetTextForeground(* wxBLACK);
bbf73190 341 dc->DrawText(line, x, y);
3013b6f4
JS
342 }
343 }
344 }
345 y += char_height;
346 }
347
348 // Write (cont'd)
349 if (page_break)
350 {
351 char *cont = "(cont'd)";
352
353 dc->SetFont(* NormalFont);
354
355 dc->GetTextExtent(cont, &xx, &yy);
356 FindMax(&curr_width, (int)xx);
357 if (DrawIt)
358 {
359 int x = (int)((width - xx)/2.0);
360 dc->SetFont(* NormalFont);
361 dc->SetTextForeground(* wxBLACK);
bbf73190 362 dc->DrawText(cont, x, y);
3013b6f4
JS
363 }
364 y += 2*char_height;
365 }
366
367 *max_x = (int)curr_width;
368 *max_y = (int)(y-char_height);
369
370 if (page_break)
371 pages[current_page+1] = i;
372 else
373 paging = FALSE;
374
375 if (DrawIt)
376 {
377 // Draw dark grey thick border
378 if (wxColourDisplay())
379 {
380 dc->SetBrush(*wxGREY_BRUSH);
381 dc->SetPen(*wxGREY_PEN);
382
383 // Left side
384 dc->DrawRectangle(0, 0, THIN_LINE_BORDER, height);
385 // Top side
386 dc->DrawRectangle(THIN_LINE_BORDER, 0, width-THIN_LINE_BORDER, THIN_LINE_BORDER);
387 // Right side
388 dc->DrawRectangle(width-THIN_LINE_BORDER, THIN_LINE_BORDER, width, height-THIN_LINE_BORDER);
389 // Bottom side
390 dc->DrawRectangle(THIN_LINE_BORDER, height-THIN_LINE_BORDER, width-THIN_LINE_BORDER, height);
391 }
392 // Draw border
393 // Have grey background, plus 3-d border -
394 // One black rectangle.
395 // Inside this, left and top sides - dark grey. Bottom and right -
396 // white.
397
398 // Change pen to black
399 dc->SetPen(*wxBLACK_PEN);
400 dc->DrawLine(THIN_LINE_BORDER, THIN_LINE_BORDER, width-THIN_LINE_BORDER, THIN_LINE_BORDER);
401 dc->DrawLine(width-THIN_LINE_BORDER, THIN_LINE_BORDER, width-THIN_LINE_BORDER, height-THIN_LINE_BORDER);
402 dc->DrawLine(width-THIN_LINE_BORDER, height-THIN_LINE_BORDER, THIN_LINE_BORDER, height-THIN_LINE_BORDER);
403 dc->DrawLine(THIN_LINE_BORDER, height-THIN_LINE_BORDER, THIN_LINE_BORDER, THIN_LINE_BORDER);
f5d01a1c 404
3013b6f4
JS
405 // Right and bottom white lines - 'grey' (black!) if
406 // we're running on a mono display.
407 if (wxColourDisplay())
408 dc->SetPen(*WhitePen);
409 else
410 dc->SetPen(*DarkGreyPen);
411
412 dc->DrawLine(width-THICK_LINE_BORDER, THICK_LINE_BORDER,
413 width-THICK_LINE_BORDER, height-THICK_LINE_BORDER);
414 dc->DrawLine(width-THICK_LINE_BORDER, height-THICK_LINE_BORDER,
415 THICK_LINE_BORDER, height-THICK_LINE_BORDER);
416
417 // Left and top grey lines
418 dc->SetPen(*DarkGreyPen);
419 dc->DrawLine(THICK_LINE_BORDER, height-THICK_LINE_BORDER,
420 THICK_LINE_BORDER, THICK_LINE_BORDER);
421 dc->DrawLine(THICK_LINE_BORDER, THICK_LINE_BORDER,
422 width-THICK_LINE_BORDER, THICK_LINE_BORDER);
423
bbf73190 424//#ifdef __WXMSW__
3013b6f4 425 // Draw icons
bbf73190
RR
426 dc->DrawIcon(* Corner1, 0, 0);
427 dc->DrawIcon(* Corner2, int(width-32), 0);
3013b6f4
JS
428
429 int y2 = height - 32;
430 int x2 = (width-32);
bbf73190
RR
431 dc->DrawIcon(* Corner3, 0, y2);
432 dc->DrawIcon(* Corner4, x2, y2);
433//#endif
3013b6f4
JS
434 }
435}
436
437// Get an index (randomly generated) and load the poem
438void MainWindow::GetIndexLoadPoem(void)
439{
440 if (index_ok)
441 index_ptr = GetIndex();
442
443 if (index_ptr > -1)
444 loaded_ok = LoadPoem(data_filename, -1);
445}
446
447// Find the size of the poem and resize the window accordingly
448void MainWindow::Resize(void)
449{
450 wxClientDC dc(canvas);
451
452 // Get the poem size
453 ScanBuffer(& dc, FALSE, &poem_width, &poem_height);
454 int x = poem_width + (2*BORDER_SIZE);
455 int y = poem_height + (2*BORDER_SIZE);
456
457 SetClientSize(x, y);
458
459 // In case client size isn't what we set it to...
460 int xx, yy;
461 GetClientSize(&xx, &yy);
462
463 wxMemoryDC memDC;
464 if (backingBitmap) delete backingBitmap;
465 backingBitmap = new wxBitmap(x, yy);
466 memDC.SelectObject(* backingBitmap);
467
468 memDC.Clear();
469 TheMainWindow->ScanBuffer(&memDC, TRUE, &xx, &yy);
470}
471
472// Which is more?
473void FindMax(int *max_thing, int thing)
474{
475 if (thing > *max_thing)
476 *max_thing = thing;
477}
478
479// Next page/poem
480void MainWindow::NextPage(void)
481{
482 if (paging)
483 current_page ++;
484 else
485 {
486 current_page = 0;
487 GetIndexLoadPoem();
488 }
489 Resize();
490}
491
492// Previous page
493void MainWindow::PreviousPage(void)
494{
495 if (current_page > 0)
496 {
497 current_page --;
498 Resize();
499 }
500}
501
502// Search for a string
503void MainWindow::Search(bool ask)
504{
505 long position;
506
507 if (ask || !search_string)
508 {
509 wxString s = wxGetTextFromUser("Enter search string", "Search", (const char*) search_string);
510 if (s != "")
511 {
512 if (search_string) delete[] search_string;
513 search_string = copystring(s);
514 search_ok = TRUE;
515 } else search_ok = FALSE;
516 }
517 else
518 {
519 same_search = TRUE;
520 search_ok = TRUE;
521 }
522
523 if (search_string && search_ok)
524 {
525 position = DoSearch();
526 if (position > -1)
527 {
528 loaded_ok = LoadPoem(data_filename, position);
529 Resize();
530 }
531 else
532 {
533 last_poem_start = 0;
534 PoetryNotify("Search string not found.");
535 }
536 }
537}
538
539// Copy a string to the clipboard
540#ifdef __WXMSW__
541void CopyToClipboard(HWND handle, char *s)
542{
543 int length = strlen(s);
544 HANDLE hGlobalMemory = GlobalAlloc(GHND, (DWORD) length + 1);
545 if (hGlobalMemory)
546 {
547#ifdef __WINDOWS_386__
548 LPSTR lpGlobalMemory = MK_FP32(GlobalLock(hGlobalMemory));
549#else
550 LPSTR lpGlobalMemory = (LPSTR)GlobalLock(hGlobalMemory);
551#endif
552 int i, j = 0;
553 for (i = 0; i < length; i ++)
554 {
555 if (s[i] == '@')
556 {
557 i++;
558 switch (s[i])
559 {
560 case 'P':
561 break;
562 case 'T':
563 case 'A':
564 default:
565 i ++;
566 break;
567 }
568 }
569 else
570 {
571 lpGlobalMemory[j] = s[i];
572 j ++;
573 }
574 }
575
576 GlobalUnlock(hGlobalMemory);
577 OpenClipboard(handle);
578 EmptyClipboard();
579 SetClipboardData(CF_TEXT, hGlobalMemory);
580 CloseClipboard();
581 }
582}
583#endif
584
585bool MyApp::OnInit()
586{
587 poem_buffer = new char[buf_size];
f5d01a1c 588
3013b6f4
JS
589 GreyPen = new wxPen("LIGHT GREY", THICK_LINE_WIDTH, wxSOLID);
590 DarkGreyPen = new wxPen("GREY", THICK_LINE_WIDTH, wxSOLID);
591 WhitePen = new wxPen("WHITE", THICK_LINE_WIDTH, wxSOLID);
592
88ac883a 593#if wxUSE_HELP
3013b6f4
JS
594 HelpController = new wxHelpController();
595 HelpController->Initialize("wxpoem");
88ac883a 596#endif // wxUSE_HELP
3013b6f4
JS
597
598 CreateFonts();
599
600 ReadPreferences();
601
602 // Seed the random number generator
603 time_t current_time;
604
605 (void)time(&current_time);
606 srand((unsigned int)current_time);
607
608// randomize();
609 pages[0] = 0;
610
b23386b2 611 TheMainWindow = new MainWindow(NULL, 500, "wxPoem", wxPoint(XPos, YPos), wxSize(100, 100), wxCAPTION|wxMINIMIZE_BOX|wxSYSTEM_MENU);
3013b6f4
JS
612
613#ifdef wx_x
614 TheMainWindow->SetIcon(Icon("wxpoem"));
615#endif
616
b23386b2 617 TheMainWindow->canvas = new MyCanvas(TheMainWindow, 501, wxDefaultPosition, wxDefaultSize);
3013b6f4 618
508379ee 619 popupMenu = new wxMenu;
3013b6f4
JS
620 popupMenu->Append(POEM_NEXT, "Next poem/page");
621 popupMenu->Append(POEM_PREVIOUS, "Previous page");
622 popupMenu->AppendSeparator();
623 popupMenu->Append(POEM_SEARCH, "Search");
624 popupMenu->Append(POEM_NEXT_MATCH, "Next match");
625 popupMenu->Append(POEM_COPY, "Copy to clipboard");
626 popupMenu->Append(POEM_MINIMIZE, "Minimize");
627 popupMenu->AppendSeparator();
628 popupMenu->Append(POEM_BIGGER_TEXT, "Bigger text");
629 popupMenu->Append(POEM_SMALLER_TEXT, "Smaller text");
630 popupMenu->AppendSeparator();
631 popupMenu->Append(POEM_ABOUT, "About wxPoem");
632 popupMenu->AppendSeparator();
633 popupMenu->Append(POEM_EXIT, "Exit");
634
635 if (argc > 1)
636 {
637 index_filename = copystring(argv[1]);
638 data_filename = copystring(argv[1]);
639 }
640 else
641 {
642 index_filename = DEFAULT_POETRY_IND;
643 data_filename = DEFAULT_POETRY_DAT;
644 }
645 TryLoadIndex();
646
647#ifdef __WXMSW__
648 Corner1 = new wxIcon("icon_1");
649 Corner2 = new wxIcon("icon_2");
650 Corner3 = new wxIcon("icon_3");
651 Corner4 = new wxIcon("icon_4");
652#endif
685aded8 653#if defined(__WXGTK__) || defined(__WXMOTIF__) || defined(__WXMAC__)
bbf73190
RR
654 Corner1 = new wxIcon( corner1_xpm );
655 Corner2 = new wxIcon( corner2_xpm );
656 Corner3 = new wxIcon( corner3_xpm );
657 Corner4 = new wxIcon( corner4_xpm );
658#endif
3013b6f4
JS
659
660 TheMainWindow->GetIndexLoadPoem();
661 TheMainWindow->Resize();
662 TheMainWindow->Show(TRUE);
663
664 return TRUE;
665}
666
667int MyApp::OnExit()
668{
669 if (backingBitmap)
670 delete backingBitmap;
88ac883a 671#if wxUSE_HELP
3013b6f4 672 delete HelpController;
88ac883a 673#endif // wxUSE_HELP
3013b6f4
JS
674 delete GreyPen;
675 delete DarkGreyPen;
676 delete WhitePen;
677
3013b6f4
JS
678 delete Corner1;
679 delete Corner2;
680 delete Corner3;
681 delete Corner4;
bbf73190 682
3013b6f4
JS
683 delete NormalFont;
684 delete BoldFont;
685 delete ItalicFont;
a98f98ac
JS
686 delete[] poem_buffer;
687 if (search_string)
688 delete[] search_string;
3013b6f4
JS
689
690 return 0;
691}
692
bbf73190 693void MainWindow::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
3013b6f4
JS
694{
695 WritePreferences();
696 this->Destroy();
697}
698
699void MainWindow::OnChar(wxKeyEvent& event)
700{
701 canvas->OnChar(event);
702}
703
b23386b2 704BEGIN_EVENT_TABLE(MyCanvas, wxWindow)
3013b6f4
JS
705 EVT_MOUSE_EVENTS(MyCanvas::OnMouseEvent)
706 EVT_CHAR(MyCanvas::OnChar)
707 EVT_PAINT(MyCanvas::OnPaint)
708END_EVENT_TABLE()
709
710// Define a constructor for my canvas
711MyCanvas::MyCanvas(wxFrame *frame, wxWindowID id, const wxPoint& pos, const wxSize& size):
b23386b2 712 wxWindow(frame, id, pos, size)
3013b6f4
JS
713{
714}
715
716// Define the repainting behaviour
bbf73190 717void MyCanvas::OnPaint(wxPaintEvent& WXUNUSED(event))
3013b6f4
JS
718{
719 wxPaintDC dc(this);
720
721 if (backingBitmap)
722 {
723 int xx, yy;
724 TheMainWindow->GetClientSize(&xx, &yy);
f5d01a1c 725
3013b6f4
JS
726 wxMemoryDC memDC;
727 memDC.SelectObject(* backingBitmap);
728 dc.Blit(0, 0, backingBitmap->GetWidth(), backingBitmap->GetHeight(), &memDC, 0, 0);
729 }
730}
731
732void MyCanvas::OnMouseEvent(wxMouseEvent& event)
733{
3013b6f4
JS
734 static int startPosX, startPosY, startFrameX, startFrameY;
735
508379ee
VZ
736 long x, y;
737 event.GetPosition(&x, &y);
3013b6f4
JS
738
739 if (event.RightDown())
740 {
741 // Versions from wxWin 1.67 are probably OK
bbf73190 742 PopupMenu(popupMenu, (int)x, (int)y );
3013b6f4
JS
743 }
744 else if (event.LeftDown())
745 {
746 this->CaptureMouse();
747 int x1 = (int)x;
748 int y1 = (int)y;
749 ClientToScreen(&x1, &y1);
750 startPosX = x1;
751 startPosY = y1;
752 GetParent()->GetPosition(&startFrameX, &startFrameY);
753 }
754 else if (event.LeftUp())
755 this->ReleaseMouse();
756 else if (event.Dragging() && event.LeftIsDown())
757 {
758 int x1 = (int)x;
759 int y1 = (int)y;
760 ClientToScreen(&x1, &y1);
f5d01a1c 761
3013b6f4
JS
762 int dX = x1 - startPosX;
763 int dY = y1 - startPosY;
764 GetParent()->Move(startFrameX + dX, startFrameY + dY);
765 }
766}
767
768// Process characters
769void MyCanvas::OnChar(wxKeyEvent& event)
770{
771 switch (event.KeyCode())
772 {
773 case 'n':
774 case 'N':
775 // Next match
776 TheMainWindow->Search(FALSE);
777 break;
778 case 's':
779 case 'S':
780 // New search
781 TheMainWindow->Search(TRUE);
782 break;
783 case WXK_SPACE:
784 // Another poem
785 TheMainWindow->NextPage();
786 break;
787 case 27:
788 TheMainWindow->Close(TRUE);
789 default:
790 break;
791 }
792 }
793
794// Load index file
795int LoadIndex(char *file_name)
796{
797 long data;
798 FILE *index_file;
799
800 int i = 0;
801 char buf[100];
802
803 if (file_name)
804 sprintf(buf, "%s.idx", file_name);
805 if (! (file_name && (index_file = fopen(buf, "r"))))
806 return 0;
807 else
808 {
809 fscanf(index_file, "%ld", &nitems);
810
811 for (i = 0; i < nitems; i++)
812 {
813 fscanf(index_file, "%ld", &data);
814 poem_index[i] = data;
815 }
816 fclose(index_file);
817
818 return 1;
819 }
820}
821
822// Get index
823int GetIndex()
824{
825 int indexn = 0;
826
827 indexn = (int)(rand() % nitems);
828
829 if ((indexn < 0) || (indexn > nitems))
830 { PoetryError("No such poem!");
831 return -1;
832 }
833 else
834 return indexn;
835}
836
837// Read preferences
838void ReadPreferences()
839{
840 wxGetResource("wxPoem", "FontSize", &pointSize);
841 wxGetResource("wxPoem", "X", &XPos);
842 wxGetResource("wxPoem", "Y", &YPos);
843}
844
845// Write preferences to disk
846void WritePreferences()
847{
848#ifdef __WXMSW__
849 TheMainWindow->GetPosition(&XPos, &YPos);
850 wxWriteResource("wxPoem", "FontSize", pointSize);
851 wxWriteResource("wxPoem", "X", XPos);
852 wxWriteResource("wxPoem", "Y", YPos);
853#endif
854}
855
856// Load a poem from given file, at given point in file.
857// If position is > -1, use this for the position in the
858// file, otherwise use index[index_ptr] to find the correct position.
859bool LoadPoem(char *file_name, long position)
860{
861 int ch = 0;
862 int i = 0;
bbf73190
RR
863// int j = 0;
864// int indexn = 0;
3013b6f4
JS
865 char buf[100];
866 long data;
867 FILE *data_file;
868
869 paging = FALSE;
870 current_page = 0;
871
872 if (file_name)
873 sprintf(buf, "%s.dat", file_name);
874
875 if (! (file_name && (data_file = fopen(buf, "r"))))
876 {
877 sprintf(error_buf, "Data file %s not found.", buf);
878 PoetryError(error_buf);
879 return FALSE;
880 }
881 else
882 {
883 if (position > -1)
884 data = position;
885 else
886 data = poem_index[index_ptr];
887
888 fseek(data_file, data, SEEK_SET);
889
890 ch = 0;
891 i = 0;
892 while ((ch != EOF) && (ch != '#'))
893 {
894 ch = getc(data_file);
895 // Add a linefeed so it will copy to the clipboard ok
896 if (ch == 10)
897 {
898 poem_buffer[i] = 13;
899 i++;
900 }
901
902 poem_buffer[i] = ch;
903 i ++;
904
905 if (i == buf_size)
906 {
907 sprintf(error_buf, "%s", "Poetry buffer exceeded.");
908 PoetryError(error_buf);
909 return FALSE;
910 }
911 }
912 fclose(data_file);
913 poem_buffer[i-1] = 0;
914 return TRUE;
915 }
916}
917
918// Do the search
919long MainWindow::DoSearch(void)
920{
921 if (!search_string)
922 return FALSE;
923
924 FILE *file;
925 long i = 0;
926 int ch = 0;
927 char buf[100];
928 long find_start;
929 long previous_poem_start;
930
931 bool found = FALSE;
932 int search_length = strlen(search_string);
933
934 if (same_search)
935 {
936 find_start = last_find + 1;
937 previous_poem_start = last_poem_start;
938 }
939 else
940 {
941 find_start = 0;
942 last_poem_start = 0;
943 previous_poem_start = -1;
944 }
945
946 if (data_filename)
947 sprintf(buf, "%s.dat", data_filename);
948
949 if (! (data_filename && (file = fopen(buf, "r"))))
950 {
951 sprintf(error_buf, "Poetry data file %s not found\n", buf);
952 PoetryError(error_buf);
953 return FALSE;
954 }
955
956 fseek(file, find_start, SEEK_SET);
957
958 while ((ch != EOF) && !found)
959 {
960 ch = getc(file);
961 ch |= 0x0020; // Make lower case
962
963 // Only match if we're looking at a different poem
964 // (no point in displaying the same poem again)
965 if ((ch == search_string[i]) && (last_poem_start != previous_poem_start))
966 {
967 if (i == 0)
968 last_find = ftell(file);
969 if (i == search_length-1)
970 found = TRUE;
971 i ++;
972 }
973 else
974 i = 0;
975
976 if (ch == '#')
977 {
978 ch = getc(file);
979 last_poem_start = ftell(file);
980 }
981 }
982 fclose(file);
983 if (ch == EOF)
984 last_find = -1;
985
986 if (found)
987 {
988 return last_poem_start;
989 }
990 else
991 return -1;
992}
993
994// Set up poetry filenames, preferences, load the index
995// Load index (or compile it if none found)
996void TryLoadIndex()
997{
a98f98ac 998 index_ok = (LoadIndex(index_filename) != 0);
3013b6f4
JS
999 if (!index_ok || (nitems == 0))
1000 {
1001 PoetryError("Index file not found; will compile new one", "wxPoem");
1002 index_ok = Compile();
1003 }
1004}
1005
1006// Error message
1007void PoetryError(char *msg, char *caption)
1008{
1009 wxMessageBox(msg, caption, wxOK|wxICON_EXCLAMATION);
1010}
1011
1012// Notification (change icon to something appropriate!)
1013void PoetryNotify(char *Msg, char *caption)
1014{
1015 wxMessageBox(Msg, caption, wxOK | wxICON_INFORMATION);
1016}
1017
1018// Build up and save an index into the poetry data file, for
1019// rapid random access
1020bool Compile(void)
1021{
1022 FILE *file;
1023 long i = 0;
1024 int j;
1025 int ch = 0;
1026 char buf[100];
1027
1028 if (data_filename)
1029 sprintf(buf, "%s.dat", data_filename);
1030
1031 if (! (data_filename && (file = fopen(buf, "r"))))
1032 {
1033 sprintf(error_buf, "Poetry data file %s not found\n", buf);
1034 PoetryError(error_buf);
1035 return FALSE;
1036 }
1037
1038 nitems = 0;
1039
1040 // Do first one (?)
1041 poem_index[nitems] = 0;
1042 nitems ++;
1043
1044 // Do rest
1045 while (ch != EOF)
1046 {
1047 ch = getc(file);
1048 i ++;
1049 if (ch == '#')
1050 {
1051 ch = getc(file);
1052 long data;
1053 data = ftell(file);
1054 poem_index[nitems] = data;
1055 nitems ++;
1056 }
1057 }
1058 fclose(file);
1059
1060 if (index_filename)
1061 sprintf(buf, "%s.idx", index_filename);
1062 if (! (data_filename && (file = fopen(buf, "w"))))
1063 {
1064 sprintf(error_buf, "Poetry index file %s cannot be created\n", buf);
1065 PoetryError(error_buf);
1066 return FALSE;
1067 }
1068
1069 fprintf(file, "%ld\n\n", nitems);
1070 for (j = 0; j < nitems; j++)
1071 fprintf(file, "%ld\n", poem_index[j]);
f5d01a1c 1072
3013b6f4
JS
1073 fclose(file);
1074 PoetryNotify("Poetry index compiled.");
1075 return TRUE;
1076}
1077
508379ee 1078void MainWindow::OnPopup(wxCommandEvent& event)
3013b6f4 1079{
b412f9be 1080 switch (event.GetId())
3013b6f4
JS
1081 {
1082 case POEM_NEXT:
1083 // Another poem/page
1084 TheMainWindow->NextPage();
1085 break;
1086 case POEM_PREVIOUS:
1087 // Previous page
1088 TheMainWindow->PreviousPage();
1089 break;
1090 case POEM_SEARCH:
1091 // Search - with dialog
1092 TheMainWindow->Search(TRUE);
1093 break;
1094 case POEM_NEXT_MATCH:
1095 // Search - without dialog (next match)
1096 TheMainWindow->Search(FALSE);
1097 break;
1098 case POEM_MINIMIZE:
1099 TheMainWindow->Iconize(TRUE);
1100 break;
1101#ifdef __WXMSW__
1102 case POEM_COPY:
1103 // Copy current poem to the clipboard
1104 CopyToClipboard((HWND) TheMainWindow->GetHWND(), poem_buffer);
1105 break;
1106#endif
1107 case POEM_COMPILE:
1108 // Compile index
1109 Compile();
1110 break;
1111 case POEM_BIGGER_TEXT:
1112 {
1113 pointSize ++;
1114 CreateFonts();
1115 TheMainWindow->Resize();
1116 break;
1117 }
1118 case POEM_SMALLER_TEXT:
1119 {
1120 if (pointSize > 2)
1121 {
1122 pointSize --;
1123 CreateFonts();
1124 TheMainWindow->Resize();
1125 }
1126 break;
1127 }
1128 case POEM_HELP_CONTENTS:
1129 {
88ac883a 1130#if wxUSE_HELP
3013b6f4
JS
1131 HelpController->LoadFile("wxpoem");
1132 HelpController->DisplayContents();
88ac883a 1133#endif // wxUSE_HELP
3013b6f4
JS
1134 break;
1135 }
1136 case POEM_ABOUT:
1137 {
1138 (void)wxMessageBox("wxPoem Version 1.1\nJulian Smart (c) 1995",
1139 "About wxPoem", wxOK, TheMainWindow);
1140 break;
1141 }
1142 case POEM_EXIT:
1143 // Exit
1144 TheMainWindow->Close(TRUE);
1145 break;
1146 default:
1147 break;
1148 }
1149}