Revision: 5
http://svn.sourceforge.net/gtkada-wrapper/?rev=5&view=rev
Author: bechir_zalila
Date: 2006-11-24 16:18:45 -0800 (Fri, 24 Nov 2006)
Log Message:
-----------
* Removed the call to a subprogram from the spec it is declared in.
Modified Paths:
--------------
trunk/src/gtkada_wrapper.ads
Modified: trunk/src/gtkada_wrapper.ads
===================================================================
--- trunk/src/gtkada_wrapper.ads 2006-11-25 00:05:56 UTC (rev 4)
+++ trunk/src/gtkada_wrapper.ads 2006-11-25 00:18:45 UTC (rev 5)
@@ -183,21 +183,21 @@
-- Text Area Specific Routines --
---------------------------------
- procedure Put(Item : String);
+ procedure Put (Item : String);
-- Type the given text on the current cursor position of the text
-- area.
- procedure Put(Item : Character);
+ procedure Put (Item : Character);
-- Same as above but with a character
- procedure New_Line(Spacing : Positive := 1);
+ procedure New_Line (Spacing : Positive := 1);
-- Jump to the beginning of the last line of the next 'Spacing'
-- lines.
- procedure Put_Line(Item : String);
+ procedure Put_Line (Item : String);
-- Equivalent to Put (Item); New_Line;
- procedure Put_Line(Item : Character);
+ procedure Put_Line (Item : Character);
-- Equivalent to Put (Item); New_Line;
function Get return String;
@@ -206,7 +206,7 @@
function Get_Line return String;
-- Equivalent to ... := Get; New_Line;
- procedure Get_Immediate(Item : out Character);
+ procedure Get_Immediate (Item : out Character);
-- Block until the user press a key. The value of the key is
-- stored in Item. The user does not need to press ENTER.
@@ -222,18 +222,18 @@
B : Single_Color;
end record;
- Black : constant Color_Type := RGB (0, 0, 0);
- Red : constant Color_Type := RGB (255, 0, 0);
- Green : constant Color_Type := RGB (0, 255, 0);
- Yellow : constant Color_Type := RGB (255, 255, 0);
- Blue : constant Color_Type := RGB (0, 0, 255);
- Magenta : constant Color_Type := RGB (255, 0, 255);
- Cyan : constant Color_Type := RGB (0, 255, 255);
- Dark_Gray : constant Color_Type := RGB (77, 77, 77);
- Orange : constant Color_Type := RGB (255, 165, 0);
- Pink : constant Color_Type := RGB (255, 192, 203);
- Gray : constant Color_Type := RGB (127, 127, 127);
- Light_Gray : constant Color_Type := RGB (179, 179, 179);
- White : constant Color_Type := RGB (255, 255, 255);
+ Black : constant Color_Type := (0, 0, 0);
+ Red : constant Color_Type := (255, 0, 0);
+ Green : constant Color_Type := (0, 255, 0);
+ Yellow : constant Color_Type := (255, 255, 0);
+ Blue : constant Color_Type := (0, 0, 255);
+ Magenta : constant Color_Type := (255, 0, 255);
+ Cyan : constant Color_Type := (0, 255, 255);
+ Dark_Gray : constant Color_Type := (77, 77, 77);
+ Orange : constant Color_Type := (255, 165, 0);
+ Pink : constant Color_Type := (255, 192, 203);
+ Gray : constant Color_Type := (127, 127, 127);
+ Light_Gray : constant Color_Type := (179, 179, 179);
+ White : constant Color_Type := (255, 255, 255);
end Gtkada_Wrapper;
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.
|
