/////////////////////////////////////////////////////////////////////////////
// Name:        choice.cpp
// Purpose:
// Author:      Robert Roebling
// Id:          $Id$
// Copyright:   (c) 1998 Robert Roebling
// Licence:   	wxWindows licence
/////////////////////////////////////////////////////////////////////////////


#ifdef __GNUG__
#pragma implementation "choice.h"
#endif

#include "wx/choice.h"

//-----------------------------------------------------------------------------
// data
//-----------------------------------------------------------------------------

extern bool   g_blockEventsOnDrag;

//-----------------------------------------------------------------------------
// "activate"
//-----------------------------------------------------------------------------

static void gtk_choice_clicked_callback( GtkWidget *WXUNUSED(widget), wxChoice *choice )
{
  if (!choice->HasVMT()) return;
  if (g_blockEventsOnDrag) return;
  
  wxCommandEvent event(wxEVT_COMMAND_CHOICE_SELECTED, choice->GetId() );
  event.SetInt( choice->GetSelection() );
  wxString tmp( choice->GetStringSelection() );
  event.SetString( WXSTRINGCAST(tmp) );
  event.SetEventObject(choice);
  choice->GetEventHandler()->ProcessEvent(event);
}

//-----------------------------------------------------------------------------
// wxChoice
//-----------------------------------------------------------------------------

IMPLEMENT_DYNAMIC_CLASS(wxChoice,wxControl)

wxChoice::wxChoice(void)
{
}

bool wxChoice::Create( wxWindow *parent, wxWindowID id,
      const wxPoint &pos, const wxSize &size,
      int n, const wxString choices[],
      long style, const wxValidator& validator, const wxString &name )
{
  m_needParent = TRUE;
  
  PreCreation( parent, id, pos, size, style, name );
  
  SetValidator( validator );

  m_widget = gtk_option_menu_new();
  
  wxSize newSize = size;
  if (newSize.x == -1) newSize.x = 80;
  if (newSize.y == -1) newSize.y = 26;
  SetSize( newSize.x, newSize.y );
  
  GtkWidget *menu = gtk_menu_new();
  
  for (int i = 0; i < n; i++)
  {
    GtkWidget *item = gtk_menu_item_new_with_label( choices[i] );
    gtk_signal_connect( GTK_OBJECT( item ), "activate", 
      GTK_SIGNAL_FUNC(gtk_choice_clicked_callback), (gpointer*)this );
    
    gtk_menu_append( GTK_MENU(menu), item );
    
    gtk_widget_show( item );
    gtk_widget_realize( item );
    gtk_widget_realize( GTK_BIN(item)->child );
  }
  gtk_option_menu_set_menu( GTK_OPTION_MENU(m_widget), menu );
  
  PostCreation();
  
  SetBackgroundColour( parent->GetBackgroundColour() );

  Show( TRUE );
    
  return TRUE;
}
      
void wxChoice::Append( const wxString &item )
{
  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  GtkWidget *menu = gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) );
  GtkWidget *menu_item = gtk_menu_item_new_with_label( item );
  
  gtk_menu_append( GTK_MENU(menu), menu_item );
  
  gtk_widget_realize( menu_item );
  gtk_widget_realize( GTK_BIN(menu_item)->child );
  
  if (m_hasOwnStyle)
  {
  
    GtkBin *bin = GTK_BIN( menu_item );
    
    gtk_widget_set_style( bin->child, 
      gtk_style_ref(
        gtk_widget_get_style( m_widget ) ) ); 
	
    gtk_widget_set_style( GTK_WIDGET( bin ), 
      gtk_style_ref(
        gtk_widget_get_style( m_widget ) ) ); 
  }
  
  gtk_signal_connect( GTK_OBJECT( menu_item ), "activate", 
    GTK_SIGNAL_FUNC(gtk_choice_clicked_callback), (gpointer*)this );
    
  gtk_widget_show( menu_item );
}
 
void wxChoice::Clear(void)
{
  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  gtk_option_menu_remove_menu( GTK_OPTION_MENU(m_widget) );
  GtkWidget *menu = gtk_menu_new();
  gtk_option_menu_set_menu( GTK_OPTION_MENU(m_widget), menu );
}

void wxChoice::Delete( int WXUNUSED(n) )
{
  wxFAIL_MSG( "wxChoice:Delete not implemented" );
}

int wxChoice::FindString( const wxString &string ) const
{
  wxCHECK_MSG( m_widget != NULL, -1, "invalid choice" );

  // If you read this code once and you think you understand
  // it, then you are very wrong. Robert Roebling.
  
  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  int count = 0;
  GList *child = menu_shell->children;
  while (child)
  {
    GtkBin *bin = GTK_BIN( child->data );
    GtkLabel *label = (GtkLabel *) NULL;
    if (bin->child) label = GTK_LABEL(bin->child);
    if (!label) label = GTK_LABEL( GTK_BUTTON(m_widget)->child );
    
    wxASSERT_MSG( label != NULL , "wxChoice: invalid label" );
    
    if (string == label->label) return count;
    child = child->next;
    count++;
  }
  
  wxFAIL_MSG( "wxChoice: string not found" );
  
  return -1;
}

int wxChoice::GetColumns(void) const
{
  return 1;
}

int wxChoice::GetSelection(void)
{
  wxCHECK_MSG( m_widget != NULL, -1, "invalid choice" );

  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  int count = 0;
  GList *child = menu_shell->children;
  while (child)
  {
    GtkBin *bin = GTK_BIN( child->data );
    if (!bin->child) return count;
    child = child->next;
    count++;
  }
  
  wxFAIL_MSG( "wxChoice: no selection" );
  
  return -1;
}

wxString wxChoice::GetString( int n ) const
{
  wxCHECK_MSG( m_widget != NULL, "", "invalid choice" );

  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  int count = 0;
  GList *child = menu_shell->children;
  while (child)
  {
    GtkBin *bin = GTK_BIN( child->data );
    if (count == n)
    {
      GtkLabel *label = (GtkLabel *) NULL;
      if (bin->child) label = GTK_LABEL(bin->child);
      if (!label) label = GTK_LABEL( GTK_BUTTON(m_widget)->child );
      
      wxASSERT_MSG( label != NULL , "wxChoice: invalid label" );
      
      return label->label;
    }
    child = child->next;
    count++;
  }
  
  wxFAIL_MSG( "wxChoice: string not found" );
  
  return "";
}

wxString wxChoice::GetStringSelection(void) const
{
  wxCHECK_MSG( m_widget != NULL, "", "invalid choice" );

  GtkLabel *label = GTK_LABEL( GTK_BUTTON(m_widget)->child );
  
  wxASSERT_MSG( label != NULL , "wxChoice: invalid label" );
  
  return label->label;
}

int wxChoice::Number(void) const
{
  wxCHECK_MSG( m_widget != NULL, 0, "invalid choice" );

  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  int count = 0;
  GList *child = menu_shell->children;
  while (child)
  {
    count++;
    child = child->next;
  }
  return count;
}

void wxChoice::SetColumns( int WXUNUSED(n) )
{
}

void wxChoice::SetSelection( int n )
{
  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  int tmp = n;
  gtk_option_menu_set_history( GTK_OPTION_MENU(m_widget), (gint)tmp );
  
  gtk_choice_clicked_callback( (GtkWidget *) NULL, this );
}

void wxChoice::SetStringSelection( const wxString &string )
{
  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  int n = FindString( string );
  if (n != -1) SetSelection( n );
}

void wxChoice::SetFont( const wxFont &font )
{
  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  wxControl::SetFont( font );
   
  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  GList *child = menu_shell->children;
  while (child)
  {
    GtkBin *bin = GTK_BIN( child->data );
    GtkWidget *label = (GtkWidget *) NULL;
    if (bin->child) label = bin->child;
    if (!label) label = GTK_BUTTON(m_widget)->child;
    
    gtk_widget_set_style( label,
      gtk_style_ref(
        gtk_widget_get_style( m_widget ) ) ); 
	
    child = child->next;
  }
}

void wxChoice::SetBackgroundColour( const wxColour &colour )
{
  return;

  wxCHECK_RET( m_widget != NULL, "invalid choice" );

  wxControl::SetBackgroundColour( colour );
  
  if (!m_backgroundColour.Ok()) return;
  
  GtkStyle *style = gtk_widget_get_style( m_widget );

  GtkMenuShell *menu_shell = GTK_MENU_SHELL( gtk_option_menu_get_menu( GTK_OPTION_MENU(m_widget) ) );
  
  gtk_widget_set_style( GTK_WIDGET( menu_shell ), gtk_style_ref( style ) );
  
  GList *child = menu_shell->children;
  while (child)
  {
    gtk_widget_set_style( GTK_WIDGET( child->data ), gtk_style_ref( style ) );
    child = child->next;
  }
}