add png
[lttv.git] / ltt / branches / poly / lttv / modules / gui / controlflow / cfv.c
index ece85cd36ab5ff2238afefcfcf96da6179251300..6f033bd1e9f6c3d87afd8b6d363ea1a0031a63fc 100644 (file)
  * MA 02111-1307, USA.
  */
 
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
 #include <glib.h>
 #include <gtk/gtk.h>
 #include <gdk/gdk.h>
+#include <lttv/lttv.h>
+#include <lttvwindow/lttvwindow.h>
+#include <lttvwindow/lttvwindowtraces.h>
 
 #include "cfv.h"
 #include "drawing.h"
 #include "processlist.h"
 #include "eventhooks.h"
-#include "cfv-private.h"
-#include <lttv/lttv.h>
 
 extern GSList *g_control_flow_data_list;
 
@@ -43,6 +48,37 @@ header_size_allocate(GtkWidget *widget,
   return 0;
 }
 
+gboolean cfv_scroll_event(GtkWidget *widget, GdkEventScroll *event,
+    gpointer data)
+{
+  ControlFlowData *control_flow_data = (ControlFlowData*)data;
+  unsigned int cell_height =
+    get_cell_height(
+        GTK_TREE_VIEW(control_flow_data->process_list->process_list_widget));
+  gdouble new;
+
+  switch(event->direction) {
+    case GDK_SCROLL_UP:
+      {
+        new = gtk_adjustment_get_value(control_flow_data->v_adjust) 
+                                  - cell_height;
+      }
+      break;
+    case GDK_SCROLL_DOWN:
+      {
+        new = gtk_adjustment_get_value(control_flow_data->v_adjust) 
+                                  + cell_height;
+      }
+      break;
+    default:
+      return FALSE;
+  }
+  if(new >= control_flow_data->v_adjust->lower &&
+      new <= control_flow_data->v_adjust->upper 
+          - control_flow_data->v_adjust->page_size)
+    gtk_adjustment_set_value(control_flow_data->v_adjust, new);
+  return TRUE;
+}
 
 
 /*****************************************************************************
@@ -57,12 +93,14 @@ header_size_allocate(GtkWidget *widget,
  * @return The widget created.
  */
 ControlFlowData *
-guicontrolflow(void)
+guicontrolflow(Tab *tab)
 {
   GtkWidget *process_list_widget, *drawing_widget, *drawing_area;
 
   ControlFlowData* control_flow_data = g_new(ControlFlowData,1) ;
 
+  control_flow_data->tab = tab;
+
   control_flow_data->v_adjust = 
     GTK_ADJUSTMENT(gtk_adjustment_new(  0.0,  /* Value */
               0.0,  /* Lower */
@@ -93,6 +131,15 @@ guicontrolflow(void)
                                 GTK_ADJUSTMENT(
                                    control_flow_data->v_adjust));
 
+  g_signal_connect (G_OBJECT(process_list_widget),
+        "scroll-event",
+        G_CALLBACK (cfv_scroll_event),
+        (gpointer)control_flow_data);
+   g_signal_connect (G_OBJECT(drawing_area),
+        "scroll-event",
+        G_CALLBACK (cfv_scroll_event),
+        (gpointer)control_flow_data);
+  
   g_signal_connect (G_OBJECT(control_flow_data->process_list->button),
         "size-allocate",
         G_CALLBACK(header_size_allocate),
@@ -116,7 +163,9 @@ guicontrolflow(void)
                   process_list_widget, FALSE, TRUE);
   gtk_paned_pack2(GTK_PANED(control_flow_data->h_paned),
                   drawing_widget, TRUE, TRUE);
+  
+  gtk_container_set_border_width(GTK_CONTAINER(control_flow_data->box), 1);
+  
   /* Set the size of the drawing area */
   //drawing_Resize(drawing, h, w);
 
@@ -142,12 +191,13 @@ guicontrolflow(void)
   g_control_flow_data_list = g_slist_append(
       g_control_flow_data_list,
       control_flow_data);
+  
+  control_flow_data->filter = NULL;
 
   //WARNING : The widget must be 
   //inserted in the main window before the drawing area
   //can be configured (and this must happend bedore sending
   //data)
-
   
   return control_flow_data;
 
@@ -176,6 +226,7 @@ guicontrolflow_destructor(ControlFlowData *control_flow_data)
   if(GTK_IS_WIDGET(guicontrolflow_get_widget(control_flow_data)))
     g_info("widget still exists");
   
+  lttv_filter_destroy(control_flow_data->filter);
   /* Process List is removed with it's widget */
   //ProcessList_destroy(control_flow_data->process_list);
   if(tab != NULL)
@@ -211,15 +262,4 @@ guicontrolflow_destructor(ControlFlowData *control_flow_data)
  
 }
 
-GtkWidget *guicontrolflow_get_widget(ControlFlowData *control_flow_data)
-{
-  return control_flow_data->top_widget ;
-}
-
-__inline ProcessList *guicontrolflow_get_process_list
-    (ControlFlowData *control_flow_data)
-{
-    return control_flow_data->process_list ;
-}
-
 
This page took 0.024566 seconds and 4 git commands to generate.