File: gtk-status

-----------------------------------------------------------------------

--               GtkAda - Ada95 binding for Gtk+/Gnome               --

--                                                                   --

--                    Copyright (C) 2010-2013, AdaCore               --

--                                                                   --

-- This library is free software; you can redistribute it and/or     --

-- modify it under the terms of the GNU General Public               --

-- License as published by the Free Software Foundation; either      --

-- version 2 of the License, or (at your option) any later version.  --

--                                                                   --

-- This library 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 General Public         --

-- License along with this library; if not, write to the             --

-- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --

-- Boston, MA 02111-1307, USA.                                       --

--                                                                   --

-- As a special exception, if other files instantiate generics from  --

-- this unit, or you link this unit with other files to produce an   --

-- executable, this  unit  does not  by itself cause  the resulting  --

-- executable to be covered by the GNU General Public License. This  --

-- exception does not however invalidate any other reasons why the   --

-- executable file  might be covered by the  GNU Public License.     --

-----------------------------------------------------------------------

```
 
```
```
--  <description> 
```

--  The "system tray" or notification area is normally used for transient icons

--  that indicate some special state. For example, a system tray icon might

--  appear to tell the user that they have new mail, or have an incoming

--  instant message, or something along those lines. The basic idea is that

--  creating an icon in the notification area is less annoying than popping up

```
--  a dialog. 
```
```
-- 
```

--  A Gtk_Status_Icon object can be used to display an icon in a "system tray".

--  The icon can have a tooltip, and the user can interact with it by

--  activating it or popping up a context menu. Critical information should not

--  solely be displayed in a Gtk_Status_Icon, since it may not be visible

--  (e.g. when the user doesn't have a notification area on his panel). This

```
--  can be checked with Is_Embedded. 
```
```
-- 
```

--  On X11, the implementation follows the freedesktop.org "System Tray"

--  specification. Implementations of the "tray" side of this specification can

--  be found e.g. in the GNOME and KDE panel applications.

```
-- 
```

--  Note that a Gtk_Status_Icon is not a widget, but just a GObject. Making it

--  a widget would be impractical, since the system tray on Win32 doesn't allow

```
--  to embed arbitrary widgets. 
```
```
--  </description> 
```
```
--  <c_version>2.16.6</c_version> 
```
```
 
```

with Glib.G_IconTo API doc
To spec
To body;

with Glib.ObjectTo API doc
To spec
To body;

with Glib.PropertiesTo API doc
To spec
To body;

with Gdk.PixbufTo API doc
To spec
To body;

with Gdk.RectangleTo API doc
To spec
To body;

with Gdk.ScreenTo API doc
To spec
To body;

with Gtk.EnumsTo API doc
To spec
To body;

with Gtk.ImageTo API doc
To spec
To body;

```
 
```

package Gtk.Status_IconTo API doc
To spec
To body is

```
 
```

   type Gtk_Status_Icon_RecordTo API doc
To body is new Glib.Object.GObject_RecordTo API doc
To spec
To body with private;

   type Gtk_Status_Icon is access all Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

```
 
```

   function Get_TypeTo API doc
To body return GTypeTo API doc
To spec;

```
 
```

   procedure Gtk_NewTo API doc
To body (Widget : out Gtk_Status_IconTo API doc
To spec);

   procedure InitializeTo API doc
To body (Widget : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class);

   --  Creates an empty status icon object.

```
 
```

   function Get_Storage_TypeTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body)

      return Gtk.Image.Gtk_Image_TypeTo API doc
To spec;

   --  Gets the type of representation being used by the Gtk_Status_Icon

   --  to store image data. If the Gtk_Status_Icon has no image data,

   --  the return value will be Image_Empty.

```
 
```

   function Is_EmbeddedTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Boolean;

   --  Returns whether the status icon is embedded in a notification

```
   --  area. 
```
```
 
```
```
   ---------- 
```
```
   -- File -- 
```
```
   ---------- 
```
```
 
```

   procedure Gtk_New_From_FileTo API doc
To body

     (Widget   : out Gtk_Status_IconTo API doc
To spec;

```
      Filename : String); 
```

   procedure Initialize_From_FileTo API doc
To body

     (Widget   : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

```
      Filename : String); 
```

   --  Creates a status icon displaying the file Filename.

```
   -- 
```

   --  The image will be scaled down to fit in the available

   --  space in the notification area, if necessary.

```
 
```

   procedure Set_From_FileTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Filename    : String); 
```

   --  Makes Status_Icon display the file Filename.

   --  See Gtk_New_From_File for details.

```
 
```
```
   ------------ 
```
```
   -- G_Icon -- 
```
```
   ------------ 
```
```
 
```

   procedure Gtk_New_From_GiconTo API doc
To body

     (Widget : out Gtk_Status_IconTo API doc
To spec;

      Icon   : Glib.G_Icon.G_IconTo API doc
To spec);

   procedure Initialize_From_GiconTo API doc
To body

     (Widget : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

      Icon   : Glib.G_Icon.G_IconTo API doc
To spec);

   --  Creates a status icon displaying a G_Icon. If the icon is a

   --  themed icon, it will be updated when the theme changes.

```
 
```
```
   function Get_GiconTo API doc
To body 
```

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Glib.G_Icon.G_IconTo API doc
To spec;

   --  Retrieves the G_Icon being displayed by the Gtk_Status_Icon.

   --  The storage type of the status icon must be Image_Empty or

   --  Image_Gicon (see Get_Storage_Type).

   --  The caller of this function does not own a reference to the

```
   --  returned G_Icon. 
```
```
   -- 
```

   --  Status_Icon is left unchanged if this function fails.  Returns

```
   --  null if the image is empty. 
```
```
 
```

   procedure Set_From_GiconTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

      Icon        : Glib.G_Icon.G_IconTo API doc
To spec);

   --  Makes Status_Icon display the G_Icon.

   --  See Gtk_New_From_G_Icon for details.

```
 
```
```
   --------------- 
```
```
   -- Icon_Name -- 
```
```
   --------------- 
```
```
 
```

   procedure Gtk_New_From_Icon_NameTo API doc
To body

     (Widget    : out Gtk_Status_IconTo API doc
To spec;

```
      Icon_Name : String); 
```

   procedure Initialize_From_Icon_NameTo API doc
To body

     (Widget    : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

```
      Icon_Name : String); 
```

   --  Creates a status icon displaying an icon from the current icon theme.

   --  If the current icon theme is changed, the icon will be updated

```
   --  appropriately. 
```
```
 
```

   function Get_Icon_NameTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return String;

   --  Gets the name of the icon being displayed by the Gtk_Status_Icon.

   --  The storage type of the status icon must be Image_Empty or

   --  Image_Icon_Name (see Get_Storage_Type).  Returns "" if the image

```
   --  is empty. 
```
```
 
```

   procedure Set_From_Icon_NameTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Icon_Name   : String); 
```

   --  Makes Status_Icon display the icon named Icon_Name from the

```
   --  current icon theme. 
```

   --  See Gtk_New_From_Icon_Name for details.

```
 
```
```
   ------------ 
```
```
   -- Pixbuf -- 
```
```
   ------------ 
```
```
 
```

   procedure Gtk_New_From_PixbufTo API doc
To body

     (Widget : out Gtk_Status_IconTo API doc
To spec;

      Pixbuf : Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec);

   procedure Initialize_From_PixbufTo API doc
To body

     (Widget : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

      Pixbuf : Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec);

   --  Creates a status icon displaying Pixbuf.

```
   -- 
```

   --  The image will be scaled down to fit in the available

   --  space in the notification area, if necessary.

```
 
```

   function Get_PixbufTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body)

      return Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec;

   --  Gets the Gdk_Pixbuf being displayed by the Gtk_Status_Icon.

   --  The storage type of the status icon must be Gtk_Image_Empty

   --  (in which case this function will return null) or Gtk_Image_Pixbuf

   --  (see Get_Storage_Type).  The caller of this function does not own

   --  a reference to the returned pixbuf.

```
 
```

   procedure Set_From_PixbufTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

      Pixbuf      : Gdk.Pixbuf.Gdk_PixbufTo API doc
To spec);

   --  Makes Status_Icon display Pixbuf.

   --  See Gtk_New_From_Pixbuf for details.

```
 
```
```
   ----------- 
```
```
   -- Stock -- 
```
```
   ----------- 
```
```
 
```

   procedure Gtk_New_From_StockTo API doc
To body

     (Widget   : out Gtk_Status_IconTo API doc
To spec;

```
      Stock_Id : String); 
```

   procedure Initialize_From_StockTo API doc
To body

     (Widget   : access Gtk_Status_Icon_RecordTo API doc
To spec
To body'Class;

```
      Stock_Id : String); 
```

   --  Creates a status icon displaying a stock icon. Sample stock icon

   --  names are "GTK_STOCK_OPEN", "GTK_STOCK_QUIT". You can register your

   --  own stock icon names, see Gtk.Icon_Factory.Add_Default and

```
   --  Gtk.Icon_Factory.Add. 
```
```
 
```
```
   function Get_StockTo API doc
To body 
```

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return String;

   --  Gets the id of the stock icon being displayed by the Gtk_Status_Icon.

   --  The storage type of the status icon must be Image_Empty or

   --  Image_Stock (see Get_Storage_Type).  Returns "" if the image is empty.

```
 
```

   procedure Set_From_StockTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Stock_Id    : String); 
```

   --  Makes Status_Icon display the stock icon with the id Stock_Id.

   --  See Gtk_New_From_Stock for details.

```
 
```
```
   -------------- 
```
```
   -- Tooltips -- 
```
```
   -------------- 
```
```
 
```

   function Get_Has_TooltipTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Boolean;

   procedure Set_Has_TooltipTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Has_Tooltip : Boolean); 
```

   --  Gets/Sets the has-tooltip property on Status_Icon.

   --  See has-tooltip for more information.

```
 
```

   function Get_Tooltip_MarkupTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return String;

   procedure Set_Tooltip_MarkupTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Markup      : String); 
```

   --  Gets/Sets Markup as the contents of the tooltip, which is marked up with

   --  the Pango text markup language.  "" means no tooltip.

```
   -- 
```

   --  Set_Tooltip_Markup function will take care of setting has-tooltip to

   --  True and of the default handler for the query-tooltip signal.

```
   -- 
```

   --  See also the tooltip-markup property.

```
 
```

   function Get_Tooltip_TextTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return String;

   procedure Set_Tooltip_TextTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Text        : String); 
```

   --  Gets/Sets the contents of the tooltip.  "" means no tooltip.

```
   -- 
```

   --  This function will take care of setting has-tooltip to

   --  True and of the default handler for the query-tooltip

```
   --  signal. 
```
```
   -- 
```

   --  See also the tooltip-text property.

```
 
```
```
   ------------- 
```
```
   -- Display -- 
```
```
   ------------- 
```
```
 
```

   procedure Get_GeometryTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

      Screen      : in out Gdk.Screen.Gdk_ScreenTo API doc
To spec;

      AreaTo API doc
To body        : out Gdk.Rectangle.Gdk_RectangleTo API doc
To spec;

      OrientationTo API doc
To body : out Gtk.Enums.Gtk_OrientationTo API doc
To spec;

```
      Success     : out Boolean); 
```
```
   --  Status_Icon: a Gtk_Status_Icon 
```

   --  Screen:      a valid Gdk_Screen or null if the information is not needed

   --  Area:        area occupied by the status icon

   --  Orientation: the orientation of the panel in which the status icon is

   --               embedded. A panel at the top or bottom of the screen is

   --               horizontal, a panel at the left or right is vertical.

   --  Success:     True if the location information has been filled in.

```
   -- 
```

   --  Obtains information about the location of the status icon

   --  on screen. This information can be used to e.g. position

   --  popups like notification bubbles.

```
   -- 
```

   --  See Position_Menu for a more convenient alternative for positioning

```
   --  menus. 
```
```
   -- 
```

   --  Note that some platforms do not allow GTK+ to provide

   --  this information, and even on platforms that do allow it,

   --  the information is not reliable unless the status icon

   --  is embedded in a notification area, see Is_Embedded.

```
 
```

   function Get_BlinkingTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Boolean;

   procedure Set_BlinkingTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Blinking    : Boolean); 
```

   --  Makes the status icon start or stop blinking.

   --  Note that blinking user interface elements may be problematic

   --  for some users, and thus may be turned off, in which case

```
   --  this setting has no effect. 
```
```
 
```

   function Get_ScreenTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body)

      return Gdk.Screen.Gdk_ScreenTo API doc
To spec;

   procedure Set_ScreenTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

      Screen      : access Gdk.Screen.Gdk_Screen_RecordTo API doc
To spec'Class);

   --  Gets/Sets the Gdk_Screen where Status_Icon is displayed.  When invoking

   --  Set_Screen, if the icon is already mapped, it will be unmapped, and then

```
   --  remapped on the new screen. 
```
```
 
```

   function Get_SizeTo API doc
To body (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return GintTo API doc
To spec;

   --  Gets the size in pixels that is available for the image.

   --  Stock icons and named icons adapt their size automatically

   --  if the size of the notification area changes. For other

   --  storage types, the size-changed signal can be used to

```
   --  react to size changes. 
```
```
   -- 
```

   --  Note that the returned size is only meaningful while the

   --  status icon is embedded (see Is_Embedded).

```
 
```

   function Get_VisibleTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Boolean;

   procedure Set_VisibleTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Visible     : Boolean); 
```

   --  Whether the status icon is visible or not.

   --  Note that being visible does not guarantee that

   --  the user can actually see the icon, see also

```
   --  Is_Embedded. 
```
```
 
```

   function Get_X11_Window_IdTo API doc
To body

     (Status_Icon : access Gtk_Status_Icon_RecordTo API doc
To spec
To body) return Guint32To API doc
To spec;

   --  This function is only useful on the X11/freedesktop.org platform.

   --  It returns a window ID for the widget in the underlying

   --  status icon implementation.  This is useful for the Galago

   --  notification service, which can send a window ID in the protocol

   --  in order for the server to position notification windows

   --  pointing to a status icon reliably.

```
   -- 
```

   --  This function is not intended for other use cases which are

   --  more likely to be met by one of the non-X11 specific methods, such

```
   --  as Position_Menu. 
```
```
 
```

   procedure Position_MenuTo API doc
To body

```
     (Menu        : System.Address; 
```

      X           : out GintTo API doc
To spec;

      Y           : out GintTo API doc
To spec;

      Push_In     : out GbooleanTo API doc
To spec;

```
      Status_Icon : System.Address); 
```

   --  Menu positioning function to use with Gtk.Menu.Popup to position

   --  Menu aligned to Status_Icon.  Pass Get_Object (Your_Status_Icon) as

   --  User_Data when calling Gtk.Menu.Popup.

```
 
```
```
   ----------------- 
```
```
   -- Obsolescent -- 
```
```
   ----------------- 
```
```
 
```

   procedure Set_TooltipTo API doc
To body

     (Status_Icon  : access Gtk_Status_Icon_RecordTo API doc
To spec
To body;

```
      Tooltip_Text : String); 
```
```
   pragma Obsolescent; --  Set_Tooltip 
```

   --  Sets the tooltip of the status icon.

```
   -- 
```

   --  Deprecated: 2.16: Use Set_Tooltip_Text instead.

```
 
```
```
   ---------------- 
```
```
   -- Properties -- 
```
```
   ---------------- 
```
```
 
```
```
   --  <properties> 
```
```
   --  Name:  Blinking_Property 
```
```
   --  Type:  Boolean 
```

   --  Descr: Whether or not the status icon is blinking

```
   -- 
```
```
   --  Name:  Embedded_Property 
```
```
   --  Type:  Boolean 
```

   --  Descr: Whether or not the status icon is embedded

```
   -- 
```
```
   --  Name:  File_Property 
```
```
   --  Type:  String 
```

   --  Descr: Filename to load and display

```
   -- 
```
```
   --  Name:  Gicon_Property 
```
```
   --  Type:  Object 
```

   --  Descr: The GIcon being displayed

```
   -- 
```
```
   --  Name:  Has_Tooltip_Property 
```
```
   --  Type:  Boolean 
```

   --  Descr: Whether this tray icon has a tooltip

```
   -- 
```
```
   --  Name:  Icon_Name_Property 
```
```
   --  Type:  String 
```

   --  Descr: The name of the icon from the icon theme

```
   -- 
```
```
   --  Name:  Orientation_Property 
```
```
   --  Type:  Enum 
```

   --  Descr: The orientation of the tray

```
   -- 
```
```
   --  Name:  Pixbuf_Property 
```
```
   --  Type:  Object 
```
```
   --  Descr: A Gdk_Pixbuf to display 
```
```
   -- 
```
```
   --  Name:  Screen_Property 
```
```
   --  Type:  Object 
```

   --  Descr: The screen where this status icon will be displayed

```
   -- 
```
```
   --  Name:  Size_Property 
```
```
   --  Type:  Int 
```
```
   --  Descr: The size of the icon 
```
```
   -- 
```
```
   --  Name:  Stock_Property 
```
```
   --  Type:  String 
```

   --  Descr: Stock ID for a stock image to display

```
   -- 
```
```
   --  Name:  Storage_Type_Property 
```
```
   --  Type:  Enum 
```

   --  Descr: The representation being used for image data

```
   -- 
```
```
   --  Name:  Tooltip_Markup_Property 
```
```
   --  Type:  String 
```

   --  Descr: The contents of the tooltip for this tray icon

```
   -- 
```
```
   --  Name:  Tooltip_Text_Property 
```
```
   --  Type:  String 
```

   --  Descr: The contents of the tooltip for this widget

```
   -- 
```
```
   --  Name:  Visible_Property 
```
```
   --  Type:  Boolean 
```

   --  Descr: Whether or not the status icon is visible

```
   -- 
```
```
   --  </properties> 
```
```
 
```

   Blinking_Property       : constant Glib.Properties.Property_BooleanTo API doc
To spec;

   Embedded_Property       : constant Glib.Properties.Property_BooleanTo API doc
To spec;

   File_Property           : constant Glib.Properties.Property_StringTo API doc
To spec;

   Gicon_Property          : constant Glib.Properties.Property_ObjectTo API doc
To spec;

   Has_Tooltip_Property    : constant Glib.Properties.Property_BooleanTo API doc
To spec;

   Icon_Name_Property      : constant Glib.Properties.Property_StringTo API doc
To spec;

   Orientation_Property    : constant Glib.Properties.Property_EnumTo API doc
To spec;

   Pixbuf_Property         : constant Glib.Properties.Property_ObjectTo API doc
To spec;

   Screen_Property         : constant Glib.Properties.Property_ObjectTo API doc
To spec;

   Size_Property           : constant Glib.Properties.Property_IntTo API doc
To spec;

   Stock_Property          : constant Glib.Properties.Property_StringTo API doc
To spec;

   Storage_Type_Property   : constant Glib.Properties.Property_EnumTo API doc
To spec;

   Tooltip_Markup_Property : constant Glib.Properties.Property_StringTo API doc
To spec;

   Tooltip_Text_Property   : constant Glib.Properties.Property_StringTo API doc
To spec;

   Visible_Property        : constant Glib.Properties.Property_BooleanTo API doc
To spec;

```
 
```
```
private 
```
```
 
```

   type Gtk_Status_Icon_RecordTo API doc
To spec is

     new Glib.Object.GObject_RecordTo API doc
To spec
To body with null record;

```
 
```

   Blinking_PropertyTo API doc
To spec : constant Glib.Properties.Property_BooleanTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("blinking");

   Embedded_PropertyTo API doc
To spec : constant Glib.Properties.Property_BooleanTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("embedded");

   File_PropertyTo API doc
To spec : constant Glib.Properties.Property_StringTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("file");

   Gicon_PropertyTo API doc
To spec : constant Glib.Properties.Property_ObjectTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("gicon");

   Has_Tooltip_PropertyTo API doc
To spec : constant Glib.Properties.Property_BooleanTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("has-tooltip");

   Icon_Name_PropertyTo API doc
To spec : constant Glib.Properties.Property_StringTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("icon-name");

   Orientation_PropertyTo API doc
To spec : constant Glib.Properties.Property_EnumTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("orientation");

   Pixbuf_PropertyTo API doc
To spec : constant Glib.Properties.Property_ObjectTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("pixbuf");

   Screen_PropertyTo API doc
To spec : constant Glib.Properties.Property_ObjectTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("screen");

   Size_PropertyTo API doc
To spec : constant Glib.Properties.Property_IntTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("size");

   Stock_PropertyTo API doc
To spec : constant Glib.Properties.Property_StringTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("stock");

   Storage_Type_PropertyTo API doc
To spec : constant Glib.Properties.Property_EnumTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("storage-type");

   Tooltip_Markup_PropertyTo API doc
To spec : constant Glib.Properties.Property_StringTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("tooltip-markup");

   Tooltip_Text_PropertyTo API doc
To spec : constant Glib.Properties.Property_StringTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("tooltip-text");

   Visible_PropertyTo API doc
To spec : constant Glib.Properties.Property_BooleanTo API doc
To spec :=

     Glib.Properties.BuildTo API doc
To spec
To body ("visible");

```
 
```

   pragma Import (C, Get_TypeTo API doc
To spec, "gtk_status_icon_get_type");

   pragma Import (C, Position_MenuTo API doc
To spec, "gtk_status_icon_position_menu");

```
 
```

end Gtk.Status_IconTo API doc
To spec
To body;

Documentation