+ /* HvdH 28-12-98: now it works, but it's a bit of a kludge */
+
+ wxGtkNotebookPage* nb_page = GetNotebookPage(page);
+
+ if (!nb_page) return FALSE;
+
+ /* Optimization posibility: return immediately if image unchanged.
+ * Not enabled because it may break existing (stupid) code that
+ * manipulates the imagelist to cycle images */
+
+ /* if (image == nb_page->m_image) return TRUE; */
+
+ /* For different cases:
+ 1) no image -> no image
+ 2) image -> no image
+ 3) no image -> image
+ 4) image -> image */
+
+ if (image == -1 && nb_page->m_image == -1)
+ return TRUE; /* Case 1): Nothing to do. */
+
+ GtkWidget *pixmapwid = (GtkWidget*) NULL;
+
+ if (nb_page->m_image != -1)
+ {
+ /* Case 2) or 4). There is already an image in the gtkhbox. Let's find it */
+
+ GList *child = gtk_container_children(GTK_CONTAINER(nb_page->m_box));
+ while (child)
+ {
+ if (GTK_IS_PIXMAP(child->data))
+ {
+ pixmapwid = GTK_WIDGET(child->data);
+ break;
+ }
+ child = child->next;
+ }
+
+ /* We should have the pixmap widget now */
+ wxASSERT(pixmapwid != NULL);
+
+ if (image == -1)
+ {
+ /* If there's no new widget, just remove the old from the box */
+ gtk_container_remove(GTK_CONTAINER(nb_page->m_box), pixmapwid);
+ nb_page->m_image = -1;