]> matita.cs.unibo.it Git - helm.git/blobdiff - helm/gtkmathview-bonobo/test/main.c
ocaml 3.09 transition
[helm.git] / helm / gtkmathview-bonobo / test / main.c
index dccb6e63a570e25b6948f5003e99adf64550fd81..e737329ec7ac1b93417d589ed2f777053ef6bbcc 100644 (file)
@@ -4,6 +4,7 @@
 #include <glib.h>
 
 #include "control-factory.h"
+#include "GtkMathView.h"
 
 static GtkWidget *control;
 
@@ -91,15 +92,14 @@ file_selection_ok_cb (GtkWidget *widget,
   else         
     {
        const gchar *fname;
-       fname = gtk_file_selection_get_filename
-       (GTK_FILE_SELECTION (file_selection_info.widget));
+       fname = gtk_file_selection_get_filename (GTK_FILE_SELECTION (file_selection_info.widget));
        switch (file_selection_info.Operations) {
-           case LOAD_STREAM:
-            load_through_persist_stream (fname, interface);
-            break;
-           case LOAD_FILE:
-               load_through_persist_file (fname, interface);
-               break;
+       case LOAD_STREAM:
+        load_through_persist_stream (fname, interface);
+        break;
+       case LOAD_FILE:
+        load_through_persist_file (fname, interface);
+        break;
        }
     }
   
@@ -147,14 +147,44 @@ static void
 open_through_persist_file_cb (GtkWidget *widget,
                              gpointer data)
 {
-  open_dialog (BONOBO_WINDOW (data),LOAD_FILE);
+  open_dialog (BONOBO_WINDOW (data), LOAD_FILE);
 }
 
 static void 
 open_through_persist_stream_cb(GtkWidget *widget,
                                gpointer data)
 {
-    open_dialog(BONOBO_WINDOW(data),LOAD_STREAM);
+  open_dialog(BONOBO_WINDOW(data), LOAD_STREAM);
+}
+
+static void
+test_view(GtkWidget* widget, gpointer data)
+{
+  CORBA_Object interface;
+  CORBA_Environment ev;
+
+  CORBA_exception_init (&ev);
+  interface = Bonobo_Unknown_queryInterface (bonobo_widget_get_objref (BONOBO_WIDGET (bonobo_window_get_contents (BONOBO_WINDOW(data)))),
+                                            "IDL:GNOME/GtkMathView/View:1.0", &ev);
+  CORBA_exception_free (&ev);
+
+  if (interface == CORBA_OBJECT_NIL)
+    {
+      g_warning ("The Control does not seem to support `View'.");
+    }
+
+  CORBA_exception_init (&ev);
+  GNOME_GtkMathView_View_freeze(interface, &ev);
+  CORBA_exception_free (&ev);
+
+  CORBA_exception_init (&ev);
+  GNOME_GtkMathView_View_thaw(interface, &ev);
+  CORBA_exception_free (&ev);
+
+  CORBA_exception_init (&ev);
+  Bonobo_Unknown_unref (interface, &ev);
+  CORBA_Object_release (interface, &ev);
+  CORBA_exception_free (&ev);
 }
 
 static void
@@ -201,8 +231,8 @@ get_top(GtkWidget *widget,
     control_frame = bonobo_widget_get_control_frame(BONOBO_WIDGET(control));
     prop_bag = bonobo_control_frame_get_control_property_bag(control_frame,NULL);
 
-    top_x = bonobo_pbclient_get_long(prop_bag,"top_x",NULL);
-    top_y = bonobo_pbclient_get_long(prop_bag,"top_y",NULL);
+    top_x = bonobo_pbclient_get_long(prop_bag,"top-x",NULL);
+    top_y = bonobo_pbclient_get_long(prop_bag,"top-y",NULL);
 
     printf("Top X: %d ,Top Y: %d\n",top_x,top_y);
 
@@ -222,59 +252,13 @@ get_font_size(GtkWidget *widget,
     control_frame = bonobo_widget_get_control_frame(BONOBO_WIDGET(control));
     prop_bag = bonobo_control_frame_get_control_property_bag(control_frame,NULL);
 
-    font_size = bonobo_pbclient_get_long(prop_bag,"font_size",NULL);
+    font_size = bonobo_pbclient_get_long(prop_bag,"font-size",NULL);
 
     printf("FontSize : %d\n",font_size);
 
     bonobo_object_release_unref(prop_bag,NULL);
 }
 
-static void 
-get_antialiasing(GtkWidget *widget,
-                 gpointer data)
-{
-    gboolean antialiasing;
-    BonoboWidget* control;
-    BonoboControlFrame* control_frame;
-    Bonobo_PropertyBag prop_bag;
-
-    control = BONOBO_WIDGET(bonobo_window_get_contents(BONOBO_WINDOW(data)));
-    control_frame = bonobo_widget_get_control_frame(BONOBO_WIDGET(control));
-    prop_bag = bonobo_control_frame_get_control_property_bag(control_frame,NULL);
-
-    antialiasing = bonobo_pbclient_get_boolean(prop_bag,"anti_aliasing",NULL);
-
-    if(antialiasing == TRUE)
-        printf("Antialiasing is set\n");
-    else if(antialiasing == FALSE)
-        printf("Antialiasing is not set\n");
-    
-    bonobo_object_release_unref(prop_bag,NULL);
-}
-
-static void 
-get_transparency(GtkWidget *widget,
-                 gpointer data)
-{
-    gboolean transparency;
-    BonoboWidget* control;
-    BonoboControlFrame* control_frame;
-    Bonobo_PropertyBag prop_bag;
-
-    control = BONOBO_WIDGET(bonobo_window_get_contents(BONOBO_WINDOW(data)));
-    control_frame = bonobo_widget_get_control_frame(BONOBO_WIDGET(control));
-    prop_bag = bonobo_control_frame_get_control_property_bag(control_frame,NULL);
-
-    transparency = bonobo_pbclient_get_boolean(prop_bag,"transparency",NULL);
-
-    if(transparency == TRUE)
-        printf("Transparency is set\n");
-    else if(transparency == FALSE)
-        printf("Transparency is not set\n");
-
-    bonobo_object_release_unref(prop_bag,NULL);
-}
-
 static void 
 get_verbosity(GtkWidget *widget,
               gpointer data)
@@ -295,36 +279,14 @@ get_verbosity(GtkWidget *widget,
     bonobo_object_release_unref(prop_bag,NULL);
 }
 
-static void
-get_font_manager(GtkWidget *widget,
-                 gpointer data)
-{
-    gint font_manager;
-    BonoboWidget* control;
-    BonoboControlFrame* control_frame;
-    Bonobo_PropertyBag prop_bag;
-
-    control = BONOBO_WIDGET(bonobo_window_get_contents(BONOBO_WINDOW(data)));
-    control_frame = bonobo_widget_get_control_frame(BONOBO_WIDGET(control));
-    prop_bag = bonobo_control_frame_get_control_property_bag(control_frame,NULL);
-
-    font_manager = bonobo_pbclient_get_long(prop_bag,"font_manager",NULL);
-
-    printf("Font_manager: %d\n",font_manager);
-
-    bonobo_object_release_unref(prop_bag,NULL);
-}
-
 static BonoboUIVerb verbs [] = {
   BONOBO_UI_UNSAFE_VERB ("OpenFile", open_through_persist_file_cb),
   BONOBO_UI_UNSAFE_VERB ("OpenStream", open_through_persist_stream_cb),
+  BONOBO_UI_UNSAFE_VERB ("TestView", test_view),
   BONOBO_UI_UNSAFE_VERB ("Size", get_size),
   BONOBO_UI_UNSAFE_VERB ("Top", get_top),
   BONOBO_UI_UNSAFE_VERB ("Font Size", get_font_size),
-  BONOBO_UI_UNSAFE_VERB ("AntiAliasing", get_antialiasing),
-  BONOBO_UI_UNSAFE_VERB ("Transparency", get_transparency),
   BONOBO_UI_UNSAFE_VERB ("Verbosity", get_verbosity),
-  BONOBO_UI_UNSAFE_VERB ("Font Manager", get_font_manager),
   BONOBO_UI_UNSAFE_VERB ("FileExit", exit_cb),
   BONOBO_UI_VERB_END
 };
@@ -341,24 +303,15 @@ static char ui [] =
 "              <submenu name=\"File\" _label=\"_File\">"
 "                      <menuitem name=\"OpenFile\" verb=\"\" _label=\"Open (PersistFile)\" _tip=\"Open using the PersistFile interface\""
 "                      pixtype=\"stock\" pixname=\"Open\"/>"
-"                      <menuitem name=\"SaveFile\" verb=\"\" _label=\"Save (PersistFile)\" _tip=\"Save using the PersistFile interface\""
-"                      pixtype=\"stock\" pixname=\"Save\"/>"
-"                      <separator/>"
 "                      <menuitem name=\"OpenStream\" verb=\"\" _label=\"_Open Stream (PersistStream)\" _tip=\"Open using the PersistStream interface\""
 "                      pixtype=\"stock\" pixname=\"Open Stream\"/>"
-"                      <menuitem name=\"SaveStream\" verb=\"\" _label=\"_Save (PersistStream)\" _tip=\"Save using the PersistStream interface\""
-"                      pixtype=\"stock\" pixname=\"Save\"/>"
-"                      <menuitem name=\"SavePlainStream\" verb=\"\" _label=\"Save _plain(PersistStream)\" _tip=\"Save using the PersistStream interface\""
-"                      pixtype=\"stock\" pixname=\"Save\"/>"
 "                      <separator/>"
-"                       <menuitem name=\"ViewHTMLSource\" verb=\"\" _label=\"View HTML Source\" _tip=\"View the html source of the current document\"/>"
-"                       <menuitem name=\"ViewHTMLSourceHTML\" verb=\"\" _label=\"View HTML Output\" _tip=\"View the html source of the current document as html\"/>"
-"                       <menuitem name=\"ViewPlainSource\" verb=\"\" _label=\"View PLAIN Source\" _tip=\"View the plain text source of the current document\"/>"
+"                       <menuitem name=\"TestView\" verb=\"\" _label=\"Test View\" _tip=\"Test the View interface\"/>"
 "                      <separator/>"
 "                      <menuitem name=\"FileExit\" verb=\"\" _label=\"E_xit\"/>"
 "              </submenu>"
 "              <placeholder name=\"Component\"/>"
-"              <submenu name=\"PropertyBags\" _label=\"Property_Bags\">"
+"              <submenu name=\"PropertyBags\" _label=\"Property_Bag\">"
 "                      <menuitem name=\"Size\" verb=\"\" _label=\"Size(PropertyBag)\" _tip=\"Get size\""
 "                      pixtype=\"stock\" pixname=\"Get Size\"/>"
 
@@ -368,20 +321,8 @@ static char ui [] =
 "                      <menuitem name=\"Font Size\" verb=\"\" _label=\"Font Size(PropertyBag)\" _tip=\"Get FontSize\""
 "                      pixtype=\"stock\" pixname=\"Get FontSize\"/>"
 
-"                      <menuitem name=\"AntiAliasing\" verb=\"\" _label=\"AntiAliasing(PropertyBag)\" _tip=\"Get AntiAliasing\""
-"                      pixtype=\"stock\" pixname=\"Get AntiAliasing\"/>"
-
-"                      <menuitem name=\"Transparency\" verb=\"\" _label=\"Transparency(PropertyBag)\" _tip=\"Get Transparency\""
-"                      pixtype=\"stock\" pixname=\"Get Transparency\"/>"
-
 "                      <menuitem name=\"Verbosity\" verb=\"\" _label=\"Verbosity(PropertyBag)\" _tip=\"Get Verbosity\""
 "                      pixtype=\"stock\" pixname=\"Get Verbosity\"/>"
-
-"                      <menuitem name=\"Font Manager\" verb=\"\" _label=\"Font Manager(PropertyBag)\" _tip=\"Get FontManager\""
-"                      pixtype=\"stock\" pixname=\"Get FontManager\"/>"
-
-"                       <separator/>"
-"                       <placeholder name=\"FormatParagraph\"/>"
 "               </submenu>"
 "      </menu>"
 "      <dockitem name=\"Toolbar\" behavior=\"exclusive\">"
@@ -499,16 +440,12 @@ install_property_bag_listener (BonoboWidget *control, BonoboWindow *bonobo_win)
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)height_changed,
                                             "Bonobo/Property:change:height",NULL,bonobo_win);
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)top_x_changed,
-                                            "Bonobo/Property:change:top_x",NULL,bonobo_win);
+                                            "Bonobo/Property:change:top-x",NULL,bonobo_win);
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)top_y_changed,
-                                            "Bonobo/Property:change:top_y",NULL,bonobo_win);
+                                            "Bonobo/Property:change:top-y",NULL,bonobo_win);
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)font_size_changed,
-                                            "Bonobo/Property:change:font_size",NULL,bonobo_win);
+                                            "Bonobo/Property:change:font-size",NULL,bonobo_win);
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)anti_aliasing_changed,
-                                            "Bonobo/Property:change:anti_aliasing",NULL,bonobo_win);
-    bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)transparency_changed,
-                                            "Bonobo/Property:change:transparency",NULL,bonobo_win);
-    bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)verbosity_changed,
                                             "Bonobo/Property:change:verbosity",NULL,bonobo_win);
     bonobo_event_source_client_add_listener(prop_bag, (BonoboListenerCallbackFn)font_manager_changed,
                                             "Bonobo/Property:change:font_manager",NULL,bonobo_win);