[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.