/*
   Copyright (C) 1999-2007 id Software, Inc. and contributors.
   For a list of contributors, see the accompanying CONTRIBUTORS file.

   This file is part of GtkRadiant.

   GtkRadiant is free software; you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License, or
   (at your option) any later version.

   GtkRadiant is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with GtkRadiant; if not, write to the Free Software
   Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 */

//-----------------------------------------------------------------------------
//
// DESCRIPTION:
// implementation of IMessaging specific interface
//

#include "stdafx.h"

CPtrArray l_Listeners[RADIANT_MSGCOUNT];
CPtrArray l_WindowListeners;
CXYWndWrapper l_XYWndWrapper;

// CGtkWindow implementation -------------------------------------

static void button_press( GtkWidget *widget, GdkEventButton *event, gpointer data ){
	IWindowListener *pListen = static_cast<IWindowListener *>( data );
	switch ( event->button )
	{
	case 1:
		pListen->OnLButtonDown( event->state, event->x, event->y ); break;
	case 3:
		pListen->OnRButtonDown( event->state, event->x, event->y ); break;
	}
}

static void button_release( GtkWidget *widget, GdkEventButton *event, gpointer data ){
	IWindowListener *pListen = static_cast<IWindowListener *>( data );
	switch ( event->button )
	{
	case 1:
		pListen->OnLButtonUp( event->state, event->x, event->y ); break;
	case 3:
		pListen->OnRButtonUp( event->state, event->x, event->y ); break;
	}
}

static void motion( GtkWidget *widget, GdkEventMotion *event, gpointer data ){
	IWindowListener *pListen = static_cast<IWindowListener *>( data );
	pListen->OnMouseMove( event->state, event->x, event->y );
}

static gint expose( GtkWidget *widget, GdkEventExpose *event, gpointer data ){
	if ( event->count > 0 ) {
		return TRUE;
	}

	CGtkWindow *pWindow = static_cast<CGtkWindow *>( data );
	pWindow->DoExpose();

	return TRUE;
}

// we use the string versions of the keys for now..
static gint keypress( GtkWidget* widget, GdkEventKey* event, gpointer data ){
	gint ret;

	IWindowListener *pListen = static_cast<IWindowListener *>( data );
	ret = pListen->OnKeyPressed( gdk_keyval_name( event->keyval ) );
	if ( ret ) {
		gtk_signal_emit_stop_by_name( GTK_OBJECT( widget ), "key_press_event" );
	}
	return ret;
}

// close_widget is not hooked on the listener but on the CGtkWindow object to handle the closure
static gint close_widget( GtkWidget *widget, GdkEvent* event, gpointer data ){
	CGtkWindow *pWindow = static_cast<CGtkWindow *>( data );
	pWindow->Close();

	return TRUE;
}

void CGtkWindow::DoExpose(){
	gtk_glwidget_make_current( m_pGLWidget );
	if ( m_pListen->Paint() ) {
		gtk_glwidget_swap_buffers( m_pGLWidget );
	}
}

void CGtkWindow::Redraw(){
	gtk_widget_queue_draw( m_pGLWidget );
}

void CGtkWindow::Close(){
	// similar to a destructor, except we warn first
	m_pListen->Close();
	m_pListen->DecRef(); m_pListen = NULL;
	gtk_widget_destroy( m_pWnd ); m_pWnd = NULL;
}

bool CGtkWindow::Show(){
	// check we got everything and are reading to instanciate
	if ( m_nWidthParam == 0 || m_nHeightParam == 0 ) {
		Sys_FPrintf( SYS_ERR, "Height and Width params not set in CGtkWindow::Show\n" );
		return false;
	}
	if ( !m_pListen ) {
		Sys_FPrintf( SYS_ERR, "No listener set in CGtkWindow::Show\n" );
		return false;
	}

	// seems all good, here we go
	m_pWnd = gtk_window_new( GTK_WINDOW_TOPLEVEL );
	gtk_window_set_title( GTK_WINDOW( m_pWnd ), m_Name.GetBuffer() );
	gtk_window_set_default_size( GTK_WINDOW( m_pWnd ), m_nWidthParam, m_nHeightParam );
	gtk_widget_show( m_pWnd );

	// GL widget creation
	m_pGLWidget = gtk_glwidget_new( FALSE, g_qeglobals_gui.d_glBase );

	gtk_widget_set_events( m_pGLWidget, GDK_DESTROY | GDK_EXPOSURE_MASK | GDK_KEY_PRESS_MASK |
						   GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK | GDK_POINTER_MOTION_MASK );

	// Connect signal handlers
	gtk_signal_connect( GTK_OBJECT( m_pGLWidget ), "expose_event", GTK_SIGNAL_FUNC( expose ), this );
	gtk_signal_connect( GTK_OBJECT( m_pGLWidget ), "motion_notify_event",
						GTK_SIGNAL_FUNC( motion ), m_pListen );
	gtk_signal_connect( GTK_OBJECT( m_pGLWidget ), "button_press_event",
						GTK_SIGNAL_FUNC( button_press ), m_pListen );
	gtk_signal_connect( GTK_OBJECT( m_pGLWidget ), "button_release_event",
						GTK_SIGNAL_FUNC( button_release ), m_pListen );

	gtk_signal_connect( GTK_OBJECT( m_pWnd ), "delete_event", GTK_SIGNAL_FUNC( close_widget ), this );
	gtk_signal_connect( GTK_OBJECT( m_pWnd ), "key_press_event",
						GTK_SIGNAL_FUNC( keypress ), m_pListen );

	gtk_widget_show( m_pGLWidget );
	gtk_container_add( GTK_CONTAINER( m_pWnd ), m_pGLWidget );

	return true;
}

IWindow* WINAPI QERApp_CreateGLWindow(){
	return new CGtkWindow;
}

void WINAPI QERApp_HookWindow( IWindowListener* pListen ){
	l_WindowListeners.Add( pListen );
	pListen->IncRef();
}

void WINAPI QERApp_UnHookWindow( IWindowListener* pListen ){
	for ( int i = 0; i < l_WindowListeners.GetSize(); i++ )
	{
		if ( l_WindowListeners.GetAt( i ) == pListen ) {
			l_WindowListeners.RemoveAt( i );
			pListen->DecRef();
			return;
		}
	}
#ifdef _DEBUG
	Sys_Printf( "WARNING: IWindowListener not found in QERApp_UnHookWindow\n" );
#endif
}

void DispatchOnMouseMove( guint32 nFlags, int x, int y ){
	for ( int i = 0; i < l_WindowListeners.GetSize(); i++ )
		static_cast<IWindowListener*>( l_WindowListeners.GetAt( i ) )->OnMouseMove( nFlags, x, y );
}

bool DispatchOnLButtonDown( guint32 nFlags, int x, int y ){
	for ( int i = 0; i < l_WindowListeners.GetSize(); i++ )
		if ( static_cast<IWindowListener*>( l_WindowListeners.GetAt( i ) )->OnLButtonDown( nFlags, x, y ) ) {
			return true;
		}
	return false;
}

bool DispatchOnLButtonUp( guint32 nFlags, int x, int y ){
	for ( int i = 0; i < l_WindowListeners.GetSize(); i++ )
		if ( static_cast<IWindowListener*>( l_WindowListeners.GetAt( i ) )->OnLButtonUp( nFlags, x, y ) ) {
			return true;
		}
	return false;
}

void WINAPI QERApp_HookListener( IListener* pListen, int Msg ){
#ifdef _DEBUG
	if ( Msg >= RADIANT_MSGCOUNT ) {
		Sys_Printf( "ERROR: bad index in QERApp_HookListener\n" );
		return;
	}
#endif
	l_Listeners[Msg].Add( pListen );
	pListen->IncRef();
}

int WINAPI QERApp_UnHookListener( IListener* pListen ){
	int count = 0;
	for ( int i = 0; i < RADIANT_MSGCOUNT; i++ )
		for ( int j = 0; j < l_Listeners[i].GetSize(); j++ )
			if ( l_Listeners[i].GetAt( j ) == pListen ) {
				l_Listeners[i].RemoveAt( j );
				pListen->DecRef();
				count++;
			}
	return count;
}

void DispatchRadiantMsg( int Msg ){
#ifdef _DEBUG
	if ( Msg >= RADIANT_MSGCOUNT ) {
		Sys_Printf( "ERROR: bad index in DispatchRadiantMsg\n" );
		return;
	}
#endif
	for ( int i = 0; i < l_Listeners[Msg].GetSize(); i++ )
		static_cast<IListener *>( l_Listeners[Msg].GetAt( i ) )->DispatchRadiantMsg( Msg );
}

void CXYWndWrapper::SnapToGrid( int x1, int y1, vec3_t pt ){
	int height = g_pParentWnd->ActiveXY()->GetWidget()->allocation.height;
	g_pParentWnd->ActiveXY()->SnapToPoint( x1, height - 1 - y1, pt );
}

VIEWTYPE CXYWndWrapper::GetViewType( void ){
	return (VIEWTYPE)g_pParentWnd->ActiveXY()->GetViewType();
}

IXYWndWrapper* WINAPI QERApp_GetXYWndWrapper(){
	return &l_XYWndWrapper;
}