global.h

Go to the documentation of this file.

/* This file is part of the 'atomes' software
 
'atomes' is free software: you can redistribute it and/or modify it under the terms
of the GNU Affero General Public License as published by the Free Software Foundation,
either version 3 of the License, or (at your option) any later version.
 
'atomes' 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.
 
You should have received a copy of the GNU Affero General Public License along with 'atomes'.
If not, see <https://www.gnu.org/licenses/>
 
Copyright (C) 2022-2024 by CNRS and University of Strasbourg */
 
/*
* This header file: 'global.h'
*
* Contains:
 
 - Global variable declarations
 - Global convenience function declarations
 - Global data structure definitions
 
*/
 
#ifdef HAVE_CONFIG_H
#  include <config.h>
#endif
 
#define GDK_SYNCHRONIZE
 
#ifndef GLOBAL_H_
 
#define GLOBAL_H_
 
#include <glib.h>
#include <glib/gi18n.h>
#include <locale.h>
#include <unistd.h>
#include <string.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <math.h>
 
#include <gtk/gtk.h>
#include <gdk/gdk.h>
#include <gdk/gdkkeysyms.h>
#include <gdk-pixbuf/gdk-pixbuf.h>
 
#include <pango/pangoft2.h>
 
#ifdef MAC_INTEGRATION
#  include <gtkosxapplication.h>
#endif
 
#ifdef G_OS_WIN32
#  include <windef.h>
#  include <windows.h>
#  define WIN32_LEAN_AND_MEAN 1
#  include <epoxy/gl.h>
#  include <GL/glu.h>
#else
#  define max(a,b) (a>=b?a:b)
#  define min(a,b) (a<=b?a:b)
#  include <epoxy/gl.h>
#  ifdef __APPLE__
#    include <OpenGL/glu.h>
#  else
#    include <GL/glu.h>
#    include <epoxy/glx.h>
#  endif
#endif
 
#include "math_3d.h"
 
// dint, tint and qint structures are used for pointer purposes.
// dint, tint, qint, ColRGBA and coord_info structures must be defined before including 'glwin.h'
typedef struct dint dint;
struct dint
{
  int a;
  int b;
};
 
typedef struct tint tint;
struct tint
{
  int a;
  int b;
  int c;
};
 
typedef struct qint qint;
struct qint
{
  int a;
  int b;
  int c;
  int d;
};
 
typedef struct ColRGBA  ColRGBA;
struct ColRGBA
{
  float red;
  float green;
  float blue;
  float alpha;
};
 
typedef struct coord_info coord_info;
struct coord_info
{
  int species;            
  // 0 = tot
  // 1 = partial
  // 2 = fragments
  // 3 = molecules
  // > 3 = rings
  // 9 = chains
  int totcoord[10];       
  int * ntg[10];          
  int ** geolist[10];     
  int *** partial_geo;    
  int cmin;               
  int cmax;               
};
 
#include "glwin.h"
 
#ifndef GTK4
#  include <gtk/gtkx.h>
#endif
#define MEDIA_NEXT "media-skip-forward"
#define MEDIA_PREV "media-skip-backward"
#define MEDIA_LAST "go-last"
#define MEDIA_FIRST "go-first"
#define MEDIA_GOTO "go-jump"
#define MEDIA_PLAY "media-playback-start"
#define MEDIA_STOP "media-playback-stop"
#define MEDIA_LOOP "view-refresh"
#define MEDIA_ULOOP "edit-cut"
#define MEDIA_SLOW "view-sort-ascending"
#define MEDIA_FAST "view-sort-descending"
#define GO_RIGHT "go-next"
#define GO_LEFT "go-previous"
#define GO_UP "go-up"
#define GO_DOWN "go-down"
#define PAGE_SETUP "document-page-setup"
#define FULLSCREEN "view-fullscreen"
#define FITBEST "zoom-fit-best"
#define RECORD "media-record"
#define YES "gtk-yes"
#define EDITA "edit-find-replace"
#define EDITC "edit-copy"
#define EDITF "edit-find"
#define ECUT "edit-cut"
#define DPROPERTIES "document-properties"
#define FNEW "document-new"
#define FOPEN "document-open"
#define FSAVE "document-save"
#define FSAVEAS "document-save-as"
#define FCLOSE "window-close"
#define FEXIT "application-exit"
#define LIST_ADD "list-add"
#define LIST_REM "list-remove"
#define CANCEL "process-stop"
#define EXECUTE "system-run"
#ifdef GTK4
#define APPLY "emblem-default"
#else
#define APPLY "gtk-apply"
#endif
#define DELETEB "edit-delete"
#define DIAL_ERROR "dialog-error"
#define AFILE "text-x-generic"
#define ABOUT "help-about"
 
#ifdef GTK4
enum ReliefStyle {
  GTK_RELIEF_NORMAL = 0, 
  GTK_RELIEF_HALF   = 1, 
  GTK_RELIEF_NONE   = 2  
};
 
enum ShadowStyle {
  GTK_SHADOW_NONE       = 0, 
  GTK_SHADOW_IN         = 1, 
  GTK_SHADOW_OUT        = 2, 
  GTK_SHADOW_ETCHED_IN  = 3, 
  GTK_SHADOW_ETCHED_OUT = 4  
};
#define BSEP 3
#else
#define BSEP 0
#endif
 
enum ContainerType {
  CONTAINER_WIN = 0, 
  CONTAINER_SCR = 1, 
  CONTAINER_VIE = 2, 
  CONTAINER_BUT = 3, 
  CONTAINER_FRA = 4, 
  CONTAINER_EXP = 5  
};
 
enum ImageFormats {
  IMG_NONE    = 0, 
  IMG_PIXBUF  = 1, 
  IMG_SURFACE = 2, 
  IMG_FILE    = 3, 
  IMG_STOCK   = 4  
};
 
#define IODEBUG FALSE
 
#define ATOM_LIMIT 100000
 
#define STEP_LIMIT 10000
 
#define OK            0
#define ERROR_RW      1
#define ERROR_PROJECT 2
#define ERROR_CURVE   3
#define ERROR_IMAGE   4
#define ERROR_ATOM_A  5
#define ERROR_ATOM_B  6
#define ERROR_UPDATE  7
#define ERROR_NO_WAY  8
#define ERROR_COORD   9
#define ERROR_RINGS  10
#define ERROR_CHAINS 11
#define ERROR_MOL    12
 
#define CHEM_PARAMS 5
#define CHEM_Z 0
#define CHEM_M 1
#define CHEM_R 2
#define CHEM_N 3
#define CHEM_X 4
 
#define NDOTS 8
 
#define NCALCS 12
 
#define NGRAPHS 10
 
#define NCFORMATS 12
 
#define NITEMS 16
#define OT 4
#define GR 0
#define SQ 1
#define SK 2
#define GK 3
#define BD 4
#define AN 5
#define RI 6
#define CH 7
#define SP 8
#define MS 9
#define BV 10
#define FF 12
 
#define DEFAULT_FONT_SIZE 8
#define DEFAULT_ALPHA 0.75
#define MINCUT 1.85
 
#ifdef G_OS_WIN32
extern gchar * PACKAGE_PREFIX;
extern gchar * PACKAGE_LIB_DIR;
extern gchar * PACKAGE_DATA_DIR;
extern gchar * PACKAGE_LOCALE_DIR;
extern gchar * PACKAGE_IMP;
extern gchar * PACKAGE_CON;
extern gchar * PACKAGE_IMG;
extern gchar * PACKAGE_PDF;
extern gchar * PACKAGE_SVG;
extern gchar * PACKAGE_EPS;
extern gchar * PACKAGE_PNG;
extern gchar * PACKAGE_JPG;
extern gchar * PACKAGE_BMP;
extern gchar * PACKAGE_TIFF;
extern gchar * PACKAGE_VOID;
extern gchar * PACKAGE_GR;
extern gchar * PACKAGE_SQ;
extern gchar * PACKAGE_BD;
extern gchar * PACKAGE_AN;
extern gchar * PACKAGE_RI;
extern gchar * PACKAGE_CH;
extern gchar * PACKAGE_SP;
extern gchar * PACKAGE_MS;
extern gchar * PACKAGE_TD;
extern gchar * PACKAGE_MOL;
extern gchar * PACKAGE_OGL;
extern gchar * PACKAGE_OGLM;
extern gchar * PACKAGE_OGLC;
extern gchar * PACKAGE_PRO;
extern gchar * PACKAGE_SET;
extern gchar * PACKAGE_LOGO;
extern gchar * PACKAGE_LAGPL;
extern gchar * PACKAGE_LABOUT;
extern gchar * PACKAGE_DOTA;
extern gchar * PACKAGE_DOTB;
extern gchar * PACKAGE_DOTC;
extern gchar * PACKAGE_DOTD;
extern gchar * PACKAGE_DOTE;
extern gchar * PACKAGE_DOTF;
extern gchar * PACKAGE_DOTG;
extern gchar * PACKAGE_DOTH;
extern gchar * PACKAGE_DFBD;
extern gchar * PACKAGE_DFAN;
extern gchar * PACKAGE_DFDI;
extern gchar * PACKAGE_DFTD;
extern gchar * PACKAGE_DFIN;
extern gchar * PACKAGE_SGCP;
extern gchar * PACKAGE_SGCI;
extern gchar * PACKAGE_SGCF;
extern gchar * PACKAGE_SGHP;
extern gchar * PACKAGE_SGTR;
extern gchar * PACKAGE_SGTI;
extern gchar * PACKAGE_SGTP;
extern gchar * PACKAGE_SGOP;
extern gchar * PACKAGE_SGOI;
extern gchar * PACKAGE_SGOC;
extern gchar * PACKAGE_SGOF;
extern gchar * PACKAGE_SGMP;
extern gchar * PACKAGE_SGMI;
extern gchar * PACKAGE_SGTC;
#endif
extern gchar * ATOMES_CONFIG;
extern gchar * ATOMES_URL;
 
extern gchar * mode_name[2];
extern gchar * graph_img[NGRAPHS];
extern gchar * dots[NDOTS];
extern gchar * bravais_img[14];
extern gchar * ifield[8];
extern gchar * projfile;
extern char * ifbug;
extern char * coord_files[NCFORMATS+1];
extern char * coord_files_ext[NCFORMATS+1];
extern char * calc_name[NCALCS-2];
extern char * graph_name[NGRAPHS] ;
extern char * rings_type[5];
extern char * untime[6];
extern gchar * workspacefile;
 
extern int nprojects;
extern int activep;
extern int activev;
extern int activef;
extern int inactep;
extern int activew;
extern int statusval;
extern int atomes_visual;
extern int dialog_id;
 
extern int bonds_update;
extern int frag_update;
extern int mol_update;
 
extern int tmp_pixels[2];
extern int * pasted_todo;
extern atomic_object * copied_object;
 
extern GMainLoop * Event_loop[5];
 
extern gboolean in_movie_encoding;
extern gboolean newspace;
extern gboolean reading_input;
extern gboolean tmp_adv_bonding[2];
extern gboolean column_label;
extern gboolean check_label;
extern gboolean object_motion;
extern gboolean selected_status;
extern gboolean silent_input;
extern gboolean cif_use_symmetry_positions;
 
extern struct timespec start_time;
extern struct timespec stop_time;
 
extern double opac;
extern double pi;
 
extern GtkWidget * MainWindow;
extern GtkWidget * MainView;
extern GtkWidget * MainFrame[2];
extern GtkWidget * pop;
extern GtkWidget * curvetoolbox;
extern GtkWidget * progressbar;
extern GtkWidget * MainScrol[2];
extern GtkWidget * atomes_logo;
extern GtkWidget * calc_dialog;
extern GtkWidget * register_button;
 
extern GtkTextTag * tag;
extern GtkStatusbar * statusbar;
 
extern ColRGBA std[6];
 
extern GdkPixbuf * THETD;
extern GdkPixbuf * THEMO;
extern GdkPixbuf * THEBD;
extern GdkPixbuf * SETTING;
extern GdkPixbuf * SETTINGS;
extern GdkPixbuf * OGL;
extern GdkPixbuf * OGLM;
extern GdkPixbuf * OGLC;
extern GdkPixbuf * RUN;
 
extern tint cut_sel;
extern tint cut_lab;
 
// Data structures
#define LINE_SIZE 160
 
typedef struct line_node line_node;
struct line_node
{
  gchar * line;              
  struct line_node * next;
  struct line_node * prev;
};
 
typedef struct coord_file coord_file;
struct coord_file
{
  int natomes;                             
  int steps;                               
  int nspec;                               
  double * z;                              
  int * nsps;                              
  double ** coord;                         
  gboolean cartesian;                      
  int * lot;                               
  int ndummy;                              
  gchar ** dummy;                          
  cell_info lattice;                       
  int mid;                                 
  gchar * info;                            
  gchar ** label;                          
  // The following line is only used for DL_POLY history files:
  int traj;                                
  // The following lines are only used for CIF files:
  int num_sym_pos;                         
  gchar *** sym_pos;                       
  int setting;                             
  int * wyckoff;                           
  double * occupancy;                      
  int ** occupied;                         
  int * multi;                             
  int atom_unlabelled;                     
  int * u_atom_list;                       
  int object_to_insert;                    
  int * object_list;                       
};
 
typedef struct MouseState MouseState;
struct MouseState
{
  gint start_x;                 
  gint start_y;                 
  gint time;                    
  gboolean MouseIsDown;         
};
 
typedef struct CurveState CurveState;
struct CurveState
{
  MouseState mouseState;        
  tint * id;                    
};
 
typedef struct DataLayout DataLayout;
struct DataLayout
{
  ColRGBA datacolor;             
  double thickness;              
  int dash;                      
  int glyph;                     
  double gsize;                  
  int gfreq;                     
  int aspect;                    
  double hwidth;                 
  double hopac;                  
  int hpos;                      
};
 
typedef struct CurveExtra CurveExtra;
struct CurveExtra
{
  tint id;                       
  DataLayout * layout;           
  CurveExtra * prev;
  CurveExtra * next;
};
 
typedef struct ExtraSets ExtraSets;
struct ExtraSets
{
  int extras;                 
  CurveExtra * first;         
  CurveExtra * last;          
};
 
typedef struct Curve Curve;
struct Curve
{
  int cid;                       
  int ndata;                     
  double * data[2];              
  double * err;                  
  double cmin[2];                
  double cmax[2];                
  GtkWidget * plot;              
  GtkWidget * button;            
  GtkWidget * curve_vbox;        
  GtkWidget * curve_hbox;
  GtkWidget * window;            
  GtkWidget * pos;               
  int wsize[2];                  
  GtkWidget * datatree;          
  qint idcol[2];                 
  ColRGBA backcolor;             
  int format;                    
  char * name;                   
// Axis
  double axmin[2];               
  double axmax[2];               
  gboolean axis_defaut_title[2]; 
  char * axis_title[2];          
  int axis_title_x[2];           
  int axis_title_y[2];           
  gchar * axis_title_font[2];    
  int scale[2];                  
  gboolean autoscale[2];         
  gboolean show_grid[2];         
  gboolean show_axis[2];         
  double majt[2];                
  int mint[2];                   
  int ticks_io[2];               
  int ticks_pos[2];              
  int majt_size[2];              
  int mint_size[2];              
  int labels_pos[2];             
  int labels_digit[2];           
  gchar * labels_font[2];        
  double labels_angle[2];        
  int labels_shift_x[2];         
  int labels_shift_y[2];         
  // Legend
  gboolean show_legend;          
  double legend_pos[2];          
  gchar * legend_font;           
  ColRGBA legend_color;          
  gboolean show_legend_box;      
  int legend_box_dash;           
  ColRGBA legend_box_color;      
  double legend_box_thickness;   
// Title
  char * title;                  
  gboolean show_title;           
  gboolean default_title;        
  double title_pos[2];           
  gchar * title_font;            
  ColRGBA title_color;           
// Frame
  gboolean show_frame;           
  int frame_type;                
  int frame_dash;                
  double frame_thickness;        
  ColRGBA frame_color;           
  double frame_pos[2][2];        
  DataLayout * layout;           
  ExtraSets * extrac;            
  cairo_surface_t * surface;     
  int draw_id;                   
  int bshift;                    
  gboolean displayed;
  char * cfile;
  gchar * path;                  
  int action_id;                 
  CurveState state;              
  GSimpleActionGroup * action_group;
};
 
#define MAXDATC 8
 
#define MAXDATA 21
 
typedef struct classical_field classical_field;
struct classical_field
{
  gboolean prepare_file[2];
  // Field and Config files
  gboolean afp[MAXDATC+MAXDATA];
  int type;
  int energy_unit;
  int atom_init;
  int molecules;
  struct field_molecule * first_molecule;
  int nbody[5];
  struct field_nth_body * first_body[5];
  // Tersoff potential cross terms
  double *** cross; 
  int extern_fields;
  struct field_external * first_external;
 
  // Control file
  double * sys_opts;
  double * io_opts;
  double * ana_opts;
  double * elec_opts;
  double * vdw_opts;
  double * met_opts;
  double * equi_opts;
  int ensemble;
  int thermostat;
  double * thermo_opts;
  double * md_opts;
  double * out_opts;
};
 
typedef struct thermostat thermostat;
struct thermostat
{
  int id;
  // For CPMD: 0 = none, 2 = controlled, 3 = nose
  // For CP2K: 0 = none, 2 = langevin, 3 = csvr, 4 = gle, 5 = nose
  int type;
  // For CPMD: 0 = global, 1 = local
  // For CP2K: 0 = global, 1 = local, 2 = molecule
  int sys;
  gboolean show;
  double params[4];
  int natoms;
  int * list;
  thermostat * next;
  thermostat * prev;
};
 
typedef struct dummy_atom dummy_atom;
struct dummy_atom
{
  // 0 = type1, 1 = type2, ...
  int id;
  int type;
  int pick[2];
  gboolean show;
  double xyz[3];
  int coord[4];
  int natoms;
  int * list;
  int numv;
  int * vois;
  dummy_atom * next;
  dummy_atom * prev;
};
 
typedef struct cpmd cpmd;
struct cpmd
{
  int calc_type;
  int restart[10];
  int thermostats;
  thermostat * ions_thermostat;
  thermostat * elec_thermostat;
  int fixat;
  int * fixlist;
  int ** fixcoord;
  int dummies;
  dummy_atom * dummy;
  double default_opts[17];
  double calc_opts[24];
  int ** pp;
  gchar * info;
};
 
typedef struct cp2k cp2k;
struct cp2k
{
  int input_type;
  double opts[42];
  double extra_opts[3][4];
  int thermostats;
  thermostat * ions_thermostat;
  int fixat[2];
  int * fixlist[2];
  int ** fixcoord[2];
  gchar * files[5];
  gchar *** spec_files;
  int ** spec_data;
  gchar * info;
};
 
typedef struct molecule molecule;
struct molecule
{
  int id;                         
  int md;                         
  int multiplicity;               
  int * fragments;                
  int natoms;                     
  int nspec;                      
  int * species;                  
};
 
typedef struct model model;
struct model
{
  int * mol_by_step;       
  molecule ** mols;        
};
 
typedef struct element_data element_data;
struct element_data
{
  gchar * lab;      
  gchar * name;     
  int Z;            
  float M;          
};
 
typedef struct chemical_data chemical_data;
struct chemical_data
{
  // 0 = Z, 1 = Mass, 2 = Radius, 3 = Neutrons, 4 = X-rays
  double ** chem_prop; 
  int * nsps;          
  int * formula;       
  char ** label;       
  char ** element;     
  double ** cutoffs;   
  double grtotcutoff;  
};
 
typedef struct insertion_menu insertion_menu;
struct insertion_menu
{
  gchar * type;
  gchar * object;
  double Z;
  int ats;
};
 
typedef struct atom atom;
struct atom
{
  int id;                         // The id in the model
  int sp;                         // The chemical species
  // The coordinates
  double x;                      
  double y;                      
  double z;                      
  int numv;                       // The number of neighbors
  int * vois;                     // The list of neighbors
  // 0 = Total coordination
  // 1 = Partial coordination
  // 2 = Fragment
  // 3 = Molecule
  // 4 = Field object id
  int coord[5];                   
 // Coordination information
  // 0 = All
  // 1 = King's
  // 2 = Guttman's
  // 3 = Primitive
  // 4 = Strong
  int ** rings[5];                
 // Rings statistics information
  int ** chain;                   
  int fid;                        
  int faid;                       
  gboolean show[2];               
  gboolean label[2];              
  gboolean pick[2];               
  gboolean cloned;                
  int style;                      
  atom * prev;
  atom * next;
};
 
typedef struct project project;
struct project
{
  /*
     General parameters
  */
  int id;                              
  char * name;                         
  char * projfile;                     
  char * coordfile;                    
  char * bondfile;                     
  gboolean newproj;                    
  gboolean run;                        
  gboolean dmtx;                       
  int tfile;                           
  int nspec;                           
  int natomes;                         
  int dummies;                         
  int steps;                           
  int tunit;                           
  chemical_data * chemistry;           
  coord_info * coord;                  
  cell_info cell;                      
  atom ** atoms;                
  /*
     Analysis related parameters
  */
  gboolean runok[NGRAPHS];             
  gboolean initok[NGRAPHS];            
  gboolean visok[NGRAPHS];             
  int xcor;                            
  gboolean runc[3];                    
  // gr, sq, sk, gftt, bd, an, frag-mol, ch, sp, msd
  int numc[NGRAPHS];                   
  int num_delta[NGRAPHS];              
  double calc_time[NGRAPHS];           
  double delta[NGRAPHS];               
  double min[NGRAPHS];                 
  double max[NGRAPHS];                 
  // 0 = Search type, 1 = NUMA
  int rsearch[2];                      
  // First col : search type (up to chains stat). Second col: search info
  // 0 = Initnode, 1 = RMAX, 2 = ABAB, 3 = Homo, 4 = Homo in DMTX, 5 = Done + Rings
  int rsparam[5][6];                   
  double rsdata[5][5];                 
  int csearch;                         
  // 0 = Initnode, 1 = AAAA, 2 = ABAB, 3 = Homo, 4 = 1221, 5 = RMAX, 6 = Done + Chains
  int csparam[7];                      
  double csdata[2];                    
  double fact[4];                      
  double sk_advanced[2];               
  GtkTextBuffer * text_buffer[NITEMS]; 
  tint * idcc[NGRAPHS];                
  int numwid;                          
  Curve ** curves[NGRAPHS];            
  /*
     OpenGL related parameters
  */
  gboolean initgl;                     
  int tmp_pixels[2];                   
  glwin * modelgl;                     
  /*
     Molecular dynamics related parameters
  */
  model * modelfc;                     
  // MD input files
  classical_field * force_field[2];    
  cpmd * cpmd_input[2];                
  cp2k * cp2k_input[2];                
#ifdef DEBUG
  GtkWidget * pix_tab[3];              
  GtkWidget * pix_box;                 
  int pix[3];                          
  int ** pixels;                       
  int actif_pix;                       
#endif
 
  project * next;
  project * prev;
};
 
typedef struct workspace workspace;
struct workspace
{
  project * first;
  project * last;
};
 
extern gchar * edition_action_names[3];
extern gchar * analyze_action_names[9];
extern GSimpleAction * edition_actions[3];
extern GSimpleAction * analyze_actions[9];
extern void add_action (GSimpleAction * action);
extern void remove_action (gchar * action_name);
extern void remove_edition_actions ();
extern void remove_edition_and_analyze_actions ();
 
extern GtkApplication * AtomesApp;
extern workspace workzone;
extern project * proj;
extern chemical_data * active_chem;
extern coord_info * active_coord;
extern cell_info * active_cell;
extern box_info * active_box;
extern image * active_image;
extern glwin * active_glwin;
extern project * active_project;
extern project * opengl_project;
extern element_data periodic_table_info[];
 
extern project * get_project_by_id (int p);
extern void opengl_project_changed (int id);
extern gboolean in_md_shaders (project * this_proj, int id);
extern void recreate_all_shaders (glwin * view);
extern gboolean is_atom_win_active (glwin * view);
 
// extern gboolean run_distance_matrix (GtkWidget * widg, int calc, int up_ngb);
extern G_MODULE_EXPORT void on_calc_bonds_released (GtkWidget * widg, gpointer data);
extern void update_rings_menus (glwin * view);
extern void clean_rings_data (int rid, glwin * view);
extern void clean_chains_data (glwin * view);
extern void clean_volumes_data (glwin * view);
 
extern void initcutoffs (chemical_data * chem, int species);
extern void cutoffsend ();
extern void update_entry_int (GtkEntry * entry, int intval);
extern void update_entry_double (GtkEntry * entry, double doubleval);
extern void update_entry_long_double (GtkEntry * entry, double doubleval);
extern void update_entry_text (GtkEntry * entry, gchar * text);
 
extern double * xsk;
extern gboolean * allocbool (int val);
extern gboolean ** allocdbool (int xal, int yal);
extern gboolean *** alloctbool (int xal, int yal, int zal);
extern int * allocint (int val);
extern int ** allocdint (int xal, int yal);
extern int *** alloctint (int xal, int yal, int zal);
extern int **** allocqint (int wal, int xal, int yal, int zal);
extern float * allocfloat (int  val);
extern float ** allocdfloat (int xal, int yal);
extern float *** alloctfloat (int xal, int yal, int zal);
extern double * allocdouble (int val);
extern double ** allocddouble (int xal, int yal);
extern double *** alloctdouble (int xal, int yal, int zal);
extern double **** allocqdouble (int wal, int xal, int yal, int zal);
 
extern GLuint * allocgluint (int val);
extern GLuint ** allocdgluint (int xal, int yal);
extern GLfloat ** allocdGLfloat (int xal, int yal);
 
extern gchar ** duplicate_strings (int num, gchar ** old_val);
extern int * duplicate_int (int num, int * old_val);
extern gboolean * duplicate_bool (int num, gboolean * old_val);
extern float * duplicate_float (int num, float * old_val);
extern double * duplicate_double (int num, double * old_val);
extern ColRGBA * duplicate_color (int num, ColRGBA * col);
 
extern void combo_text_append (GtkWidget * combo, gchar * text);
extern void combo_text_prepend (GtkWidget * combo, gchar * text);
extern GtkWidget * create_combo ();
extern GtkTextBuffer * add_buffer (GCallback handler, gpointer data, gchar * text);
extern GtkWidget * create_text_view (int dimx, int dimy, int edit, int mono,
                                     GCallback handler, gpointer data, gchar * text);
 
extern GdkPixbuf * convert_to_pixbuf (cairo_surface_t * surf);
 
extern void text_view_set_monospace (GtkWidget * view);
extern void gtk_label_align (GtkWidget * lab, float ax, float ay);
 
extern gchar * prepare_for_title (gchar * init);
 
extern void show_the_widgets (GtkWidget * widg);
extern gboolean is_the_widget_visible (GtkWidget * widg);
extern void widget_set_sensitive (GtkWidget * widg, gboolean sensitive);
 
extern GtkWidget * new_gtk_window ();
extern GtkWidget * dialogmodal (gchar * str, GtkWindow * parent);
extern GtkWidget * message_dialogmodal (gchar * message, gchar * title, GtkMessageType mtype, GtkButtonsType buttons, GtkWidget * parent);
extern GtkWidget * dialog_cancel_apply (gchar * title, GtkWidget * parent, gboolean resiz);
extern void run_this_gtk_dialog (GtkWidget * dial, GCallback handler, gpointer data);
extern void resize_this_window (GtkWidget * window, int x, int y);
 
extern GtkWidget * create_hscale (float min, float max, float delta,
                                  float val, int pos, int round, int size,
                                  GCallback handler, GCallback scroll_handler, gpointer data);
extern GtkWidget * create_vscale (float min, float max, float delta,
                                  float val, int pos, int round, int size,
                                  GCallback handler, GCallback scroll_handler, gpointer data);
 
extern void add_container_child (int type, GtkWidget * widg, GtkWidget * child);
extern void add_box_child_end (GtkWidget * widg, GtkWidget * child, gboolean expand, gboolean fill, int padding);
extern void add_box_child_start (int orientation, GtkWidget * widg, GtkWidget * child, gboolean expand, gboolean fill, int padding);
extern GtkWidget * create_vbox (int spacing);
extern GtkWidget * create_hbox (int spacing);
extern GtkWidget * dialog_get_content_area (GtkWidget * widg);
extern void layout_add_widget (GtkWidget * layout, GtkWidget * child, int x_pos, int y_pos);
extern GtkWidget * add_vbox_to_layout (GtkWidget * layout, int size_x, int size_y);
extern GtkWidget * create_layout (int x, int y);
 
#ifdef GTK4
extern void run_this_gtk_native_dialog (GtkNativeDialog * dial, GCallback handler, gpointer data);
extern G_MODULE_EXPORT void select_unselect_this_atom (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void select_unselect_atoms (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void select_unselect_coord (GSimpleAction * action, GVariant * parameter, gpointer data);
 
extern G_MODULE_EXPORT void label_unlabel_this_atom (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void label_unlabel_atoms (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void label_unlabel_coord (GSimpleAction * action, GVariant * parameter, gpointer data);
 
extern G_MODULE_EXPORT void show_hide_this_atom (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void show_hide_atoms (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void show_hide_the_coord (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void show_hide_coord (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void show_hide_poly (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void show_hide_labels (GSimpleAction * action, GVariant * parameter, gpointer data);
 
extern G_MODULE_EXPORT void remove_the_atoms (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void replace_the_atoms (GSimpleAction * action, GVariant * parameter, gpointer data);
extern G_MODULE_EXPORT void edit_in_new_project (GSimpleAction * action, GVariant * parameter, gpointer data);
extern void add_widget_gesture_and_key_action (GtkWidget * widget,
                                               gchar * cp_name, GCallback cp_handler, gpointer cp_data,
                                               gchar * cr_name, GCallback cr_handler, gpointer cr_data,
                                               gchar * kp_name, GCallback kp_handler, gpointer kp_data,
                                               gchar * mo_name, GCallback mo_handler, gpointer mo_data,
                                               gchar * sc_name, GCallback sc_handler, gpointer sc_data);
extern G_MODULE_EXPORT gboolean destroy_this_window (GtkWindow * win, gpointer data);
extern G_MODULE_EXPORT gboolean hide_this_window (GtkWindow * win, gpointer data);
extern GtkFileChooserNative * create_file_chooser (const gchar * title, GtkWindow * parent, GtkFileChooserAction act, const gchar * act_name);
extern void pop_menu_at_pointer (GtkWidget * pop, double x, double y);
GListModel * file_chooser_get_file_names (GtkFileChooser * chooser);
extern void update_menu_bar (glwin * view);
 
#else
 
extern void update_chains_menus (glwin * view);
 
extern G_MODULE_EXPORT void select_unselect_this_atom (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void select_unselect_atoms (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void select_unselect_coord (GtkWidget * widg, gpointer data);
 
extern G_MODULE_EXPORT void label_unlabel_this_atom (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void label_unlabel_atoms (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void label_unlabel_coord (GtkWidget * widg, gpointer data);
 
extern G_MODULE_EXPORT void show_hide_this_atom (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void show_hide_atoms (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void show_hide_the_coord (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void show_hide_coord (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void show_hide_poly (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void show_hide_labels (GtkWidget * widg, gpointer data);
 
extern G_MODULE_EXPORT void remove_the_atoms (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void replace_the_atoms (GtkWidget * widg, gpointer data);
extern G_MODULE_EXPORT void edit_in_new_project (GtkWidget * widg, gpointer data);
extern GtkWidget * create_menu_item (gboolean add_mnemo, gchar * action);
extern GtkWidget * create_menu_item_from_widget (GtkWidget * widg, gboolean check, gboolean radio, gboolean status);
extern GtkWidget * menu_item_new_with_submenu (gchar * name, gboolean active, GtkWidget * sub_menu);
extern void add_menu_separator (GtkWidget * menu);
extern G_MODULE_EXPORT gboolean destroy_this_window (GtkWidget * win, GdkEvent * event, gpointer data);
extern G_MODULE_EXPORT gboolean hide_this_window (GtkWidget * win, GdkEvent * event, gpointer data);
extern GtkWidget * create_file_chooser (const gchar * title, GtkWindow * parent, GtkFileChooserAction act, const gchar * act_name);
extern void pop_menu_at_pointer (GtkWidget * widg, GdkEvent * event);
GSList * file_chooser_get_file_names (GtkFileChooser * chooser);
#endif
 
extern const gchar * entry_get_text (GtkEntry * entry);
extern GtkWidget * create_entry (GCallback handler, int dim, int cdim, gboolean key_release, gpointer data);
 
 
extern GtkWidget * stock_image (const gchar * stock_id);
extern void set_image_from_icon_name (GtkWidget * widg, gchar * icon);
extern GtkWidget * create_image_from_data (int format, gpointer item_image);
 
extern GtkWidget * gtk3_menu_item (GtkWidget * menu, gchar * name,
                                   int icon_format, gpointer item_icon,
                                   GCallback handler, gpointer data,
                                   gboolean accel, guint key, GdkModifierType mod,
                                   gboolean check, gboolean radio, gboolean status);
 
extern GtkWidget * add_advanced_item (GtkWidget * menu, GCallback handler, gpointer data, gboolean accel, guint key, GdkModifierType mod);
 
extern GtkWidget * markup_label (gchar * text, int dimx, int dimy, float ax, float ay);
extern GtkWidget * color_button (ColRGBA col, gboolean alpha, int dimx, int dimy, GCallback handler, gpointer data);
extern GtkWidget * font_button (gchar * font, int dimx, int dimy, GCallback handler, gpointer data);
extern GtkWidget * spin_button (GCallback handler, double value, double start, double end, double step, int digits, int dim,  gpointer data);
extern GtkWidget * check_button (gchar * text, int dimx, int dimy, gboolean state, GCallback handler, gpointer data);
extern GtkWidget * radio_button (gchar * text, int dimx, int dimy, gboolean state, GCallback handler, gpointer data);
extern GtkWidget * create_button (gchar * text, int image_format, gchar * image, int dimx, int dimy, int relief, GCallback handler, gpointer data);
 
extern ColRGBA gdkrgba_to_rgba (GdkRGBA colgdk);
extern GdkRGBA colrgba_togtkrgba (ColRGBA col);
extern ColRGBA get_button_color (GtkColorChooser * colob);
extern ColRGBA get_window_color (GtkWidget * color_win);
extern void set_color_chooser_color (GtkWidget * color_win, ColRGBA col);
extern void set_renderer_color (int tocol, GtkCellRenderer * renderer, ColRGBA col);
 
extern void button_set_image (GtkButton * but, gchar * text, int format, gpointer image);
 
extern GtkWidget * abox (GtkWidget * box, char * lab, int vspace);
extern GtkWidget * bbox (GtkWidget * box, char * lab);
extern GtkWidget * cbox (GtkWidget * box, char * lab);
extern GtkWidget * fbox (GtkWidget * box, char * lab);
extern GtkWidget * create_scroll (GtkWidget * box, int dimx, int dimy, int shadow);
extern GtkWidget * create_expander (gchar * name, gchar * file_img);
 
extern GtkWidget * create_win (gchar * str, GtkWidget * parent, gboolean modal, gboolean resiz);
 
extern void widget_add_action (GSimpleActionGroup * action_group, const gchar * act, GCallback handler, gpointer data,
                               gboolean check, gboolean status, gboolean radio, const gchar * stat);
extern void append_menu_item (GMenu * menu, const gchar * label, const gchar * action, const gchar * accel,
                              const gchar * custom, int format, const gchar * icon,
                              gboolean check, gboolean status, gboolean radio, const gchar * rstatus);
extern void append_submenu (GMenu * menu, const gchar * label, GMenu * submenu);
 
extern GtkWidget * destroy_this_widget (GtkWidget * widg);
extern void destroy_this_dialog (GtkDialog * dialog);
extern void destroy_this_native_dialog (GtkNativeDialog * dialog);
extern G_MODULE_EXPORT void run_destroy_dialog (GtkDialog * dialog, gint response_id, gpointer data);
 
extern void add_gtk_close_event (GtkWidget * widg, GCallback handler, gpointer data);
 
extern gchar * file_chooser_get_file_name (GtkFileChooser * chooser);
extern gchar * file_chooser_get_current_folder (GtkFileChooser * chooser);
extern gboolean file_chooser_set_file_name (GtkFileChooser * chooser, gchar * filename);
extern void file_chooser_set_current_folder (GtkFileChooser * chooser);
 
extern GtkWidget * get_top_level (GtkWidget * widg);
 
extern void provide_gtk_css (gchar * css);
extern double get_calc_time (struct timespec start, struct timespec stop);
extern gchar * calculation_time (gboolean modelv, double ctime);
 
typedef struct {
  GCallback handler;
  gpointer data;
} focus_data;
 
#endif  // GLOBAL_H_