GNAVI ICG Project XML samples. 

Purpose:

To describe the graphical elements that the ICG would be potentially touching.
It does not describe an entire Ada project that may include many files, etc.
beyond just the GUI elements described here.

my_application.xml

<gnavi_project>
    <application name="My_Application">
        <windows>
            <window file="my_window.xml" />
            <window file="my_window2.xml" />
        </windows>            
    </application>
</gnavi_project>

my_window.xml

<gnavi_window>    
    <window name="My_Window" type="GWindows.Windows.Main.Main_Window_Type">
        <handlers>
            <handler name="My_Destroy" event="On_Destroy"
	    	      type="GWindows.Base.Action_Event" />
            <handler name="Custom_Create" event="On_Create"
	    	      type="GWindows.Base.Action_Event" />
        </handlers>
        <init>
            <Text value="&quot;My Application&quot;" />
            <Visible value="True" />
        </init>
        <controls>
            <control name="My_Button" type="GWindows.Buttons.Button_Type"
                Text="&quot;Click Me&quot;"
                Left="10"
                Top="10"
                Width="80"
                Height="40">
              <handlers>
                <handler name="My_Button_Clicked" event="On_Click"
			  type="GWindows.Base.Action_Event" />
              </handlers>
            </control>
        </controls>
    </window>
</gnavi_window>

my_window2.xml

<gnavi_window>    
    <window name="My_Window2" type="GWindows.Windows.Window_Type">
        <init>
           <Text value="&quot;Another Window&quot;" />
           <Width value="400" />
           <Height value="200" />
           <Visible value="True" />
        </init>
        <controls>
            <control name="My_Button" type="GWindows.Buttons.Button_Type"
                Text="&quot;End It All&quot;"
                Left="10"
                Top="10"
                Width="80"
                Height="40">
              <handlers>
                <handler name="End_It_All" event="On_Click"
			  type="GWindows.Base.Action_Event" />
              </handlers>
            </control>
        </controls>
    </window>
</gnavi_window>