[Gtkada-wrapper-devel] SF.net SVN: gtkada-wrapper: [5] trunk/src/gtkada_wrapper.ads

[<bec...@us...>]

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.