src/gtk1/dialog.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dialog.cpp
   3 // Purpose:
   4 // Author:      Robert Roebling
   5 // Id:          $Id$
   6 // Copyright:   (c) 1998 Robert Roebling
   7 // Licence:     wxWindows licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 #ifdef __GNUG__
  11 #pragma implementation "dialog.h"
  12 #endif
  13
  14 #include "wx/dialog.h"
  15 #include "wx/frame.h"
  16 #include "wx/app.h"
  17 #include "wx/cursor.h"
  18
  19 #include <gdk/gdk.h>
  20 #include <gtk/gtk.h>
  21 #include <gdk/gdkkeysyms.h>
  22
  23 #include "wx/gtk/win_gtk.h"
  24
  25 //-----------------------------------------------------------------------------
  26 // idle system
  27 //-----------------------------------------------------------------------------
  28
  29 extern void wxapp_install_idle_handler();
  30 extern bool g_isIdle;
  31 extern int g_openDialogs;
  32
  33 //-----------------------------------------------------------------------------
  34 // data
  35 //-----------------------------------------------------------------------------
  36
  37 extern wxList wxPendingDelete;
  38
  39 //-----------------------------------------------------------------------------
  40 // "focus" from m_window
  41 //-----------------------------------------------------------------------------
  42
  43 static gint gtk_dialog_focus_callback( GtkWidget *widget, GtkDirectionType WXUNUSED(d), wxWindow *WXUNUSED(win) )
  44 {
  45     if (g_isIdle)
  46         wxapp_install_idle_handler();
  47
  48     // This disables GTK's tab traversal
  49     gtk_signal_emit_stop_by_name( GTK_OBJECT(widget), "focus" );
  50     return TRUE;
  51 }
  52
  53 //-----------------------------------------------------------------------------
  54 // "delete_event"
  55 //-----------------------------------------------------------------------------
  56
  57 bool gtk_dialog_delete_callback( GtkWidget *WXUNUSED(widget), GdkEvent *WXUNUSED(event), wxDialog *win )
  58 {
  59     if (g_isIdle)
  60         wxapp_install_idle_handler();
  61
  62     win->Close();
  63
  64     return TRUE;
  65 }
  66
  67 //-----------------------------------------------------------------------------
  68 // "size_allocate"
  69 //-----------------------------------------------------------------------------
  70
  71 static void gtk_dialog_size_callback( GtkWidget *WXUNUSED(widget), GtkAllocation* alloc, wxDialog *win )
  72 {
  73     if (g_isIdle)
  74         wxapp_install_idle_handler();
  75
  76     if (!win->m_hasVMT) return;
  77
  78     if ((win->m_width != alloc->width) || (win->m_height != alloc->height))
  79     {
  80         win->m_width = alloc->width;
  81         win->m_height = alloc->height;
  82         win->GtkUpdateSize();
  83     }
  84 }
  85
  86 //-----------------------------------------------------------------------------
  87 // "configure_event"
  88 //-----------------------------------------------------------------------------
  89
  90 static gint
  91 #if (GTK_MINOR_VERSION > 0)
  92 gtk_dialog_configure_callback( GtkWidget *WXUNUSED(widget), GdkEventConfigure *WXUNUSED(event), wxDialog *win )
  93 #else
  94 gtk_dialog_configure_callback( GtkWidget *WXUNUSED(widget), GdkEventConfigure *event, wxDialog *win )
  95 #endif
  96 {
  97     if (g_isIdle)
  98         wxapp_install_idle_handler();
  99
 100     if (!win->m_hasVMT) return FALSE;
 101
 102 #if (GTK_MINOR_VERSION > 0)
 103     int x = 0;
 104     int y = 0;
 105     gdk_window_get_root_origin( win->m_widget->window, &x, &y );
 106     win->m_x = x;
 107     win->m_y = y;
 108 #else
 109     win->m_x = event->x;
 110     win->m_y = event->y;
 111 #endif
 112
 113     wxMoveEvent mevent( wxPoint(win->m_x,win->m_y), win->GetId() );
 114     mevent.SetEventObject( win );
 115     win->GetEventHandler()->ProcessEvent( mevent );
 116
 117     return FALSE;
 118 }
 119
 120 //-----------------------------------------------------------------------------
 121 // "realize" from m_widget
 122 //-----------------------------------------------------------------------------
 123
 124 /* we cannot MWM hints and icons before the widget has been realized,
 125    so we do this directly after realization */
 126
 127 static gint
 128 gtk_dialog_realized_callback( GtkWidget *widget, wxDialog *win )
 129 {
 130     if (g_isIdle)
 131         wxapp_install_idle_handler();
 132
 133     /* I haven't been able to set the position of
 134        the dialog before it is shown, so I set the
 135        position in "realize" */
 136     gtk_widget_set_uposition( widget, win->m_x, win->m_y );
 137
 138     /* all this is for Motif Window Manager "hints" and is supposed to be
 139        recognized by other WM as well. not tested. */
 140     long decor = (long) GDK_DECOR_BORDER;
 141     long func = (long) GDK_FUNC_MOVE ;
 142
 143     /* Some WM don't display any border around the frame contents if
 144        used with these hints, so we add a resize border around it,
 145        without automatically allowinng it to be resized though.
 146
 147        This avoids the problem, but looks odd. What shall we do?
 148     */
 149     decor |= GDK_DECOR_RESIZEH;
 150
 151     if ((win->GetWindowStyle() & wxCAPTION) != 0)
 152         decor |= GDK_DECOR_TITLE;
 153     if ((win->GetWindowStyle() & wxSYSTEM_MENU) != 0)
 154     {
 155        decor |= GDK_DECOR_MENU;
 156        func |= GDK_FUNC_CLOSE;
 157     }
 158     if ((win->GetWindowStyle() & wxMINIMIZE_BOX) != 0)
 159     {
 160         func |= GDK_FUNC_MINIMIZE;
 161         decor |= GDK_DECOR_MINIMIZE;
 162     }
 163     if ((win->GetWindowStyle() & wxMAXIMIZE_BOX) != 0)
 164     {
 165         decor |= GDK_DECOR_MAXIMIZE;
 166         func |= GDK_FUNC_MAXIMIZE;
 167     }
 168     if ((win->GetWindowStyle() & wxRESIZE_BORDER) != 0)
 169     {
 170        func |= GDK_FUNC_RESIZE;
 171        decor |= GDK_DECOR_RESIZEH;
 172     }
 173     gdk_window_set_decorations( win->m_widget->window, (GdkWMDecoration)decor);
 174     gdk_window_set_functions( win->m_widget->window, (GdkWMFunction)func);
 175
 176     /* GTK's shrinking/growing policy */
 177     if ((win->GetWindowStyle() & wxRESIZE_BORDER) == 0)
 178         gtk_window_set_policy(GTK_WINDOW(win->m_widget), 0, 0, 1);
 179     else
 180         gtk_window_set_policy(GTK_WINDOW(win->m_widget), 1, 1, 1);
 181
 182     /* set size hints */
 183     gint flag = 0; // GDK_HINT_POS;
 184     if ((win->GetMinWidth() != -1) || (win->GetMinHeight() != -1)) flag |= GDK_HINT_MIN_SIZE;
 185     if ((win->GetMaxWidth() != -1) || (win->GetMaxHeight() != -1)) flag |= GDK_HINT_MAX_SIZE;
 186     if (flag)
 187     {
 188         gdk_window_set_hints( win->m_widget->window,
 189                               win->m_x, win->m_y,
 190                               win->GetMinWidth(), win->GetMinHeight(),
 191                               win->GetMaxWidth(), win->GetMaxHeight(),
 192                               flag );
 193     }
 194
 195     /* reset the icon */
 196     if (win->m_icon != wxNullIcon)
 197     {
 198         wxIcon icon( win->m_icon );
 199         win->m_icon = wxNullIcon;
 200         win->SetIcon( icon );
 201     }
 202
 203     return FALSE;
 204 }
 205
 206 //-----------------------------------------------------------------------------
 207 // InsertChild for wxDialog
 208 //-----------------------------------------------------------------------------
 209
 210 /* Callback for wxFrame. This very strange beast has to be used because
 211  * C++ has no virtual methods in a constructor. We have to emulate a
 212  * virtual function here as wxWindows requires different ways to insert
 213  * a child in container classes. */
 214
 215 static void wxInsertChildInDialog( wxDialog* parent, wxWindow* child )
 216 {
 217     gtk_pizza_put( GTK_PIZZA(parent->m_wxwindow),
 218                      GTK_WIDGET(child->m_widget),
 219                      child->m_x,
 220                      child->m_y,
 221                      child->m_width,
 222                      child->m_height );
 223
 224     if (parent->HasFlag(wxTAB_TRAVERSAL))
 225     {
 226         /* we now allow a window to get the focus as long as it
 227            doesn't have any children. */
 228         GTK_WIDGET_UNSET_FLAGS( parent->m_wxwindow, GTK_CAN_FOCUS );
 229     }
 230 }
 231
 232 //-----------------------------------------------------------------------------
 233 // wxDialog
 234 //-----------------------------------------------------------------------------
 235
 236 BEGIN_EVENT_TABLE(wxDialog,wxPanel)
 237     EVT_BUTTON  (wxID_OK,       wxDialog::OnOK)
 238     EVT_BUTTON  (wxID_CANCEL,   wxDialog::OnCancel)
 239     EVT_BUTTON  (wxID_APPLY,    wxDialog::OnApply)
 240     EVT_SIZE    (wxDialog::OnSize)
 241     EVT_CLOSE   (wxDialog::OnCloseWindow)
 242 END_EVENT_TABLE()
 243
 244 IMPLEMENT_DYNAMIC_CLASS(wxDialog,wxPanel)
 245
 246 void wxDialog::Init()
 247 {
 248     m_returnCode = 0;
 249     m_sizeSet = FALSE;
 250     m_modalShowing = FALSE;
 251     m_isFrame = TRUE;
 252 }
 253
 254 wxDialog::wxDialog( wxWindow *parent,
 255                     wxWindowID id, const wxString &title,
 256                     const wxPoint &pos, const wxSize &size,
 257                     long style, const wxString &name )
 258 {
 259     Init();
 260
 261     Create( parent, id, title, pos, size, style, name );
 262 }
 263
 264 bool wxDialog::Create( wxWindow *parent,
 265                        wxWindowID id, const wxString &title,
 266                        const wxPoint &pos, const wxSize &size,
 267                        long style, const wxString &name )
 268 {
 269     g_openDialogs++;
 270
 271     wxTopLevelWindows.Append( this );
 272
 273     m_needParent = FALSE;
 274
 275     if (!PreCreation( parent, pos, size ) ||
 276         !CreateBase( parent, id, pos, size, style, wxDefaultValidator, name ))
 277     {
 278         wxFAIL_MSG( wxT("wxDialog creation failed") );
 279         return FALSE;
 280     }
 281
 282     // All dialogs should really have this style
 283     m_windowStyle |= wxTAB_TRAVERSAL;
 284
 285     m_insertCallback = (wxInsertChildFunction) wxInsertChildInDialog;
 286
 287     m_widget = gtk_window_new( GTK_WINDOW_DIALOG );
 288
 289     if ((m_parent) && (GTK_IS_WINDOW(m_parent->m_widget)))
 290         gtk_window_set_transient_for( GTK_WINDOW(m_widget), GTK_WINDOW(m_parent->m_widget) );
 291
 292     if (!name.IsEmpty())
 293         gtk_window_set_wmclass( GTK_WINDOW(m_widget), name.mb_str(), name.mb_str() );
 294
 295     GTK_WIDGET_UNSET_FLAGS( m_widget, GTK_CAN_FOCUS );
 296
 297     gtk_signal_connect( GTK_OBJECT(m_widget), "delete_event",
 298         GTK_SIGNAL_FUNC(gtk_dialog_delete_callback), (gpointer)this );
 299
 300     m_wxwindow = gtk_pizza_new();
 301     gtk_widget_show( m_wxwindow );
 302     GTK_WIDGET_UNSET_FLAGS( m_wxwindow, GTK_CAN_FOCUS );
 303
 304     gtk_container_add( GTK_CONTAINER(m_widget), m_wxwindow );
 305
 306     SetTitle( title );
 307
 308     if (m_parent) m_parent->AddChild( this );
 309
 310     PostCreation();
 311
 312     /*  we cannot set MWM hints  before the widget has
 313         been realized, so we do this directly after realization */
 314     gtk_signal_connect( GTK_OBJECT(m_widget), "realize",
 315                         GTK_SIGNAL_FUNC(gtk_dialog_realized_callback), (gpointer) this );
 316
 317     /* the user resized the frame by dragging etc. */
 318     gtk_signal_connect( GTK_OBJECT(m_widget), "size_allocate",
 319         GTK_SIGNAL_FUNC(gtk_dialog_size_callback), (gpointer)this );
 320
 321     gtk_signal_connect( GTK_OBJECT(m_widget), "configure_event",
 322         GTK_SIGNAL_FUNC(gtk_dialog_configure_callback), (gpointer)this );
 323
 324     /* disable native tab traversal */
 325     gtk_signal_connect( GTK_OBJECT(m_widget), "focus",
 326         GTK_SIGNAL_FUNC(gtk_dialog_focus_callback), (gpointer)this );
 327
 328     return TRUE;
 329 }
 330
 331 wxDialog::~wxDialog()
 332 {
 333     m_isBeingDeleted = TRUE;
 334
 335     wxTopLevelWindows.DeleteObject( this );
 336
 337     if (wxTheApp->GetTopWindow() == this)
 338     {
 339         wxTheApp->SetTopWindow( (wxWindow*) NULL );
 340     }
 341
 342     if ((wxTopLevelWindows.Number() == 0) &&
 343         (wxTheApp->GetExitOnFrameDelete()))
 344     {
 345         wxTheApp->ExitMainLoop();
 346     }
 347
 348     g_openDialogs--;
 349 }
 350
 351 void wxDialog::SetTitle( const wxString& title )
 352 {
 353     m_title = title;
 354     if (m_title.IsNull()) m_title = wxT("");
 355     gtk_window_set_title( GTK_WINDOW(m_widget), m_title.mbc_str() );
 356 }
 357
 358 wxString wxDialog::GetTitle() const
 359 {
 360     return (wxString&)m_title;
 361 }
 362
 363 void wxDialog::OnApply( wxCommandEvent &WXUNUSED(event) )
 364 {
 365     if (Validate()) TransferDataFromWindow();
 366 }
 367
 368 void wxDialog::OnCancel( wxCommandEvent &WXUNUSED(event) )
 369 {
 370     if (IsModal())
 371     {
 372         EndModal(wxID_CANCEL);
 373     }
 374     else
 375     {
 376         SetReturnCode(wxID_CANCEL);
 377         Show(FALSE);
 378     }
 379 }
 380
 381 void wxDialog::OnOK( wxCommandEvent &WXUNUSED(event) )
 382 {
 383     if (Validate() && TransferDataFromWindow())
 384     {
 385         if (IsModal())
 386         {
 387             EndModal(wxID_OK);
 388         }
 389         else
 390         {
 391             SetReturnCode(wxID_OK);
 392             this->Show(FALSE);
 393         }
 394     }
 395 }
 396
 397 void wxDialog::OnPaint( wxPaintEvent& WXUNUSED(event) )
 398 {
 399     // yes
 400 }
 401
 402 void wxDialog::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
 403 {
 404     // We'll send a Cancel message by default,
 405     // which may close the dialog.
 406     // Check for looping if the Cancel event handler calls Close().
 407
 408     // Note that if a cancel button and handler aren't present in the dialog,
 409     // nothing will happen when you close the dialog via the window manager, or
 410     // via Close().
 411     // We wouldn't want to destroy the dialog by default, since the dialog may have been
 412     // created on the stack.
 413     // However, this does mean that calling dialog->Close() won't delete the dialog
 414     // unless the handler for wxID_CANCEL does so. So use Destroy() if you want to be
 415     // sure to destroy the dialog.
 416     // The default OnCancel (above) simply ends a modal dialog, and hides a modeless dialog.
 417
 418     static wxList s_closing;
 419
 420     if (s_closing.Member(this))
 421         return;   // no loops
 422
 423     s_closing.Append(this);
 424
 425     wxCommandEvent cancelEvent(wxEVT_COMMAND_BUTTON_CLICKED, wxID_CANCEL);
 426     cancelEvent.SetEventObject( this );
 427     GetEventHandler()->ProcessEvent(cancelEvent);
 428     s_closing.DeleteObject(this);
 429 }
 430
 431 bool wxDialog::Destroy()
 432 {
 433     if (!wxPendingDelete.Member(this)) wxPendingDelete.Append(this);
 434
 435     return TRUE;
 436 }
 437
 438 void wxDialog::OnSize( wxSizeEvent &WXUNUSED(event) )
 439 {
 440     wxASSERT_MSG( (m_widget != NULL), wxT("invalid dialog") );
 441
 442 #if wxUSE_CONSTRAINTS
 443     if (GetAutoLayout())
 444     {
 445         Layout();
 446     }
 447     else
 448 #endif // wxUSE_CONSTRAINTS
 449     {
 450         /* no child: go out ! */
 451         if (!GetChildren().First()) return;
 452
 453         /* do we have exactly one child? */
 454         wxWindow *child = (wxWindow *) NULL;
 455         for(wxNode *node = GetChildren().First(); node; node = node->Next())
 456         {
 457             wxWindow *win = (wxWindow *)node->Data();
 458             if (!wxIS_KIND_OF(win,wxFrame) && !wxIS_KIND_OF(win,wxDialog))
 459             {
 460                 /* it's the second one: do nothing */
 461                 if (child) return;
 462                 child = win;
 463             }
 464         }
 465
 466         /* yes: set it's size to fill all the frame */
 467         int client_x, client_y;
 468         GetClientSize( &client_x, &client_y );
 469         child->SetSize( 1, 1, client_x-2, client_y);
 470     }
 471 }
 472
 473 void wxDialog::DoMoveWindow(int WXUNUSED(x), int WXUNUSED(y), int WXUNUSED(width), int WXUNUSED(height) )
 474 {
 475     wxFAIL_MSG( wxT("DoMoveWindow called for wxDialog") );
 476 }
 477
 478 void wxDialog::DoSetSize( int x, int y, int width, int height, int sizeFlags )
 479 {
 480     wxASSERT_MSG( (m_widget != NULL), wxT("invalid dialog") );
 481     wxASSERT_MSG( (m_wxwindow != NULL), wxT("invalid dialog") );
 482
 483     if (m_resizing) return; /* I don't like recursions */
 484     m_resizing = TRUE;
 485
 486     int old_x = m_x;
 487     int old_y = m_y;
 488
 489     int old_width = m_width;
 490     int old_height = m_height;
 491
 492     if ((sizeFlags & wxSIZE_ALLOW_MINUS_ONE) == 0)
 493     {
 494         if (x != -1) m_x = x;
 495         if (y != -1) m_y = y;
 496         if (width != -1) m_width = width;
 497         if (height != -1) m_height = height;
 498     }
 499     else
 500     {
 501         m_x = x;
 502         m_y = y;
 503         m_width = width;
 504         m_height = height;
 505     }
 506
 507 /*
 508     if ((sizeFlags & wxSIZE_AUTO_WIDTH) == wxSIZE_AUTO_WIDTH)
 509     {
 510         if (width == -1) m_width = 80;
 511     }
 512
 513     if ((sizeFlags & wxSIZE_AUTO_HEIGHT) == wxSIZE_AUTO_HEIGHT)
 514     {
 515        if (height == -1) m_height = 26;
 516     }
 517 */
 518
 519     if ((m_minWidth != -1) && (m_width < m_minWidth)) m_width = m_minWidth;
 520     if ((m_minHeight != -1) && (m_height < m_minHeight)) m_height = m_minHeight;
 521     if ((m_maxWidth != -1) && (m_width > m_maxWidth)) m_width = m_maxWidth;
 522     if ((m_maxHeight != -1) && (m_height > m_maxHeight)) m_height = m_maxHeight;
 523
 524     if ((m_x != -1) || (m_y != -1))
 525     {
 526         if ((m_x != old_x) || (m_y != old_y))
 527         {
 528             /* we set the position here and when showing the dialog
 529                for the first time in idle time */
 530             gtk_widget_set_uposition( m_widget, m_x, m_y );
 531         }
 532     }
 533
 534     if ((m_width != old_width) || (m_height != old_height))
 535     {
 536         /* actual resizing is deferred to GtkOnSize in idle time and
 537            when showing the dialog */
 538         m_sizeSet = FALSE;
 539     }
 540
 541     m_resizing = FALSE;
 542 }
 543
 544 void wxDialog::GtkOnSize( int WXUNUSED(x), int WXUNUSED(y), int width, int height )
 545 {
 546     // due to a bug in gtk, x,y are always 0
 547     // m_x = x;
 548     // m_y = y;
 549
 550     if ((m_height == height) && (m_width == width) && (m_sizeSet)) return;
 551     if (!m_wxwindow) return;
 552
 553     m_width = width;
 554     m_height = height;
 555
 556     if ((m_minWidth != -1) && (m_width < m_minWidth)) m_width = m_minWidth;
 557     if ((m_minHeight != -1) && (m_height < m_minHeight)) m_height = m_minHeight;
 558     if ((m_maxWidth != -1) && (m_width > m_maxWidth)) m_width = m_maxWidth;
 559     if ((m_maxHeight != -1) && (m_height > m_maxHeight)) m_height = m_maxHeight;
 560
 561     /* we actually set the size of a frame here and no-where else */
 562     gtk_widget_set_usize( m_widget, m_width, m_height );
 563
 564     m_sizeSet = TRUE;
 565
 566     wxSizeEvent event( wxSize(m_width,m_height), GetId() );
 567     event.SetEventObject( this );
 568     GetEventHandler()->ProcessEvent( event );
 569 }
 570
 571 void wxDialog::OnInternalIdle()
 572 {
 573     if (!m_sizeSet && GTK_WIDGET_REALIZED(m_wxwindow))
 574         GtkOnSize( m_x, m_y, m_width, m_height );
 575
 576     wxWindow::OnInternalIdle();
 577 }
 578
 579 bool wxDialog::Show( bool show )
 580 {
 581     if (!show && IsModal())
 582     {
 583         EndModal( wxID_CANCEL );
 584     }
 585
 586     if (show && !m_sizeSet)
 587     {
 588         /* by calling GtkOnSize here, we don't have to call
 589            either after showing the frame, which would entail
 590            much ugly flicker nor from within the size_allocate
 591            handler, because GTK 1.1.X forbids that. */
 592
 593         GtkOnSize( m_x, m_y, m_width, m_height );
 594     }
 595
 596     bool ret = wxWindow::Show( show );
 597
 598     if (show) InitDialog();
 599
 600     return ret;
 601 }
 602
 603 bool wxDialog::IsModal() const
 604 {
 605     return m_modalShowing;
 606 }
 607
 608 void wxDialog::SetModal( bool WXUNUSED(flag) )
 609 {
 610 /*
 611   if (flag)
 612     m_windowStyle |= wxDIALOG_MODAL;
 613   else
 614     if (m_windowStyle & wxDIALOG_MODAL) m_windowStyle -= wxDIALOG_MODAL;
 615 */
 616     wxFAIL_MSG( wxT("wxDialog:SetModal obsolete now") );
 617 }
 618
 619 int wxDialog::ShowModal()
 620 {
 621     if (IsModal())
 622     {
 623        wxFAIL_MSG( wxT("wxDialog:ShowModal called twice") );
 624        return GetReturnCode();
 625     }
 626
 627     wxBusyCursorSuspender cs; // temporarily suppress the busy cursor
 628
 629     Show( TRUE );
 630
 631     m_modalShowing = TRUE;
 632
 633     gtk_grab_add( m_widget );
 634     gtk_main();
 635     gtk_grab_remove( m_widget );
 636
 637     return GetReturnCode();
 638 }
 639
 640 void wxDialog::EndModal( int retCode )
 641 {
 642     SetReturnCode( retCode );
 643
 644     if (!IsModal())
 645     {
 646         wxFAIL_MSG( wxT("wxDialog:EndModal called twice") );
 647         return;
 648     }
 649
 650     m_modalShowing = FALSE;
 651
 652     gtk_main_quit();
 653
 654     Show( FALSE );
 655 }
 656
 657 void wxDialog::InitDialog()
 658 {
 659     wxWindow::InitDialog();
 660 }
 661
 662 void wxDialog::SetIcon( const wxIcon &icon )
 663 {
 664     m_icon = icon;
 665     if (!icon.Ok()) return;
 666
 667     if (!m_widget->window) return;
 668
 669     wxMask *mask = icon.GetMask();
 670     GdkBitmap *bm = (GdkBitmap *) NULL;
 671     if (mask) bm = mask->GetBitmap();
 672
 673     gdk_window_set_icon( m_widget->window, (GdkWindow *) NULL, icon.GetPixmap(), bm );
 674 }