/**

 * $Id$

 *

 * Define the main (emu) GTK window, along with its menubars,

 * toolbars, etc.

 *

 * Copyright (c) 2005 Nathan Keynes.

 *

 * This program 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.

 *

 * This program 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.

 */

#include <assert.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <unistd.h>

#include <string.h>

#include <stdio.h>

#include <stdlib.h>

#include <gtk/gtk.h>

#include <gdk/gdk.h>

#include <gdk/gdkx.h>

#include <gdk/gdkkeysyms.h>

#include <X11/Xutil.h>

#include "dream.h"

#include "gtkui/gtkui.h"

#include "drivers/video_glx.h"

struct main_window_info {

    GtkWidget *window;

    GtkWidget *video;

    GtkWidget *menubar;

    GtkWidget *toolbar;

    GtkWidget *statusbar;

    GtkActionGroup *actions;

    gboolean use_grab;

    gboolean is_grabbed;

    int32_t mouse_x, mouse_y;

};

/******************** Video window **************************/

/**

 * Adjust the mouse pointer so that it appears in the center of the video

 * window. Mainly used for when we have the mouse grab

 */

void video_window_center_pointer( main_window_t win )

{

    GdkDisplay *display = gtk_widget_get_display(win->video);

    GdkScreen *screen = gtk_widget_get_screen(win->video);

    int x,y;

    int width, height;

    gdk_window_get_origin(win->video->window, &x, &y);

    gdk_drawable_get_size(GDK_DRAWABLE(win->video->window), &width, &height);

    x += width / 2;

    y += height / 2;

    gdk_display_warp_pointer( display, screen, x, y );

    win->mouse_x = width/2;

    win->mouse_y = height/2;

}

/**

 * Grab the keyboard and mouse for the display. The mouse cursor is hidden and

 * moved to the centre of the window.

 *

 * @param win The window receiving the grab

 * @return TRUE if the grab was successful, FALSE on failure.

 */

gboolean video_window_grab_display( main_window_t win )

{

    GdkWindow *gdkwin = win->video->window;

    GdkColor color = { 0,0,0,0 };

    char bytes[32]; /* 16 * 16 / 8 */

    memset(bytes, 0, 32);

    GdkPixmap *pixmap = gdk_bitmap_create_from_data(NULL, bytes, 16, 16);

    GdkCursor *cursor = gdk_cursor_new_from_pixmap(pixmap, pixmap, &color, &color, 16, 16);

    gdk_pixmap_unref(pixmap);

    gboolean success =

	gdk_pointer_grab( gdkwin, FALSE, 

			  GDK_POINTER_MOTION_MASK|GDK_BUTTON_PRESS_MASK|GDK_BUTTON_RELEASE_MASK, 

			  gdkwin, cursor, GDK_CURRENT_TIME ) == GDK_GRAB_SUCCESS;

    gdk_cursor_unref(cursor);

    if( success ) {

	success = gdk_keyboard_grab( gdkwin, FALSE, GDK_CURRENT_TIME ) == GDK_GRAB_SUCCESS;

	if( !success ) {

	    gdk_pointer_ungrab(GDK_CURRENT_TIME);

	}

    }

    win->is_grabbed = success;

    main_window_set_running(win, dreamcast_is_running());

    return success;

}

/**

 * Release the display grab.

 */

void video_window_ungrab_display( main_window_t win )

{

    gdk_pointer_ungrab(GDK_CURRENT_TIME);

    gdk_keyboard_ungrab(GDK_CURRENT_TIME);

    win->is_grabbed = FALSE;

    main_window_set_running(win, dreamcast_is_running());

}

static gboolean on_video_window_mouse_motion( GtkWidget *widget, GdkEventMotion *event,

					      gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    int32_t x = (int32_t)event->x;

    int32_t y = (int32_t)event->y;

    if( win->is_grabbed && 

	(x != win->mouse_x || y != win->mouse_y) ) {

	uint32_t buttons = (event->state >> 8)&0x1F;

	input_event_mouse( buttons, x - win->mouse_x, y - win->mouse_y );

	video_window_center_pointer(win);

    }

    return TRUE;

}

static gboolean on_video_window_mouse_pressed( GtkWidget *widget, GdkEventButton *event,

					       gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    if( win->is_grabbed ) {

	// Get the buttons from the event state, and remove the released button

	uint32_t buttons = ((event->state >> 8) & 0x1F) | (1<<(event->button-1));

	input_event_mouse( buttons, 0, 0 );

    }

    return TRUE;

}

static gboolean on_video_window_mouse_released( GtkWidget *widget, GdkEventButton *event,

					      gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    if( win->is_grabbed ) {

	// Get the buttons from the event state, and remove the released button

	uint32_t buttons = ((event->state >> 8) & 0x1F) & (~(1<<(event->button-1)));

	input_event_mouse( buttons, 0, 0 );

    } else if( win->use_grab) {

	video_window_grab_display(win);

    }

    return TRUE;

}

static gboolean on_video_window_key_pressed( GtkWidget *widget, GdkEventKey *event,

					    gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    if( win->is_grabbed ) {

	/* Check for ungrab key combo (ctrl-alt). Unfortunately GDK sends it as

	 * a singly-modified keypress rather than a double-modified 'null' press, 

	 * so we have to do a little more work.

	 * Only check Ctrl/Shift/Alt for state - don't want to check numlock/capslock/

	 * mouse buttons/etc

	 */

	int state = event->state & (GDK_SHIFT_MASK|GDK_CONTROL_MASK|GDK_MOD1_MASK);

	if( (state == GDK_CONTROL_MASK &&

	     (event->keyval == GDK_Alt_L || event->keyval == GDK_Alt_R)) ||

	    (state == GDK_MOD1_MASK &&

	     (event->keyval == GDK_Control_L || event->keyval == GDK_Control_R)) ) {

	    video_window_ungrab_display(win);

	    // Consume the keypress, DC doesn't get it.

	    return TRUE;

	}

    }

    input_event_keydown( gtk_get_unmodified_keyval(event) );

    return TRUE;

}

static gboolean on_video_window_key_released( GtkWidget *widget, GdkEventKey *event,

					     gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    input_event_keyup( gtk_get_unmodified_keyval(event) );

    return TRUE;

}

static gboolean on_video_window_grab_broken( GtkWidget *widget, GdkEventGrabBroken *event,

					gpointer user_data )

{

    main_window_t win = (main_window_t)user_data;

    fprintf( stderr, "Grab broken\n" );

}

/*************************** Main window (frame) ******************************/

static gboolean on_main_window_deleted( GtkWidget *widget, GdkEvent event, gpointer user_data )

{

    exit(0);

}

static void on_main_window_state_changed( GtkWidget *widget, GdkEventWindowState *state, 

					  gpointer userdata )

{

    main_window_t win = (main_window_t)userdata;

    if( state->changed_mask & GDK_WINDOW_STATE_FULLSCREEN ) {

	gboolean fs = (state->new_window_state & GDK_WINDOW_STATE_FULLSCREEN);

	GtkWidget *frame = gtk_widget_get_parent(win->video);

	if( frame->style == NULL ) {

	    gtk_widget_set_style( frame, gtk_style_new() );

	}

	if( fs ) {

	    gtk_widget_hide( win->menubar );

	    gtk_widget_hide( win->toolbar );

	    gtk_widget_hide( win->statusbar );

	    frame->style->xthickness = 0;

	    frame->style->ythickness = 0;

	} else {

	    frame->style->xthickness = 2;

	    frame->style->ythickness = 2;

	    gtk_widget_show( win->menubar );

	    gtk_widget_show( win->toolbar );

	    gtk_widget_show( win->statusbar );

	}

	gtk_widget_queue_draw( win->window );

    }

}

main_window_t main_window_new( const gchar *title, GtkWidget *menubar, GtkWidget *toolbar,

			       GtkAccelGroup *accel_group )

{

    GtkWidget *vbox;

    GtkWidget *frame;

    main_window_t win = g_malloc0( sizeof(struct main_window_info) );

    win->window = gtk_window_new(GTK_WINDOW_TOPLEVEL);

    win->menubar = menubar;

    win->toolbar = toolbar;

    win->use_grab = FALSE;

    win->is_grabbed = FALSE;

    gtk_window_set_title( GTK_WINDOW(win->window), title );

    gtk_window_add_accel_group (GTK_WINDOW (win->window), accel_group);

    gtk_toolbar_set_style( GTK_TOOLBAR(toolbar), GTK_TOOLBAR_ICONS );

    Display *display = gdk_x11_display_get_xdisplay( gtk_widget_get_display(win->window));

    Screen *screen = gdk_x11_screen_get_xscreen( gtk_widget_get_screen(win->window));

    int screen_no = XScreenNumberOfScreen(screen);

    if( !video_glx_init(display, screen_no) ) {

        ERROR( "Unable to initialize GLX, aborting" );

	exit(3);

    }

    XVisualInfo *visual = video_glx_get_visual();

    GdkVisual *gdkvis = gdk_x11_screen_lookup_visual( gtk_widget_get_screen(win->window), visual->visualid );

    GdkColormap *colormap = gdk_colormap_new( gdkvis, FALSE );

    win->video = gtk_drawing_area_new();

    gtk_widget_set_colormap( win->video, colormap );

    GTK_WIDGET_SET_FLAGS(win->video, GTK_CAN_FOCUS|GTK_CAN_DEFAULT);

    gtk_widget_set_size_request( win->video, 640, 480 ); 

    gtk_widget_set_double_buffered( win->video, FALSE );

    frame = gtk_frame_new(NULL);

    gtk_frame_set_shadow_type( GTK_FRAME(frame), GTK_SHADOW_IN );

    gtk_container_add( GTK_CONTAINER(frame), win->video );

    win->statusbar = gtk_statusbar_new();

    vbox = gtk_vbox_new(FALSE, 0);

    gtk_container_add( GTK_CONTAINER(win->window), vbox );

    gtk_box_pack_start( GTK_BOX(vbox), menubar, FALSE, FALSE, 0 );

    gtk_box_pack_start( GTK_BOX(vbox), toolbar, FALSE, FALSE, 0 );

    gtk_box_pack_start( GTK_BOX(vbox), frame, TRUE, TRUE, 0 );

    gtk_box_pack_start( GTK_BOX(vbox), win->statusbar, FALSE, FALSE, 0 );

    gtk_widget_show_all( win->window );

    gtk_widget_grab_focus( win->video );

    gtk_statusbar_push( GTK_STATUSBAR(win->statusbar), 1, "Stopped" );

    g_signal_connect( win->window, "delete_event", 

		      G_CALLBACK(on_main_window_deleted), win );

    g_signal_connect( win->window, "window-state-event",

		      G_CALLBACK(on_main_window_state_changed), win );

    g_signal_connect( win->video, "grab-broken-event",

		      G_CALLBACK(on_video_window_grab_broken), win );

    g_signal_connect( win->video, "key-press-event",

		      G_CALLBACK(on_video_window_key_pressed), win );

    g_signal_connect( win->video, "key-release-event",

		      G_CALLBACK(on_video_window_key_released), win );

    g_signal_connect( win->video, "motion-notify-event",

		      G_CALLBACK(on_video_window_mouse_motion), win );

    g_signal_connect( win->video, "button-press-event",

		      G_CALLBACK(on_video_window_mouse_pressed), win );

    g_signal_connect( win->video, "button-release-event", 

		      G_CALLBACK(on_video_window_mouse_released), win );

    gtk_widget_add_events( win->video, 

			   GDK_KEY_PRESS_MASK | GDK_KEY_RELEASE_MASK |

			   GDK_BUTTON_PRESS_MASK | GDK_BUTTON_RELEASE_MASK |

			   GDK_POINTER_MOTION_MASK );

    return win;

}

void main_window_set_status_text( main_window_t win, char *text )

{

    gtk_statusbar_pop( GTK_STATUSBAR(win->statusbar), 1 );

    if( win->is_grabbed ) {

	char buf[128];

	snprintf( buf, sizeof(buf), "%s %s", text, _("(Press <ctrl><alt> to release grab)") );

	gtk_statusbar_push( GTK_STATUSBAR(win->statusbar), 1, buf );

    } else {

	gtk_statusbar_push( GTK_STATUSBAR(win->statusbar), 1, text );

    }

}

void main_window_set_running( main_window_t win, gboolean running )

{

    char *text = running ? _("Running") : _("Stopped");

    gtk_gui_enable_action( "Pause", running );

    gtk_gui_enable_action( "Run", !running && dreamcast_can_run() );

    main_window_set_status_text( win, text );

}

void main_window_set_framerate( main_window_t win, float rate )

{

}

void main_window_set_speed( main_window_t win, double speed )

{

    char buf[32];

    snprintf( buf, 32, "Running (%2.4f%%)", speed );

    main_window_set_status_text( win, buf );

}

GtkWidget *main_window_get_renderarea( main_window_t win )

{

    return win->video;

}

GtkWindow *main_window_get_frame( main_window_t win )

{

    return GTK_WINDOW(win->window);

}

void main_window_set_fullscreen( main_window_t win, gboolean fullscreen )

{

    if( fullscreen ) {

	gtk_window_fullscreen( GTK_WINDOW(win->window) );

    } else {

	gtk_window_unfullscreen( GTK_WINDOW(win->window) );

    }

}

void main_window_set_use_grab( main_window_t win, gboolean use_grab )

{

    if( use_grab != win->use_grab ) {

	if( use_grab ) {

	    GdkCursor *cursor = gdk_cursor_new( GDK_HAND2 );

	    gdk_window_set_cursor( win->video->window, cursor );

	    gdk_cursor_unref( cursor );

	} else {

	    gdk_window_set_cursor( win->video->window, NULL );

	    if( gdk_pointer_is_grabbed() ) {

		video_window_ungrab_display(win);

	    }

	}

	win->use_grab = use_grab;

    }

}