readme: add information section

[nit.git] / lib / gtk / gtk.nit

diff --git a/lib/gtk/gtk.nit b/lib/gtk/gtk.nit
index 75ecce1..405bb01 100644 (file)
--- a/lib/gtk/gtk.nit
+++ b/lib/gtk/gtk.nit
@@ -1,6 +1,6 @@
 # This file is part of NIT ( http://www.nitlanguage.org ).
 #
-# Copyright 2011-2013 Alexis Laferrière <alexis.laf@xymus.net>
+# Copyright 2013 Alexis Laferrière <alexis.laf@xymus.net>
 #
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
@@ -14,146 +14,10 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
-# Classes and services to use libGTK widgets
+# GTK+ widgets and services
+#
+# By default provides services from GTK+ v3.4.
+# Newer features from v3.6 and v3.8 are available in the submodules v3_6 and v3_8 respectively.
 module gtk
 
-in "C Header" `{
-       #include <gtk/gtk.h>
-`}
-
-`{
-               /* callback user data */
-               typedef struct {
-                       GtkCallable to_call;
-                       nullable_Object user_data;
-               } NitGtkSignal;
-
-               void nit_gtk_callback_func( GtkWidget *widget,
-                                                       gpointer   callback_data ) {
-                       NitGtkSignal *data;
-
-                       data = (NitGtkSignal*)callback_data;
-
-                       GtkCallable_signal( data->to_call, widget, data->user_data );
-               }
-`}
-
-interface GtkCallable
-       # return true to stop event processing, false to let it propagate
-       fun signal( sender : GtkWidget, user_data : nullable Object ) is abstract
-end
-
-extern GdkEvent `{GdkEvent *`}
-end
-
-extern GtkWidget `{GtkWidget *`}
-       fun show_all is extern `{ gtk_widget_show_all( recv ); `}
-       fun signal_connect( signal_name : String, to_call : GtkCallable, user_data : nullable Object ) is extern import String::to_cstring, GtkCallable::signal, Object as not nullable `{
-               NitGtkSignal *data = malloc( sizeof(NitGtkSignal) );
-
-               GtkCallable_incr_ref( to_call );
-               Object_incr_ref( user_data );
-
-               data->to_call = to_call;
-               data->user_data = user_data;
-
-               g_signal_connect( recv,
-                                                       String_to_cstring( signal_name ),
-                                                       G_CALLBACK(nit_gtk_callback_func),
-                                                       data );
-       `}
-
-       redef fun == ( o ) do return o isa GtkWidget and equal_to_gtk_widget( o )
-
-       private fun equal_to_gtk_widget( o : GtkWidget ) : Bool `{
-               return recv == o;
-       `}
-
-       fun set_size_request( width, height : Int ) `{
-               gtk_widget_set_size_request( recv, width, height );
-       `}
-end
-
-extern GtkContainer `{GtkContainer*`}
-       super GtkWidget
-
-       fun add( widget : GtkWidget ) is extern `{
-               gtk_container_add( recv, widget );
-       `}
-end
-
-extern GtkGrid `{GtkGrid*`}
-       super GtkContainer
-
-       new ( rows : Int, columns : Int, homogeneous : Bool ) `{
-               return (GtkGrid*)gtk_grid_new();
-       `}
-       fun attach( child : GtkWidget, left, top, width, height : Int ) `{
-               gtk_grid_attach( recv, child, left, top, width, height );
-       `}
-end
-
-extern GtkWindow `{GtkWindow*`}
-       super GtkContainer
-
-       new ( flag : Int ) is extern `{
-               GtkWindow *win;
-
-               win = GTK_WINDOW(gtk_window_new( flag ));
-               g_signal_connect(win, "destroy", G_CALLBACK(gtk_main_quit), NULL);
-               return win;
-       `}
-
-       fun title=( title : String ) is extern import String::to_cstring `{
-               gtk_window_set_title( recv, String_to_cstring( title ) );
-       `}
-
-       fun signal_close_connect( to_call : GtkCallable,
-                                                         user_data : nullable Object )
-       do
-               signal_connect( "close", to_call, user_data )
-       end
-end
-
-extern GtkColorSelectionDialog
-       super GtkWidget
-       new ( title : String, parent : GtkWindow ) is extern  import String::to_cstring `{
-                return gtk_color_chooser_dialog_new( String_to_cstring( title ), parent );
-       `}
-end
-
-extern GtkLabel `{GtkLabel*`}
-       super GtkWidget
-
-       new ( text : String ) is extern import String::to_cstring `{
-               return (GtkLabel*)gtk_label_new( String_to_cstring( text ) );
-       `}
-
-       fun text=( text : String ) import String::to_cstring `{
-               gtk_label_set_text( recv, String_to_cstring( text ) );
-       `}
-
-       fun text : String import String::from_cstring `{
-               return new_String_from_cstring( (char*)gtk_label_get_text( recv ) );
-       `}
-end
-
-extern GtkButton
-       super GtkWidget
-
-       new is extern `{
-               return gtk_button_new(  );
-       `}
-       new with_label( text : String ) is extern import String::to_cstring `{
-               return gtk_button_new_with_label( String_to_cstring( text ) );
-       `}
-       new from_stock( stock_id : String ) is extern import String::to_cstring `{
-               return gtk_button_new_from_stock( String_to_cstring( stock_id ) );
-       `}
-end
-
-redef interface Object
-       protected fun init_gtk `{ gtk_init( 0, NULL ); `}
-       protected fun run_gtk `{ gtk_main(); `}
-       protected fun quit_gtk `{ gtk_main_quit(); `}
-end
+import v3_4