GTK4_GG_hack/display.c

#include <stdio.h>
#include <gtk-4.0/gtk/gtk.h>

#include "hot.h"
#include "cold.h"
#include "display.h"
#include "contain.h"
#include "texts.h"
#include "tree.h"

//------------------------------------------------------------------------------

GtkWidget *get_image_ALL_SPACE(){
  GtkWidget *image;
  //  forget  >  GTK_WIDGET(get_scrolled_gl_area());
  //  Use GtkImage if you want to display a fixed-size icon
  //  and GtkPicture if you want to display a (maybe) scaled picture.
  image = gtk_image_new_from_file("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/aXoris.png");
  image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/gg sketch.png");
  image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/E coli (Goodsell).png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE, H_IMAGE);
  return image;
}

GtkWidget *get_image_GLUTAMATE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/glutamate.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_GLUTAMINE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/glutamine.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_HISTIDINE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/histidine.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_HISTAMINE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/histamine.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_PHENYLALANINE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/phénylalanine.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_DOPAMINE(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/dopamine.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_ATP(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/ATP.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_image_AMP(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/AMP.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

GtkWidget *get_user_tree(){
  GtkWidget *image = gtk_picture_new_for_filename ("/home/jean/01/Gtk4/Getting_Started_with_GTK/image/arbre utilisateur.png");
  gtk_widget_set_size_request (GTK_WIDGET (image), W_IMAGE_LOCAL, H_IMAGE_LOCAL);
  return image;
}

//------------------------------------------------------------------------------

//  TODO  cliquer sur "RUN"  -->  affiche "STOP"  (et inversement)
static GtkWidget *get_scroll_speed(){
  GtkAdjustment *speed_adjust = gtk_adjustment_new (100, 0, 100, 1, 0, 0);
  GtkWidget *scroll_speed = gtk_scrollbar_new (GTK_ORIENTATION_HORIZONTAL, speed_adjust);
  gtk_widget_set_size_request (GTK_WIDGET (scroll_speed), 120, 2);
  return scroll_speed;
}

static GtkBox *get_UNDO_SPEED_box(){
  GtkBox *SPEED_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 0));
  gtk_box_append (SPEED_box, GTK_WIDGET(gtk_label_new ("<    UNDO    <\n")));
  gtk_box_append (SPEED_box, get_scroll_speed());
  return SPEED_box;
}

static GtkBox *get_DO_SPEED_box(){
  GtkBox *SPEED_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 0));
  gtk_box_append (SPEED_box, GTK_WIDGET(gtk_label_new (">    DO    >\n")));
  gtk_box_append (SPEED_box, get_scroll_speed());
  return SPEED_box;
}

GtkBox *get_RUN_STOP_box(){
  GtkBox *RUN_STOP_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 20));
  gtk_box_append (RUN_STOP_box, GTK_WIDGET (get_UNDO_SPEED_box()));
  gtk_box_append (RUN_STOP_box, GTK_WIDGET(gtk_label_new ("           STEP\n(show active rule) ")));
  gtk_box_append (RUN_STOP_box, GTK_WIDGET (get_DO_SPEED_box()));
  gtk_box_append (RUN_STOP_box, GTK_WIDGET(gtk_label_new ("      R U N\n     S T O P")));
  return RUN_STOP_box;
}
//------------------------------------------------------------------------------

GtkBox *get_ZOOM_box(){
  GtkBox *ZOOM_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0));
  GtkWidget *ZOOM_Label = GTK_WIDGET (gtk_label_new (\
    "\n   TOOLS\n      ---\n   zoom\n      ---\n   (space\n   struct.)\n\
      ---\n   (arrows\n   struct.)\n"));
  gtk_widget_set_size_request (GTK_WIDGET (ZOOM_box), 10, 80);
  gtk_box_append (ZOOM_box, ZOOM_Label);
  return ZOOM_box;
}

//------------------------------------------------------------------------------

GtkBox *get_edit_TOOL_box(){
  GtkBox *TOOL_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0));
  GtkWidget *ZOOM_Label = GTK_WIDGET (gtk_label_new ("TOOLS\n    ---\n(space\nstruct.)"));
  gtk_widget_set_size_request (GTK_WIDGET (TOOL_box), 10, 120);
  gtk_box_append (TOOL_box, ZOOM_Label);
  return TOOL_box;
}

//------------------------------------------------------------------------------

GtkBox *get_XYZ_box(){
  GtkBox *XYZ_labels_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 2)); // spacing = 2
  GtkBox *XYZ_scrollbar_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 2)); // spacing = 2q
  //  GtkWidget *scale_X = gtk_scale_button_new (0, 360, 10, NULL);  <  à étudier
  //                    (double min, double max, double step, const char** icons)
  GtkAdjustment *X_adjust = gtk_adjustment_new (0, 0, 380, 1, 0, 0);
  GtkAdjustment *Y_adjust = gtk_adjustment_new (0, 0, 380, 1, 0, 0);
  GtkAdjustment *Z_adjust = gtk_adjustment_new (0, 0, 380, 1, 0, 0);
  GtkWidget *scroll_X = gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL, X_adjust);
  GtkWidget *scroll_Y = gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL, Y_adjust);
  GtkWidget *scroll_Z = gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL, Z_adjust);
  gtk_widget_set_size_request (GTK_WIDGET (scroll_X), 1, 500);

  gtk_box_append (XYZ_scrollbar_box, GTK_WIDGET (gtk_label_new ("  ")));  //  AD HOC (pour "centrer")
  gtk_box_append (XYZ_scrollbar_box, scroll_X);
  gtk_box_append (XYZ_scrollbar_box, scroll_Y);
  gtk_box_append (XYZ_scrollbar_box, scroll_Z);

  gtk_box_append (XYZ_labels_box, GTK_WIDGET (gtk_label_new ("\nX Y Z")));
  gtk_box_append (XYZ_labels_box, GTK_WIDGET (XYZ_scrollbar_box));
  gtk_box_append (XYZ_labels_box, GTK_WIDGET (gtk_label_new ("")));
  return XYZ_labels_box;
}

//------------------------------------------------------------------------------

GtkProgressBar *get_ELAPSED_TIME_ProgressBar(){ //  To rename : DO - UNDO - REDO ?
  GtkProgressBar *buffer = GTK_PROGRESS_BAR (gtk_progress_bar_new ());
  gtk_progress_bar_set_text (buffer,\
  "\n<---  [buffer]  (simulation extensive time)  --->\n\
    supports DO - UNDO - REDO   functions\n");
  gtk_progress_bar_set_show_text (buffer, TRUE);
  gtk_widget_set_size_request (GTK_WIDGET (buffer), W - 560, 0);
  return buffer;
}

//------------------------------------------------------------------------------

//  Chaque label "objet" ou "situation" sera remplacé par un curseur "transparence" (vertical)

static GtkBox *get_objects_box(){
  GtkBox *objects_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0));
  GtkAdjustment *adjust = gtk_adjustment_new (0, 0, 255, 1, 0, 0);
  if (0) for (int i = 0; i < 10; i++)
    gtk_box_append (objects_box, gtk_scrollbar_new (GTK_ORIENTATION_VERTICAL, adjust));
  char string[7];
  for (int i = 0; i < 16; i++){
    sprintf(string, "[%d]  ", i);
    if (0) printf("%s\n", string);  //  répété deux fois !   pourquoi ?
    gtk_box_append (objects_box, GTK_WIDGET (gtk_label_new (string)));
  }
  gtk_box_append (objects_box, GTK_WIDGET (gtk_label_new ("   membrane     ")));
  gtk_box_append (objects_box, GTK_WIDGET (gtk_label_new ("   co-enzyme A     ")));
  gtk_box_append (objects_box, GTK_WIDGET (gtk_label_new ("   ribosome     ")));
  gtk_box_append (objects_box, GTK_WIDGET (gtk_label_new ("   ATP synthase     ")));
  return objects_box;
}

static GtkBox *get_situations_box(){
  GtkBox *situations_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_HORIZONTAL, 0));
  char string[7];
  for (int i = 0; i < 64; i++){
    sprintf(string, "[%d]  ", i);
    if (0) printf("%s\n", string);  //  répété deux fois !   pourquoi ?
    gtk_box_append (situations_box, GTK_WIDGET (gtk_label_new (string)));
  }
  gtk_box_append (situations_box, GTK_WIDGET (gtk_label_new ("   transcription     ")));
  gtk_box_append (situations_box, GTK_WIDGET (gtk_label_new ("   transport Na/K     ")));
  gtk_box_append (situations_box, GTK_WIDGET (gtk_label_new ("   ubiquitination     ")));
  gtk_box_append (situations_box, GTK_WIDGET (gtk_label_new ("   rotation moteur flagellaire     ")));
  return situations_box;
}

static GtkWidget *get_frame_objects(){
  GtkWidget *scroll = gtk_scrolled_window_new ();
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scroll), GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);
  GtkWidget *frame_objects = gtk_frame_new ("  Objects");          //  defines each class of object transparence
  gtk_widget_set_size_request (frame_objects, 0, H_STYLES_PANE); //  <  utile seulement pour la largeur min/max
  gtk_frame_set_child (GTK_FRAME (frame_objects), GTK_WIDGET (get_objects_box()));
  gtk_scrolled_window_set_child (GTK_SCROLLED_WINDOW (scroll), frame_objects);
  return scroll;
}

static GtkWidget *get_frame_situations(){
  GtkWidget *scroll = gtk_scrolled_window_new ();
  gtk_scrolled_window_set_policy (GTK_SCROLLED_WINDOW (scroll), GTK_POLICY_AUTOMATIC, GTK_POLICY_NEVER);
  GtkWidget *frame_situations = gtk_frame_new ("  Situations");       //  facilitates each situation identification
  gtk_widget_set_size_request (GTK_WIDGET (frame_situations), 0, H_STYLES_PANE); //  <  utile seulement pour la largeur min/max
  gtk_frame_set_child (GTK_FRAME (frame_situations), GTK_WIDGET (get_situations_box()));
  gtk_scrolled_window_set_child (GTK_SCROLLED_WINDOW (scroll), frame_situations);
  return scroll;
}

GtkWidget *get_OBJECTS_and_SITUATIONS(){
  GtkWidget *objects_and_situations_horizontal_pane = gtk_paned_new (GTK_ORIENTATION_HORIZONTAL);
  gtk_paned_set_start_child (GTK_PANED(objects_and_situations_horizontal_pane), GTK_WIDGET (get_frame_objects()));
  gtk_paned_set_end_child (GTK_PANED(objects_and_situations_horizontal_pane), GTK_WIDGET (get_frame_situations()));
  return objects_and_situations_horizontal_pane;
}


GtkBox *get_rules_comparator_new(){
  GtkBox *comparator = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 2));
  gtk_box_append (comparator, GTK_WIDGET (get_image_ATP()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_AMP()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_GLUTAMATE()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_GLUTAMINE()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_HISTIDINE()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_PHENYLALANINE()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (comparator, GTK_WIDGET (get_image_DOPAMINE()));
  gtk_box_append (comparator, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  return comparator;
}

GtkBox *get_experimental_box_new(){
  GtkBox *experimental_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 0));
  gtk_widget_set_size_request (GTK_WIDGET (experimental_box), 0, 400);
  gtk_box_append (experimental_box, GTK_WIDGET(gtk_separator_new (GTK_ORIENTATION_HORIZONTAL)));
  gtk_box_append (experimental_box, GTK_WIDGET(gtk_label_new ("\n\n")));
  create_experimental_tree(experimental_box);
  gtk_box_append (experimental_box, GTK_WIDGET(gtk_label_new ("\n\n")));
  return experimental_box;
}

GtkBox *get_rules_user_tree_new(){
  GtkBox *tree_sketch_box = GTK_BOX(gtk_box_new (GTK_ORIENTATION_VERTICAL, 0));
  gtk_box_append (tree_sketch_box, GTK_WIDGET (get_experimental_box_new()));
  ui_create_tree (GTK_WIDGET (tree_sketch_box));
  return tree_sketch_box;
}

GtkWidget *get_rules_tree_hpaned_new(){
  GtkPaned *H_tree_vs_comparison = GTK_PANED (gtk_paned_new (GTK_ORIENTATION_HORIZONTAL));

//  GtkWidget *arbre_des_règles = gtk_frame_new ("Arbre");
//  GtkWidget *comparaison_des_règles_sélectionnées = gtk_frame_new ("Sélection");

  gtk_paned_set_start_child (H_tree_vs_comparison, GTK_WIDGET (get_rules_user_tree_new()));
  gtk_paned_set_end_child (H_tree_vs_comparison, GTK_WIDGET (get_rules_comparator_new()));
  gtk_paned_set_position (H_tree_vs_comparison, 300);
  gtk_paned_set_wide_handle (H_tree_vs_comparison, TRUE);
  gtk_paned_set_shrink_start_child (H_tree_vs_comparison, FALSE);
  gtk_paned_set_shrink_end_child (H_tree_vs_comparison, FALSE);
  return GTK_WIDGET (H_tree_vs_comparison);
}

GtkWidget *get_run_rules_page_new(){
  GtkPaned *H_tree_vs_selected = GTK_PANED (gtk_paned_new (GTK_ORIENTATION_HORIZONTAL));

//  GtkWidget *arbre_des_règles = gtk_frame_new ("Arbre des règles");
//  GtkWidget *édition_de_la_règle_sélectionnée_n_1 = gtk_frame_new ("Inspection");

  gtk_paned_set_start_child (H_tree_vs_selected, GTK_WIDGET (get_rules_tree_hpaned_new()));
  gtk_paned_set_end_child (H_tree_vs_selected, GTK_WIDGET (get_selected_rules_vpaned_new()));
  gtk_paned_set_position (H_tree_vs_selected, 600); //  WARNING : c'est une position "absolue"
  gtk_paned_set_wide_handle (H_tree_vs_selected, TRUE);
  // gtk_widget_set_size_request (GTK_WIDGET (H_tree_vs_selected), W, H);  //  inutile... ?
  return GTK_WIDGET (H_tree_vs_selected);
}