1. ----------------------------------------------------------------------- 
  2. --               GtkAda - Ada95 binding for Gtk+/Gnome               -- 
  3. --                                                                   -- 
  4. --                Copyright (C) 2006 AdaCore                         -- 
  5. --                                                                   -- 
  6. -- This library is free software; you can redistribute it and/or     -- 
  7. -- modify it under the terms of the GNU General Public               -- 
  8. -- License as published by the Free Software Foundation; either      -- 
  9. -- version 2 of the License, or (at your option) any later version.  -- 
  10. --                                                                   -- 
  11. -- This library is distributed in the hope that it will be useful,   -- 
  12. -- but WITHOUT ANY WARRANTY; without even the implied warranty of    -- 
  13. -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU -- 
  14. -- General Public License for more details.                          -- 
  15. --                                                                   -- 
  16. -- You should have received a copy of the GNU General Public         -- 
  17. -- License along with this library; if not, write to the             -- 
  18. -- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      -- 
  19. -- Boston, MA 02111-1307, USA.                                       -- 
  20. --                                                                   --
    21. -- -- -- -- -- -- -- -- -- -- -- -- 
  21. ----------------------------------------------------------------------- 
  22.  
  23. --  <description> 
  24. --  This package contains various subprograms to easily share settings between 
  25. --  applications, or even between various parts of your application. 
  26. --  </description> 
  27. --  <c_version>2.8.17</c_version> 
  28. --  <group>Configuration and Themes</group> 
  29.  
  30. with Gdk; 
  31. with Glib.Object; 
  32. with Glib.Values; 
  33. with Gtk.Style; 
  34. with Interfaces.C.Strings; 
  35.  
  36. package Gtk.Settings is 
  37.  
  38.    type Gtk_Settings_Record is new Glib.Object.GObject_Record with null record; 
  39.    type Gtk_Settings is access all Gtk_Settings_Record'Class; 
  40.  
  41.    function Get_Default return Gtk_Settings; 
  42.    --  Gets the settings object for the default GDK screen, creating 
  43.    --  it if necessary. 
  44.  
  45.    function Get_For_Screen (Screen : Gdk.Gdk_Screen) return Gtk_Settings; 
  46.    --  Gets the settings object for Screen, creating it if necessary. 
  47.  
  48.    function Get_Type return Glib.GType; 
  49.    --  Return the internal type used to identify a Gtk_Settings 
  50.  
  51.    procedure Install_Property (Pspec : Glib.Param_Spec); 
  52.    --  Declares a property that can be shared among various parts of the 
  53.    --  application 
  54.  
  55.    procedure Install_Property_Parser 
  56.      (Pspec  : Glib.Param_Spec; 
  57.       Parser : Gtk.Style.Gtk_Rc_Property_Parser); 
  58.    --  Install a new parser for the given property. This parser is responsible 
  59.    --  for reading the property's value in a gtk configuration file, and 
  60.    --  convert it to a suitable value. 
  61.  
  62.    -------------------------------- 
  63.    -- Precoded parsing functions -- 
  64.    -------------------------------- 
  65.  
  66.    function Parse_Color 
  67.      (Pspec     : Glib.Param_Spec; 
  68.       Rc_String : Interfaces.C.Strings.chars_ptr; 
  69.       Value     : access Glib.Values.GValue) return Gboolean; 
  70.    function Parse_Enum 
  71.      (Pspec     : Glib.Param_Spec; 
  72.       Rc_String : Interfaces.C.Strings.chars_ptr; 
  73.       Value     : access Glib.Values.GValue) return Gboolean; 
  74.    function Parse_Flags 
  75.      (Pspec     : Glib.Param_Spec; 
  76.       Rc_String : Interfaces.C.Strings.chars_ptr; 
  77.       Value     : access Glib.Values.GValue) return Gboolean; 
  78.    function Parse_Requisition 
  79.      (Pspec     : Glib.Param_Spec; 
  80.       Rc_String : Interfaces.C.Strings.chars_ptr; 
  81.       Value     : access Glib.Values.GValue) return Gboolean; 
  82.    function Parse_Border 
  83.      (Pspec     : Glib.Param_Spec; 
  84.       Rc_String : Interfaces.C.Strings.chars_ptr; 
  85.       Value     : access Glib.Values.GValue) return Gboolean; 
  86.    --  These functions parse some of the predefined property types 
  87.  
  88.    ----------------------------------- 
  89.    -- Setting predefined properties -- 
  90.    ----------------------------------- 
  91.  
  92.    procedure Set_Property_Value 
  93.      (Settings : access Gtk_Settings_Record; 
  94.       Name     : String; 
  95.       Value    : Glib.Values.GValue; 
  96.       Origin   : String); 
  97.    procedure Set_String_Property 
  98.      (Settings : access Gtk_Settings_Record; 
  99.       Name     : String; 
  100.       Value    : String; 
  101.       Origin   : String); 
  102.    procedure Set_Long_Property 
  103.      (Settings : access Gtk_Settings_Record; 
  104.       Name     : String; 
  105.       Value    : Glong; 
  106.       Origin   : String); 
  107.    procedure Set_Double_Property 
  108.      (Settings : access Gtk_Settings_Record; 
  109.       Name     : String; 
  110.       Value    : Gdouble; 
  111.       Origin   : String); 
  112.    --  Set the value of a property. This automatically propagates the new 
  113.    --  value to all listeners, so that they can refresh themselves. 
  114.    --  Origin should be something like "filename:line" for rc files, or the 
  115.    --  name of the function that sets it otherwise 
  116.  
  117.    ---------------- 
  118.    -- Properties -- 
  119.    ---------------- 
  120.    --  The following settings are predefined 
  121.    --  - "gtk-alternative-button-order" : Boolean 
  122.    --    Whether buttons in dialogs should use the alternative button order. 
  123.    --    This is used on systems like windows where OK and Cancel buttons are 
  124.    --    generally in an order different from that of GNOME and GTK 
  125.    -- 
  126.    --  - "gtk-button-images": Boolean 
  127.    --    Whether stock icons should be shown in buttons. 
  128.    -- 
  129.    --  - "gtk-can-change-accels": Boolean 
  130.    --    Whether menu accelerators can be changed by pressing a key over the 
  131.    --    menu item. 
  132.    -- 
  133.    --  - "gtk-color-palette": String 
  134.    --    Palette to use in the color selector. See Gtk.Color_Selection. 
  135.    --    Default is "black:white:gray50:red:purple" 
  136.    -- 
  137.    --  - "gtk-cursor-blink": Boolean 
  138.    --    Whether the cursor should blink. 
  139.    -- 
  140.    --  - "gtk-cursor-blink-time": Gint 
  141.    --    Length of the cursor blink cycle, in milliseconds. (>= 100) 
  142.    -- 
  143.    --  - "gtk-cursor-theme-name": String 
  144.    --    Name of the cursor theme to use. 
  145.    -- 
  146.    --  - "gtk-cursor-theme-size": Gint 
  147.    --    Size to use for cursors (0 to 128) 
  148.    -- 
  149.    --  - "gtk-dnd-drag-threshold": Gint 
  150.    --    Number of pixels the cursor can move before dragging (>= 1) 
  151.    -- 
  152.    --  - "gtk-double-click-distance": Gint 
  153.    --    Maximum distance allowed between two clicks for them to be considered 
  154.    --    a double click (in pixels). 
  155.    -- 
  156.    --  - "gtk-double-click-time": Gint 
  157.    --    Maximum time allowed between two clicks for them to be considered a 
  158.    --    double click (in milliseconds). 
  159.    -- 
  160.    --  - "gtk-entry-select-on-focus": Boolean 
  161.    --    Whether to select the contents of an entry when it is focused. 
  162.    -- 
  163.    --  - "gtk-fallback-icon-theme": String 
  164.    --    Name of a icon theme to fall back to. 
  165.    -- 
  166.    --  - "gtk-file-chooser-backend": String 
  167.    --    The default file system backend to use in the file chooser. See also 
  168.    --    Gtk.File_System 
  169.    -- 
  170.    --  - "gtk-font-name": String 
  171.    --    Name of default font to use. 
  172.    -- 
  173.    --  - "gtk-icon-sizes": String 
  174.    --    List of icon sizes (gtk-menu=16,16:gtk-button=20,20...) 
  175.    -- 
  176.    --  - "gtk-icon-theme-name": String 
  177.    --    Name of icon theme to use (default="hicolor") 
  178.    -- 
  179.    --  - "gtk-key-theme-name": String 
  180.    --    Name of key theme RC file to load (for instance "Emacs") 
  181.    -- 
  182.    --  - "gtk-menu-bar-accel": String 
  183.    --    Keybinding to activate the menu bar (default="F10") 
  184.    -- 
  185.    --  - "gtk-menu-bar-popup-delay": Gint 
  186.    --    Delay before the submenus of a menu bar appear (Default=0) 
  187.    -- 
  188.    --  - "gtk-menu-images": Boolean 
  189.    --    Whether images should be shown in menus (Default=True) 
  190.    -- 
  191.    --  - "gtk-menu-popdown-delay": Gint 
  192.    --    The time before hiding a submenu when the pointer is moving towards 
  193.    --    the submenu (Default=1000) 
  194.    -- 
  195.    --  - "gtk-menu-popup-delay": Gint 
  196.    --    Minimum time the pointer must stay over a menu item before the submenu 
  197.    --    appear (Default=225) 
  198.    -- 
  199.    --  - "gtk-modules": String 
  200.    --    List of currently active GTK modules. 
  201.    -- 
  202.    --  - "gtk-split-cursor": Boolean 
  203.    --    Whether two cursors should be displayed for mixed left-to-right and 
  204.    --    right-to-left text (Default True) 
  205.    -- 
  206.    --  - "gtk-theme-name": String 
  207.    --    Name of theme RC file to load (Default: "Raleigh") 
  208.    -- 
  209.    --  - "gtk-toolbar-icon-size": Gtk_Icon_Size 
  210.    --    Size of icons in default toolbars (default=Large) 
  211.    -- 
  212.    --  - "gtk-toolbar-style": Gtk_Toolbar_Style 
  213.    --    Whether default toolbars have text only, text and icons, icons only, 
  214.    --    etc (default: both) 
  215.    -- 
  216.    --  - "gtk-xft-antialias": Gint 
  217.    --    Whether to antialias Xft fonts; 0=no, 1=yes, -1=default 
  218.    -- 
  219.    --  - "gtk-xft-dpi": Gint 
  220.    --    Resolution for Xft, in 1024 * dots/inch. -1 to use default value. 
  221.    -- 
  222.    --  - "gtk-xft-hinting": Gint 
  223.    --    Whether to hint Xft fonts; 0=no, 1=yes, -1=default. 
  224.    -- 
  225.    --  - "gtk-xft-hintstyle": String 
  226.    --    What degree of hinting to use; hintnone, hintslight, hintmedium, or 
  227.    --    hintfull. 
  228.    -- 
  229.    --  - "gtk-xft-rgba": String 
  230.    --    Type of subpixel antialiasing; none, rgb, bgr, vrgb, vbgr. 
  231.  
  232.    Gtk_Alternative_Button_Order : constant String := 
  233.      "gtk-alternative-button-order"; 
  234.    Gtk_Button_Images         : constant String := "gtk-button-images"; 
  235.    Gtk_Can_Change_Accels     : constant String := "gtk-can-change-accels"; 
  236.    Gtk_Color_Palette         : constant String := "gtk-color-palette"; 
  237.    Gtk_Cursor_Blink          : constant String := "gtk-cursor-blink"; 
  238.    Gtk_Cursor_Blink_Time     : constant String := "gtk-cursor-blink-time"; 
  239.    Gtk_Cursor_Theme_Name     : constant String := "gtk-cursor-theme-name"; 
  240.    Gtk_Cursor_Theme_Size     : constant String := "gtk-cursor-theme-size"; 
  241.    Gtk_Dnd_Drag_Threshold    : constant String := "gtk-dnd-drag-threshold"; 
  242.    Gtk_Double_Click_Distance : constant String := "gtk-double-click-distance"; 
  243.    Gtk_Double_Click_Time     : constant String := "gtk-double-click-time"; 
  244.    Gtk_Entry_Select_On_Focus : constant String := "gtk-entry-select-on-focus"; 
  245.    Gtk_Fallback_Icon_Theme   : constant String := "gtk-fallback-icon-theme"; 
  246.    Gtk_File_Chooser_Backend  : constant String := "gtk-file-chooser-backend"; 
  247.    Gtk_Font_Name             : constant String := "gtk-font-name"; 
  248.    Gtk_Icon_Sizes            : constant String := "gtk-icon-sizes"; 
  249.    Gtk_Icon_Theme_Name       : constant String := "gtk-icon-theme-name"; 
  250.    Gtk_Key_Theme_Name        : constant String := "gtk-key-theme-name"; 
  251.    Gtk_Menu_Bar_Accel        : constant String := "gtk-menu-bar-accel"; 
  252.    Gtk_Menu_Bar_Popup_Delay  : constant String := "gtk-menu-bar-popup-delay"; 
  253.    Gtk_Menu_Images           : constant String := "gtk-menu-images"; 
  254.    Gtk_Menu_Popdown_Delay    : constant String := "gtk-menu-popdown-delay"; 
  255.    Gtk_Menu_Popup_Delay      : constant String := "gtk-menu-popup-delay"; 
  256.    Gtk_Modules               : constant String := "gtk-modules"; 
  257.    Gtk_Split_Cursor          : constant String := "gtk-split-cursor"; 
  258.    Gtk_Theme_Name            : constant String := "gtk-theme-name"; 
  259.    Gtk_Toolbar_Icon_Size     : constant String := "gtk-toolbar-icon-size"; 
  260.    Gtk_Toolbar_Style         : constant String := "gtk-toolbar-style"; 
  261.    Gtk_Xft_Antialias         : constant String := "gtk-xft-antialias"; 
  262.    Gtk_Xft_Dpi               : constant String := "gtk-xft-dpi"; 
  263.    Gtk_Xft_Hinting           : constant String := "gtk-xft-hinting"; 
  264.    Gtk_Xft_Hintstyle         : constant String := "gtk-xft-hintstyle"; 
  265.    Gtk_Xft_Rgba              : constant String := "gtk-xft-rgba"; 
  266.  
  267. private 
  268.    pragma Import (C, Get_Type,          "gtk_settings_get_type"); 
  269.    pragma Import (C, Install_Property_Parser, 
  270.                   "gtk_settings_install_property_parser"); 
  271.    pragma Import (C, Install_Property,  "gtk_settings_install_property"); 
  272.    pragma Import (C, Parse_Color,       "gtk_rc_property_parse_color"); 
  273.    pragma Import (C, Parse_Enum,        "gtk_rc_property_parse_enum"); 
  274.    pragma Import (C, Parse_Flags,       "gtk_rc_property_parse_flags"); 
  275.    pragma Import (C, Parse_Requisition, "gtk_rc_property_parse_requisition"); 
  276.    pragma Import (C, Parse_Border,      "gtk_rc_property_parse_border"); 
  277. end Gtk.Settings;