## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

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

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

3.     --                                                                   --

4.     --                Copyright (C) 2000-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.     -- As a special exception, if other files instantiate generics from  --

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

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

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

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

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

27.     -----------------------------------------------------------------------

29.     --  <description>

30.     --  A special kind of child that can be put in a Gtk_Plot_Canvas.

31.     --  </description>

32.     --  <c_version>gtkextra 2.1.1</c_version>

33.     --  <group>Plotting Data</group>

35.     with Gdk.ColorTo API docTo specTo body;

36.     with Gtk.EnumsTo API docTo specTo body;

37.     with Gtk.Extra.Plot_DataTo API docTo specTo body;

39.     package Gtk.Extra.Plot_Canvas.TextTo API docTo specTo body is

41.        type Gtk_Plot_Canvas_Text_RecordTo API docTo body is new Gtk_Plot_Canvas_Child_RecordTo API docTo specTo body

42.          with private;

43.        type Gtk_Plot_Canvas_Text is access all Gtk_Plot_Canvas_Text_RecordTo API docTo specTo body'Class;

45.        procedure Gtk_NewTo API docTo body

46.          (Child    : out Gtk_Plot_Canvas_TextTo API docTo spec;

47.           Text     : String;

48.           Font     : String := "";

49.           Height   : GintTo API docTo spec := 0;

50.           AngleTo API docTo body    : Gtk.Extra.Plot_Data.Plot_AngleTo API docTo spec := Gtk.Extra.Plot_Data.Angle_0;

51.           FgTo API docTo body       : Gdk.Color.Gdk_ColorTo API docTo specTo body := Gdk.Color.Null_ColorTo API docTo specTo body;

52.           BgTo API docTo body            : Gdk.Color.Gdk_ColorTo API docTo specTo body := Gdk.Color.Null_ColorTo API docTo specTo body;

53.           Transparent   : Boolean := True;

54.           JustificationTo API docTo body : Gtk.Enums.Gtk_JustificationTo API docTo spec := Gtk.Enums.Justify_Center);

55.        --  Create a new text child.

56.        --  If default values are used, the corresponding attribute isn't set

58.        procedure Set_AttributesTo API docTo body

59.          (Child         : access Gtk_Plot_Canvas_Text_RecordTo API docTo specTo body;

60.           Font          : String := "";

61.           Height        : GintTo API docTo spec;

62.           AngleTo API docTo body         : Gtk.Extra.Plot_Data.Plot_AngleTo API docTo spec;

63.           FgTo API docTo body            : Gdk.Color.Gdk_ColorTo API docTo specTo body := Gdk.Color.Null_ColorTo API docTo specTo body;

64.           BgTo API docTo body            : Gdk.Color.Gdk_ColorTo API docTo specTo body := Gdk.Color.Null_ColorTo API docTo specTo body;

65.           Transparent   : Boolean;

66.           JustificationTo API docTo body : Gtk.Enums.Gtk_JustificationTo API docTo spec;

67.           Text          : String);

68.        --  Change the attribute of Text. The attributes with their default

69.        --  values are not changed.

71.     private

72.        type Gtk_Plot_Canvas_Text_RecordTo API docTo spec is new Gtk_Plot_Canvas_Child_RecordTo API docTo specTo body

73.          with null record;

74.     end Gtk.Extra.Plot_Canvas.TextTo API docTo specTo body;