demos/poem/wxpoem.cpp

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