gtkada-wrapper-devel

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

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

Revision: 18
          http://svn.sourceforge.net/gtkada-wrapper/?rev=18&view=rev
Author:   bechir_zalila
Date:     2006-11-27 13:12:21 -0800 (Mon, 27 Nov 2006)

Log Message:
-----------
	* Minor reformatting

Modified Paths:
--------------
    trunk/src/gtkada_wrapper.adb

Modified: trunk/src/gtkada_wrapper.adb
===================================================================
--- trunk/src/gtkada_wrapper.adb	2006-11-27 21:05:51 UTC (rev 17)
+++ trunk/src/gtkada_wrapper.adb	2006-11-27 21:12:21 UTC (rev 18)
@@ -218,11 +218,11 @@
 
             X_Start : Float;
             Y_Start : Float;
-            --  These 2 component are not necesary in the case of
+            --  These 2 components are not necesary in the case of
             --  A_Jump_With_End and A_Line_With_End. However we cannot
             --  do finer because it is impossible de decalre them
             --  twice (in the case of A_Line_With_Start_End and
-            --  A_Line_With_Start_Length.
+            --  A_Line_With_Start_Length).
 
             case Action is
                when A_Jump_With_End


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

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

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

Revision: 19
          http://svn.sourceforge.net/gtkada-wrapper/?rev=19&view=rev
Author:   bechir_zalila
Date:     2006-11-27 13:13:04 -0800 (Mon, 27 Nov 2006)

Log Message:
-----------
	* Minor reformatting

Modified Paths:
--------------
    trunk/src/gtkada_wrapper.adb

Modified: trunk/src/gtkada_wrapper.adb
===================================================================
--- trunk/src/gtkada_wrapper.adb	2006-11-27 21:12:21 UTC (rev 18)
+++ trunk/src/gtkada_wrapper.adb	2006-11-27 21:13:04 UTC (rev 19)
@@ -301,7 +301,7 @@
    procedure Do_Get_Line_String (Cmd : Command);
    procedure Do_Get_Immediate_Character (Cmd : Command);
 
-      --  Dispatch table
+   --  Dispatch table
 
    type Command_Proc_Type is access procedure (Cmd : Command);
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.

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

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

Revision: 20
          http://svn.sourceforge.net/gtkada-wrapper/?rev=20&view=rev
Author:   bechir_zalila
Date:     2006-11-27 13:18:02 -0800 (Mon, 27 Nov 2006)

Log Message:
-----------
	* Debug message reformatting

Modified Paths:
--------------
    trunk/src/gtkada_wrapper.adb

Modified: trunk/src/gtkada_wrapper.adb
===================================================================
--- trunk/src/gtkada_wrapper.adb	2006-11-27 21:13:04 UTC (rev 19)
+++ trunk/src/gtkada_wrapper.adb	2006-11-27 21:18:02 UTC (rev 20)
@@ -527,7 +527,7 @@
 
          Command_Queue.Enqueue (Command'(Action => A_Reset_Handler));
 
-         pragma Debug (O ("Main windows task terminated"));
+         pragma Debug (O ("Main windows task reinitiated"));
       end loop;
    end Main_Window;
 
@@ -562,9 +562,9 @@
             if Cmd.Action = A_Reset_Handler then
                exit;
             elsif Dispatch_Table (Cmd.Action) /= null then
-               pragma Debug (O ("Main_Loop: executing command"));
+               pragma Debug (O ("Event_Handler: executing command"));
                Dispatch_Table (Cmd.Action).all (Cmd);
-               pragma Debug (O ("Main_Loop: done"));
+               pragma Debug (O ("Event_Handler: done"));
             end if;
          end loop;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.