## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

1.     -----------------------------------------------------------------------

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

3.     --                                                                   --

4.     --   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --

5.     --                Copyright (C) 2000-2011, AdaCore                   --

6.     --                                                                   --

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

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

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

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

11.     --                                                                   --

12.     -- This library is distributed in the hope that it will be useful,   --

13.     -- but WITHOUT ANY WARRANTY; without even the implied warranty of    --

14.     -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --

15.     -- General Public License for more details.                          --

16.     --                                                                   --

17.     -- You should have received a copy of the GNU General Public         --

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

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

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

21.     --                                                                   --

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

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

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

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

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

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

28.     -----------------------------------------------------------------------

30.     --  <description>

31.     --  A Gtk_Spinner widget displays an icon-size spinning animation. It is often

32.     --  used as an alternative to a Gtk_Progress for displaying indefinite

33.     --  activity, instead of actual progress. To start the animation, use

34.     --  Gtk.Spinner.Start; to stop it use Gtk.Spinner.Stop.

35.     --

36.     --  </description>

37.     --  <group>Ornaments</group>

39.     pragma Warnings (Off, "*is already use-visible*");

40.     with GlibTo API docTo specTo body;             use GlibTo API docTo specTo body;

41.     with Glib.PropertiesTo API docTo specTo body;  use Glib.PropertiesTo API docTo specTo body;

42.     with Glib.TypesTo API docTo specTo body;       use Glib.TypesTo API docTo specTo body;

43.     with Gtk.BuildableTo API docTo specTo body;    use Gtk.BuildableTo API docTo specTo body;

44.     with Gtk.Drawing_AreaTo API docTo specTo body; use Gtk.Drawing_AreaTo API docTo specTo body;

45.     with Gtk.WidgetTo API docTo specTo body;       use Gtk.WidgetTo API docTo specTo body;

47.     package Gtk.SpinnerTo API docTo specTo body is

49.        type Gtk_Spinner_Record is new Gtk_Drawing_Area_RecordTo API docTo spec with null record;

50.        type Gtk_Spinner is access all Gtk_Spinner_RecordTo API docTo spec'Class;

52.        ------------------

53.        -- Constructors --

54.        ------------------

56.        procedure Gtk_NewTo API docTo body (Spinner : out Gtk_SpinnerTo API docTo spec);

57.        procedure InitializeTo API docTo body (Spinner : access Gtk_Spinner_RecordTo API docTo spec'Class);

58.        --  Returns a new spinner widget. Not yet started.

59.        --  Since: gtk+ 2.20

61.        function Get_TypeTo API docTo body return Glib.GTypeTo API docTo spec;

62.        pragma Import (C, Get_TypeTo API docTo spec, "gtk_spinner_get_type");

64.        -------------

65.        -- Methods --

66.        -------------

68.        procedure StartTo API docTo body (Spinner : access Gtk_Spinner_RecordTo API docTo spec);

69.        --  Starts the animation of the spinner.

70.        --  Since: gtk+ 2.20

72.        procedure StopTo API docTo body (Spinner : access Gtk_Spinner_RecordTo API docTo spec);

73.        --  Stops the animation of the spinner.

74.        --  Since: gtk+ 2.20

76.        ----------------

77.        -- Interfaces --

78.        ----------------

79.        --  This class implements several interfaces. See Glib.Types

80.        --

81.        --  - "Buildable"

83.        package Implements_Buildable is new Glib.Types.ImplementsTo API docTo specTo body

84.          (Gtk.Buildable.Gtk_BuildableTo API docTo spec, Gtk_Spinner_RecordTo API docTo spec, Gtk_SpinnerTo API docTo spec);

85.        function "+"

86.          (Widget : access Gtk_Spinner_RecordTo API docTo spec'Class)

87.        return Gtk.Buildable.Gtk_BuildableTo API docTo spec

88.        renames Implements_Buildable.To_InterfaceTo API docTo specTo body;

89.        function "-"

90.          (Interf : Gtk.Buildable.Gtk_BuildableTo API docTo spec)

91.        return Gtk_SpinnerTo API docTo spec

92.        renames Implements_Buildable.To_ObjectTo API docTo specTo body;

94.        ----------------

95.        -- Properties --

96.        ----------------

97.        --  The following properties are defined for this widget. See

98.        --  Glib.Properties for more information on properties)

99.        --

100.        --  Name: Active_Property

101.        --  Type: Boolean

102.        --  Flags: read-write

104.        Active_Property : constant Glib.Properties.Property_BooleanTo API docTo spec;

106.     private

107.        Active_PropertyTo API docTo spec : constant Glib.Properties.Property_BooleanTo API docTo spec :=

108.          Glib.Properties.BuildTo API docTo specTo body ("active");

109.     end Gtk.SpinnerTo API docTo specTo body;