File: gtk-progress.ads

package info (click to toggle)
libgtkada2 2.8.1-6lenny3
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 13,496 kB
  • ctags: 3,886
  • sloc: ada: 103,189; ansic: 45,411; perl: 5,500; sh: 2,812; makefile: 1,169; xml: 19
file content (160 lines) | stat: -rw-r--r-- 6,128 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
-----------------------------------------------------------------------
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
--                                                                   --
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
--                Copyright (C) 2000-2006 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.                                       --
--                                                                   --
-----------------------------------------------------------------------

--  <description>
--  This package is deprecated. It now only acts as an abstract base class
--  for other widgets.
--  </description>
--  <c_version>2.8.17</c_version>
--  <group>Obsolescent widgets</group>

with Gtk.Adjustment;
with Gtk.Widget;
with Glib.Properties;

package Gtk.Progress is
   pragma Obsolescent; --  Gtk.Progress

   type Gtk_Progress_Record is new Gtk.Widget.Gtk_Widget_Record with private;
   type Gtk_Progress is access all Gtk_Progress_Record'Class;

   function Get_Type return Glib.GType;
   --  Return the internal value associated with a Gtk_Progress.

   function Get_Current_Percentage
     (Progress : access Gtk_Progress_Record) return Gdouble;

   function Get_Current_Text
     (Progress : access Gtk_Progress_Record) return UTF8_String;

   function Get_Percentage_From_Value
     (Progress : access Gtk_Progress_Record;
      Value    : Gdouble) return Gdouble;

   function Get_Text_From_Value
     (Progress : access Gtk_Progress_Record;
      Value    : Gdouble) return UTF8_String;

   function Get_Value (Progress : access Gtk_Progress_Record) return Gdouble;

   function Get_Adjustment
     (Widget : access Gtk_Progress_Record)
      return Gtk.Adjustment.Gtk_Adjustment;

   procedure Configure
     (Progress : access Gtk_Progress_Record;
      Value    : Gdouble;
      Min      : Gdouble;
      Max      : Gdouble);

   procedure Set_Activity_Mode
     (Progress      : access Gtk_Progress_Record;
      Activity_Mode : Boolean);

   function Get_Activity_Mode
     (Progress : access Gtk_Progress_Record) return Boolean;

   procedure Set_Adjustment
     (Progress   : access Gtk_Progress_Record;
      Adjustment : Gtk.Adjustment.Gtk_Adjustment);

   procedure Set_Format_String
     (Progress : access Gtk_Progress_Record;
      Format   : UTF8_String);

   procedure Set_Percentage
     (Progress   : access Gtk_Progress_Record;
      Percentage : Gdouble);

   procedure Set_Show_Text
     (Progress  : access Gtk_Progress_Record;
      Show_Text : Boolean);

   procedure Set_Text_Alignment
     (Progress : access Gtk_Progress_Record;
      X_Align  : Gfloat;
      Y_Align  : Gfloat);

   procedure Set_Value
     (Progress : access Gtk_Progress_Record;
      Value    : Gdouble);

   ----------------
   -- Properties --
   ----------------

   --  <properties>
   --  The following properties are defined for this widget. See
   --  Glib.Properties for more information on properties.
   --
   --  - Name:  Activity_Mode_Property
   --    Type:  Boolean
   --    Flags: read-write
   --    Descr: If true the Gtk_Progress is in activity mode, meaning that
   --           it signals something is happening, but not how much of the
   --           activity is finished. This is used when you're doing something
   --           that you don't know how long it will take.
   --    See also: Set_Activity_Mode and Get_Activity_Mode
   --
   --  - Name:  Show_Text_Property
   --    Type:  Boolean
   --    Flags: read-write
   --    Descr: Whether the progress is shown as text
   --    See also: Set_Show_Text
   --
   --  - Name:  Text_Xalign_Property
   --    Type:  Gfloat
   --    Flags: read-write
   --    Descr: A number between 0.0 and 1.0 specifying the horizontal
   --           alignment of the text in the progress widget
   --    See also: Set_Set_Text_Alignment
   --
   --  - Name:  Text_Yalign_Property
   --    Type:  Gfloat
   --    Flags: read-write
   --    Descr: A number between 0.0 and 1.0 specifying the vertical alignment
   --           of the text in the progress widget
   --    See also: Set_Set_Text_Alignment
   --
   --  </properties>

   Activity_Mode_Property : constant Glib.Properties.Property_Boolean;
   Show_Text_Property     : constant Glib.Properties.Property_Boolean;
   Text_Xalign_Property   : constant Glib.Properties.Property_Float;
   Text_Yalign_Property   : constant Glib.Properties.Property_Float;

private
   type Gtk_Progress_Record is new Gtk.Widget.Gtk_Widget_Record
     with null record;

   Activity_Mode_Property : constant Glib.Properties.Property_Boolean :=
     Glib.Properties.Build ("activity_mode");
   Show_Text_Property     : constant Glib.Properties.Property_Boolean :=
     Glib.Properties.Build ("show_text");
   Text_Xalign_Property   : constant Glib.Properties.Property_Float :=
     Glib.Properties.Build ("text_xalign");
   Text_Yalign_Property   : constant Glib.Properties.Property_Float :=
     Glib.Properties.Build ("text_xalign");

   pragma Import (C, Get_Type, "gtk_progress_get_type");
end Gtk.Progress;