samples/widgets/widgets.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Program:     wxWidgets Widgets Sample
   3 // Name:        samples/widgets/widgets.cpp
   4 // Purpose:     Sample showing most of the simple wxWidgets widgets
   5 // Author:      Vadim Zeitlin
   6 // Created:     27.03.01
   7 // Id:          $Id$
   8 // Copyright:   (c) 2001 Vadim Zeitlin
   9 // License:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // ============================================================================
  13 // declarations
  14 // ============================================================================
  15
  16 // ----------------------------------------------------------------------------
  17 // headers
  18 // ----------------------------------------------------------------------------
  19
  20 // for compilers that support precompilation, includes "wx/wx.h".
  21 #include "wx/wxprec.h"
  22
  23 #ifdef __BORLANDC__
  24     #pragma hdrstop
  25 #endif
  26
  27 // for all others, include the necessary headers
  28 #ifndef WX_PRECOMP
  29     #include "wx/app.h"
  30     #include "wx/log.h"
  31     #include "wx/frame.h"
  32     #include "wx/menu.h"
  33
  34     #include "wx/button.h"
  35     #include "wx/checkbox.h"
  36     #include "wx/listbox.h"
  37     #include "wx/statbox.h"
  38     #include "wx/stattext.h"
  39     #include "wx/textctrl.h"
  40     #include "wx/msgdlg.h"
  41 #endif
  42
  43 #include "wx/sysopt.h"
  44 #include "wx/bookctrl.h"
  45 #include "wx/treebook.h"
  46 #include "wx/sizer.h"
  47 #include "wx/colordlg.h"
  48 #include "wx/fontdlg.h"
  49 #include "wx/textdlg.h"
  50 #include "wx/imaglist.h"
  51 #include "wx/wupdlock.h"
  52
  53 #include "widgets.h"
  54
  55 #include "../sample.xpm"
  56
  57 // ----------------------------------------------------------------------------
  58 // constants
  59 // ----------------------------------------------------------------------------
  60
  61 // control ids
  62 enum
  63 {
  64     Widgets_ClearLog = 100,
  65     Widgets_Quit,
  66
  67     Widgets_BookCtrl,
  68
  69 #if wxUSE_TOOLTIPS
  70     Widgets_SetTooltip,
  71 #endif // wxUSE_TOOLTIPS
  72     Widgets_SetFgColour,
  73     Widgets_SetBgColour,
  74     Widgets_SetFont,
  75     Widgets_Enable,
  76
  77     Widgets_BorderNone,
  78     Widgets_BorderStatic,
  79     Widgets_BorderSimple,
  80     Widgets_BorderRaised,
  81     Widgets_BorderSunken,
  82     Widgets_BorderDouble,
  83     Widgets_BorderDefault,
  84
  85     Widgets_GoToPage,
  86     Widgets_GoToPageLast = Widgets_GoToPage + 100
  87 };
  88
  89 const wxChar *WidgetsCategories[MAX_PAGES] = {
  90 #if defined(__WXUNIVERSAL__)
  91     wxT("Universal"),
  92 #else
  93     wxT("Native"),
  94 #endif
  95     wxT("Generic"),
  96     wxT("Pickers"),
  97     wxT("Comboboxes"),
  98     wxT("With items"),
  99     wxT("Editable"),
 100     wxT("Books"),
 101     wxT("All controls")
 102 };
 103
 104 // ----------------------------------------------------------------------------
 105 // our classes
 106 // ----------------------------------------------------------------------------
 107
 108 // Define a new application type, each program should derive a class from wxApp
 109 class WidgetsApp : public wxApp
 110 {
 111 public:
 112     // override base class virtuals
 113     // ----------------------------
 114
 115     // this one is called on application startup and is a good place for the app
 116     // initialization (doing it here and not in the ctor allows to have an error
 117     // return: if OnInit() returns false, the application terminates)
 118     virtual bool OnInit();
 119 };
 120
 121 // Define a new frame type: this is going to be our main frame
 122 class WidgetsFrame : public wxFrame
 123 {
 124 public:
 125     // ctor(s) and dtor
 126     WidgetsFrame(const wxString& title);
 127     virtual ~WidgetsFrame();
 128
 129 protected:
 130     // event handlers
 131 #if USE_LOG
 132     void OnButtonClearLog(wxCommandEvent& event);
 133 #endif // USE_LOG
 134     void OnExit(wxCommandEvent& event);
 135
 136 #if wxUSE_MENUS
 137     void OnPageChanged(WidgetsBookCtrlEvent& event);
 138     void OnGoToPage(wxCommandEvent& event);
 139
 140 #if wxUSE_TOOLTIPS
 141     void OnSetTooltip(wxCommandEvent& event);
 142 #endif // wxUSE_TOOLTIPS
 143     void OnSetFgCol(wxCommandEvent& event);
 144     void OnSetBgCol(wxCommandEvent& event);
 145     void OnSetFont(wxCommandEvent& event);
 146     void OnEnable(wxCommandEvent& event);
 147     void OnSetBorder(wxCommandEvent& event);
 148 #endif // wxUSE_MENUS
 149
 150     // initialize the book: add all pages to it
 151     void InitBook();
 152
 153     // finding current page assuming book inside book
 154     WidgetsPage *CurrentPage();
 155
 156 private:
 157     // the panel containing everything
 158     wxPanel *m_panel;
 159
 160 #if USE_LOG
 161     // the listbox for logging messages
 162     wxListBox *m_lboxLog;
 163
 164     // the log target we use to redirect messages to the listbox
 165     wxLog *m_logTarget;
 166 #endif // USE_LOG
 167
 168     // the book containing the test pages
 169     WidgetsBookCtrl *m_book;
 170
 171 #if wxUSE_MENUS
 172     // last chosen fg/bg colours and font
 173     wxColour m_colFg,
 174              m_colBg;
 175     wxFont   m_font;
 176 #endif // wxUSE_MENUS
 177
 178     // any class wishing to process wxWidgets events must use this macro
 179     DECLARE_EVENT_TABLE()
 180 };
 181
 182 #if USE_LOG
 183 // A log target which just redirects the messages to a listbox
 184 class LboxLogger : public wxLog
 185 {
 186 public:
 187     LboxLogger(wxListBox *lbox, wxLog *logOld)
 188     {
 189         m_lbox = lbox;
 190         //m_lbox->Disable(); -- looks ugly under MSW
 191         m_logOld = logOld;
 192     }
 193
 194     virtual ~LboxLogger()
 195     {
 196         wxLog::SetActiveTarget(m_logOld);
 197     }
 198
 199 private:
 200     // implement sink functions
 201     virtual void DoLog(wxLogLevel level, const wxChar *szString, time_t t)
 202     {
 203         // don't put trace messages into listbox or we can get into infinite
 204         // recursion
 205         if ( level == wxLOG_Trace )
 206         {
 207             if ( m_logOld )
 208             {
 209                 // cast is needed to call protected method
 210                 ((LboxLogger *)m_logOld)->DoLog(level, szString, t);
 211             }
 212         }
 213         else
 214         {
 215             wxLog::DoLog(level, szString, t);
 216         }
 217     }
 218
 219     virtual void DoLogString(const wxChar *szString, time_t WXUNUSED(t))
 220     {
 221         wxString msg;
 222         TimeStamp(&msg);
 223         msg += szString;
 224
 225         #ifdef __WXUNIVERSAL__
 226             m_lbox->AppendAndEnsureVisible(msg);
 227         #else // other ports don't have this method yet
 228             m_lbox->Append(msg);
 229             m_lbox->SetFirstItem(m_lbox->GetCount() - 1);
 230         #endif
 231     }
 232
 233     // the control we use
 234     wxListBox *m_lbox;
 235
 236     // the old log target
 237     wxLog *m_logOld;
 238 };
 239 #endif // USE_LOG
 240
 241 // array of pages
 242 WX_DEFINE_ARRAY_PTR(WidgetsPage *, ArrayWidgetsPage);
 243
 244 // ----------------------------------------------------------------------------
 245 // misc macros
 246 // ----------------------------------------------------------------------------
 247
 248 IMPLEMENT_APP(WidgetsApp)
 249
 250 // ----------------------------------------------------------------------------
 251 // event tables
 252 // ----------------------------------------------------------------------------
 253
 254 BEGIN_EVENT_TABLE(WidgetsFrame, wxFrame)
 255 #if USE_LOG
 256     EVT_BUTTON(Widgets_ClearLog, WidgetsFrame::OnButtonClearLog)
 257 #endif // USE_LOG
 258     EVT_BUTTON(Widgets_Quit, WidgetsFrame::OnExit)
 259
 260 #if wxUSE_TOOLTIPS
 261     EVT_MENU(Widgets_SetTooltip, WidgetsFrame::OnSetTooltip)
 262 #endif // wxUSE_TOOLTIPS
 263
 264 #if wxUSE_MENUS
 265     EVT_WIDGETS_PAGE_CHANGED(wxID_ANY, WidgetsFrame::OnPageChanged)
 266     EVT_MENU_RANGE(Widgets_GoToPage, Widgets_GoToPageLast,
 267                    WidgetsFrame::OnGoToPage)
 268
 269     EVT_MENU(Widgets_SetFgColour, WidgetsFrame::OnSetFgCol)
 270     EVT_MENU(Widgets_SetBgColour, WidgetsFrame::OnSetBgCol)
 271     EVT_MENU(Widgets_SetFont,     WidgetsFrame::OnSetFont)
 272     EVT_MENU(Widgets_Enable,      WidgetsFrame::OnEnable)
 273
 274     EVT_MENU_RANGE(Widgets_BorderNone, Widgets_BorderDefault,
 275                    WidgetsFrame::OnSetBorder)
 276
 277     EVT_MENU(wxID_EXIT, WidgetsFrame::OnExit)
 278 #endif // wxUSE_MENUS
 279 END_EVENT_TABLE()
 280
 281 // ============================================================================
 282 // implementation
 283 // ============================================================================
 284
 285 // ----------------------------------------------------------------------------
 286 // app class
 287 // ----------------------------------------------------------------------------
 288
 289 bool WidgetsApp::OnInit()
 290 {
 291     if ( !wxApp::OnInit() )
 292         return false;
 293
 294     // the reason for having these ifdef's is that I often run two copies of
 295     // this sample side by side and it is useful to see which one is which
 296     wxString title;
 297 #if defined(__WXUNIVERSAL__)
 298     title = _T("wxUniv/");
 299 #endif
 300
 301 #if defined(__WXMSW__)
 302     title += _T("wxMSW");
 303 #elif defined(__WXGTK__)
 304     title += _T("wxGTK");
 305 #elif defined(__WXMAC__)
 306     title += _T("wxMAC");
 307 #elif defined(__WXMOTIF__)
 308     title += _T("wxMOTIF");
 309 #else
 310     title += _T("wxWidgets");
 311 #endif
 312
 313     wxFrame *frame = new WidgetsFrame(title + _T(" widgets demo"));
 314     frame->Show();
 315
 316     //wxLog::AddTraceMask(_T("listbox"));
 317     //wxLog::AddTraceMask(_T("scrollbar"));
 318     //wxLog::AddTraceMask(_T("focus"));
 319
 320     return true;
 321 }
 322
 323 // ----------------------------------------------------------------------------
 324 // WidgetsFrame construction
 325 // ----------------------------------------------------------------------------
 326
 327 WidgetsFrame::WidgetsFrame(const wxString& title)
 328             : wxFrame(NULL, wxID_ANY, title)
 329 {
 330     // set the frame icon
 331     SetIcon(wxICON(sample));
 332
 333     // init everything
 334 #if USE_LOG
 335     m_lboxLog = (wxListBox *)NULL;
 336     m_logTarget = (wxLog *)NULL;
 337 #endif // USE_LOG
 338     m_book = (WidgetsBookCtrl *)NULL;
 339
 340 #if wxUSE_MENUS
 341     // create the menubar
 342     wxMenuBar *mbar = new wxMenuBar;
 343     wxMenu *menuWidget = new wxMenu;
 344 #if wxUSE_TOOLTIPS
 345     menuWidget->Append(Widgets_SetTooltip, _T("Set &tooltip...\tCtrl-T"));
 346     menuWidget->AppendSeparator();
 347 #endif // wxUSE_TOOLTIPS
 348     menuWidget->Append(Widgets_SetFgColour, _T("Set &foreground...\tCtrl-F"));
 349     menuWidget->Append(Widgets_SetBgColour, _T("Set &background...\tCtrl-B"));
 350     menuWidget->Append(Widgets_SetFont,     _T("Set f&ont...\tCtrl-O"));
 351     menuWidget->AppendCheckItem(Widgets_Enable,  _T("&Enable/disable\tCtrl-E"));
 352
 353     wxMenu *menuBorders = new wxMenu;
 354     menuBorders->AppendRadioItem(Widgets_BorderDefault, _T("De&fault\tCtrl-Shift-9"));
 355     menuBorders->AppendRadioItem(Widgets_BorderNone,   _T("&None\tCtrl-Shift-0"));
 356     menuBorders->AppendRadioItem(Widgets_BorderSimple, _T("&Simple\tCtrl-Shift-1"));
 357     menuBorders->AppendRadioItem(Widgets_BorderDouble, _T("&Double\tCtrl-Shift-2"));
 358     menuBorders->AppendRadioItem(Widgets_BorderStatic, _T("Stati&c\tCtrl-Shift-3"));
 359     menuBorders->AppendRadioItem(Widgets_BorderRaised, _T("&Raised\tCtrl-Shift-4"));
 360     menuBorders->AppendRadioItem(Widgets_BorderSunken, _T("S&unken\tCtrl-Shift-5"));
 361     menuWidget->AppendSubMenu(menuBorders, _T("Set &border"));
 362
 363     menuWidget->AppendSeparator();
 364     menuWidget->Append(wxID_EXIT, _T("&Quit\tCtrl-Q"));
 365     mbar->Append(menuWidget, _T("&Widget"));
 366     SetMenuBar(mbar);
 367
 368     mbar->Check(Widgets_Enable, true);
 369 #endif // wxUSE_MENUS
 370
 371     // create controls
 372     m_panel = new wxPanel(this, wxID_ANY);
 373
 374     wxSizer *sizerTop = new wxBoxSizer(wxVERTICAL);
 375
 376     // we have 2 panes: book with pages demonstrating the controls in the
 377     // upper one and the log window with some buttons in the lower
 378
 379     int style = wxBK_DEFAULT;
 380     // Uncomment to suppress page theme (draw in solid colour)
 381     //style |= wxNB_NOPAGETHEME;
 382
 383     m_book = new WidgetsBookCtrl(m_panel, Widgets_BookCtrl, wxDefaultPosition,
 384 #ifdef __WXMOTIF__
 385         wxSize(500, wxDefaultCoord), // under Motif, height is a function of the width...
 386 #else
 387         wxDefaultSize,
 388 #endif
 389         style);
 390     InitBook();
 391
 392 #ifndef __WXHANDHELD__
 393     // the lower one only has the log listbox and a button to clear it
 394 #if USE_LOG
 395     wxSizer *sizerDown = new wxStaticBoxSizer(
 396         new wxStaticBox( m_panel, wxID_ANY, _T("&Log window") ),
 397         wxVERTICAL);
 398
 399     m_lboxLog = new wxListBox(m_panel, wxID_ANY);
 400     sizerDown->Add(m_lboxLog, 1, wxGROW | wxALL, 5);
 401     sizerDown->SetMinSize(100, 150);
 402 #else
 403     wxSizer *sizerDown = new wxBoxSizer(wxVERTICAL);
 404 #endif // USE_LOG
 405
 406     wxBoxSizer *sizerBtns = new wxBoxSizer(wxHORIZONTAL);
 407     wxButton *btn;
 408 #if USE_LOG
 409     btn = new wxButton(m_panel, Widgets_ClearLog, _T("Clear &log"));
 410     sizerBtns->Add(btn);
 411     sizerBtns->Add(10, 0); // spacer
 412 #endif // USE_LOG
 413     btn = new wxButton(m_panel, Widgets_Quit, _T("E&xit"));
 414     sizerBtns->Add(btn);
 415     sizerDown->Add(sizerBtns, 0, wxALL | wxALIGN_RIGHT, 5);
 416
 417     // put everything together
 418     sizerTop->Add(m_book, 1, wxGROW | (wxALL & ~(wxTOP | wxBOTTOM)), 10);
 419     sizerTop->Add(0, 5, 0, wxGROW); // spacer in between
 420     sizerTop->Add(sizerDown, 0,  wxGROW | (wxALL & ~wxTOP), 10);
 421
 422 #else // !__WXHANDHELD__/__WXHANDHELD__
 423
 424     sizerTop->Add(m_book, 1, wxGROW | wxALL );
 425
 426 #endif // __WXHANDHELD__
 427
 428     m_panel->SetSizer(sizerTop);
 429
 430     sizerTop->Fit(this);
 431     sizerTop->SetSizeHints(this);
 432
 433 #if USE_LOG && !defined(__WXCOCOA__)
 434     // wxCocoa's listbox is too flakey to use for logging right now
 435     // now that everything is created we can redirect the log messages to the
 436     // listbox
 437     m_logTarget = new LboxLogger(m_lboxLog, wxLog::GetActiveTarget());
 438     wxLog::SetActiveTarget(m_logTarget);
 439 #endif
 440 }
 441
 442 void WidgetsFrame::InitBook()
 443 {
 444 #if USE_ICONS_IN_BOOK
 445     wxImageList *imageList = new wxImageList(32, 32);
 446
 447     imageList->Add(wxBitmap(sample_xpm));
 448 #else
 449     wxImageList *imageList = NULL;
 450 #endif
 451
 452 #if !USE_TREEBOOK
 453     WidgetsBookCtrl *books[MAX_PAGES];
 454 #endif
 455
 456     ArrayWidgetsPage pages[MAX_PAGES];
 457     wxArrayString labels[MAX_PAGES];
 458
 459     wxMenu *menuPages = new wxMenu;
 460     unsigned int nPage = 0, nFKey = 0;
 461     int cat, imageId = 1;
 462
 463     // we need to first create all pages and only then add them to the book
 464     // as we need the image list first
 465     //
 466     // we also construct the pages menu during this first iteration
 467     for ( cat = 0; cat < MAX_PAGES; cat++ )
 468     {
 469 #if USE_TREEBOOK
 470         nPage++; // increase for parent page
 471 #else
 472         books[cat] = new WidgetsBookCtrl(m_book,
 473                                          wxID_ANY,
 474                                          wxDefaultPosition,
 475                                          wxDefaultSize,
 476                                          wxBK_DEFAULT);
 477 #endif
 478
 479         for ( WidgetsPageInfo *info = WidgetsPage::ms_widgetPages;
 480               info;
 481               info = info->GetNext() )
 482         {
 483             if( (info->GetCategories() & ( 1 << cat )) == 0)
 484                 continue;
 485
 486             WidgetsPage *page = (*info->GetCtor())(
 487 #if USE_TREEBOOK
 488                                  m_book
 489 #else
 490                                  books[cat]
 491 #endif
 492                                  , imageList);
 493             pages[cat].Add(page);
 494
 495             labels[cat].Add(info->GetLabel());
 496             if ( cat == ALL_PAGE )
 497             {
 498                 wxString radioLabel(info->GetLabel());
 499                 nFKey++;
 500                 if ( nFKey <= 12 )
 501                 {
 502                     radioLabel << wxT("\tF" ) << nFKey;
 503                 }
 504
 505                 menuPages->AppendRadioItem(
 506                             Widgets_GoToPage + nPage,
 507                             radioLabel
 508                            );
 509 #if !USE_TREEBOOK
 510                 // consider only for book in book architecture
 511                 nPage++;
 512 #endif
 513             }
 514
 515 #if USE_TREEBOOK
 516             // consider only for treebook architecture (with subpages)
 517             nPage++;
 518 #endif
 519         }
 520     }
 521
 522     GetMenuBar()->Append(menuPages, _T("&Page"));
 523
 524 #if USE_ICONS_IN_BOOK
 525     m_book->AssignImageList(imageList);
 526 #endif
 527
 528     for ( cat = 0; cat < MAX_PAGES; cat++ )
 529     {
 530 #if USE_TREEBOOK
 531         m_book->AddPage(NULL,WidgetsCategories[cat],false,0);
 532 #else
 533         m_book->AddPage(books[cat],WidgetsCategories[cat],false,0);
 534 #if USE_ICONS_IN_BOOK
 535         books[cat]->SetImageList(imageList);
 536 #endif
 537 #endif
 538
 539         // now do add them
 540         size_t count = pages[cat].GetCount();
 541         for ( size_t n = 0; n < count; n++ )
 542         {
 543 #if USE_TREEBOOK
 544             m_book->AddSubPage(
 545 #else
 546             books[cat]->AddPage(
 547 #endif
 548                             pages[cat][n],
 549                             labels[cat][n],
 550                             false, // don't select
 551                             imageId++
 552                            );
 553         }
 554     }
 555
 556 #if USE_TREEBOOK
 557     // for treebook page #0 is empty parent page only
 558     m_book->SetSelection(1);
 559     m_book->SetSelection(0);
 560 #endif
 561 }
 562
 563 WidgetsPage *WidgetsFrame::CurrentPage()
 564 {
 565     wxWindow *page = m_book->GetCurrentPage();
 566     if(!page) return NULL;
 567
 568 #if USE_TREEBOOK
 569     return wxStaticCast(page, WidgetsPage);
 570 #else
 571     WidgetsBookCtrl *subBook = wxStaticCast(page, WidgetsBookCtrl);
 572     if (!subBook) return NULL;
 573     page = subBook->GetCurrentPage();
 574     if(!page) return NULL;
 575     return wxStaticCast(page, WidgetsPage);
 576 #endif
 577 }
 578
 579 WidgetsFrame::~WidgetsFrame()
 580 {
 581 #if USE_LOG
 582     delete m_logTarget;
 583 #endif // USE_LOG
 584 }
 585
 586 // ----------------------------------------------------------------------------
 587 // WidgetsFrame event handlers
 588 // ----------------------------------------------------------------------------
 589
 590 void WidgetsFrame::OnExit(wxCommandEvent& WXUNUSED(event))
 591 {
 592     Close();
 593 }
 594
 595 #if USE_LOG
 596 void WidgetsFrame::OnButtonClearLog(wxCommandEvent& WXUNUSED(event))
 597 {
 598     m_lboxLog->Clear();
 599 }
 600 #endif // USE_LOG
 601
 602 #if wxUSE_MENUS
 603
 604 void WidgetsFrame::OnPageChanged(WidgetsBookCtrlEvent& event)
 605 {
 606     // adjust "Page" menu selection
 607     wxMenuItem *item = GetMenuBar()->FindItem(Widgets_GoToPage + event.GetSelection());
 608     if (item) item->Check();
 609
 610     // lazy creation of the pages
 611     WidgetsPage* page = CurrentPage();
 612     if (page && (page->GetChildren().GetCount()==0))
 613     {
 614         wxWindowUpdateLocker noUpdates(page);
 615         page->CreateContent();
 616         WidgetsBookCtrl *book = wxStaticCast(page->GetParent(), WidgetsBookCtrl);
 617         wxSize size;
 618         for ( size_t i = 0; i < book->GetPageCount(); ++i )
 619         {
 620             wxWindow *page = book->GetPage(i);
 621             if (page)
 622             {
 623                 size.IncTo(page->GetSize());
 624             }
 625         }
 626         page->SetSize(size);
 627     }
 628
 629     event.Skip();
 630 }
 631
 632 void WidgetsFrame::OnGoToPage(wxCommandEvent& event)
 633 {
 634 #if USE_TREEBOOK
 635     m_book->SetSelection(event.GetId() - Widgets_GoToPage);
 636 #else
 637     m_book->SetSelection(m_book->GetPageCount()-1);
 638     WidgetsBookCtrl *book = wxStaticCast(m_book->GetCurrentPage(), WidgetsBookCtrl);
 639     book->SetSelection(event.GetId() - Widgets_GoToPage);
 640 #endif
 641 }
 642
 643 #if wxUSE_TOOLTIPS
 644
 645 void WidgetsFrame::OnSetTooltip(wxCommandEvent& WXUNUSED(event))
 646 {
 647     WidgetsPage *page = CurrentPage();
 648
 649     if(!page)
 650     {
 651         wxLogMessage(_T("Page not selected."));
 652         return;
 653     }
 654
 655     static wxString s_tip = _T("This is a tooltip");
 656
 657     wxTextEntryDialog dialog
 658                       (
 659                         this,
 660                         _T("Tooltip text (may use \\n, leave empty to remove): "),
 661                         _T("Widgets sample"),
 662                         s_tip
 663                       );
 664
 665     if ( dialog.ShowModal() != wxID_OK )
 666         return;
 667
 668     s_tip = dialog.GetValue();
 669     s_tip.Replace(_T("\\n"), _T("\n"));
 670
 671     page->GetWidget()->SetToolTip(s_tip);
 672
 673     wxControl *ctrl2 = page->GetWidget2();
 674     if ( ctrl2 )
 675         ctrl2->SetToolTip(s_tip);
 676 }
 677
 678 #endif // wxUSE_TOOLTIPS
 679
 680 void WidgetsFrame::OnSetFgCol(wxCommandEvent& WXUNUSED(event))
 681 {
 682 #if wxUSE_COLOURDLG
 683     // allow for debugging the default colour the first time this is called
 684     WidgetsPage *page = CurrentPage();
 685     if(!page)
 686     {
 687         wxLogMessage(_T("Page not selected."));
 688         return;
 689     }
 690
 691     if (!m_colFg.Ok())
 692         m_colFg = page->GetForegroundColour();
 693
 694     wxColour col = wxGetColourFromUser(this, m_colFg);
 695     if ( !col.Ok() )
 696         return;
 697
 698     m_colFg = col;
 699
 700     page->GetWidget()->SetForegroundColour(m_colFg);
 701     page->GetWidget()->Refresh();
 702
 703     wxControl *ctrl2 = page->GetWidget2();
 704     if ( ctrl2 )
 705     {
 706         ctrl2->SetForegroundColour(m_colFg);
 707         ctrl2->Refresh();
 708     }
 709 #else
 710     wxLogMessage(_T("Colour selection dialog not available in current build."));
 711 #endif
 712 }
 713
 714 void WidgetsFrame::OnSetBgCol(wxCommandEvent& WXUNUSED(event))
 715 {
 716 #if wxUSE_COLOURDLG
 717     WidgetsPage *page = CurrentPage();
 718     if(!page)
 719     {
 720         wxLogMessage(_T("Page not selected."));
 721         return;
 722     }
 723
 724     if ( !m_colBg.Ok() )
 725         m_colBg = page->GetBackgroundColour();
 726
 727     wxColour col = wxGetColourFromUser(this, m_colBg);
 728     if ( !col.Ok() )
 729         return;
 730
 731     m_colBg = col;
 732
 733     page->GetWidget()->SetBackgroundColour(m_colBg);
 734     page->GetWidget()->Refresh();
 735
 736     wxControl *ctrl2 = page->GetWidget2();
 737     if ( ctrl2 )
 738     {
 739         ctrl2->SetBackgroundColour(m_colFg);
 740         ctrl2->Refresh();
 741     }
 742 #else
 743     wxLogMessage(_T("Colour selection dialog not available in current build."));
 744 #endif
 745 }
 746
 747 void WidgetsFrame::OnSetFont(wxCommandEvent& WXUNUSED(event))
 748 {
 749 #if wxUSE_FONTDLG
 750     WidgetsPage *page = CurrentPage();
 751     if(!page)
 752     {
 753         wxLogMessage(_T("Page not selected."));
 754         return;
 755     }
 756
 757     if (!m_font.Ok())
 758         m_font = page->GetFont();
 759
 760     wxFont font = wxGetFontFromUser(this, m_font);
 761     if ( !font.Ok() )
 762         return;
 763
 764     m_font = font;
 765
 766     page->GetWidget()->SetFont(m_font);
 767     page->GetWidget()->Refresh();
 768
 769     wxControl *ctrl2 = page->GetWidget2();
 770     if ( ctrl2 )
 771     {
 772         ctrl2->SetFont(m_font);
 773         ctrl2->Refresh();
 774     }
 775 #else
 776     wxLogMessage(_T("Font selection dialog not available in current build."));
 777 #endif
 778 }
 779
 780 void WidgetsFrame::OnEnable(wxCommandEvent& event)
 781 {
 782     WidgetsPage *page = CurrentPage();
 783     if(!page)
 784     {
 785         wxLogMessage(_T("Page not selected."));
 786         return;
 787     }
 788
 789     page->GetWidget()->Enable(event.IsChecked());
 790 }
 791
 792 void WidgetsFrame::OnSetBorder(wxCommandEvent& event)
 793 {
 794     int border;
 795     switch ( event.GetId() )
 796     {
 797         case Widgets_BorderNone:   border = wxBORDER_NONE;   break;
 798         case Widgets_BorderStatic: border = wxBORDER_STATIC; break;
 799         case Widgets_BorderSimple: border = wxBORDER_SIMPLE; break;
 800         case Widgets_BorderRaised: border = wxBORDER_RAISED; break;
 801         case Widgets_BorderSunken: border = wxBORDER_SUNKEN; break;
 802         case Widgets_BorderDouble: border = wxBORDER_DOUBLE; break;
 803
 804         default:
 805             wxFAIL_MSG( _T("unknown border style") );
 806             // fall through
 807
 808         case Widgets_BorderDefault: border = wxBORDER_DEFAULT; break;
 809     }
 810
 811     WidgetsPage::ms_defaultFlags &= ~wxBORDER_MASK;
 812     WidgetsPage::ms_defaultFlags |= border;
 813
 814     WidgetsPage *page = CurrentPage();
 815
 816     if(!page)
 817     {
 818         wxLogMessage(_T("Page not selected."));
 819         return;
 820     }
 821
 822     page->RecreateWidget();
 823 }
 824
 825 #endif // wxUSE_MENUS
 826
 827 // ----------------------------------------------------------------------------
 828 // WidgetsPageInfo
 829 // ----------------------------------------------------------------------------
 830
 831 WidgetsPageInfo::WidgetsPageInfo(Constructor ctor, const wxChar *label, int categories)
 832                : m_label(label)
 833                , m_categories(categories)
 834 {
 835     m_ctor = ctor;
 836
 837     m_next = NULL;
 838
 839     // dummy sorting: add and immediately sort in the list according to label
 840     if ( WidgetsPage::ms_widgetPages )
 841     {
 842         WidgetsPageInfo *node_prev = WidgetsPage::ms_widgetPages;
 843         if ( wxStrcmp(label, node_prev->GetLabel().c_str()) < 0 )
 844         {
 845             // add as first
 846             m_next = node_prev;
 847             WidgetsPage::ms_widgetPages = this;
 848         }
 849         else
 850         {
 851             WidgetsPageInfo *node_next;
 852             do
 853             {
 854                 node_next = node_prev->GetNext();
 855                 if ( node_next )
 856                 {
 857                     // add if between two
 858                     if ( wxStrcmp(label, node_next->GetLabel().c_str()) < 0 )
 859                     {
 860                         node_prev->SetNext(this);
 861                         m_next = node_next;
 862                         // force to break loop
 863                         node_next = NULL;
 864                     }
 865                 }
 866                 else
 867                 {
 868                     // add as last
 869                     node_prev->SetNext(this);
 870                     m_next = node_next;
 871                 }
 872                 node_prev = node_next;
 873             }
 874             while ( node_next );
 875         }
 876     }
 877     else
 878     {
 879         // add when first
 880         WidgetsPage::ms_widgetPages = this;
 881     }
 882 }
 883
 884 // ----------------------------------------------------------------------------
 885 // WidgetsPage
 886 // ----------------------------------------------------------------------------
 887
 888 int WidgetsPage::ms_defaultFlags = wxBORDER_DEFAULT;
 889 WidgetsPageInfo *WidgetsPage::ms_widgetPages = NULL;
 890
 891 WidgetsPage::WidgetsPage(WidgetsBookCtrl *book,
 892                          wxImageList *imaglist,
 893                          char* icon[])
 894            : wxPanel(book, wxID_ANY,
 895                      wxDefaultPosition, wxDefaultSize,
 896                      wxNO_FULL_REPAINT_ON_RESIZE |
 897                      wxCLIP_CHILDREN |
 898                      wxTAB_TRAVERSAL)
 899 {
 900 #if USE_ICONS_IN_BOOK
 901     imaglist->Add(wxBitmap(icon));
 902 #else
 903     wxUnusedVar(imaglist);
 904     wxUnusedVar(icon);
 905 #endif
 906 }
 907
 908 wxSizer *WidgetsPage::CreateSizerWithText(wxControl *control,
 909                                           wxWindowID id,
 910                                           wxTextCtrl **ppText)
 911 {
 912     wxSizer *sizerRow = new wxBoxSizer(wxHORIZONTAL);
 913     wxTextCtrl *text = new wxTextCtrl(this, id, wxEmptyString,
 914         wxDefaultPosition, wxDefaultSize, wxTE_PROCESS_ENTER);
 915
 916     sizerRow->Add(control, 0, wxRIGHT | wxALIGN_CENTRE_VERTICAL, 5);
 917     sizerRow->Add(text, 1, wxLEFT | wxALIGN_CENTRE_VERTICAL, 5);
 918
 919     if ( ppText )
 920         *ppText = text;
 921
 922     return sizerRow;
 923 }
 924
 925 // create a sizer containing a label and a text ctrl
 926 wxSizer *WidgetsPage::CreateSizerWithTextAndLabel(const wxString& label,
 927                                                   wxWindowID id,
 928                                                   wxTextCtrl **ppText)
 929 {
 930     return CreateSizerWithText(new wxStaticText(this, wxID_ANY, label),
 931         id, ppText);
 932 }
 933
 934 // create a sizer containing a button and a text ctrl
 935 wxSizer *WidgetsPage::CreateSizerWithTextAndButton(wxWindowID idBtn,
 936                                                    const wxString& label,
 937                                                    wxWindowID id,
 938                                                    wxTextCtrl **ppText)
 939 {
 940     return CreateSizerWithText(new wxButton(this, idBtn, label), id, ppText);
 941 }
 942
 943 wxCheckBox *WidgetsPage::CreateCheckBoxAndAddToSizer(wxSizer *sizer,
 944                                                      const wxString& label,
 945                                                      wxWindowID id)
 946 {
 947     wxCheckBox *checkbox = new wxCheckBox(this, id, label);
 948     sizer->Add(checkbox, 0, wxLEFT | wxRIGHT, 5);
 949     sizer->Add(0, 2, 0, wxGROW); // spacer
 950
 951     return checkbox;
 952 }