[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Gnostic is Ada Generic Neural Object System Engineering.                                                                                                --[m
[31m-- Gnostic (C) Copyright 2016 Manuel De Girardi.                                                                                                           --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m

[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[31m-- Date        := 2016-12-06 15:54:11 ; [m
[31m-- Description : Ada Generic Neural Object System Engineering.                                                                                              --[m
[31m-- Version     := 2016.36.1a ; [m
[31m-- Authors     : Manuel De Girardi.                                                                                                                         --[m
[31m--------------------------------------------------------------------------------------------------------------------------------------------------------------[m
[01;34mwith[m Ada[31m.[mDirectories[31m;[m
[01;34muse[m Ada[31m.[mDirectories[31m;[m
[01;34mwith[m Gtk[31m.[mDialog[31m;[m
[01;34muse[m Gtk[31m.[mDialog[31m;[m
[01;34mwith[m Gtk[31m.[mWidget[31m;[m
[01;34muse[m Gtk[31m.[mWidget[31m;[m
[01;34mwith[m Gtk[31m.[mLink_Button[31m;[m
[01;34muse[m Gtk[31m.[mLink_Button[31m;[m
[01;34mwith[m Gtk[31m.[mText_Tag_Table[31m;[m
[01;34muse[m Gtk[31m.[mText_Tag_Table[31m;[m
[01;34mwith[m Gtk[31m.[mText_Tag[31m;[m
[01;34muse[m Gtk[31m.[mText_Tag[31m;[m
[01;34mwith[m Gtk[31m.[mText_Iter[31m;[m
[01;34muse[m Gtk[31m.[mText_Iter[31m;[m
[01;34mwith[m Gtk[31m.[mText_Mark[31m;[m
[01;34muse[m Gtk[31m.[mText_Mark[31m;[m

[01;34mwith[m GtkAda[31m.[mfile_selection[31m;[m

[01;34mwith[m Glib[31m.[mError[31m;[m
[01;34muse[m Glib[31m.[mError[31m;[m
[01;34mwith[m Glib[31m.[mConvert[31m;[m

[01;34mwith[m Gtk[31m.[mEnums[31m;[m
[01;34muse[m Gtk[31m.[mEnums[31m;[m

[01;34mwith[m Gtk[31m.[mStock[31m;[m
[01;34muse[m Gtk[31m.[mStock[31m;[m
[01;34mwith[m Gtk[31m.[mAction[31m;[m

[01;34mwith[m Gtk[31m.[mLabel[31m;[m
[01;34muse[m Gtk[31m.[mLabel[31m;[m

[01;34mwith[m Cairo[31m.[mPng[31m;[m
[01;34mwith[m Cairo[31m.[mRegion[31m;[m        [01;34muse[m Cairo[31m.[mRegion[31m;[m
[01;34mwith[m Cairo[31m.[mSurface[31m;[m       [01;34muse[m Cairo[31m.[mSurface[31m;[m
[01;34mwith[m Cairo[31m.[mImage_Surface[31m;[m [01;34muse[m Cairo[31m.[mImage_Surface[31m;[m
[01;34muse[m Cairo[31m;[m
[01;34mwith[m Pango[31m.[mCairo[31m;[m         [01;34muse[m Pango[31m.[mCairo[31m;[m
[01;34mwith[m Gdk[31m.[mCairo[31m;[m           [01;34muse[m Gdk[31m.[mCairo[31m;[m

[01;34mwith[m Text_Io[31m;[m
[01;34mwith[m Ada[31m.[mWide_Text_Io[31m;[m
[01;34mwith[m Ada[31m.[mCharacters[31m.[mHandling[31m;[m
[01;34muse[m Ada[31m.[mCharacters[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mMaps[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mFixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m.[mFixed[31m;[m
[01;34muse[m Ada[31m.[mStrings[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mWide_Fixed[31m;[m
[01;34muse[m Ada[31m;[m
[01;34mwith[m System[31m.[mAddress_To_Access_Conversions[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mStrings[31m;[m
[01;34mwith[m Ada[31m.[mStrings[31m.[mUTF_Encoding[31m.[mWide_Strings[31m;[m

[01;34mwith[m Gnat[31m.[mDirectory_Operations[31m;[m
[01;34muse[m Gnat[31m.[mDirectory_Operations[31m;[m
[01;34muse[m Gnat[31m;[m

[01;34mwith[m Gtk[31m.[mAbout_Dialog[31m;[m
[01;34muse[m Gtk[31m.[mAbout_Dialog[31m;[m

[01;34mwith[m Gtk[31m.[mGentry[31m;[m
[01;34muse[m Gtk[31m.[mGentry[31m;[m

[01;34mwith[m Gnos[31m.[mVersions[31m;[m
[01;34mwith[m Gnos[31m.[mVersions[31m.[mVersion_Io[31m;[m

[01;34mwith[m Gnos[31m.[mVersions[31m.[mEditting[31m;[m
[01;34muse[m Gnos[31m.[mVersions[31m.[mEditting[31m;[m
[01;34muse[m Gnos[31m.[mVersions[31m;[m
[01;34muse[m Gnos[31m.[mVersions[31m.[mVersion_Io[31m;[m
[01;34mwith[m gnos[31m.[mTools[31m;[m
[01;34muse[m gnos[31m.[mTools[31m;[m
[01;34mwith[m Gnat[31m.[mCommand_Line[31m;[m
[01;34muse[m Gnat[31m.[mCommand_Line[31m;[m

[01;34mwith[m Gnat[31m.[mStrings[31m;[m

[01;34mwith[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m
[01;34muse[m Ada[31m.[mCalendar[31m.[mFormatting[31m;[m
[01;34mwith[m Ada[31m.[mCommand_Line[31m;[m

[01;34mpackage[m [01;34mbody[m Gnos[31m.[mWindows [01;34mis[m
   
   [01;34mprocedure[m [01;30mComputation_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Computation_Menu[31m);[m
      
   [01;34mprocedure[m [01;30mProject_Archive[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Project_Archive[31m);[m
   
   [01;34mprocedure[m [01;30mProject_Prepare[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Project_Prepare[31m);[m
   
   [01;34mprocedure[m [01;30mQuit[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Quit[31m);[m
   
   [01;34mprocedure[m [01;30mExport_Canvas_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Export_Canvas_Menu[31m);[m
   
   
   
   [01;34mprocedure[m [01;30mReverse_Canvas_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Reverse_Canvas_Menu[31m);[m

   
   [01;34mprocedure[m [01;30mReload_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Reload_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mUpdate_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Update_Menu[31m);[m
   
   
   [01;34mprocedure[m [01;30mClear_Menu[m [31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Clear_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mClean_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Clean_Menu[31m);[m
   
   
   [01;34mprocedure[m [01;30mRestart_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Restart_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mCreate_List[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Create_List[31m);[m
   
   
   [01;34mprocedure[m [01;30mNew_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m New_File[31m);[m
   
   [01;34mprocedure[m [01;30mBuild_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Build_Menu[31m);[m
   
   
   [01;34mprocedure[m [01;30mOpen_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Open_File[31m);[m
   
   
   
   [01;34mprocedure[m [01;30mAbout[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m About[31m);[m
   
   [01;34mprocedure[m [01;30mXterm_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Xterm_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mUnself_Programming_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Unself_Programming_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mUnself_Executed_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m  Unself_Executed_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mself_Programming_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m self_Programming_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mself_Executed_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m  self_Executed_Menu[31m);[m
   
   Entries [31m:[m [01;34mconstant[m Action_Entry_Array [31m:=[m
     [31m([m[35m1[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"FileMenu"[m[31m,[m        Label [31m=>[m [31m"_File"[m[31m),[m      
      [35m2[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"New_File"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_NEw[31m,[m
                   Label       [31m=>[m [31m"_New file"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>N"[m[31m,[m
                   Tooltip     [31m=>[m [31m"New file"[m[31m,[m
                   Callback    [31m=>[m New_file'[01;34mAccess[m[31m),[m
      [35m3[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Open_File"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Open[31m,[m
                   Label       [31m=>[m [31m"_Open file"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>N"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Open file"[m[31m,[m
                   Callback    [31m=>[m Open_file'[01;34mAccess[m[31m),[m      
      [35m4[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Quit"[m[31m,[m		   
                   Stock_Id    [31m=>[m Stock_Quit[31m,[m
                   Label       [31m=>[m [31m"_Quit"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>Q"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Quit"[m[31m,[m
                   Callback    [31m=>[m Quit'[01;34mAccess[m[31m),[m
      [35m5[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"HelpMenu"[m[31m,[m        Label [31m=>[m [31m"_Help"[m[31m),[m      
      [35m6[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"About"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_About[31m,[m
                   Label       [31m=>[m [31m"_About"[m[31m,[m
                   Accelerator [31m=>[m [31m""[m[31m,[m
                   Tooltip     [31m=>[m [31m"About"[m[31m,[m
                   Callback    [31m=>[m About'[01;34mAccess[m[31m),[m
      [35m7[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"ProjectMenu"[m[31m,[m        Label [31m=>[m [31m"_Project"[m[31m),[m      
      [35m8[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Create_List"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Refresh[31m,[m
                   Label       [31m=>[m [31m"_Create_List"[m[31m,[m
                   Accelerator [31m=>[m [31m""[m[31m,[m
                   Tooltip     [31m=>[m [31m"Create_List"[m[31m,[m
                   Callback    [31m=>[m Create_List'[01;34mAccess[m[31m),[m
      [35m9[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Prepare"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Execute[31m,[m
                   Label       [31m=>[m [31m"_Prepare"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>P"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Prepare"[m[31m,[m
                   Callback    [31m=>[m Project_Prepare'[01;34mAccess[m[31m),[m      
      [35m10[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Reload"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Refresh[31m,[m
                    Label       [31m=>[m [31m"_Reload"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>R"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Reload"[m[31m,[m
                    Callback    [31m=>[m Reload_Menu'[01;34mAccess[m[31m),[m      
      [35m11[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Build"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_Build"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>B"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Build"[m[31m,[m
                    Callback    [31m=>[m Build_Menu'[01;34mAccess[m[31m),[m
      [35m12[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Archive"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_Archive"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Archive"[m[31m,[m
                    Callback    [31m=>[m Project_Archive'[01;34mAccess[m[31m),[m            
      [35m13[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"SystemMenu"[m[31m,[m        Label [31m=>[m [31m"_System"[m[31m),[m      
      [35m14[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Clear"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Delete[31m,[m
                    Label       [31m=>[m [31m"_Clear"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>L"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Clear text"[m[31m,[m
                    Callback    [31m=>[m Clear_menu'[01;34mAccess[m[31m),[m
      [35m15[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"TermMenu"[m[31m,[m        Label [31m=>[m [31m"_Term"[m[31m),[m      
      [35m16[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"xterm"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_xterm 80x24"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>T"[m[31m,[m
                    Tooltip     [31m=>[m [31m"xterm"[m[31m,[m
                    Callback    [31m=>[m Xterm_Menu'[01;34mAccess[m[31m),[m
      [35m17[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Export_PNG"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Open[31m,[m
                    Label       [31m=>[m [31m"_Export canvas to PNG"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Export PNG"[m[31m,[m
                    Callback    [31m=>[m Export_Canvas_Menu'[01;34mAccess[m[31m),[m
      [35m18[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Update"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_Update"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>U"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Update"[m[31m,[m
                    Callback    [31m=>[m Update_Menu'[01;34mAccess[m[31m),[m
      [35m19[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Restart"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_Restart"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Restart"[m[31m,[m
                    Callback    [31m=>[m Restart_Menu'[01;34mAccess[m[31m),[m
      [35m20[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Clean"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"_Clean"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Clean"[m[31m,[m
                    Callback    [31m=>[m Clean_Menu'[01;34mAccess[m[31m),[m
      [35m21[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"SelfMenu"[m[31m,[m        Label [31m=>[m [31m"_Self"[m[31m),[m
      [35m22[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Unself_Programming"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Stop[31m,[m
                    Label       [31m=>[m [31m"Unself _programming"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Unself_Programming"[m[31m,[m
                    Callback    [31m=>[m Unself_Programming_menu'[01;34mAccess[m[31m),[m
      [35m23[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Unself_Executed"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Stop[31m,[m
                    Label       [31m=>[m [31m"Unself _Executed"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"Unself_Executed"[m[31m,[m
                    Callback    [31m=>[m Unself_Executed_Menu'[01;34mAccess[m[31m),[m
      [35m24[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Self_Programming"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Media_stop[31m,[m
                    Label       [31m=>[m [31m"self p_rogramming"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"self_Programming"[m[31m,[m
                    Callback    [31m=>[m Self_Programming_Menu'[01;34mAccess[m[31m),[m
      [35m25[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Self_Executed"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Execute[31m,[m
                    Label       [31m=>[m [31m"self E_xecuted"[m[31m,[m
                    Accelerator [31m=>[m [31m""[m[31m,[m
                    Tooltip     [31m=>[m [31m"self_Executed"[m[31m,[m
                    Callback    [31m=>[m self_Executed_Menu'[01;34mAccess[m[31m),[m
      [35m26[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"ViewMenu"[m[31m,[m        Label [31m=>[m [31m"_View"[m[31m),[m      
      [35m27[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Reverse_Canvas"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_refresh[31m,[m
                    Label       [31m=>[m [31m"_Reverse canvas"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>W"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Reverse canvas"[m[31m,[m
                    Callback    [31m=>[m Reverse_Canvas_Menu'[01;34mAccess[m[31m),[m
      [35m28[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"ComputationMenu"[m[31m,[m
                    Stock_Id    [31m=>[m Stock_Media_play[31m,[m
                    Label       [31m=>[m [31m"_computation"[m[31m,[m
                    Accelerator [31m=>[m [31m"<control>I"[m[31m,[m
                    Tooltip     [31m=>[m [31m"Computation menu"[m[31m,[m
                    Callback    [31m=>[m Computation_Menu'[01;34mAccess[m[31m)[m
	
     [31m);[m
   
   
   
   UI_Info [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
     [31m"<ui>"[m
     [31m&[m [31m"  <menubar name='MenuBar'>"[m
     [31m&[m [31m"    <menu action='FileMenu'>"[m   
     [31m&[m [31m"      <menuitem action='New_File'/>"[m
     [31m&[m [31m"      <menuitem action='Open_File'/>"[m
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='Export_PNG'/>"[m
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='Quit'/>"[m
     [31m&[m [31m"    </menu>"[m
     [31m&[m [31m"    <menu action='ProjectMenu'>"[m
     [31m&[m [31m"      <menuitem action='Create_List'/>"[m     
     [31m&[m [31m"      <menuitem action='Prepare'/>"[m
     [31m&[m [31m"      <menuitem action='ComputationMenu'/>"[m
     [31m&[m [31m"      <menuitem action='Reload'/>"[m     
     [31m&[m [31m"      <menuitem action='Update'/>"[m     
     [31m&[m [31m"      <menuitem action='Clean'/>"[m          
     [31m&[m [31m"      <menuitem action='Archive'/>"[m
     [31m&[m [31m"      <menuitem action='Build'/>"[m
     [31m&[m [31m"      <menuitem action='Restart'/>"[m     
     [31m&[m [31m"    </menu>"[m
     [31m&[m [31m"    <menu action='SelfMenu'>"[m
     [31m&[m [31m"      <menuitem action='Self_Executed'/>"[m     
     [31m&[m [31m"      <menuitem action='Self_Programming'/>"[m          
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='Unself_Executed'/>"[m     
     [31m&[m [31m"      <menuitem action='Unself_Programming'/>"[m     
     [31m&[m [31m"    </menu>"[m     
     [31m&[m [31m"    <menu action='SystemMenu'>"[m
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='Clear'/>"[m     
     [31m&[m [31m"    </menu>"[m
     [31m&[m [31m"    <menu action='TermMenu'>"[m
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='xterm'/>"[m
     [31m&[m [31m"    </menu>"[m     
     [31m&[m [31m"    <menu action='ViewMenu'>"[m
     [31m&[m [31m"      <menuitem action='Reverse_Canvas'/>"[m          
     [31m&[m [31m"    </menu>"[m          
     [31m&[m [31m"    <menu action='HelpMenu'>"[m
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='About'/>"[m     
     [31m&[m [31m"    </menu>"[m          
     [31m&[m [31m"  </menubar>"[m
     [31m&[m [31m"</ui>"[m[31m;[m
   
   
   [01;34mprocedure[m [01;30mAbout_Process[m[31m([mMain [31m:[m [01;34min[m Object_Pointer[31m);[m
   
   [01;34mprocedure[m Insert_With_Tag
     [31m([mBuffer [31m:[m [01;34maccess[m Gtk_Text_Buffer_Record'Class[31m;[m
      Tag    [31m:[m [32mString[m[31m;[m
      Text   [31m:[m [32mString[m[31m);[m
   
   
   [01;34mprocedure[m On_Link_Button_Clicked
     [31m([mButton [31m:[m [01;34maccess[m Gtk_Link_Button_Record'Class[31m;[m
      Link   [31m:[m UTF8_String[31m;[m
      Data   [31m:[m [32mBoolean[m[31m);[m
   
   [01;34mprocedure[m [01;30mXterm_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      B_Args[31m,[m Args [31m:[m Argument_List_access[31m;[m      
      Exec_Location [31m:[m Os_Lib[31m.[mString_Access[31m;[m
      
      Xterm_Call [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"xterm -geometry 80x24"[m[31m;[m
      Command_Index [31m:[m [01;34mconstant[m Natural [31m:=[m [01;30mIndex[m[31m([mXterm_Call[31m,[m [31m" "[m[31m,[m [01;30mIndex_Non_Blank[m[31m([mXterm_Call[31m));[m
      Command [31m:[m Gnat[31m.[mCommand_Line[31m.[mCommand_Line[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Command_index [31m>[m [35m1[m [01;34mthen[m
         [01;30mSet_Command_Line[m[31m([mCommand[31m,[m Xterm_Call[31m);[m
         [01;30mBuild[m[31m([mCommand[31m,[m B_Args[31m);[m		       		     	    
         Args [31m:=[m [01;34mnew[m [01;30mArgument_List[m[31m([m[35m1[m[31m..[mB_Args'length [31m-[m [35m1[m[31m);[m
	 
         [01;34mfor[m I [01;34min[m [35m1[m[31m..[mB_Args'length [31m-[m [35m1[m [01;34mloop[m
	    
            [01;30mArgs[m[31m([mI[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mNormalize_Quoted_argument[m[31m([m[01;30mB_Args[m[31m([mI[31m+[m[35m1[m[31m).[m[01;34mall[m[31m));[m
	    
	    
         [01;34mend[m [01;34mloop[m[31m;[m            
	 
	 
         Exec_Location [31m:=[m [01;30mLocate_Exec_On_Path[m[31m([m[01;30mXterm_Call[m[31m([mXterm_Call'First[31m..[mCommand_Index[31m-[m[35m1[m[31m));[m
	 
         [01;34mif[m Exec_Location [31m/=[m [01;34mnull[m [01;34mthen[m	       
            [01;30mTo_Pointer[m[31m([mMain_Window[31m).[mId [31m:=[m [01;30mNon_Blocking_Spawn[m[31m([mExec_Location[31m.[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m	

   [01;34mend[m Xterm_Menu[31m;[m
   
   [31m-- Automation_Message,[m
   [31m-- On_Error_Message,[m
   [31m-- System_Step_Message.[m
   
   
   
   [01;34mtype[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage [31m:[m Message_Enum[31m)[m [01;34mis[m
      [01;34mrecord[m	 
         Dialog     [31m:[m Gtk_Dialog[31m;[m
         Box        [31m:[m Gtk_Vbox[31m;[m
         Label      [31m:[m Gtk_Label[31m;[m
         End_time   [31m:[m Time [31m:=[m Clock[31m;[m
         Timeout    [31m:[m [32mduration[m [31m:=[m [35m1.0[m[31m;[m
         Success    [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
         
         Text_View [31m:[m Gtk_Text_View[31m;[m
         Text_Buffer [31m:[m Gtk_Text_Buffer[31m;[m
	 Timeout_Id [31m:[m Glib[31m.[mMain[31m.[mG_Source_Id[31m;[m
         [01;34mcase[m Message [01;34mis[m
         [01;34mwhen[m Automation_Message [31m=>[m	       
            Remaning_Time [31m:[m Time [31m:=[m Clock[31m;[m	       
            Next_Step [31m:[m System_Step_Enum [31m:=[m System_Step_Enum'First[31m;[m
         [01;34mwhen[m On_Error_Message [31m=>[m
            Step_On_Error [31m:[m System_Step_Enum [31m:=[m List[31m;[m
            Result [31m:[m Results[31m.[mSpawn_Result_Type[31m;[m	       
         [01;34mwhen[m System_Step_Message [31m=>[m
            Previsious_Step [31m:[m System_Step_Enum [31m:=[m System_Step_Enum'First[31m;[m
            Current_Step    [31m:[m System_Step_Enum [31m:=[m System_Step_Enum'First[31m;[m
            Comment [31m:[m Gtk_Label[31m;[m
         [01;34mwhen[m Computation_Message [31m=>[m	
            [01;34mnull[m[31m;[m
         [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m      
   
   [01;34mpackage[m Messages_Timeouts [01;34mis[m [01;34mnew[m Glib[31m.[mMain[31m.[m[01;30mgeneric_sources[m[31m([mMessage_Timeout_Window_Type[31m);[m
   [01;34mfunction[m [01;30mMessage_timeout_func[m[31m([mMessage_window [31m:[m Message_Timeout_Window_Type[31m)[m [01;34mreturn[m [32mboolean[m [01;34mis[m
   
   [01;34mbegin[m     
      [01;34mcase[m Message_Window[31m.[mMessage [01;34mis[m
         [01;34mwhen[m Automation_Message [31m=>[m
            [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mRemaning_Time [31m-[m Clock[31m));[m

            [01;34mif[m Message_Window[31m.[mRemaning_Time [31m<[m Clock [01;34mthen[m	       
               Gtk[31m.[mDialog[31m.[m[01;30mResponse[m[31m([mMessage_Window[31m.[mDialog[31m,[m Gtk_Response_Yes[31m);[m
               
	       [01;34mreturn[m False[31m;[m
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mwhen[m On_Error_Message [31m=>[m	    
            [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_Time [31m-[m clock[31m));[m

            [01;34mif[m Message_Window[31m.[mEnd_Time [31m<[m Clock [01;34mthen[m
               Gtk[31m.[mDialog[31m.[m[01;30mResponse[m[31m([mMessage_Window[31m.[mDialog[31m,[m Gtk_Response_Yes[31m);[m
	       
	       [01;34mreturn[m False[31m;[m
            [01;34mend[m [01;34miF[m[31m;[m
         [01;34mwhen[m System_Step_Message [31m=>[m
            [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_Time [31m-[m Clock[31m));[m

            [01;34mif[m Message_Window[31m.[mEnd_Time [31m<[m Clock [01;34mthen[m
               Gtk[31m.[mDialog[31m.[m[01;30mResponse[m[31m([mMessage_Window[31m.[mDialog[31m,[m Gtk_Response_Yes[31m);[m
	       
	       [01;34mreturn[m False[31m;[m
            [01;34mend[m [01;34miF[m[31m;[m	    
         [01;34mwhen[m Computation_Message [31m=>[m
            [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_Time [31m-[m Clock[31m));[m

            [01;34mif[m Message_Window[31m.[mEnd_Time [31m<[m Clock [01;34mthen[m
               Gtk[31m.[mDialog[31m.[m[01;30mResponse[m[31m([mMessage_Window[31m.[mDialog[31m,[m Gtk_Response_No[31m);[m
	       
	       [01;34mreturn[m False[31m;[m
            [01;34mend[m [01;34miF[m[31m;[m	    
      [01;34mend[m [01;34mcase[m[31m;[m	 
      [01;30mShow_All[m[31m([mMessage_Window[31m.[mLabel[31m);[m
      [01;34mreturn[m true[31m;[m
   [01;34mend[m Message_Timeout_Func[31m;[m
   
   
   
   
   [01;34mprocedure[m [01;30mInitialize_Message_Window[m[31m([mMessage_Window [31m:[m [01;34min[m [01;34mout[m Message_Timeout_Window_Type [31m;[m Parent [31m:[m Gtk_window[31m)[m [01;34mis[m
      
      Response [31m:[m Gtk_Response_Type[31m;[m
      Yes    [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      No     [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      Scroll [31m:[m Gtk_Scrolled_Window[31m;[m
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      
      Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mMessage_Window[31m.[mDialog[31m,[m [31m"Timeout message : "[m [31m&[m Message_Enum'[01;30mImage[m[31m([mMessage_Window[31m.[mMessage[31m),[m Parent[31m,[m Flags [31m=>[m Modal[31m);[m
      Message_Window[31m.[mBox [31m:=[m [01;30mGet_Content_area[m[31m([mMessage_Window[31m.[mDialog[31m);[m      
      [01;30mGtk_New[m[31m([mMessage_Window[31m.[mLabel[31m,[m [31m""[m[31m);[m
      Yes [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mMessage_Window[31m.[mDialog[31m,[m [31m"Yes"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes[31m);[m
      No [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mMessage_Window[31m.[mDialog[31m,[m [31m"No"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_No[31m);[m         
      [01;34mcase[m Message_Window[31m.[mMessage [01;34mis[m
	 [01;34mwhen[m Automation_Message [31m=>[m
	    [01;30mSet_Default_size[m[31m([mMessage_Window[31m.[mDialog[31m,[m [35m500[m[31m,[m [35m200[m[31m);[m 
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_Buffer[31m);[m
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_View[31m,[m Message_Window[31m.[mText_Buffer[31m);[m	    
	    [31m--Set_Usize(Message_Window.Text_View, 500, 200);[m
	    [01;30mGtk_New[m[31m([mScroll[31m);[m
	    [01;30mAdd[m[31m([mScroll[31m,[m Message_Window[31m.[mText_View[31m);[m
	    [01;30mPack_Start[m[31m([mMessage_Window[31m.[mBox[31m,[m Scroll[31m,[m False[31m,[m False[31m);[m	    	    
	    [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next Step : "[m [31m&[m 
			      System_Step_Enum'[01;30mimage[m[31m([mMessage_Window[31m.[mNext_Step[31m));[m
	    [01;30mSet_Editable[m[31m([mMessage_Window[31m.[mText_View[31m,[m False[31m);[m
	 [01;34mwhen[m On_Error_Message [31m=>[m	    
	    [01;30mSet_Default_size[m[31m([mMessage_Window[31m.[mDialog[31m,[m [35m500[m[31m,[m [35m440[m[31m);[m 
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_Buffer[31m);[m
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_View[31m,[m Message_Window[31m.[mText_Buffer[31m);[m	    
	    [31m--Set_Usize(Message_Window.Text_View, 500, 400);[m
	    [01;30mGtk_New[m[31m([mScroll[31m);[m
	    [01;30mAdd[m[31m([mScroll[31m,[m Message_Window[31m.[mText_View[31m);[m
	    [01;30mPack_Start[m[31m([mMessage_Window[31m.[mBox[31m,[m Scroll[31m,[m False[31m,[m False[31m);[m
	    [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_time [31m-[m Clock [31m));[m
	    [01;34mif[m Message_Window[31m.[mResult[31m.[mFile_Content [31m/=[m [01;34mnull[m [01;34mthen[m
	       [31m--Text_Io.Put_Line("Going to Load Spaw_Result...");[m
	       [01;34mfor[m I [01;34min[m Message_Window[31m.[mResult[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
		  
		  [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"Step "[m [31m&[m 
				    System_Step_Enum'[01;30mimage[m[31m([mMessage_Window[31m.[mStep_On_Error[31m)[m
				    [31m&[m [31m" : "[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m(-([mMessage_Window[31m.[mResult[31m.[m[01;30mFile_Content[m[31m([mI[31m))));[m
		  
	       [01;34mend[m [01;34mloop[m[31m;[m	       
	       [31m--Text_Io.Put_Line("Spawn Result loaded.");[m
	    [01;34mend[m [01;34mif[m[31m;[m
	    [01;30mSet_Editable[m[31m([mMessage_Window[31m.[mText_View[31m,[m False[31m);[m
	 [01;34mwhen[m System_Step_Message [31m=>[m
	    [01;30mSet_Default_size[m[31m([mMessage_Window[31m.[mDialog[31m,[m [35m500[m[31m,[m [35m200[m[31m);[m 
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_Buffer[31m);[m
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_View[31m,[m Message_Window[31m.[mText_Buffer[31m);[m	    
	    [31m--Set_Usize(Message_Window.Text_View, 500, 200);[m
	    [01;30mGtk_New[m[31m([mScroll[31m);[m
	    [01;30mAdd[m[31m([mScroll[31m,[m Message_Window[31m.[mText_View[31m);[m
	    [01;30mPack_Start[m[31m([mMessage_Window[31m.[mBox[31m,[m Scroll[31m,[m False[31m,[m False[31m);[m
	    [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"The next step is not the successor of current step :"[m[31m);[m
	    [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"The current step is : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mMessage_Window[31m.[mPrevisious_Step[31m));[m
	    [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"The next step is : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mMessage_Window[31m.[mCurrent_Step[31m));[m
	    
	    [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_Time [31m-[m Clock[31m));[m	
	    [01;30mSet_Editable[m[31m([mMessage_Window[31m.[mText_View[31m,[m False[31m);[m
	 [01;34mwhen[m Computation_Message [31m=>[m
	    [01;30mSet_Default_size[m[31m([mMessage_Window[31m.[mDialog[31m,[m [35m500[m[31m,[m [35m200[m[31m);[m 
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_Buffer[31m);[m
	    [01;30mGtk_New[m[31m([mMessage_Window[31m.[mText_View[31m,[m Message_Window[31m.[mText_Buffer[31m);[m	    
	    [31m--Set_Usize(Message_Window.Text_View, 500, 200);[m
	    [01;30mGtk_New[m[31m([mScroll[31m);[m
	    [01;30mAdd[m[31m([mScroll[31m,[m Message_Window[31m.[mText_View[31m);[m	    
	    
	    [01;30mInsert_With_Tag[m[31m([mMessage_Window[31m.[mText_Buffer[31m,[m [31m""[m[31m,[m [31m"Click yes to compute a file."[m[31m);[m
	    
	    
	    [01;30mSet_Text[m[31m([mMessage_Window[31m.[mLabel[31m,[m [01;30mImage[m[31m([mMessage_Window[31m.[mEnd_Time [31m-[m Clock[31m));[m		    	    
	    [01;30mSet_Editable[m[31m([mMessage_Window[31m.[mText_View[31m,[m False[31m);[m	    	    	    	    
	    [01;30mPack_Start[m[31m([mMessage_Window[31m.[mBox[31m,[m Scroll[31m,[m False[31m,[m False[31m);[m	    
	    
      [01;34mend[m [01;34mcase[m[31m;[m
      [01;30mPack_Start[m[31m([mMessage_Window[31m.[mBox[31m,[m Message_Window[31m.[mLabel[31m,[m False[31m,[m false[31m);[m      
      [01;30mShow_All[m[31m([mMessage_Window[31m.[mDialog[31m);[m
      Message_Window[31m.[mTimeout_Id [31m:=[m Messages_Timeouts[31m.[m[01;30mTimeout_Add[m[31m([m[35m1000[m[31m,[m Message_Timeout_Func'[01;34mAccess[m[31m,[m Message_Window[31m);[m
      Response [31m:=[m [01;30mRun[m[31m([mMessage_Window[31m.[mDialog[31m);[m
      [01;34mcase[m Response [01;34mis[m
      [01;34mwhen[m Gtk_Response_Yes [31m=>[m
         Message_Window[31m.[mSuccess [31m:=[m True[31m;[m	    
         [01;30mDestroy[m[31m([mMessage_Window[31m.[mDialog[31m);[m
	 glib[31m.[mMain[31m.[m[01;30mremove[m[31m([mMessage_Window[31m.[mTimeout_ID[31m);[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
         Message_Window[31m.[mSuccess [31m:=[m False[31m;[m
	    
         [01;30mDestroy[m[31m([mMessage_Window[31m.[mDialog[31m);[m
	 glib[31m.[mMain[31m.[m[01;30mremove[m[31m([mMessage_Window[31m.[mTimeout_ID[31m);[m
      [01;34mend[m [01;34mcase[m[31m;[m
   [01;34mend[m Initialize_Message_Window[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mRestart[m[31m([mObject [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      
      
      
      
      B_Args[31m,[m Args [31m:[m Argument_List_access[31m;[m      
      Exec_Location [31m:[m Os_Lib[31m.[mString_Access[31m;[m            
      
      Command_Line [31m:[m String_Access[31m;[m
      
   [01;34mbegin[m
      
      [01;34mif[m [01;30mGet_Parameter[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mKit[31m,[m Config_Filename[31m).[mIs_Setted [01;34mthen[m
         Command_Line [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAda[31m.[mCommand_Line[31m.[mCommand_Name [31m&[m [31m" -F "[m [31m&[m Handling[31m.[m[01;30mTo_String[m[31m([m[01;30mGet_Parameter[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mKit[31m,[m Config_Filename[31m).[mValue[31m.[m[01;34mall[m[31m));[m
      [01;34melse[m
         Command_Line [31m:=[m [01;34mnew[m [32mString[m ' [31m([mAda[31m.[mCommand_Line[31m.[mCommand_Name[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mdeclare[m
         Xterm_Call [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"xterm -geometry 80x40 -e bash -c """[m [31m&[m Command_Line[31m.[m[01;34mall[m [31m&[m [31m""""[m[31m;[m
         Command_Index [31m:[m [01;34mconstant[m Natural [31m:=[m [01;30mIndex[m[31m([mXterm_Call[31m,[m [31m" "[m[31m,[m [01;30mIndex_Non_Blank[m[31m([mXterm_Call[31m));[m
         Command [31m:[m Gnat[31m.[mCommand_Line[31m.[mCommand_Line[31m;[m
	 
      [01;34mbegin[m
         [01;34mif[m Command_index [31m>[m [35m1[m [01;34mthen[m
            [01;30mSet_Command_Line[m[31m([mCommand[31m,[m Xterm_Call[31m);[m
            [01;30mBuild[m[31m([mCommand[31m,[m B_Args[31m);[m		       		     	    
            Args [31m:=[m [01;34mnew[m [01;30mArgument_List[m[31m([m[35m1[m[31m..[mB_Args'length [31m-[m [35m1[m[31m);[m
	    
            [01;34mfor[m I [01;34min[m [35m1[m[31m..[mB_Args'length [31m-[m [35m1[m [01;34mloop[m
	       
               [01;30mArgs[m[31m([mI[31m)[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mNormalize_Quoted_argument[m[31m([m[01;30mB_Args[m[31m([mI[31m+[m[35m1[m[31m).[m[01;34mall[m[31m));[m
	       
	       
            [01;34mend[m [01;34mloop[m[31m;[m            
	    
	    
            Exec_Location [31m:=[m [01;30mLocate_Exec_On_Path[m[31m([m[01;30mXterm_Call[m[31m([mXterm_Call'First[31m..[mCommand_Index[31m-[m[35m1[m[31m));[m
	    
            [01;34mif[m Exec_Location [31m/=[m [01;34mnull[m [01;34mthen[m	       
               Object[31m.[mId [31m:=[m [01;30mNon_Blocking_Spawn[m[31m([mExec_Location[31m.[m[01;34mall[m[31m,[m Args[31m.[m[01;34mall[m[31m);[m
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m [01;34mif[m[31m;[m	
      [01;34mend[m[31m;[m
      
   [01;34mend[m Restart[31m;[m
   
   
   [01;34mprocedure[m [01;30mQuit[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
   [01;34mbegin[m
      
      [01;30mdestroy[m[31m([m[01;30mGtk_Window[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m).[mGnose_interface[31m));[m
   [01;34mend[m Quit[31m;[m
   
   [01;34mprocedure[m [01;30mProject_Prepare_Window[m [31m([mGnostic [31m:[m [01;34min[m Object_Pointer[31m);[m
   
   [01;34mprocedure[m [01;30mProject_Prepare_Window[m [31m([mGnostic [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      
      
   [01;34mbegin[m      
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m prepare [01;34mthen[m
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making prepare..."[m[31m);[m      
         Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make prepare"[m[31m);[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            [31m-- Going to Computation;[m
            Gnostic[31m.[mSystem_Step [31m:=[m Computation[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Prepare[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making prepare..."[m[31m);[m      
               Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make prepare"[m[31m);[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [31m-- Going to Computation;[m
                  Gnostic[31m.[mSystem_Step [31m:=[m Computation[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m [01;34mif[m[31m;[m
	    
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Project_Prepare_Window[31m;[m      

   
   [01;34mprocedure[m [01;30mReload_Project[m[31m([mObject [31m:[m [01;34min[m Object_Pointer[31m);[m   
   
   [01;34mprocedure[m [01;30mReload_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m reload [01;34mthen[m
         [01;30mReload_Project[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	    
            [31m-- Going to Update :[m
            Gnostic[31m.[mSystem_Step [31m:=[m Update[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m      

      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Reload[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               [01;30mReload_Project[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
            [01;34mend[m [01;34mif[m[31m;[m
            [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       
               [31m-- Going to Update :[m
               Gnostic[31m.[mSystem_Step [31m:=[m Update[31m;[m
               [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
            [01;34melse[m
               Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
               [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
            [01;34mend[m [01;34mif[m[31m;[m      

         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Reload_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mUpgrade[m [31m([mObject [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      Gnose_Context [31m:[m Gnose_Context_Record [31m:=[m Object[31m.[mContext[31m.[m[01;34mall[m[31m;[m
   [01;34mbegin[m
      
      Versions[31m.[mNew_Version [31m:=[m [01;30mGet_Parameter[m[31m([mGnose_Context[31m.[mGnose_Params[31m.[mKit[31m,[m Self_Programming[31m).[mIs_setted[31m;[m      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update version..."[m[31m);[m
      [01;34mif[m Versions[31m.[mNew_Version [01;34mthen[m
	 
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Specifications..."[m[31m);[m
	 
         Versions[31m.[mNew_Description [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Description[m[31m([m[01;30mProjects_Context_Record[m[31m([mGnose_Context[31m));[m
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- check for New Implementation..."[m[31m);[m
	 
         Versions[31m.[mNew_Action [31m:=[m Environment[31m.[m[01;30mCheck_Modification_To_New_Action[m[31m([m[01;30mProjects_Context_Record[m[31m([mGnose_Context[31m));[m
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Version Update..."[m[31m);[m
         [31m-- update Version ![m
         [01;34mif[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix [31m/=[m [01;34mnull[m [01;34mthen[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project prefix : "[m [31m&[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Gnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
            [01;34mdeclare[m

               Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m [31m' (Gnose_Context.Project.Project_Name(Gnose_Context.Project.Project_Prefix'[mLength[31m+[m[35m1[m[31m..[mGnose_Context[31m.[mProject[31m.[mProject_Name'Last[31m));[m

            [01;34mbegin[m
	       	       	  
               
               [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
                  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
                  
		  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
		  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
		  
		  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
		     Editting[31m.[m[01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
		     Editting[31m.[m[01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
	       
               [01;34mend[m [01;34mif[m[31m;[m
	       
               [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
                  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
                  
                  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
                  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
                  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
                     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
                     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
                  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  
               [01;34mend[m [01;34mif[m[31m;[m
	       
               [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
		  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
                  Versions[31m.[mEditting[31m.[m[01;30mTo_Major[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
		  Versions[31m.[mEditting[31m.[m[01;30mTo_Minor[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
		  Versions[31m.[mEditting[31m.[m[01;30mTo_Revision[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
		  
               [01;34melse[m
		  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
                  Versions[31m.[mEditting[31m.[m[01;30mTo_Release[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
                                               Gnose_Context[31m.[mProject[31m.[mProject_Prefix[31m.[m[01;34mall[m[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
               Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
               Versions[31m.[mNew_Description [31m:=[m False[31m;[m
	       
            [01;34mend[m[31m;[m
	 [01;34melse[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project name : "[m [31m&[m Gnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m);[m 
            [01;34mdeclare[m
	       
               Node_Name [31m:[m [01;34maccess[m [32mString[m [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[31m""[m[31m);[m

            [01;34mbegin[m
	       	       	  
               
               [01;34mif[m Versions[31m.[mNew_Description [01;34mthen[m
                  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
		  
                  
		  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
		  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
		  
		  [01;34mfor[m File_Id [01;34min[m Specifications_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
		     Editting[31m.[m[01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
		     Editting[31m.[m[01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mSpecifications_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
		  [01;34mend[m [01;34mloop[m[31m;[m
		  
	       
               [01;34mend[m [01;34mif[m[31m;[m
	       
               [01;34mif[m Versions[31m.[mNew_Action [01;34mthen[m
                  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  		  
                  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
                  [01;30mMain_Description[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m,[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m),[m Node_Name[31m.[m[01;34mall[m[31m);[m
                  [01;34mfor[m File_Id [01;34min[m Implementations_Filenames_Search[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
                     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Date"[m[31m,[m Formatting[31m.[m[01;30mImage[m[31m([mClock[31m));[m
                     [01;30mUpdate[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mResults[31m.[m[31m"-"[m[31m([mImplementations_Filenames_Search[31m.[m[01;30mFile_Content[m[31m([mFile_Id[31m))),[m [31m"Version"[m[31m,[m Versions[31m.[mVersion_Io[31m.[m[01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
                  [01;34mend[m [01;34mloop[m[31m;[m
		  
		  
               [01;34mend[m [01;34mif[m[31m;[m
	       
               [01;34mif[m Versions[31m.[mNew_Action [01;34mor[m Versions[31m.[mNew_Description [01;34mthen[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting revision version..."[m[31m);[m
		  Versions[31m.[mEditting[31m.[m[01;30mTo_Revision[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting minor version..."[m[31m);[m
		  Versions[31m.[mEditting[31m.[m[01;30mTo_Minor[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting major version..."[m[31m);[m
                  Versions[31m.[mEditting[31m.[m[01;30mTo_Major[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m [31m""[m[31m);[m
               [01;34melse[m
		  [01;34mif[m Environment[31m.[mVersion_Update [31m/=[m [35m0[m [01;34mthen[m
		     [01;34mraise[m Program_Error[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m		  
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Editting release version..."[m[31m);[m
                  Versions[31m.[mEditting[31m.[m[01;30mTo_Release[m[31m([mGnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m[31m,[m
                                               [31m""[m[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
               Versions[31m.[mNew_Action [31m:=[m False[31m;[m	       
               Versions[31m.[mNew_Description [31m:=[m False[31m;[m
	       
            [01;34mend[m[31m;[m
            
         [01;34mend[m [01;34mif[m[31m;[m
	 Gtk[31m.[mWindow[31m.[m[01;30mSet_Title[m[31m([m[01;30mGtk_Window[m[31m([mObject[31m.[mGnose_Interface[31m),[m Gnose_Context[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m" - "[m [31m&[m [01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      Calendar[31m.[m[01;30mSplit[m[31m([mClock[31m,[m Start_Date[31m.[mYear[31m,[m Start_Date[31m.[mMonth[31m,[m Start_Date[31m.[mDay[31m,[m Start_Date[31m.[mHours[31m);[m
   [01;34mend[m Upgrade[31m;[m
   
   [01;34mprocedure[m [01;30mUpdate_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m update [01;34mthen[m
         [01;30mUpgrade[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
         [31m-- Make update.[m
	 [01;34mbegin[m
	    text_io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m text_io[31m.[mAppend_File[31m,[m [31m"Versions.default"[m[31m);[m
	 [01;34mexception[m
	    [01;34mwhen[m text_io[31m.[mName_Error [31m=>[m
	       text_io[31m.[m[01;30mcreate[m[31m([mFile[31m,[m text_io[31m.[mout_File[31m,[m [31m"Versions.default"[m[31m);[m
	 [01;34mend[m[31m;[m
	 text_io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
	 text_io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making update..."[m[31m);[m
         Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make update"[m[31m);[m
	 
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            [31m-- Going to Clean[m
            Gnostic[31m.[mSystem_Step [31m:=[m Clean[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m

      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Update[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               [01;30mUpgrade[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
	       
	       [01;34mbegin[m
		  text_io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m text_io[31m.[mAppend_File[31m,[m [31m"Versions.default"[m[31m);[m
	       [01;34mexception[m
		  [01;34mwhen[m text_io[31m.[mName_Error [31m=>[m
		     text_io[31m.[m[01;30mcreate[m[31m([mFile[31m,[m text_io[31m.[mout_File[31m,[m [31m"Versions.default"[m[31m);[m
	       [01;34mend[m[31m;[m
	       text_io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
	       text_io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	 
	       
               [31m-- Make update.[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making update..."[m[31m);[m
               Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make update"[m[31m);[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [31m-- Going to Clean[m
                  Gnostic[31m.[mSystem_Step [31m:=[m Clean[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               [01;34mend[m [01;34mif[m[31m;[m

            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Update_Menu[31m;[m
   

   
   
   [01;34mprocedure[m [01;30mOn_clear[m[31m([mText_buffer [31m:[m [01;34maccess[m Gtk[31m.[mText_buffer[31m.[mGtk_Text_Buffer_Record'Class[31m;[m Main [31m:[m Object_Pointer[31m)[m [01;34mis[m
      Top[31m,[m Bot [31m:[m Gtk_Text_Iter[31m;[m
   [01;34mbegin[m
      
      [01;30mGet_Bounds[m[31m([mText_Buffer[31m,[m Top[31m,[m Bot[31m);[m
      Gtk[31m.[mText_Buffer[31m.[m[01;30mdelete[m[31m([mText_Buffer[31m,[m Top[31m,[m Bot[31m);[m      
      Main[31m.[mGnose_Interface[31m.[mUser_Position [31m:=[m [35m0[m[31m;[m
      [01;30mGet_Bounds[m[31m([mMain[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m Top[31m,[m Bot[31m);[m
      Gtk[31m.[mText_Buffer[31m.[m[01;30mdelete[m[31m([mMain[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m Top[31m,[m Bot[31m);[m            
   [01;34mend[m On_Clear[31m;[m
   
   [31m--  procedure On_clear(Text : access Gtk.Text.Gtk_Text_Record'Class; Main : Object_Pointer) is[m
   [31m--  begin[m
   [31m--     if Gtk.Text.Backward_Delete(Text, Gtk.Text.Get_Length(Text)) then[m
   [31m--  	 Main.Gnose_Interface.User_Position := 0;[m
   [31m--     end if;[m
   [31m--  end On_Clear;[m
   
   
   
   [31m--  procedure Clear_Menu (Action, Main_Window : Address) is[m
   [31m--  begin[m
   [31m--     On_Clear(To_Pointer(Main_Window).System_View.Text_Buffer, To_Pointer(Main_Window));[m
   [31m--  end Clear_Menu;[m
   
   [01;34mprocedure[m [01;30mClear_Menu[m [31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
   [01;34mbegin[m
      
      [01;30mOn_Clear[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m).[mGnose_Interface[31m.[mUser_Text_buffer[31m,[m [01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
   [01;34mend[m Clear_Menu[31m;[m
   

   [01;34mprocedure[m [01;30mProject_Archive_Window[m [31m([mGnostic [31m:[m [01;34min[m Object_Pointer[31m);[m
   
   [01;34mprocedure[m [01;30mProject_Archive[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
   [01;34mbegin[m            
      
      [01;30mProject_Archive_Window[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
   [01;34mend[m Project_Archive[31m;[m
   
   
      
   [01;34mprocedure[m [01;30mProject_Prepare[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m
      
      [01;30mProject_Prepare_Window[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m      	    
   [01;34mend[m Project_Prepare[31m;[m
   
   
   [01;34mprocedure[m [01;30mExport_Canvas_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      The_Surface [31m:[m Cairo_Surface[31m;[m
      Cr          [31m:[m Cairo_Context[31m;[m
      Status      [31m:[m Cairo_Status[31m;[m
   [01;34mbegin[m
      
      The_Surface [31m:=[m [01;30mCreate[m[31m([mCairo_Format_ARGB32[31m,[m
                            [01;30mTo_Pointer[m[31m([mMain_Window[31m).[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mProject_Define[31m).[mX_Ads[31m,[m
                            [01;30mTo_Pointer[m[31m([mMain_Window[31m).[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mProject_Define[31m).[mY_Ads[31m);[m
      Cr [31m:=[m [01;30mCreate[m[31m([mThe_Surface[31m);[m            
      [01;30mDraw_All[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m).[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mProject_Define[31m).[mCanvas[31m,[m Cr[31m);[m
      The_Surface [31m:=[m [01;30mGet_Target[m[31m([mCr[31m);[m
      Status [31m:=[m Cairo[31m.[mPNG[31m.[m[01;30mWrite_To_Png[m[31m([mThe_Surface[31m,[m [31m"Gnostic.png"[m[31m);[m      
   [01;34mend[m Export_Canvas_Menu[31m;[m               

   
   
   [01;34mprocedure[m [01;30mCreate_List_Window[m [31m([mMain [31m:[m [01;34min[m Object_Pointer[31m;[m Add_Name [31m:[m [01;34min[m [32mstring[m[31m);[m
   
   [01;34mprocedure[m [01;30mClean_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m Clean [01;34mthen[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making mrproper..."[m[31m);[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make mrproper"[m[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            [31m-- Going to Arch :[m
            Gnostic[31m.[mSystem_Step [31m:=[m Arch[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 
         [01;34mend[m [01;34mif[m[31m;[m

      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Clean[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
	       
               Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making mrproper..."[m[31m);[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make mrproper"[m[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [31m-- Going to Arch :[m
                  Gnostic[31m.[mSystem_Step [31m:=[m Arch[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 
               [01;34mend[m [01;34mif[m[31m;[m
	       
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Clean_Menu[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mUnself_Programming_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      

      Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [31m:=[m False[31m;[m
      
   [01;34mend[m Unself_Programming_Menu[31m;[m
   
   [01;34mprocedure[m [01;30mUnself_Executed_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      
      [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
         [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m	 
         Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m Unself_Executed_Menu[31m;[m
   
   [01;34mprocedure[m [01;30mself_Programming_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      

      Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [31m:=[m True[31m;[m
      
   [01;34mend[m self_Programming_Menu[31m;[m
   
   [31m----------------------------------------------------------------------------------------[m
   [31m-- function On_Self_Execution : Timeout callback with Data_Type (Gnose_Access)        --[m
   [31m----------------------------------------------------------------------------------------[m
   [01;34mfunction[m [01;30mOn_Self_Execution[m[31m([mObject [31m:[m Object_Pointer[31m)[m [01;34mreturn[m [32mBoolean[m[31m;[m
   

   
   [01;34mprocedure[m [01;30mself_Executed_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      
      [01;34mif[m [01;34mnot[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
         Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution'[01;34mAccess[m[31m,[m [01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
         Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

   [01;34mend[m self_Executed_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mRestart_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m restart [01;34mthen[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
               [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m	 
            [01;34mend[m [01;34mif[m[31m;[m
            [01;30mRestart[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m	 
            [31m-- Going to List;[m
            Gnostic[31m.[mSystem_Step [31m:=[m List[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 	 
            [01;34mdelay[m [35m2.5[m[31m;[m
            [01;30mDestroy[m[31m([mGnostic[31m.[mGnose_Interface[31m);[m
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 
         [01;34mend[m [01;34mif[m[31m;[m
      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Restart[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                     [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                        [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
                     [01;34mend[m [01;34mif[m[31m;[m	 
                  [01;34mend[m [01;34mif[m[31m;[m
                  [01;30mRestart[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m	 
                  [31m-- Going to List;[m
                  Gnostic[31m.[mSystem_Step [31m:=[m List[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 	 
                  [01;34mdelay[m [35m2.5[m[31m;[m
                  [01;30mDestroy[m[31m([mGnostic[31m.[mGnose_Interface[31m);[m
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 
               [01;34mend[m [01;34mif[m[31m;[m
	       
	       
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Restart_Menu[31m;[m
   
   
   
   
   
   
   
   
   [01;34mtype[m Computation_Window_Record_Type [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
         Dialog     [31m:[m Gtk_Dialog[31m;[m
         Page_Frame [31m:[m Gtk_Frame[31m;[m     
         Buffer   [31m:[m Gtk_Text_Buffer[31m;[m	 
         View     [31m:[m Gtk_Text_View[31m;[m
         Scrolled [31m:[m Gtk_Scrolled_Window[31m;[m          
         Editable [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
         Object   [31m:[m Object_Pointer[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Computation_Window_Access [01;34mis[m [01;34maccess[m [01;34mall[m Computation_Window_Record_Type[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mComputation_Save_As[m [31m([mEditor [31m:[m [01;34maccess[m Computation_Window_Record_Type'Class[31m);[m
   
   
   [01;34mprocedure[m [01;30mComputation_Save[m [31m([mEditor [31m:[m [01;34maccess[m Computation_Window_Record_Type'Class[31m);[m
   
   
   [01;34mprocedure[m [01;30mComputation_Save_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Computation_Save_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mComputation_Save_As_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Computation_Save_As_Menu[31m);[m
   
   
   [01;34mprocedure[m [01;30mComputation_New_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Computation_New_File[31m);[m
   
   [01;34mprocedure[m [01;30mComputation_Open_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Computation_Open_File[31m);[m
   
   
   
   
   [01;34mpackage[m Computation_Conversions [01;34mis[m [01;34mnew[m [01;30mAddress_To_Access_Conversions[m[31m([mComputation_Window_Access[31m);[m
   
   [01;34mpackage[m Computation_Cb_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Window_Record[31m,[m Computation_Conversions[31m.[mObject_Pointer[31m);[m
   
   [01;34mprocedure[m [01;30mComputation_New_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Comptation_window [31m:[m [01;34mconstant[m [01;34maccess[m Computation_Window_Record_Type[31m'Class:= Computation_Conversions.To_Pointer(Main_Window).all.all'[m[01;34mAccess[m[31m;[m
   [01;34mbegin[m
      
      [01;30mOn_Link_Button_clicked[m [31m([m[01;34mnull[m[31m,[m [31m""[m[31m,[m True[31m);[m
   [01;34mend[m Computation_New_File[31m;[m
   
   [01;34mprocedure[m [01;30mComputation_Open_File[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Title [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m([mgtkada[31m.[mfile_selection[31m.[m[01;30mFile_selection_Dialog[m[31m([mdefault_dir [31m=>[m [31m""[m[31m));[m
      Object [31m:[m [01;34mconstant[m Computation_Conversions[31m.[mObject_Pointer [31m:=[m Computation_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      Top[31m,[m Bot [31m:[m Gtk_Text_Iter[31m;[m
   [01;34mbegin[m
      [01;34mif[m [31m([mTitle'Length [31m/=[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m
        [01;30mIs_Regular_File[m[31m([mTitle[31m)[m [01;34mand[m [01;34mthen[m
        [31m([m[01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"txt"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"ads"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"adb"[m[31m)[m [01;34mthen[m
	 
	 [01;30mGet_Bounds[m[31m([mObject[31m.[m[01;34mall[m[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
	 Gtk[31m.[mText_Buffer[31m.[m[01;30mDelete[m[31m([mObject[31m.[m[01;34mall[m[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
	 
         [01;30mSet_Title[m[31m([mobject[31m.[m[01;34mall[m[31m.[mdialog[31m,[m title[31m);[m
	 
         Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m Title[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
         [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
            [01;34mdeclare[m
               Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m([mWide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
	       
            [01;34mbegin[m
	       
               [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mthen[m
		  
                  Insert_With_Tag
                    [31m([mObject[31m.[m[01;34mall[m[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m)));[m
		  
               [01;34melse[m
		  
                  Insert_With_Tag
                    [31m([mObject[31m.[m[01;34mall[m[31m.[mBuffer[31m,[m [31m""[m[31m,[m [31m""[m[31m);[m
		  
               [01;34mend[m [01;34mif[m[31m;[m                           
            [01;34mend[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
         Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m     	 
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Computation_Open_File[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mComputation_Save_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Object [31m:[m [01;34mconstant[m Computation_Conversions[31m.[mObject_Pointer [31m:=[m Computation_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
   [01;34mbegin[m
      [01;30mComputation_Save[m[31m([mObject[31m.[m[01;34mall[m[31m.[m[01;34mall[m'[01;34maccess[m[31m);[m
   [01;34mend[m Computation_Save_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mComputation_Save_As_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Object [31m:[m [01;34mconstant[m Computation_Conversions[31m.[mObject_Pointer [31m:=[m Computation_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
   [01;34mbegin[m
      [01;30mComputation_Save_As[m[31m([mObject[31m.[m[01;34mall[m[31m.[m[01;34mall[m'[01;34maccess[m[31m);[m
   [01;34mend[m Computation_Save_As_Menu[31m;[m
   
   
   
   Computation_Entries [31m:[m [01;34mconstant[m Action_Entry_Array [31m:=[m
     [31m([m[35m1[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"FileMenu"[m[31m,[m        Label [31m=>[m [31m"_File"[m[31m),[m
      [35m2[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Save"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Save[31m,[m
                   Label       [31m=>[m [31m"_Save"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>S"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Save"[m[31m,[m
                   Callback    [31m=>[m Computation_Save_Menu'[01;34mAccess[m[31m),[m
      [35m3[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Save _As"[m[31m,[m		   
                   Stock_Id    [31m=>[m Stock_Save_As[31m,[m
                   Label       [31m=>[m [31m"Save _As"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>A"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Save _As"[m[31m,[m
                   Callback    [31m=>[m Computation_Save_As_Menu'[01;34mAccess[m[31m),[m
      [35m4[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"New_File"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_NEw[31m,[m
                   Label       [31m=>[m [31m"_New file"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>N"[m[31m,[m
                   Tooltip     [31m=>[m [31m"New file"[m[31m,[m
                   Callback    [31m=>[m Computation_New_File'[01;34mAccess[m[31m),[m
      [35m5[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Open_File"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Open[31m,[m
                   Label       [31m=>[m [31m"_Open file"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>N"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Open file"[m[31m,[m
                   Callback    [31m=>[m Computation_Open_File'[01;34mAccess[m[31m));[m
   
   
   
   Computation_UI_Info [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
     [31m"<ui>"[m
     [31m&[m [31m"  <menubar name='MenuBar'>"[m
     [31m&[m [31m"    <menu action='FileMenu'>"[m
     [31m&[m [31m"      <menuitem action='New_File'/>"[m
     [31m&[m [31m"      <menuitem action='Open_File'/>"[m
     [31m&[m [31m"      <menuitem action='Save'/>"[m     
     [31m&[m [31m"      <menuitem action='Save _As'/>"[m     
     [31m&[m [31m"    </menu>"[m
     [31m&[m [31m"  </menubar>"[m
     [31m&[m [31m"</ui>"[m[31m;[m

   
   [01;34mprocedure[m [01;30mComputation_Initialize[m[31m([mComputation_Pointer [31m:[m [01;34min[m [01;34mout[m Computation_Conversions[31m.[mObject_Pointer[31m;[m Object [31m:[m Object_Pointer[31m)[m [01;34mis[m
      
      Tags     [31m:[m Gtk_Text_Tag_Table[31m;[m     
            
      
      Vbox     [31m:[m Gtk_Vbox[31m;[m
      
      UI            [31m:[m Gtk_UI_Manager[31m;[m
      Actions       [31m:[m Gtk_Action_Group[31m;[m
      Error   [31m:[m [01;34maliased[m GError [31m:=[m [01;34mnull[m[31m;[m      
      
      
      
      Edit_Window [31m:[m Computation_Window_access [31m:=[m Computation_Pointer[31m.[m[01;34mall[m[31m.[m[01;34mall[m'[01;34mAccess[m[31m;[m
      
      Yes    [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      No     [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      
   [01;34mbegin[m      

      Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"Computation =>"[m[31m);[m
      
      Edit_Window[31m.[mEditable [31m:=[m True[31m;[m
      Edit_Window[31m.[mObject [31m:=[m Object[31m;[m
      
      Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mEdit_Window[31m.[mDialog[31m,[m [31m"File Computation"[m[31m,[m [01;30mGtk_Window[m[31m([mObject[31m.[mGnose_Interface[31m),[m modal[31m);[m
      Vbox [31m:=[m [01;30mGet_content_area[m[31m([mEdit_Window[31m.[mDialog[31m);[m
      
      [01;30mGtk_New[m[31m([mTags[31m);[m
      
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mBuffer[31m,[m Tags[31m);[m
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mView[31m,[m Edit_Window[31m.[mBuffer[31m);[m
      [01;30mSet_wrap_mode[m[31m([mEdit_Window[31m.[mView[31m,[m Gtk[31m.[menums[31m.[m wrap_char[31m);[m
      [01;30mGtk_New[m[31m([mEdit_Window[31m.[mPage_Frame[31m);[m      
      
      Gtk[31m.[mWindow[31m.[m[01;30mSet_Default_Size[m[31m([m[01;30mGtk_Window_Record[m[31m([mEdit_Window[31m.[mDialog[31m.[m[01;34mall[m[31m)[m'[01;34mAccess[m[31m,[m [35m810[m[31m,[m [35m600[m[31m);[m
      
      Gtk[31m.[mWindow[31m.[m[01;30mSet_Position[m[31m([m[01;30mGtk_Window_Record[m[31m([mEdit_Window[31m.[mDialog[31m.[m[01;34mall[m[31m)[m'[01;34mAccess[m[31m,[m Gtk[31m.[mEnums[31m.[mWin_Pos_Center[31m);[m
      
      Insert_With_Tag
        [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"-- Date := """" ; "[m[31m)));[m
      Insert_With_Tag
        [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"-- Version := """" ; "[m[31m)));[m
      
      
      [01;30mSet_Editable[m[31m([mEdit_Window[31m.[mView[31m,[m True[31m);[m
      
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mScrolled[31m);[m      
      [01;30mSet_Policy[m [31m([mEdit_Window[31m.[mScrolled[31m,[m Policy_Automatic[31m,[m Policy_Always[31m);[m      
      [01;30mAdd[m [31m([mEdit_Window[31m.[mScrolled[31m,[m Edit_Window[31m.[mView[31m);[m      
      [01;30mAdd[m [31m([mEdit_Window[31m.[mPage_Frame[31m,[m Edit_Window[31m.[mScrolled[31m);[m                        
      
      
      [01;30mGtk_New[m [31m([mActions[31m,[m [31m"Actions"[m[31m);[m
      [01;30mAdd_Actions[m [31m([mActions[31m,[m Computation_Entries[31m,[m Computation_Conversions[31m.[m[01;30mTo_Address[m[31m([mComputation_pointer[31m));[m
      [01;30mGtk_New[m [31m([mUI[31m);[m
      [01;30mInsert_Action_Group[m [31m([mUI[31m,[m Actions[31m,[m [35m0[m[31m);[m
      Add_Accel_Group
        [31m([m[01;30mGtk_Window_Record[m[31m([mEdit_Window[31m.[mDialog[31m.[m[01;34mall[m[31m)[m'[01;34mAccess[m[31m,[m [01;30mGet_Accel_Group[m [31m([mUI[31m));[m
      [01;34mif[m [01;30mAdd_UI_From_String[m [31m([mUI[31m,[m Computation_UI_Info[31m,[m Error'Unchecked_Access[31m)[m [31m=[m [35m0[m [01;34mthen[m
         Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"Building menus failed: "[m [31m&[m [01;30mGet_Message[m [31m([mError[31m));[m
         [01;30mError_Free[m [31m([mError[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m                  
      
      
      [31m-- Pack start Menu bar :[m
      [01;30mPack_Start[m [31m([mVbox[31m,[m [01;30mGet_Widget[m [31m([mUI[31m,[m [31m"/MenuBar"[m[31m),[m False[31m,[m False[31m,[m [35m5[m[31m);[m
      
      
      [01;30mPack_Start[m[31m([mVbox[31m,[m Edit_Window[31m.[mPage_Frame[31m,[m True[31m,[m True[31m);[m
                  
      
      Yes [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mEdit_Window[31m.[mDialog[31m,[m [31m"Yes"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes[31m);[m
      No [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mEdit_Window[31m.[mDialog[31m,[m [31m"No"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_No[31m);[m         
      [01;30mShow_All[m[31m([m[01;30mGtk_Window_Record[m[31m([mEdit_Window[31m.[mDialog[31m.[m[01;34mall[m[31m)[m'[01;34maccess[m[31m);[m
      [01;34mcase[m Gtk[31m.[mDialog[31m.[m[01;30mRun[m[31m([mEdit_Window[31m.[mDialog[31m)[m [01;34mis[m
      [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes    [31m=>[m                      
         Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mEdit_Window[31m.[mDialog[31m);[m               	       

      [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_No     [31m=>[m
         Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mEdit_Window[31m.[mDialog[31m);[m               

      [01;34mwhen[m [01;34mothers[m [31m=>[m
         Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mEdit_Window[31m.[mDialog[31m);[m	       

      [01;34mend[m [01;34mcase[m[31m;[m
      
      
   [01;34mend[m Computation_Initialize[31m;[m

   
   
   [01;34mprocedure[m [01;30mComputation_Save_As[m [31m([mEditor [31m:[m [01;34maccess[m Computation_Window_Record_Type'Class[31m)[m [01;34mis[m      
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      
      Top   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
      Bot   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
      

      Title [31m:[m [01;34mconstant[m [32mstring[m [31m:=[m gtkada[31m.[mfile_selection[31m.[m[01;30mFile_selection_Dialog[m[31m([mdefault_dir [31m=>[m [31m"."[m[31m);[m
   [01;34mbegin[m
      [01;34mif[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"txt"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"ads"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"adb"[m [01;34mthen[m
         [01;30mGet_Bounds[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
         [01;30mset_title[m[31m([mEditor[31m.[mdialog[31m,[m Title[31m);[m
         Wide_Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mOut_File[31m,[m Title[31m);[m
	 
         Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mGet_Text[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m,[m True[31m))));[m
	 
         Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m      
   [01;34mend[m Computation_Save_As[31m;[m
   
   
   [01;34mprocedure[m [01;30mComputation_Save[m [31m([mEditor [31m:[m [01;34maccess[m Computation_Window_Record_Type'Class[31m)[m [01;34mis[m      
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      
      Top   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
      Bot   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
   [01;34mbegin[m
      [01;34mif[m [01;30mGet_Title[m[31m([mEditor[31m.[mdialog[31m)[m'Length [31m/=[m [35m0[m [01;34mthen[m
	 [01;30mGet_Bounds[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
	 
	 Wide_Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mOut_File[31m,[m [01;30mGet_Title[m[31m([mEditor[31m.[mdialog[31m));[m
	 
	 Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mGet_Text[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m,[m True[31m))));[m
	 
	 Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Computation_Save[31m;[m
   

   
   
   
   [01;34mprocedure[m [01;30mProject_Archive_Window[m [31m([mGnostic [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m      
   [01;34mbegin[m
      
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m arch [01;34mthen[m
         [01;34mdeclare[m
            Computation_Pointer [31m:[m Computation_Conversions[31m.[mObject_Pointer[31m;[m
         [01;34mbegin[m
            Computation_Pointer [31m:=[m [01;34mnew[m Computation_Window_Access[31m;[m
            Computation_Pointer[31m.[m[01;34mall[m [31m:=[m [01;34mnew[m Computation_Window_Record_Type[31m;[m
            [01;30mComputation_Initialize[m[31m([mComputation_Pointer[31m,[m Gnostic[31m);[m
         [01;34mend[m[31m;[m

         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making arch.."[m[31m);[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make enlight-sources"[m[31m);[m
            Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make arch"[m[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	    
            [01;34mcase[m Gnostic[31m.[mPlan [01;34mis[m
            [01;34mwhen[m Spec [31m=>[m	    
               Gnostic[31m.[mSystem_Step [31m:=[m Computation[31m;[m
               [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               Gnostic[31m.[mPlan [31m:=[m Impl[31m;[m
            [01;34mwhen[m Impl [31m=>[m
               [31m-- Going to Build :[m
               Gnostic[31m.[mSystem_Step [31m:=[m Build[31m;[m
               [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               Gnostic[31m.[mPlan [31m:=[m Spec[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m      
	    
	    
	    
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m      

      	 
      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Arch[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making arch.."[m[31m);[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make enlight-sources"[m[31m);[m
                  Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make arch"[m[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [01;34mcase[m Gnostic[31m.[mPlan [01;34mis[m
                  [01;34mwhen[m Spec [31m=>[m	    
                     Gnostic[31m.[mSystem_Step [31m:=[m Computation[31m;[m
                     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
                     Gnostic[31m.[mPlan [31m:=[m Impl[31m;[m
                  [01;34mwhen[m Impl [31m=>[m
                     [31m-- Going to Build :[m
                     Gnostic[31m.[mSystem_Step [31m:=[m Build[31m;[m
                     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
                     Gnostic[31m.[mPlan [31m:=[m Spec[31m;[m
                  [01;34mend[m [01;34mcase[m[31m;[m      
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               [01;34mend[m [01;34mif[m[31m;[m      

            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m      
   [01;34mend[m Project_Archive_Window[31m;[m

   

   
   [01;34mprocedure[m [01;30mComputation_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m      
      [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mand[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mthen[m
         [01;34mnull[m[31m;[m
      [01;34melsif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
         [01;34mnull[m[31m;[m
      [01;34melse[m
         [01;34mdeclare[m
            Computation_Pointer [31m:[m Computation_Conversions[31m.[mObject_Pointer[31m;[m
         [01;34mbegin[m
            Computation_Pointer [31m:=[m [01;34mnew[m Computation_Window_Access[31m;[m
            Computation_Pointer[31m.[m[01;34mall[m [31m:=[m [01;34mnew[m Computation_Window_Record_Type[31m;[m
            [01;30mComputation_Initialize[m[31m([mComputation_Pointer[31m,[m [01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
         [01;34mend[m[31m;[m

      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mcase[m Gnostic[31m.[mPlan [01;34mis[m
      [01;34mwhen[m Spec [31m=>[m
         Gnostic[31m.[mSystem_Step [31m:=[m Reload[31m;[m
      [01;34mwhen[m Impl [31m=>[m
         Gnostic[31m.[mSystem_Step [31m:=[m Reload[31m;[m
      [01;34mend[m [01;34mcase[m[31m;[m
      [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	 
   [01;34mend[m Computation_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mCreate_List[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
      
   [01;34mbegin[m
      
      Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make clean"[m[31m);[m
      [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
         [31m-- Going to Prepare :	 	 	 [m
	 
         [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m list [01;34mthen[m
            [01;30mCreate_List_Window[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m),[m [31m""[m[31m);[m
            Gnostic[31m.[mSystem_Step [31m:=[m Prepare[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
	    
         [01;34melse[m
            [01;34mdeclare[m
	       
               Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
               Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
            [01;34mbegin[m
               Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
               Message_Window[31m.[mCurrent_Step [31m:=[m List[31m;[m
               Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	       
               [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
               [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
                  [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                     [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
                  [01;34mend[m [01;34mif[m[31m;[m	 
                  Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
               [01;34melse[m
                  [01;30mCreate_List_Window[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m),[m [31m""[m[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m[31m;[m
	    
         [01;34mend[m [01;34mif[m[31m;[m

      [01;34melse[m	 
         Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
         [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Create_List[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mInitialize_Project_Window[m [31m([mMain [31m:[m [01;34min[m Object_Pointer[31m;[m Add_Name [31m:[m [01;34min[m [32mstring[m[31m)[m [01;34mis[m
      
      Project_Default [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Project.default"[m[31m;[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
      
      

      List_Dialog [31m:[m Gtk[31m.[mDialog[31m.[mGtk_Dialog[31m;[m
      Box [31m:[m Gtk[31m.[mBox[31m.[mGtk_Vbox[31m;[m
      The_Entry [31m:[m Gtk[31m.[mGentry[31m.[mGtk_Entry[31m;[m
      Name_Response [31m:[m Gtk_Response_Type[31m;[m
      Widget [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m

      
   [01;34mbegin[m
      
      Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mList_Dialog[31m,[m Title [31m=>[m [31m"Initialize list dialog"[m[31m,[m Flags [31m=>[m Modal[31m);[m
      Gtk[31m.[mWindow[31m.[m[01;30mSet_Default_Size[m[31m([m[01;30mGtk_Window[m[31m([mList_Dialog[31m),[m [35m250[m[31m,[m [35m100[m[31m);[m
      Box [31m:=[m [01;30mGet_Content_Area[m[31m([mList_Dialog[31m);[m      
      Widget [31m:=[m [01;30mAdd_Button[m[31m([mList_Dialog[31m,[m [31m"Cancel"[m[31m,[m Gtk_Response_Cancel[31m);[m
      Widget [31m:=[m [01;30mAdd_Button[m[31m([mList_Dialog[31m,[m [31m"Ok"[m[31m,[m Gtk_Response_Ok[31m);[m	 
      
	 
	 
      [01;34mif[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mand[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
         [01;30mGtk_New[m[31m([mThe_Entry[31m);[m	    
         [01;30mSet_Text[m[31m([mThe_Entry[31m,[m Add_name[31m);[m
         [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
            [01;30mDestroy[m[31m([mList_Dialog[31m);[m
	    
         [01;34melse[m
            [01;34mbegin[m
               Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
            [01;34mexception[m
               [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                  Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
            [01;34mend[m[31m;[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
            Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
            [01;30mDestroy[m[31m([mList_Dialog[31m);[m
	    
         [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34melsif[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mthen[m	    
         [01;30mGtk_New[m[31m([mThe_Entry[31m);[m
         [01;30mSet_Text[m[31m([mThe_Entry[31m,[m Add_name[31m);[m	    
         [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m False[31m);[m
         [01;30mPack_Start[m[31m([mBox[31m,[m The_Entry[31m);[m
         [01;30mGtk_New[m[31m([mThe_Entry[31m);[m
         [01;30mSet_Text[m[31m([mThe_Entry[31m,[m Add_name[31m);[m	
         [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m False[31m);[m
         [01;30mPack_Start[m[31m([mBox[31m,[m The_Entry[31m);[m
         [01;30mGtk_New[m[31m([mThe_Entry[31m);[m
         [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m True[31m);[m	    
         [01;30mPack_Start[m[31m([mBox[31m,[m The_Entry[31m);[m
         [01;30mShow_All[m[31m([mList_Dialog[31m);[m	 
         Name_Response [31m:=[m [01;30mRun[m[31m([mList_Dialog[31m);[m
         [01;34mcase[m Name_Response [01;34mis[m
         [01;34mwhen[m Gtk_Response_Ok [31m=>[m	       		  		  
            [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
               [01;34mbegin[m
                  Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
               [01;34mexception[m
                  [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                     Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
               [01;34mend[m[31m;[m

               Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([m[01;30mGtk_Entry[m[31m([mThe_Entry[31m)));[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([m[01;30mGtk_Entry[m[31m([mThe_Entry[31m)));[m

               Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
		  		     
            [01;34melse[m
               [01;30mGtk_New[m[31m([mThe_Entry[31m);[m
               [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m True[31m);[m	    
               [01;30mPack_Start[m[31m([mBox[31m,[m The_Entry[31m);[m	    
            [01;34mend[m [01;34mif[m[31m;[m		  
         [01;34mwhen[m [01;34mothers[m [31m=>[m
            [01;30mDestroy[m[31m([mList_Dialog[31m);[m
	       
         [01;34mend[m [01;34mcase[m[31m;[m      


      [01;34melse[m
         [01;30mGtk_New[m[31m([mThe_Entry[31m);[m	    
         [01;30mPack_Start[m[31m([mBox[31m,[m The_Entry[31m);[m
         [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m True[31m);[m	    
         [01;30mShow_All[m[31m([mList_Dialog[31m);[m	 
         Name_Response [31m:=[m [01;30mRun[m[31m([mList_Dialog[31m);[m
         [01;34mcase[m Name_Response [01;34mis[m
         [01;34mwhen[m Gtk_Response_Ok [31m=>[m	       
	       
            [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
		  
            [01;34melse[m
               [01;34mbegin[m
                  Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
               [01;34mexception[m
                  [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                     Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
               [01;34mend[m[31m;[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
               Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;30mCreate_List_Window[m[31m([mMain[31m,[m [31m""[m[31m);[m
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mwhen[m [01;34mothers[m [31m=>[m
            [01;30mDestroy[m[31m([mList_Dialog[31m);[m
	       
         [01;34mend[m [01;34mcase[m[31m;[m      

	 
      [01;34mend[m [01;34mif[m[31m;[m	 
   [01;34mend[m Initialize_Project_Window[31m;[m
   
   
   [01;34mprocedure[m [01;30mCreate_List_Window[m [31m([mMain [31m:[m [01;34min[m Object_Pointer[31m;[m Add_Name [31m:[m [01;34min[m [32mstring[m[31m)[m [01;34mis[m
      
      Project_Default [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"Project.default"[m[31m;[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
      
      

      List_Dialog [31m:[m Gtk[31m.[mDialog[31m.[mGtk_Dialog[31m;[m
      Box [31m:[m Gtk[31m.[mBox[31m.[mGtk_Vbox[31m;[m
      The_Entry [31m:[m Gtk[31m.[mGentry[31m.[mGtk_Entry[31m;[m
      Name_Response [31m:[m Gtk_Response_Type[31m;[m
      Widget [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m
      Scroll [31m:[m Gtk_Scrolled_Window[31m;[m
      
      The_Box [31m:[m Gtk_Vbox[31m;[m
      
   [01;34mbegin[m
      
      [01;34mloop[m
	 
         Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mList_Dialog[31m,[m Title [31m=>[m [31m"Create list dialog"[m[31m,[m Flags [31m=>[m Modal[31m);[m
	 
         Gtk[31m.[mWindow[31m.[m[01;30mSet_Default_Size[m[31m([m[01;30mGtk_Window[m[31m([mList_Dialog[31m),[m [35m250[m[31m,[m [35m250[m[31m);[m
	 
         Box [31m:=[m [01;30mGet_Content_Area[m[31m([mList_Dialog[31m);[m      
         [01;30mGtk_New_Vbox[m[31m([mThe_Box[31m,[m False[31m,[m [35m0[m[31m);[m
         [01;30mGtk_New[m[31m([mScroll[31m);[m
         [01;30mAdd_With_Viewport[m[31m([mScroll[31m,[m The_Box[31m);[m
         [01;34mif[m [01;30mIs_Regular_File[m[31m([mProject_Default[31m)[m [01;34mthen[m
	    
            Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mIn_File[31m,[m Project_Default[31m);[m
	    
            [01;34mwhile[m [01;34mnot[m Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
	       
               [01;34mdeclare[m
                  New_Text [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m);[m
               [01;34mbegin[m
		  
                  [01;30mGtk_New[m[31m([mThe_Entry[31m);[m
                  [01;30mPack_Start[m[31m([mThe_Box[31m,[m The_Entry[31m);[m
                  [01;30mSet_Text[m[31m([mThe_Entry[31m,[m New_Text[31m);[m
                  [01;30mSet_Editable[m[31m([mThe_Entry[31m,[m False[31m);[m
		  
               [01;34mexception[m
		  
                  [01;34mwhen[m [01;34mothers[m [31m=>[m
                     [01;34mnull[m[31m;[m
               [01;34mend[m[31m;[m
	       
            [01;34mend[m [01;34mloop[m[31m;[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Closing file named : "[m [31m&[m Project_default[31m);[m
            Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
	 
	 
	 
         Widget [31m:=[m [01;30mAdd_Button[m[31m([mList_Dialog[31m,[m [31m"Cancel"[m[31m,[m Gtk_Response_Cancel[31m);[m
         Widget [31m:=[m [01;30mAdd_Button[m[31m([mList_Dialog[31m,[m [31m"Ok"[m[31m,[m Gtk_Response_Ok[31m);[m	 
         [01;30mPack_Start[m[31m([mBox[31m,[m scroll[31m);[m
         [01;34mif[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mand[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
            [01;30mGtk_New[m[31m([mThe_Entry[31m);[m	    
            [01;30mSet_Text[m[31m([mThe_Entry[31m,[m Add_name[31m);[m	    
            [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mexit[m[31m;[m
            [01;34melse[m
               [01;34mbegin[m
                  Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
               [01;34mexception[m
                  [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                     Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
               [01;34mend[m[31m;[m
               Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
               Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mexit[m[31m;[m
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34melsif[m Main[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mthen[m
            [01;30mGtk_New[m[31m([mThe_Entry[31m);[m	    
            [01;30mSet_Text[m[31m([mThe_Entry[31m,[m Add_name[31m);[m
            [01;30mPack_Start[m[31m([mThe_Box[31m,[m The_Entry[31m);[m
            [01;30mShow_All[m[31m([mList_Dialog[31m);[m	 
            Name_Response [31m:=[m [01;30mRun[m[31m([mList_Dialog[31m);[m
            [01;34mcase[m Name_Response [01;34mis[m
            [01;34mwhen[m Gtk_Response_Ok [31m=>[m	       
		  
               [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
                  [01;30mDestroy[m[31m([mList_Dialog[31m);[m
                  [01;34mexit[m[31m;[m
               [01;34melse[m
                  [01;34mbegin[m
                     Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
                  [01;34mexception[m
                     [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                        Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
                  [01;34mend[m[31m;[m
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
                  Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
                  [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mwhen[m [01;34mothers[m [31m=>[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mexit[m[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m      


         [01;34melse[m
            [01;30mGtk_New[m[31m([mThe_Entry[31m);[m	    
            [01;30mPack_Start[m[31m([mThe_Box[31m,[m The_Entry[31m);[m
            [01;30mShow_All[m[31m([mList_Dialog[31m);[m	 
            Name_Response [31m:=[m [01;30mRun[m[31m([mList_Dialog[31m);[m
            [01;34mcase[m Name_Response [01;34mis[m
            [01;34mwhen[m Gtk_Response_Ok [31m=>[m	       
		  
               [01;34mif[m [01;30mGet_Text_Length[m[31m([mThe_Entry[31m)[m [31m=[m [35m0[m [01;34mthen[m
                  [01;30mDestroy[m[31m([mList_Dialog[31m);[m
                  [01;34mexit[m[31m;[m
               [01;34melse[m
                  [01;34mbegin[m
                     Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Text_Io[31m.[mAppend_File[31m,[m Project_Default[31m);[m
                  [01;34mexception[m
                     [01;34mwhen[m Text_Io[31m.[mName_Error [31m=>[m
                        Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Text_Io[31m.[mOut_File[31m,[m Project_Default[31m);[m
                  [01;34mend[m[31m;[m
                  Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mGet_Text[m[31m([mThe_Entry[31m));[m
                  Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
                  [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mwhen[m [01;34mothers[m [31m=>[m
               [01;30mDestroy[m[31m([mList_Dialog[31m);[m
               [01;34mexit[m[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m      
	    
	    
         [01;34mend[m [01;34mif[m[31m;[m
	 
      [01;34mend[m [01;34mloop[m[31m;[m      
   [01;34mend[m Create_List_Window[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mBuild_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mbegin[m
      [31m-- make all;	    [m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making all..."[m[31m);[m
      [01;34mif[m Gnostic[31m.[mSystem_Step [31m=[m Build [01;34mthen[m
         Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make all"[m[31m);[m
         [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
            [31m-- Going to Restart : [m
            Gnostic[31m.[mSystem_Step [31m:=[m Restart[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
         [01;34melse[m
            Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
            [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m      
      [01;34melse[m
         [01;34mdeclare[m
	    
            Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m System_Step_Message[31m;[m
            Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
         [01;34mbegin[m
            Message_Window[31m.[mPrevisious_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
            Message_Window[31m.[mCurrent_Step [31m:=[m Build[31m;[m
            Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	    
            [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
            [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
                  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m	 
               Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
            [01;34melse[m
               Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make all"[m[31m);[m
               [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
                  [31m-- Going to Restart : [m
                  Gnostic[31m.[mSystem_Step [31m:=[m Restart[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
               [01;34melse[m
                  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
                  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m
               [01;34mend[m [01;34mif[m[31m;[m      

            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Build_Menu[31m;[m
   

   [01;34mprocedure[m [01;30mAbout[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
   [01;34mbegin[m
      [01;30mAbout_Process[m[31m([m[01;30mTo_Pointer[m[31m([mMain_Window[31m));[m
   [01;34mend[m About[31m;[m
   
   [01;34mpackage[m Main_User_Cb_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Window_Record[31m,[m Gnose_Access[31m);[m
   
   
   [01;34mprocedure[m [01;30mMain_Destroy[m [31m([mWindow [31m:[m [01;34maccess[m Gtk_Window_record'Class[31m;[m
                           Gnostic [31m:[m [01;34min[m Gnose_access[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      
      [01;34mif[m Gnostic [31m/=[m [01;34mnull[m [01;34mthen[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to halt System..."[m[31m);[m
         Gnostic[31m.[mProcess[31m.[mHalt[31m;[m
         [01;34mabort[m Gnostic[31m.[mProcess[31m;[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"System halted."[m[31m);[m	 
      [01;34melse[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Gnostic null"[m[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m      
      Gtk[31m.[mMain[31m.[mMain_Quit[31m;[m
   [01;34mend[m Main_Destroy[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mAbout_Process[m[31m([mMain [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      
      About [31m:[m Gtk_About_Dialog[31m;[m
      
      About_Response [31m:[m Gtk_Response_Type[31m;[m
   [01;34mbegin[m
      
      [01;30mGtk_New[m[31m([mAbout[31m);[m
      [01;30mSet_Artists[m[31m([mAbout[31m,[m [31m([m[35m1[m [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[31m"Manuel De Girardi"[m[31m)));[m
      [01;30mSet_Authors[m[31m([mAbout[31m,[m [31m([m[35m1[m [31m=>[m [01;34mnew[m [32mString[m ' [31m([m[31m"Manuel De Girardi"[m[31m)));[m
      [01;30mSet_Comments[m[31m([mAbout[31m,[m [31m"Tested on GNU/Linux Debian."[m[31m);[m
      [01;30mSet_Copyright[m[31m([mAbout[31m,[m [31m"Gnostic (C) Copyright 2016"[m[31m);[m
      [01;30mSet_License[m[31m([mAbout[31m,[m [31m"GNU General Public License."[m[31m);[m
      [01;30mSet_Program_Name[m[31m([mAbout[31m,[m [31m"Gnostic"[m[31m);[m
      [01;30mSet_Version[m[31m([mAbout[31m,[m [01;30mTo_String[m[31m([mVersions[31m.[mversion[31m));[m
      [01;30mSet_Website[m[31m([mAbout[31m,[m [31m"https://sourceforge.net/projects/gnostic"[m[31m);[m
      
      About_Response [31m:=[m [01;30mRun[m[31m([mAbout[31m);[m
      
      Gtk[31m.[mAbout_Dialog[31m.[m[01;30mDestroy[m[31m([mAbout[31m);[m
   [01;34mend[m About_Process[31m;[m
   
   
   [01;34muse[m Gnos[31m.[mParameters[31m;[m
   
   
   
   
   [31m--  Gnostic.Process.Run[m
   [31m--    (Gnose_Context.System_Params.Self_Programming,[m
   [31m--     Gnose_Context.System_Params.Self_Executed);      [m
   [31m--  Gnostic.Process.Set_Neural(Human_Lang => Fr);[m
   [31m--  Text_Io.New_Line;[m
   [31m--  for Human_Lang in Human_Lang_Enum'Range loop[m
   [31m--     Gnostic.Process.Get_Neural(Neural_Unit, Human_Lang => Human_Lang);[m
   [31m--     Text_Io.Put_Line("Human Lang : " & Human_Lang_Enum'Image(Neural_Unit.Human_Lang));[m
   [31m--  end loop;[m
   
   [31m--  Text_Io.New_Line;[m
   [31m--  for Machine_Lang in Machine_Lang_Enum'Range loop[m
   [31m--     Gnostic.Process.Get_Language(Language_Unit, Machine_Lang => Machine_Lang);[m
   [31m--     Text_Io.Put_Line("Machine Lang : " & Machine_Lang_Enum'Image(Language_unit.Machine_Lang));[m
   [31m--  end loop;[m
   
   [31m--  Gnostic.Process.Suspend;[m
   [31m--  Gnostic.Process.Run[m
   [31m--    (Gnose_Context.System_Params.Self_Programming,[m
   [31m--     Gnose_Context.System_Params.Self_Executed);[m
   
   [31m-- [m
   
   [31m---------------------------[m
   [31m-- Draw_To_Double_Buffer --[m
   [31m---------------------------[m
   
   
   [31m-- The layout.      --[m
   [31m----------------------   [m
   Layout [31m:[m Pango_Layout[31m;[m
   
   [01;34mprocedure[m Draw
     [31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record[31m;[m
      Cr     [31m:[m Cairo_Context[31m)[m
   [01;34mis[m
   [01;34mbegin[m
      Gdk[31m.[mCairo[31m.[m[01;30mSet_Source_Color[m [31m([mCr[31m,[m Item[31m.[mColor[31m);[m
      Cairo[31m.[mRectangle
        [31m([mCr[31m,[m [35m0.5[m[31m,[m [35m0.5[m[31m,[m [01;30mGdouble[m [31m([mItem[31m.[mW[31m)[m [31m-[m [35m1.0[m[31m,[m [01;30mGdouble[m [31m([mItem[31m.[mH[31m)[m [31m-[m [35m1.0[m[31m);[m
      Cairo[31m.[m[01;30mFill[m [31m([mCr[31m);[m

      Gdk[31m.[mCairo[31m.[m[01;30mSet_Source_Color[m [31m([mCr[31m,[m Item[31m.[mTitle[31m);[m
      Rectangle
        [31m([mCr[31m,[m [35m0.5[m[31m,[m [35m0.5[m[31m,[m [01;30mGdouble[m [31m([mItem[31m.[mW[31m)[m [31m-[m [35m1.0[m[31m,[m [01;30mGdouble[m [31m([mItem[31m.[mH[31m)[m [31m-[m [35m1.0[m[31m);[m
      Cairo[31m.[m[01;30mStroke[m [31m([mCr[31m);[m

      [01;30mSet_Text[m [31m([mLayout[31m,[m [01;30mDisplay_Item[m [31m([mItem[31m).[mName[31m);[m
      Cairo[31m.[m[01;30mMove_To[m [31m([mCr[31m,[m [35m10.0[m[31m,[m [35m10.0[m[31m);[m
      Pango[31m.[mCairo[31m.[m[01;30mShow_Layout[m [31m([mCr[31m,[m Layout[31m);[m
   [01;34mend[m Draw[31m;[m


   
   
   
   Max_Colors [31m:[m [01;34mconstant[m [31m:=[m [35m20[m[31m;[m
   
   [01;34mtype[m Color_Type [01;34mis[m [01;34mrange[m [35m1[m [31m..[m Max_Colors[31m;[m
   
   [01;34mtype[m String_Access [01;34mis[m [01;34maccess[m [32mString[m[31m;[m
   Color_Names [31m:[m [01;34mconstant[m [01;34marray[m [31m([mColor_Type[31m)[m [01;34mof[m String_Access [31m:=[m
     [31m([m[01;34mnew[m [32mString[m'[31m([m[31m"forest green"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"red"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"blue"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"yellow"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"peach puff"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"azure"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"seashell"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"lavender"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"grey"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"turquoise"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"khaki"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"tan"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"orange red"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"MediumPurple"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"ivory1"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"DeepSkyBlue1"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"burlywood1"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"wheat1"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"orange1"[m[31m),[m
      [01;34mnew[m [32mString[m'[31m([m[31m"pink"[m[31m));[m

   Colors [31m:[m [01;34marray[m [31m([mColor_Type[31m)[m [01;34mof[m Gdk_Color[31m;[m

   [31m----------------------------[m
   [31m-- On_Link_Button_Clicked --[m
   [31m----------------------------   [m
   
   
   [01;34mtype[m Edit_Window_Record_Type [01;34mis[m [01;34mnew[m Gtk_Window_Record [01;34mwith[m
      [01;34mrecord[m	 
         Page_Frame [31m:[m Gtk_Frame[31m;[m     
         Buffer   [31m:[m Gtk_Text_Buffer[31m;[m	 
         View     [31m:[m Gtk_Text_View[31m;[m
         Scrolled [31m:[m Gtk_Scrolled_Window[31m;[m          
         Editable [31m:[m [32mBoolean[m [31m:=[m False[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mpackage[m Edit_Cb_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mcallback[m[31m([mEdit_Window_Record_Type[31m);[m
   
   [01;34mprocedure[m [01;30mEdit_Save_As[m [31m([mEditor [31m:[m [01;34maccess[m Edit_Window_Record_Type'Class[31m);[m
   
   
   [01;34mprocedure[m [01;30mEdit_Save[m [31m([mEditor [31m:[m [01;34maccess[m Edit_Window_Record_Type'Class[31m);[m
   
   [01;34mprocedure[m [01;30mEdit_Quit[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Edit_Quit[31m);[m
   
   [01;34mprocedure[m [01;30mSave_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Save_Menu[31m);[m
   
   [01;34mprocedure[m [01;30mSave_As_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m);[m
   [01;34mpragma[m [01;30mConvention[m [31m([mC[31m,[m Save_As_Menu[31m);[m
   
   [01;34mpackage[m Edit_Conversions [01;34mis[m [01;34mnew[m [01;30mAddress_To_Access_Conversions[m[31m([mEdit_Window_Record_Type[31m);[m
   
   [01;34mprocedure[m [01;30mSave_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Object [31m:[m [01;34mconstant[m [01;34maccess[m Edit_Window_Record_Type'Class [31m:=[m 
        Edit_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
   [01;34mbegin[m
      [01;30mEdit_Save[m[31m([mObject[31m);[m
   [01;34mend[m Save_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mSave_As_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Object [31m:[m [01;34mconstant[m [01;34maccess[m Edit_Window_Record_Type'Class [31m:=[m 
        Edit_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
   [01;34mbegin[m
      [01;30mEdit_Save_As[m[31m([mObject[31m);[m
   [01;34mend[m Save_As_Menu[31m;[m
   
   
   [01;34mprocedure[m [01;30mEdit_Destroy[m [31m([mWindow [31m:[m [01;34maccess[m Edit_Window_Record_Type'class[31m)[m [01;34mis[m
      
   [01;34mbegin[m
      [01;30mDestroy[m[31m([mWindow[31m);[m
   [01;34mend[m Edit_Destroy[31m;[m   
   
   Edit_Entries [31m:[m [01;34mconstant[m Action_Entry_Array [31m:=[m
     [31m([m[35m1[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"FileMenu"[m[31m,[m        Label [31m=>[m [31m"_File"[m[31m),[m
      [35m2[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Save"[m[31m,[m
                   Stock_Id    [31m=>[m Stock_Save[31m,[m
                   Label       [31m=>[m [31m"_Save"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>S"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Save"[m[31m,[m
                   Callback    [31m=>[m Save_Menu'[01;34mAccess[m[31m),[m
      [35m3[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Save _As"[m[31m,[m		   
                   Stock_Id    [31m=>[m Stock_Save_As[31m,[m
                   Label       [31m=>[m [31m"Save _As"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>A"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Save _As"[m[31m,[m
                   Callback    [31m=>[m Save_As_Menu'[01;34mAccess[m[31m),[m
      [35m4[m [31m=>[m [01;30mCreate[m [31m([mName [31m=>[m [31m"Quit"[m[31m,[m		   
                   Stock_Id    [31m=>[m Stock_Quit[31m,[m
                   Label       [31m=>[m [31m"_Quit"[m[31m,[m
                   Accelerator [31m=>[m [31m"<control>Q"[m[31m,[m
                   Tooltip     [31m=>[m [31m"Quit"[m[31m,[m
                   Callback    [31m=>[m Edit_Quit'[01;34mAccess[m[31m));[m
   
   
   
   Edit_UI_Info [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
     [31m"<ui>"[m
     [31m&[m [31m"  <menubar name='MenuBar'>"[m
     [31m&[m [31m"    <menu action='FileMenu'>"[m
     [31m&[m [31m"      <menuitem action='Save'/>"[m     
     [31m&[m [31m"      <menuitem action='Save _As'/>"[m     
     [31m&[m [31m"      <separator/>"[m    
     [31m&[m [31m"      <menuitem action='Quit'/>"[m     
     [31m&[m [31m"    </menu>"[m
     [31m&[m [31m"  </menubar>"[m
     [31m&[m [31m"</ui>"[m[31m;[m

   

   
   [01;34mprocedure[m [01;30mEdit_Quit[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      
      Dialog [31m:[m Gtk[31m.[mDialog[31m.[mGtk_Dialog[31m;[m
      Yes    [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      No     [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
      Object [31m:[m [01;34mconstant[m Edit_Conversions[31m.[mObject_Pointer [31m:=[m 
        Edit_Conversions[31m.[m[01;30mTo_Pointer[m[31m([mMain_Window[31m);[m
   [01;34mbegin[m
      [01;34mif[m Object[31m.[mEditable [01;34mthen[m
         [01;34mloop[m
            Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mDialog[31m,[m [31m"Save ?"[m[31m,[m [01;30mGtk_Window[m[31m([mObject[31m),[m Gtk[31m.[mdialog[31m.[mmodal[31m);[m
            Yes [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mDialog[31m,[m [31m"Yes"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes[31m);[m
            No [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mDialog[31m,[m [31m"No"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_No[31m);[m         
            [01;34mcase[m Gtk[31m.[mDialog[31m.[m[01;30mRun[m[31m([mDialog[31m)[m [01;34mis[m
            [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes    [31m=>[m             
               
               Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m               	       
               [01;34mexit[m[31m;[m
            [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_No     [31m=>[m
               Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m               
               [01;34mexit[m[31m;[m
            [01;34mwhen[m [01;34mothers[m [31m=>[m
               Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m	       
               [01;34mexit[m[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m      
      [01;34mend[m [01;34mif[m[31m;[m
      [01;30mEdit_Destroy[m[31m([mObject[31m);[m
   [01;34mend[m Edit_Quit[31m;[m
   
   [01;34mprocedure[m [01;30mEdit_Save_As[m [31m([mEditor [31m:[m [01;34maccess[m Edit_Window_Record_Type'Class[31m)[m [01;34mis[m      
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      
      Top   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
      Bot   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m


      Title [31m:[m [01;34mconstant[m [32mstring[m [31m:=[m gtkada[31m.[mfile_selection[31m.[m[01;30mFile_selection_Dialog[m[31m([mdefault_dir [31m=>[m [31m"."[m[31m);[m
   [01;34mbegin[m
      [01;34mif[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"txt"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"ads"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"adb"[m [01;34mthen[m
         [01;30mGet_Bounds[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
         [01;30mset_title[m[31m([mEditor[31m,[m Title[31m);[m
         Wide_Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mOut_File[31m,[m Title[31m);[m
	 
         Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mGet_Text[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m,[m True[31m))));[m
	 
         Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m      
   [01;34mend[m Edit_Save_As[31m;[m
   
   
   [01;34mprocedure[m [01;30mEdit_Save[m [31m([mEditor [31m:[m [01;34maccess[m Edit_Window_Record_Type'Class[31m)[m [01;34mis[m      
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      
      Top   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
      Bot   [31m:[m Gtk[31m.[mText_Iter[31m.[mGtk_Text_Iter[31m;[m
   [01;34mbegin[m
      [01;34mif[m [01;30mGet_Title[m[31m([mEditor[31m)[m'Length [31m/=[m [35m0[m [01;34mthen[m
	 [01;30mGet_Bounds[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m);[m
      
	 Wide_Text_Io[31m.[m[01;30mCreate[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mOut_File[31m,[m [01;30mGet_Title[m[31m([mEditor[31m));[m
	 
	 Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mEncode[m[31m([mHandling[31m.[m[01;30mTo_Wide_String[m[31m([m[01;30mGet_Text[m[31m([mEditor[31m.[mBuffer[31m,[m Top[31m,[m Bot[31m,[m True[31m))));[m
	 
	 Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
      
   [01;34mend[m Edit_Save[31m;[m
   
   
   [31m-- Insert_With_Tag --[m
   [31m---------------------[m
   
   [01;34mprocedure[m Insert_With_Tag
     [31m([mBuffer [31m:[m [01;34maccess[m Gtk_Text_Buffer_Record'Class[31m;[m
      Tag    [31m:[m [32mString[m[31m;[m
      Text   [31m:[m [32mString[m[31m)[m
   [01;34mis[m
      T [31m:[m Gtk_Text_Tag[31m;[m
      Iter[31m,[m Start_Iter [31m:[m Gtk_Text_Iter[31m;[m
      Table [31m:[m Gtk_Text_Tag_Table[31m;[m
      Result [31m:[m [32mBoolean[m[31m;[m
      [01;34mpragma[m [01;30mWarnings[m [31m([mOff[31m,[m Result[31m);[m
   [01;34mbegin[m
      [01;30mGet_End_Iter[m [31m([mBuffer[31m,[m Iter[31m);[m

      [01;34mif[m Tag [31m=[m [31m""[m [01;34mthen[m
         [01;30mInsert[m [31m([mBuffer[31m,[m Iter[31m,[m Text [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m10[m[31m));[m
         
      [01;34melse[m
         Table [31m:=[m [01;30mGet_Tag_Table[m [31m([mBuffer[31m);[m
         T [31m:=[m [01;30mLookup[m [31m([mTable[31m,[m Tag[31m);[m
         
         [01;30mInsert[m [31m([mBuffer[31m,[m Iter[31m,[m Text [31m&[m [32mCharacter[m'[01;30mVal[m[31m([m[35m10[m[31m));[m
         [01;30mCopy[m [31m([mSource [31m=>[m Iter[31m,[m Dest [31m=>[m Start_Iter[31m);[m
         [01;30mBackward_Chars[m [31m([mStart_Iter[31m,[m Text'Length [31m+[m [35m1[m[31m,[m Result[31m);[m
         [01;30mApply_Tag[m [31m([mBuffer[31m,[m T[31m,[m Start_Iter[31m,[m Iter[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Insert_With_Tag[31m;[m      
   
   
   
   [01;34mprocedure[m On_Link_Button_Clicked
     [31m([mButton [31m:[m [01;34maccess[m Gtk_Link_Button_Record'Class[31m;[m
      Link   [31m:[m UTF8_String[31m;[m
      Data   [31m:[m [32mBoolean[m[31m)[m [01;34mis[m
      
      
      
      Edit_window [31m:[m [01;34mconstant[m Edit_Conversions[31m.[mObject_Pointer [31m:=[m 
        [01;34mnew[m Edit_Window_Record_Type[31m;[m
      
      
      Tags     [31m:[m Gtk_Text_Tag_Table[31m;[m     
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mButton[31m);[m
      
      Vbox     [31m:[m Gtk_Vbox[31m;[m
      
      UI            [31m:[m Gtk_UI_Manager[31m;[m
      Actions       [31m:[m Gtk_Action_Group[31m;[m
      Error   [31m:[m [01;34maliased[m GError [31m:=[m [01;34mnull[m[31m;[m      
      
      File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
      
      
      
   [01;34mbegin[m      
      [31m--Text_Io.Put_Line ("Link_Button edition clicked: " & Link);[m
      
      Edit_Window[31m.[mEditable [31m:=[m Data[31m;[m
      
      [01;30mInitialize[m[31m([mEdit_Window[31m,[m Gtk[31m.[mEnums[31m.[mWindow_toplevel[31m);[m
      [01;30mSet_Title[m[31m([mEdit_Window[31m,[m Link[31m);[m
      [01;30mGtk_New[m[31m([mTags[31m);[m
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mBuffer[31m,[m Tags[31m);[m
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mView[31m,[m Edit_Window[31m.[mBuffer[31m);[m
      [01;30mSet_wrap_mode[m[31m([mEdit_Window[31m.[mView[31m,[m Gtk[31m.[menums[31m.[m wrap_char[31m);[m
      [01;30mGtk_New[m[31m([mEdit_Window[31m.[mPage_Frame[31m);[m      
      Gtk[31m.[mWindow[31m.[m[01;30mSet_Default_Size[m[31m([m[01;30mGtk_Window[m[31m([mEdit_Window[31m),[m [35m810[m[31m,[m [35m600[m[31m);[m
      Gtk[31m.[mWindow[31m.[m[01;30mSet_Position[m[31m([m[01;30mGtk_Window[m[31m([mEdit_Window[31m),[m Gtk[31m.[mEnums[31m.[mWin_Pos_Center[31m);[m
      
      
      [01;34mif[m Link [31m=[m [31m""[m [01;34mthen[m
         Insert_With_Tag
           [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"-- Date := """" ; "[m[31m)));[m
         Insert_With_Tag
           [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([m[31m"-- Version := """" ; "[m[31m)));[m
      [01;34melse[m
	 
         Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m Link[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
         [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
            [01;34mdeclare[m
               Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m([mWide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
	       
            [01;34mbegin[m
	       
               [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mthen[m
		  
                  Insert_With_Tag
                    [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mLine[31m)));[m
		  
               [01;34melse[m
		  
                  Insert_With_Tag
                    [31m([mEdit_Window[31m.[mBuffer[31m,[m [31m""[m[31m,[m [31m""[m[31m);[m
		  
               [01;34mend[m [01;34mif[m[31m;[m                           
            [01;34mend[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
         Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m     
      [01;34mend[m [01;34mif[m[31m;[m
      
      
      [01;30mSet_Editable[m[31m([mEdit_Window[31m.[mView[31m,[m Data[31m);[m
      
      [01;30mGtk_New[m [31m([mEdit_Window[31m.[mScrolled[31m);[m      
      [01;30mSet_Policy[m [31m([mEdit_Window[31m.[mScrolled[31m,[m Policy_Automatic[31m,[m Policy_Always[31m);[m      
      [01;30mAdd[m [31m([mEdit_Window[31m.[mScrolled[31m,[m Edit_Window[31m.[mView[31m);[m      
      [01;30mAdd[m [31m([mEdit_Window[31m.[mPage_Frame[31m,[m Edit_Window[31m.[mScrolled[31m);[m                        
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m);[m
      
      [01;30mGtk_New[m [31m([mActions[31m,[m [31m"Actions"[m[31m);[m
      [01;30mAdd_Actions[m [31m([mActions[31m,[m Edit_Entries[31m,[m Edit_Conversions[31m.[m[01;30mTo_Address[m[31m([mEdit_Window[31m.[m[01;34mall[m'[01;34mAccess[m[31m));[m
      [01;30mGtk_New[m [31m([mUI[31m);[m
      [01;30mInsert_Action_Group[m [31m([mUI[31m,[m Actions[31m,[m [35m0[m[31m);[m
      Add_Accel_Group
        [31m([mEdit_window[31m,[m [01;30mGet_Accel_Group[m [31m([mUI[31m));[m
      [01;34mif[m [01;30mAdd_UI_From_String[m [31m([mUI[31m,[m Edit_UI_Info[31m,[m Error'Unchecked_Access[31m)[m [31m=[m [35m0[m [01;34mthen[m
         Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"Building menus failed: "[m [31m&[m [01;30mGet_Message[m [31m([mError[31m));[m
         [01;30mError_Free[m [31m([mError[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m      
      
      Gtk[31m.[mAction[31m.[m[01;30mSet_Sensitive[m[31m([m[01;30mGet_Action[m[31m([mActions[31m,[m [31m"Save"[m[31m),[m Data[31m);[m
      
      
      [31m-- Pack start Menu bar :[m
      [01;30mPack_Start[m [31m([mVbox[31m,[m [01;30mGet_Widget[m [31m([mUI[31m,[m [31m"/MenuBar"[m[31m),[m False[31m,[m False[31m,[m [35m5[m[31m);[m
      
      
      [01;30mPack_Start[m[31m([mVbox[31m,[m Edit_Window[31m.[mPage_Frame[31m,[m True[31m,[m True[31m);[m
      
      
      Edit_Cb_Handlers[31m.[mConnect
        [31m([mEdit_Window[31m,[m [31m"destroy"[m[31m,[m 
         Edit_Cb_Handlers[31m.[mTo_Marshaller
           [31m([mEdit_Destroy'[01;34mAccess[m[31m));[m
      
      [01;30mAdd[m[31m([mEdit_Window[31m,[m Vbox[31m);[m
      [01;30mShow_All[m[31m([m[01;30mGtk_Window[m[31m([mEdit_Window[31m));[m
   [01;34mend[m On_Link_Button_Clicked[31m;[m
   
   
   [01;34mprocedure[m [01;30mNew_file[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
   [01;34mbegin[m
      
      [01;30mOn_Link_Button_clicked[m [31m([m[01;34mnull[m[31m,[m [31m""[m[31m,[m True[31m);[m
   [01;34mend[m New_File[31m;[m

   [01;34mprocedure[m [01;30mOpen_file[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mAction[31m);[m
      Title [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m([mgtkada[31m.[mfile_selection[31m.[m[01;30mFile_selection_Dialog[m[31m([mdefault_dir [31m=>[m [31m""[m[31m));[m
   [01;34mbegin[m
      [01;34mif[m [31m([mTitle'Length [31m/=[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m
        [01;30mIs_Regular_File[m[31m([mTitle[31m)[m [01;34mand[m [01;34mthen[m
        [31m([m[01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"txt"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"ads"[m [01;34mor[m [01;30mExtension[m[31m([mTitle[31m)[m [31m=[m [31m"adb"[m[31m)[m [01;34mthen[m
         [01;30mOn_Link_Button_clicked[m [31m([m[01;34mnull[m[31m,[m Title[31m,[m True[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Open_File[31m;[m
   
   [01;34mfunction[m [01;30mOn_Button_click[m[31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record[31m;[m
                            Event  [31m:[m Gdk[31m.[mEvent[31m.[mGdk_Event_Button[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      
      
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mEvent[31m);[m
      
   [01;34mbegin[m
      
      [01;30mOn_Link_Button_clicked[m [31m([m[01;34mnull[m[31m,[m Item[31m.[m[01;30mFilename[m[31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mItem[31m.[mFilename[31m,[m Backward[31m)),[m True[31m);[m
      [01;34mreturn[m False[31m;[m
   [01;34mend[m On_Button_click[31m;[m
   
   [01;34mpackage[m Link_Button_Cb [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mCallback[m[31m([mGtk_Link_Button_Record[31m);[m
   
   [31m------------------------------------------[m
   [31m-- Canvas definition for Project Graph. --[m
   [31m------------------------------------------[m
   
   [31m----------------[m
   [31m-- Initialize --[m
   [31m----------------[m
   
   
   [01;34mprocedure[m Initialize_Main_Item
     [31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record'Class[31m;[m
      Canvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Name   [31m:[m [01;34min[m [32mString[m[31m;[m
      Filename   [31m:[m [01;34min[m [32mString[m[31m)[m
   [01;34mis[m
      Width [31m:[m [01;34mconstant[m Gint [31m:=[m [01;30mGint[m[31m([mName'Length[31m)[m [31m*[m [35m10[m[31m;[m
   [01;34mbegin[m
      
      [01;30mMove[m[31m([mName[31m,[m Item[31m.[mName[31m,[m Ada[31m.[mStrings[31m.[mError[31m,[m Left[31m,[m [31m' '[m[31m);[m
      [01;30mMove[m[31m([mFilename[31m,[m Item[31m.[mFilename[31m,[m Ada[31m.[mStrings[31m.[mError[31m,[m Left[31m,[m [31m' '[m[31m);[m
      
      Item[31m.[mCanvas [31m:=[m [01;30mInteractive_Canvas[m [31m([mCanvas[31m);[m

      Item[31m.[mColor [31m:=[m [01;30mColors[m[31m([m[35m3[m[31m);[m

      Item[31m.[mW [31m:=[m Width[31m;[m

      Item[31m.[mH [31m:=[m [35m30[m[31m;[m

      Item[31m.[mNum [31m:=[m [35m1[m[31m;[m
      
      [01;30mSet_Screen_Size[m [31m([mItem[31m,[m Item[31m.[mW[31m,[m Item[31m.[mH[31m);[m

   [01;34mend[m Initialize_Main_Item[31m;[m
   
   [01;34mprocedure[m Initialize_Lib_Item
     [31m([mItem   [31m:[m [01;34maccess[m Display_Item_Record'Class[31m;[m
      Canvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Name   [31m:[m [01;34min[m [32mString[m[31m;[m
      Filename   [31m:[m [01;34min[m [32mString[m[31m;[m
      Color  [31m:[m [01;34min[m Color_Type[31m)[m
   [01;34mis[m
      Width [31m:[m [01;34mconstant[m Gint [31m:=[m [01;30mGint[m[31m([mName'Length[31m)[m [31m*[m [35m10[m[31m;[m
   [01;34mbegin[m
      
      [01;30mMove[m[31m([mName[31m,[m Item[31m.[mName[31m,[m Ada[31m.[mStrings[31m.[mError[31m,[m Left[31m,[m [31m' '[m[31m);[m
      [01;30mMove[m[31m([mFilename[31m,[m Item[31m.[mFilename[31m,[m Ada[31m.[mStrings[31m.[mError[31m,[m Left[31m,[m [31m' '[m[31m);[m
      
      Item[31m.[mCanvas [31m:=[m [01;30mInteractive_Canvas[m [31m([mCanvas[31m);[m

      Item[31m.[mColor [31m:=[m [01;30mColors[m[31m([mColor[31m);[m
      
      Item[31m.[mW [31m:=[m Width[31m;[m
      
      Item[31m.[mH [31m:=[m [35m30[m[31m;[m
      
      Item[31m.[mNum [31m:=[m [35m2[m[31m;[m
      
      [01;30mSet_Screen_Size[m [31m([mItem[31m,[m Item[31m.[mW[31m,[m Item[31m.[mH[31m);[m
   [01;34mend[m Initialize_Lib_Item[31m;[m
   
   
   [31m---------------------[m
   [31m-- Add_*_Item --[m
   [31m---------------------[m
   
   [01;34mprocedure[m Add_Main_Item
     [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Name   [31m:[m [01;34min[m [32mString[m[31m;[m
      Filename   [31m:[m [01;34min[m [32mString[m[31m;[m
      Tab        [31m:[m [01;34min[m [01;34mout[m Item_Array_Type[31m;[m
      Index      [31m:[m [01;34min[m [01;34mout[m Natural[31m)[m
   [01;34mis[m
      Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m [01;34mnew[m Display_Item_Record[31m;[m
      
   [01;34mbegin[m
      
      [01;30mInitialize_Main_Item[m [31m([mItem[31m,[m Canvas[31m,[m Name[31m,[m Filename[31m);[m
      [01;30mTab[m[31m([mIndex[31m+[m[35m1[m[31m)[m [31m:=[m Item[31m;[m
      Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      
      [01;30mPut[m [31m([mCanvas[31m,[m Item[31m,[m [35m800[m[31m,[m [35m10[m[31m);[m
      [01;30mRefresh_Canvas[m [31m([mCanvas[31m);[m
      [01;30mShow_Item[m [31m([mCanvas[31m,[m Item[31m);[m
   [01;34mend[m Add_Main_Item[31m;[m
   
   
   
   [01;34mprocedure[m Add_Lib_Item
     [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Name      [31m:[m [01;34min[m [32mString[m[31m;[m
      Filename   [31m:[m [01;34min[m [32mString[m[31m;[m
      X[31m,[m Y      [31m:[m [01;34min[m Gint[31m;[m
      Tab        [31m:[m [01;34min[m [01;34mout[m Item_Array_Type[31m;[m
      Index      [31m:[m [01;34min[m [01;34mout[m Natural[31m;[m
      Color  [31m:[m [01;34min[m Color_Type[31m)[m
   [01;34mis[m
      Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m [01;34mnew[m Display_Item_Record[31m;[m      
   [01;34mbegin[m
      
      [01;30mInitialize_Lib_Item[m [31m([mItem[31m,[m Canvas[31m,[m Name[31m,[m Filename[31m,[m color[31m);[m
      [01;30mTab[m[31m([mIndex[31m+[m[35m1[m[31m)[m [31m:=[m Item[31m;[m
      Index [31m:=[m Index [31m+[m [35m1[m[31m;[m
      
      [01;30mPut[m [31m([mCanvas[31m,[m Item[31m,[m X[31m,[m Y[31m);[m
      [01;30mRefresh_Canvas[m [31m([mCanvas[31m);[m
      [01;30mShow_Item[m [31m([mCanvas[31m,[m Item[31m);[m
   [01;34mend[m Add_Lib_Item[31m;[m
   
   
   
   [01;34mprocedure[m Add_Canvas_Link
     [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Item1[31m,[m Item2 [31m:[m [01;34maccess[m Canvas_Item_Record'Class[31m;[m Text [31m:[m [32mString[m [31m:=[m [31m""[m[31m);[m
   [31m--  Add a link between Item1 and Item2[m
   
   [31m---------------------[m
   [31m-- Add_Canvas_Link --[m
   [31m---------------------[m

   [01;34mprocedure[m Add_Canvas_Link
     [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
      Item1[31m,[m Item2 [31m:[m [01;34maccess[m Canvas_Item_Record'Class[31m;[m Text [31m:[m [32mString[m [31m:=[m [31m""[m[31m)[m
   [01;34mis[m
      Link [31m:[m [01;34mconstant[m Canvas_Link [31m:=[m [01;34mnew[m Canvas_Link_Record[31m;[m
   [01;34mbegin[m
      [01;30mAdd_Link[m [31m([mCanvas[31m,[m Link[31m,[m Item1[31m,[m Item2[31m,[m End_Arrow[31m,[m Text[31m);[m
   [01;34mend[m Add_Canvas_Link[31m;[m

   
   
   [31m-----------[m
   [31m-- Clear --[m
   [31m-----------[m

   [01;34mprocedure[m [01;30mClear_Canvas[m [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m)[m [01;34mis[m
      [01;34mfunction[m Remove_Internal
        [31m([mCanvas [31m:[m [01;34maccess[m Interactive_Canvas_Record'Class[31m;[m
         Item   [31m:[m [01;34maccess[m Canvas_Item_Record'Class[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      [01;34mbegin[m
         [01;30mRemove[m [31m([mCanvas[31m,[m Item[31m);[m
         [01;34mreturn[m True[31m;[m
      [01;34mend[m Remove_Internal[31m;[m
      
   [01;34mbegin[m
      [01;30mFor_Each_Item[m [31m([mCanvas[31m,[m Remove_Internal'Unrestricted_Access[31m);[m
      [01;30mRefresh_Canvas[m [31m([mCanvas[31m);[m      
      
   [01;34mend[m Clear_Canvas[31m;[m
   
   
   [01;34mprocedure[m [01;30mReverse_Canvas_Constructor[m[31m([mCanvas [31m:[m [01;34min[m Canvas_Record_Access[31m;[m	
                                        Units [31m:[m [01;34min[m Unit_Array_Type[31m;[m
                                        Last  [31m:[m [01;34min[m Positive[31m;[m
                                        As_Lib  [31m:[m [32mBoolean[m[31m);[m
   
   [01;34mprocedure[m [01;30mReverse_Canvas_Menu[m[31m([mAction[31m,[m Main_Window [31m:[m Address[31m)[m [01;34mis[m
      [01;34mpragma[m [01;30mUnreferenced[m[31m([mAction[31m);[m
      Object [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m [01;30mTo_Pointer[m[31m([mMain_Window[31m).[m[01;34mall[m'[01;34mAccess[m[31m;[m      
   [01;34mbegin[m
      [01;34mif[m Object[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mProject_Define[31m).[mCanvas[31m/=[m [01;34mnull[m [01;34mthen[m
         [01;30mClear_Canvas[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mProject_Define[31m).[mCanvas[31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
      [01;34mif[m Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m	 	 
         Reverse_Canvas_Constructor
           [31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mProject_Define[31m),[m
            Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mLibrary_Unit[31m,[m
            Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mUnit_Index[31m,[m
            False
           [31m);[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Reverse_Canvas_Menu[31m;[m
   
   
   
   [01;34mprocedure[m [01;30mReverse_Canvas_Constructor[m[31m([mCanvas [31m:[m [01;34min[m Canvas_Record_Access[31m;[m	
                                        Units [31m:[m [01;34min[m Unit_Array_Type[31m;[m
                                        Last  [31m:[m [01;34min[m Positive[31m;[m
                                        As_Lib  [31m:[m [32mBoolean[m[31m)[m [01;34mis[m
      Start_Index [31m:[m Positive [31m:=[m [35m2[m[31m;[m
   [01;34mbegin[m
      Canvas[31m.[mX_Ads [31m:=[m [35m400[m[31m;[m
      Canvas[31m.[mY_ads [31m:=[m [35m50[m[31m;[m
      
      Canvas[31m.[mX_Adb [31m:=[m [35m200[m[31m;[m
      Canvas[31m.[mY_Adb [31m:=[m [35m100[m[31m;[m
      
      
      Canvas[31m.[mItem_Last [31m:=[m [35m0[m[31m;[m
      
      [31m----------------------------------------------------------------------[m
      [31m-- Adding Item to Canvas :                                          --[m
      
      [01;34mif[m [01;34mnot[m As_Lib [01;34mthen[m

         [01;30mAdd_Main_Item[m[31m([m
                       Canvas[31m.[mCanvas[31m,[m
                       [01;30mUnits[m[31m([m[35m1[m[31m).[mUnit_Name
                       [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30mUnits[m[31m([m[35m1[m[31m).[mUnit_Name[31m,[m Backward[31m)),[m
                       [01;30mUnits[m[31m([m[35m1[m[31m).[mFile_Name[31m,[m		      
                       Canvas[31m.[mItem_Array[31m,[m
                       Canvas[31m.[mItem_Last
                      [31m);[m
      [01;34melse[m
         Start_Index [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Last [31m>[m [35m1[m [01;34mthen[m
         [01;34mfor[m I [01;34min[m Start_index[31m..[mLast [01;34mloop[m
            [31m--Text_Io.Put_Line("item 4.1");[m
            [01;34mdeclare[m
               Unitname [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
                 [01;30mUnits[m[31m([mI[31m).[mUnit_Name
                 [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30mUnits[m[31m([mI[31m).[mUnit_Name[31m,[m Backward[31m));[m
	       
               Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m 
                 [01;30mFile_Extension[m[31m([m[01;30munits[m[31m([mI[31m).[m[01;30mUnit_Name[m[31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30munits[m[31m([mI[31m).[mUnit_Name[31m,[m Backward[31m)));[m
	       
            [01;34mbegin[m
               [31m--Text_Io.Put_Line("item 4.2");[m
               [01;34mif[m Extension [31m=[m [31m".ads"[m [01;34mthen[m
                  Add_Lib_Item
                    [31m([mCanvas[31m.[mCanvas[31m,[m
                     Unitname[31m,[m
                     [01;30mUnits[m[31m([mI[31m).[mFile_Name[31m,[m
                     Canvas[31m.[mX_ads[31m,[m 
                     Canvas[31m.[mY_ads[31m,[m		  
                     Canvas[31m.[mItem_Array[31m,[m
                     Canvas[31m.[mItem_Last[31m,[m
                     Color [31m=>[m [35m10[m[31m);[m
                  Canvas[31m.[mX_ads [31m:=[m Canvas[31m.[mX_ads [31m+[m [35m50[m[31m;[m
                  Canvas[31m.[mY_ads [31m:=[m Canvas[31m.[mY_ads [31m+[m [35m70[m[31m;[m
                  [31m--Text_Io.Put_Line("item 4.3");[m
               [01;34melse[m
                  Add_Lib_Item
                    [31m([mCanvas[31m.[mCanvas[31m,[m
                     Unitname[31m,[m
                     [01;30mUnits[m[31m([mI[31m).[mFile_Name[31m,[m
                     Canvas[31m.[mX_adb[31m,[m 
                     Canvas[31m.[mY_adb[31m,[m		  
                     Canvas[31m.[mItem_Array[31m,[m
                     Canvas[31m.[mItem_Last[31m,[m
                     Color [31m=>[m [35m19[m[31m);[m
                  Canvas[31m.[mX_adb [31m:=[m Canvas[31m.[mX_adb [31m+[m [35m25[m[31m;[m
                  Canvas[31m.[mY_adb [31m:=[m Canvas[31m.[mY_adb [31m+[m [35m70[m[31m;[m
                  [31m--Text_Io.Put_Line("item 4.4");[m
               [01;34mend[m [01;34mif[m[31m;[m
	       
	       
            [01;34mend[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [31m----------------------------------------------------------------------[m
      [31m-- Adding Link between Item to Canvas.[m
      
      [01;34mif[m Canvas[31m.[mItem_Last [31m>[m [35m0[m [01;34mthen[m
         [01;34mfor[m I [01;34min[m [01;34mreverse[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
            [01;34mdeclare[m
	       
               Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName
                                                             [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName[31m,[m Backward[31m)));[m
               Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName
                                                       [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName[31m,[m Backward[31m)),[m
                                                       extension[31m);[m
            [01;34mbegin[m
	       
               [01;34mif[m Extension [31m=[m [31m".adb"[m [01;34mthen[m		  
                  [01;34mdeclare[m
                     Body_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m);[m
                  [01;34mbegin[m
		     
                     [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
			
                        [01;34mdeclare[m
			   
                           Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                              [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                           Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                        [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                        Item_Extension[31m);[m
                        [01;34mbegin[m
			   
                           [01;34mif[m Item_Basename [31m=[m Basename [01;34mand[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
			      
                              [01;34mdeclare[m
				 
                                 Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                              [01;34mbegin[m
				 
                                 [01;30mAdd_Canvas_Link[m[31m([mCanvas[31m.[mCanvas[31m,[m Body_Item[31m,[m Spec_Item[31m,[m [31m"implementation"[m[31m);[m
                              [01;34mend[m[31m;[m
                           [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mend[m[31m;[m
			
                     [01;34mend[m [01;34mloop[m[31m;[m
                  [01;34mend[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m
	       
	       
               [01;34mdeclare[m
                  File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
                  Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mFilename
                    [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mFilename[31m,[m Backward[31m));[m
               [01;34mbegin[m
		  
                  Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m Filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
		  
                  [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
		     
                     [01;34mdeclare[m
			
                        Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m([mWide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
			
                        The_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
			

			
                     [01;34mbegin[m
                        [31m--Wide_Text_Io.Put_Line(Line);[m
                        [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"package"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"procedure"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"function"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"genric"[m[31m)/=[m [35m0[m [01;34mthen[m
                           [01;34mexit[m[31m;[m
                        [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mthen[m
			   
                           The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"--"[m[31m);[m
                           [01;34mif[m [31m(([mThe_Index [31m/=[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m			     
                               Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m)[m [31m>[m The_Index[31m)[m [01;34mthen[m
                              [01;34mnull[m[31m;[m
                           [01;34melsif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
                              The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m);[m
                              [01;34mwhile[m The_Index [31m/=[m [35m0[m [01;34mloop[m
				 
				 
                                 [01;34mdeclare[m
				    
                                    End_Of [31m:[m [01;34mconstant[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m";"[m[31m,[m The_index[31m);[m
                                    Section [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
                                      Handling[31m.[mTo_Lower
                                        [31m([mHandling[31m.[mTo_String
                                           [31m([m[01;30mLine[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m,[m The_Index [31m+[m [35m5[m[31m)..[mEnd_Of [31m-[m[35m1[m[31m)));[m

                                    Section_Dot [31m:[m [01;34mconstant[m Natural [31m:=[m [01;30mIndex[m[31m([mSection[31m,[m [31m"."[m[31m);[m
                                 [01;34mbegin[m
                                    [01;34mif[m Section_Dot [31m/=[m [35m0[m [01;34mthen[m
				       
				       
                                       [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
					  
                                          [01;34mdeclare[m
					     
                                             Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                                [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                                             Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                          [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                                          Item_Extension[31m);[m
					     
                                             Doted_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mTranslate[m[31m([mItem_Basename[31m,[m Maps[31m.[m[01;30mTo_Mapping[m[31m([m[31m"-"[m[31m,[m [31m"."[m[31m));[m
					     
					     
                                          [01;34mbegin[m
					     
                                             [01;34mif[m Doted_Basename [31m=[m section [01;34mthen[m
                                                [01;34mif[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
						   
                                                   [01;34mdeclare[m
						      
                                                      Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                                                   [01;34mbegin[m
						      
                                                      Add_Canvas_Link
                                                        [31m([mCanvas[31m.[mCanvas[31m,[m
                                                         Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m),[m 
                                                         Spec_Item[31m,[m Basename [31m&[m [31m" depend of "[m [31m&[m section[31m);[m

                                                   [01;34mend[m[31m;[m
                                                [01;34mend[m [01;34mif[m[31m;[m
                                             [01;34mend[m [01;34mif[m[31m;[m
					     
                                          [01;34mend[m[31m;[m
					  
                                       [01;34mend[m [01;34mloop[m[31m;[m
				       
				       
                                    [01;34melse[m 
                                       [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
					  
                                          [01;34mdeclare[m
					     
                                             Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                                [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                                             Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                          [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                                          Item_Extension[31m);[m
					     
                                             Doted_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mTranslate[m[31m([mItem_Basename[31m,[m Maps[31m.[m[01;30mTo_Mapping[m[31m([m[31m"-"[m[31m,[m [31m"."[m[31m));[m
					     
					     
                                          [01;34mbegin[m
					     
                                             [01;34mif[m Doted_Basename [31m=[m section [01;34mthen[m
                                                [01;34mif[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
						   
                                                   [01;34mdeclare[m
						      
                                                      Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                                                   [01;34mbegin[m
						      
                                                      Add_Canvas_Link
                                                        [31m([mCanvas[31m.[mCanvas[31m,[m
                                                         Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m),[m
                                                         Spec_Item[31m,[m Basename [31m&[m [31m" depend of "[m [31m&[m section[31m);[m
                                                   [01;34mend[m[31m;[m
						   
                                                [01;34mend[m [01;34mif[m[31m;[m						   
                                             [01;34mend[m [01;34mif[m[31m;[m
					     
                                          [01;34mend[m[31m;[m
					  
                                       [01;34mend[m [01;34mloop[m[31m;[m
                                    [01;34mend[m [01;34mif[m[31m;[m
                                 [01;34mend[m[31m;[m
                                 [01;34mif[m The_Index [31m+[m [35m5[m [31m<[m Line'Length [01;34mthen[m
                                    The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m,[m The_Index [31m+[m [35m5[m[31m);[m			
				    
                                 [01;34mend[m [01;34mif[m[31m;[m
				 
                              [01;34mend[m [01;34mloop[m[31m;[m
                           [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mend[m [01;34mif[m[31m;[m
                     [01;34mend[m[31m;[m
                  [01;34mend[m [01;34mloop[m[31m;[m
		  
                  Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
               [01;34mend[m[31m;[m

	       
            [01;34mend[m[31m;[m
	    
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [31m--Text_Io.Put_Line("End of reverse Graph construction");[m
   [01;34mend[m Reverse_Canvas_Constructor[31m;[m

   [01;34mprocedure[m [01;30mCanvas_Project_Constructor[m[31m([mCanvas [31m:[m [01;34min[m Canvas_Record_Access[31m;[m	
                                        Units [31m:[m [01;34min[m Unit_Array_Type[31m;[m
                                        Last  [31m:[m [01;34min[m Positive[31m;[m
                                        As_Lib  [31m:[m [32mBoolean[m[31m)[m [01;34mis[m
      
      
      
      Start_Index [31m:[m Positive [31m:=[m [35m2[m[31m;[m
   [01;34mbegin[m            
      
      Canvas[31m.[mX_Ads [31m:=[m [35m400[m[31m;[m
      Canvas[31m.[mY_ads [31m:=[m [35m50[m[31m;[m
      
      Canvas[31m.[mX_Adb [31m:=[m [35m200[m[31m;[m
      Canvas[31m.[mY_Adb [31m:=[m [35m100[m[31m;[m
      
      
      Canvas[31m.[mItem_Last [31m:=[m [35m0[m[31m;[m
      
      [31m----------------------------------------------------------------------[m
      [31m-- Adding Item to Canvas :                                          --[m
      
      [01;34mif[m [01;34mnot[m As_Lib [01;34mthen[m

         [01;30mAdd_Main_Item[m[31m([m
                       Canvas[31m.[mCanvas[31m,[m
                       [01;30mUnits[m[31m([m[35m1[m[31m).[mUnit_Name
                       [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30mUnits[m[31m([m[35m1[m[31m).[mUnit_Name[31m,[m Backward[31m)),[m
                       [01;30mUnits[m[31m([m[35m1[m[31m).[mFile_Name[31m,[m		      
                       Canvas[31m.[mItem_Array[31m,[m
                       Canvas[31m.[mItem_Last
                      [31m);[m
      [01;34melse[m
         Start_Index [31m:=[m [35m1[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      
      [01;34mif[m Last [31m>[m [35m1[m [01;34mthen[m
         [01;34mfor[m I [01;34min[m [01;34mreverse[m Start_index[31m..[mLast [01;34mloop[m
            [31m--Text_Io.Put_Line("item 4.1");[m
            [01;34mdeclare[m
               Unitname [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
                 [01;30mUnits[m[31m([mI[31m).[mUnit_Name
                 [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30mUnits[m[31m([mI[31m).[mUnit_Name[31m,[m Backward[31m));[m
	       
               Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m 
                 [01;30mFile_Extension[m[31m([m[01;30munits[m[31m([mI[31m).[m[01;30mUnit_Name[m[31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([m[01;30munits[m[31m([mI[31m).[mUnit_Name[31m,[m Backward[31m)));[m
	       
            [01;34mbegin[m
               [31m--Text_Io.Put_Line("item 4.2");[m
               [01;34mif[m Extension [31m=[m [31m".ads"[m [01;34mthen[m
                  Add_Lib_Item
                    [31m([mCanvas[31m.[mCanvas[31m,[m
                     Unitname[31m,[m
                     [01;30mUnits[m[31m([mI[31m).[mFile_Name[31m,[m
                     Canvas[31m.[mX_ads[31m,[m 
                     Canvas[31m.[mY_ads[31m,[m		  
                     Canvas[31m.[mItem_Array[31m,[m
                     Canvas[31m.[mItem_Last[31m,[m
                     Color [31m=>[m [35m10[m[31m);[m
                  Canvas[31m.[mX_ads [31m:=[m Canvas[31m.[mX_ads [31m+[m [35m50[m[31m;[m
                  Canvas[31m.[mY_ads [31m:=[m Canvas[31m.[mY_ads [31m+[m [35m70[m[31m;[m
                  [31m--Text_Io.Put_Line("item 4.3");[m
               [01;34melse[m
                  Add_Lib_Item
                    [31m([mCanvas[31m.[mCanvas[31m,[m
                     Unitname[31m,[m
                     [01;30mUnits[m[31m([mI[31m).[mFile_Name[31m,[m
                     Canvas[31m.[mX_adb[31m,[m 
                     Canvas[31m.[mY_adb[31m,[m		  
                     Canvas[31m.[mItem_Array[31m,[m
                     Canvas[31m.[mItem_Last[31m,[m
                     Color [31m=>[m [35m19[m[31m);[m
                  Canvas[31m.[mX_adb [31m:=[m Canvas[31m.[mX_adb [31m+[m [35m25[m[31m;[m
                  Canvas[31m.[mY_adb [31m:=[m Canvas[31m.[mY_adb [31m+[m [35m70[m[31m;[m
                  [31m--Text_Io.Put_Line("item 4.4");[m
               [01;34mend[m [01;34mif[m[31m;[m
	       
	       
            [01;34mend[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m

      [31m----------------------------------------------------------------------[m
      [31m-- Adding Link between Item to Canvas.[m
      
      [01;34mif[m Canvas[31m.[mItem_Last [31m>[m [35m0[m [01;34mthen[m
         [01;34mfor[m I [01;34min[m [01;34mreverse[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
            [01;34mdeclare[m
	       
               Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName
                                                             [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName[31m,[m Backward[31m)));[m
               Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName
                                                       [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mName[31m,[m Backward[31m)),[m
                                                       extension[31m);[m
            [01;34mbegin[m
	       
               [01;34mif[m Extension [31m=[m [31m".adb"[m [01;34mthen[m		  
                  [01;34mdeclare[m
                     Body_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m);[m
                  [01;34mbegin[m
		     
                     [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
			
                        [01;34mdeclare[m
			   
                           Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                              [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                           Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                        [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                        Item_Extension[31m);[m
                        [01;34mbegin[m
			   
                           [01;34mif[m Item_Basename [31m=[m Basename [01;34mand[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
			      
                              [01;34mdeclare[m
				 
                                 Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                              [01;34mbegin[m
				 
                                 [01;30mAdd_Canvas_Link[m[31m([mCanvas[31m.[mCanvas[31m,[m Body_Item[31m,[m Spec_Item[31m,[m [31m"implementation"[m[31m);[m
                              [01;34mend[m[31m;[m
                           [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mend[m[31m;[m
			
                     [01;34mend[m [01;34mloop[m[31m;[m
                  [01;34mend[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m
	       
	       
               [01;34mdeclare[m
                  File [31m:[m Wide_Text_Io[31m.[mFile_Type[31m;[m
                  Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mFilename
                    [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mI[31m).[mFilename[31m,[m Backward[31m));[m
               [01;34mbegin[m
		  
                  Wide_Text_Io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m Wide_Text_Io[31m.[mIn_File[31m,[m Filename[31m,[m Form [31m=>[m [31m"WCEM=8"[m[31m);[m
		  
                  [01;34mwhile[m [01;34mnot[m Wide_Text_Io[31m.[m[01;30mEnd_Of_File[m[31m([mFile[31m)[m [01;34mloop[m
		     
                     [01;34mdeclare[m
			
                        Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m UTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m([mWide_Text_Io[31m.[m[01;30mGet_Line[m[31m([mFile[31m));[m
			
                        The_Index [31m:[m Natural [31m:=[m [35m0[m[31m;[m
			

			
                     [01;34mbegin[m
                        [31m--Wide_Text_Io.Put_Line(Line);[m
                        [01;34mif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"package"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"procedure"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"function"[m[31m)[m [31m/=[m [35m0[m [01;34mor[m
                          Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"genric"[m[31m)/=[m [35m0[m [01;34mthen[m
                           [01;34mexit[m[31m;[m
                        [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mif[m Line'Length [31m>[m [35m0[m [01;34mthen[m
			   
                           The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"--"[m[31m);[m
                           [01;34mif[m [31m(([mThe_Index [31m/=[m [35m0[m[31m)[m [01;34mand[m [01;34mthen[m			     
                               Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m)[m [31m>[m The_Index[31m)[m [01;34mthen[m
                              [01;34mnull[m[31m;[m
                           [01;34melsif[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m)[m [31m/=[m [35m0[m [01;34mthen[m
                              The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m);[m
                              [01;34mwhile[m The_Index [31m/=[m [35m0[m [01;34mloop[m
				 
				 
                                 [01;34mdeclare[m
				    
                                    End_Of [31m:[m [01;34mconstant[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m";"[m[31m,[m The_index[31m);[m
                                    Section [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
                                      Handling[31m.[mTo_Lower
                                        [31m([mHandling[31m.[mTo_String
                                           [31m([m[01;30mLine[m[31m([mWide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mLine[31m,[m The_Index [31m+[m [35m5[m[31m)..[mEnd_Of [31m-[m[35m1[m[31m)));[m

                                    Section_Dot [31m:[m [01;34mconstant[m Natural [31m:=[m [01;30mIndex[m[31m([mSection[31m,[m [31m"."[m[31m);[m
                                 [01;34mbegin[m
                                    [01;34mif[m Section_Dot [31m/=[m [35m0[m [01;34mthen[m
				       
				       
                                       [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
					  
                                          [01;34mdeclare[m
					     
                                             Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                                [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                                             Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                          [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                                          Item_Extension[31m);[m
					     
                                             Doted_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mTranslate[m[31m([mItem_Basename[31m,[m Maps[31m.[m[01;30mTo_Mapping[m[31m([m[31m"-"[m[31m,[m [31m"."[m[31m));[m
					     
					     
                                          [01;34mbegin[m
					     
                                             [01;34mif[m Doted_Basename [31m=[m section [01;34mthen[m
                                                [01;34mif[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
						   
                                                   [01;34mdeclare[m
						      
                                                      Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                                                   [01;34mbegin[m
						      
                                                      Add_Canvas_Link
                                                        [31m([mCanvas[31m.[mCanvas[31m,[m
                                                         Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m),[m 
                                                         Spec_Item[31m,[m Basename [31m&[m [31m" depend of "[m [31m&[m section[31m);[m

                                                   [01;34mend[m[31m;[m
                                                [01;34mend[m [01;34mif[m[31m;[m
                                             [01;34mend[m [01;34mif[m[31m;[m
					     
                                          [01;34mend[m[31m;[m
					  
                                       [01;34mend[m [01;34mloop[m[31m;[m
				       
				       
                                    [01;34melse[m 
                                       [01;34mfor[m J [01;34min[m [35m1[m[31m..[mCanvas[31m.[mItem_Last [01;34mloop[m
					  
                                          [01;34mdeclare[m
					     
                                             Item_Extension [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mFile_Extension[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                                [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)));[m
                                             Item_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mBase_Name[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName
                                                                                          [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mCanvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m).[mName[31m,[m Backward[31m)),[m
                                                                                          Item_Extension[31m);[m
					     
                                             Doted_Basename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mTranslate[m[31m([mItem_Basename[31m,[m Maps[31m.[m[01;30mTo_Mapping[m[31m([m[31m"-"[m[31m,[m [31m"."[m[31m));[m
					     
					     
                                          [01;34mbegin[m
					     
                                             [01;34mif[m Doted_Basename [31m=[m section [01;34mthen[m
                                                [01;34mif[m Item_Extension [31m=[m [31m".ads"[m [01;34mthen[m
						   
                                                   [01;34mdeclare[m
						      
                                                      Spec_Item [31m:[m [01;34mconstant[m Display_Item [31m:=[m Canvas[31m.[m[01;30mItem_Array[m[31m([mJ[31m);[m
                                                   [01;34mbegin[m
						      
                                                      Add_Canvas_Link
                                                        [31m([mCanvas[31m.[mCanvas[31m,[m
                                                         Canvas[31m.[m[01;30mItem_Array[m[31m([mI[31m),[m
                                                         Spec_Item[31m,[m Basename [31m&[m [31m" depend of "[m [31m&[m section[31m);[m
                                                   [01;34mend[m[31m;[m
						   
                                                [01;34mend[m [01;34mif[m[31m;[m						   
                                             [01;34mend[m [01;34mif[m[31m;[m
					     
                                          [01;34mend[m[31m;[m
					  
                                       [01;34mend[m [01;34mloop[m[31m;[m
                                    [01;34mend[m [01;34mif[m[31m;[m
                                 [01;34mend[m[31m;[m
                                 [01;34mif[m The_Index [31m+[m [35m5[m [31m<[m Line'Length [01;34mthen[m
                                    The_Index [31m:=[m Wide_Fixed[31m.[m[01;30mIndex[m[31m([mLine[31m,[m [31m"with"[m[31m,[m The_Index [31m+[m [35m5[m[31m);[m			
				    
                                 [01;34mend[m [01;34mif[m[31m;[m
				 
                              [01;34mend[m [01;34mloop[m[31m;[m
                           [01;34mend[m [01;34mif[m[31m;[m
                        [01;34mend[m [01;34mif[m[31m;[m
                     [01;34mend[m[31m;[m
                  [01;34mend[m [01;34mloop[m[31m;[m
		  
                  Wide_Text_Io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
               [01;34mend[m[31m;[m

	       
            [01;34mend[m[31m;[m
	    
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mif[m[31m;[m
      [31m--Text_Io.Put_Line("End of Graph construction");[m
      
   [01;34mend[m Canvas_Project_Constructor[31m;[m

   [01;34mprocedure[m [01;30mPage_Switched[m  [31m([mNotebook [31m:[m [01;34maccess[m Gtk_Notebook_Record'Class[31m;[m
                             User_Data [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      
      Old_Page [31m:[m [01;34mconstant[m Gint [31m:=[m Gtk[31m.[mNotebook[31m.[m[01;30mGet_Current_Page[m[31m([mNotebook[31m);[m
   [01;34mbegin[m
      [01;34mif[m User_Data[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang_Enum'[01;30mVal[m[31m([mOld_Page[31m))[m [31m/=[m [01;34mnull[m [01;34mthen[m
         Text_Io[31m.[m[01;30mPut_line[m[31m([mMachine_Lang_Enum[31m'Image(Machine_Lang_Enum'[m[01;30mVal[m[31m([mOld_Page[31m)));[m
      [01;34mend[m [01;34mif[m[31m;[m
   [01;34mend[m Page_Switched[31m;[m
   
   [01;34mprocedure[m [01;30mNotebook_set[m [31m([mNotebook [31m:[m [01;34maccess[m Gtk_Notebook_Record'Class[31m;[m
                           Set [31m:[m [01;34min[m [01;34mout[m Canvas_Set[31m;[m
                           Lib   [31m:[m [01;34min[m Library_Record_Type[31m;[m
			   
                           Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m)[m [01;34mis[m
      Label [31m:[m Gtk_Label[31m;[m
      
      As_Lib [31m:[m [01;34mconstant[m [32mBoolean[m [31m:=[m [01;34mnot[m [31m([mMachine_Lang [31m=[m Project_Define[31m);[m
      
      
   [01;34mbegin[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Graph construction for Language : "[m [31m&[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
      [01;30mSet[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Canvas_Record_Type[31m;[m
      [01;30mGtk_New[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
      [01;30mGtk_New[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
      [01;30mGtk_New_Vbox[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mBox[31m);[m
      [01;30mPack_Start[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mBox[31m,[m [01;30mSet[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
      
      [31m--Set_USize (Set(Machine_Lang).Scroll, Canvas_Width, Canvas_Height);      [m
      [01;30mAdd[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mFrame[31m,[m [01;30mSet[m[31m([mMachine_Lang[31m).[mBox[31m);[m            
      
      [01;30mSet[m[31m([mMachine_Lang[31m).[mCanvas [31m:=[m [01;34mnew[m Image_Canvas_Record[31m;[m
      [01;30mInitialize[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
      [31m--Set_Orthogonal_Links(Set(Machine_Lang).Canvas, True);[m
      [01;30mConfigure[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m            
      


      
      [01;30mGtk_New[m[31m([mLabel[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m      
      [01;30mAdd[m[31m([m[01;30mSet[m[31m([mMachine_Lang[31m).[mScroll[31m,[m [01;30mSet[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
      
      
      [01;30mAppend_Page[m [31m([mNotebook[31m,[m Child [31m=>[m [01;30mSet[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Tab_Label [31m=>[m Label[31m);[m            
      
      [01;30mSet[m[31m([mMachine_Lang[31m).[mLayout [31m:=[m [01;30mCreate_Pango_Layout[m [31m([m[01;30mset[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
      
      Canvas_Project_Constructor
        [31m([m[01;30mSet[m[31m([mMachine_Lang[31m),[m
         Lib[31m.[mLibrary_Unit[31m,[m
         Lib[31m.[mUnit_Index[31m,[m
         As_Lib
        [31m);[m
      
   [01;34mend[m Notebook_Set[31m;[m
   
   
   [01;34mprocedure[m View_Window
     [31m([mButton [31m:[m [01;34maccess[m Gtk_Link_Button_Record'Class[31m)[m [01;34mis[m
      
      
   [01;34mbegin[m
      [01;30mOn_Link_Button_Clicked[m[31m([m[01;34mnull[m[31m,[m [01;30mGet_Uri[m[31m([mButton[31m),[m False[31m);[m
   [01;34mend[m View_Window[31m;[m
   
   
   [01;34mprocedure[m Edit_Window
     [31m([mButton [31m:[m [01;34maccess[m Gtk_Link_Button_Record'Class[31m)[m [01;34mis[m           
   [01;34mbegin[m
      [01;30mOn_Link_Button_Clicked[m[31m([m[01;34mnull[m[31m,[m [01;30mGet_Uri[m[31m([mButton[31m),[m True[31m);[m
   [01;34mend[m Edit_Window[31m;[m
   
   
   [01;34mprocedure[m [01;30mLoad_Machine_Box[m[31m([mObject [31m:[m [01;34min[m Object_Pointer[31m;[m
                              Lib   [31m:[m [01;34min[m Library_Record_Type[31m;[m
                              Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m)[m [01;34mis[m
      
      
      Link_Button [31m:[m Gtk_Link_Button[31m;[m
      Hbox        [31m:[m Gtk_Hbox[31m;[m
      
   [01;34mbegin[m
      [31m--Text_Io.Put_Line("Loading box");[m
      [01;34mfor[m I [01;34min[m [35m1[m[31m..[mLib[31m.[mUnit_Index [01;34mloop[m
         [31m--Text_Io.Put_Line("init names");[m
         [01;34mdeclare[m
            Filename [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
              Lib[31m.[m[01;30mLibrary_Unit[m[31m([mI[31m).[mFile_Name
              [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mLib[31m.[m[01;30mLibrary_Unit[m[31m([mI[31m).[mFile_Name[31m,[m Backward[31m));[m
            Unitname [31m:[m [01;34mconstant[m [32mString[m [31m:=[m
              Lib[31m.[m[01;30mLibrary_Unit[m[31m([mI[31m).[mUnit_Name
              [31m([m[35m1[m[31m..[m[01;30mIndex_Non_Blank[m[31m([mLib[31m.[m[01;30mLibrary_Unit[m[31m([mI[31m).[mUnit_Name[31m,[m Backward[31m));[m
         [01;34mbegin[m
            [31m--Text_Io.Put_Line("Add names");[m
            [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
	    
            Gtk_New_With_Label
              [31m([mWidget [31m=>[m Link_Button[31m,[m
               Uri    [31m=>[m Filename[31m,[m
               Label  [31m=>[m Unitname[31m);[m
            [01;34mcase[m Machine_Lang [01;34mis[m
            [01;34mwhen[m Ada_2012 [31m|[m Ada_Web_Server [31m|[m Gtk_Ada [31m=>[m		  
               Link_Button_CB[31m.[mConnect
                 [31m([mLink_Button[31m,[m [31m"clicked"[m[31m,[m
                  Link_Button_CB[31m.[m[01;30mTo_Marshaller[m[31m([mView_window'[01;34mAccess[m[31m));[m
		  
            [01;34mwhen[m [01;34mothers[m [31m=>[m
               Link_Button_CB[31m.[mConnect
                 [31m([mLink_Button[31m,[m [31m"clicked"[m[31m,[m
                  Link_Button_CB[31m.[m[01;30mTo_Marshaller[m[31m([mEdit_window'[01;34mAccess[m[31m));[m
            [01;34mend[m [01;34mcase[m[31m;[m
            [31m--Text_Io.Put_Line("Add link buton");[m
            [01;30mPack_Start[m[31m([mHbox[31m,[m Link_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
            [31m--Text_Io.Put_Line("Link added");[m
            [01;30mPack_Start[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[mbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m	    
            [31m--Text_Io.Put_Line("Box added");[m
         [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m      
      
   [01;34mend[m Load_Machine_box[31m;[m
   
   
   [01;34mprocedure[m [01;30mMachine_Init[m [31m([mMachine [31m:[m [01;34min[m [01;34mout[m Machine_Language_Frame_Type[31m;[m			   
                           Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;30mGtk_New[m[31m([mMachine[31m.[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
      [31m--Set_USize (Machine.Frame, 150, 100);[m
      [01;30mGtk_New_Vbox[m[31m([mMachine[31m.[mBox[31m);[m
      [01;30mGtk_New[m[31m([mMachine[31m.[mScroll[31m);[m
      [01;30mAdd_With_viewport[m[31m([mMachine[31m.[mScroll[31m,[m Machine[31m.[mBox[31m);[m
      [01;30mAdd[m[31m([mMachine[31m.[mFrame[31m,[m Machine[31m.[mScroll[31m);[m
   [01;34mend[m Machine_init[31m;[m
   

   
   
   [31m----------------------------------------------------------[m
   [31m-- Reload Project...                                    --[m
   [31m----------------------------------------------------------[m
   [01;34mprocedure[m [01;30mReload_Project[m[31m([mObject [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
   [01;34mbegin[m
      [01;34mif[m Object[31m.[mContext[31m.[mProject [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Object[31m.[mContext[31m.[mProject[31m.[mProject_Name [31m/=[m [01;34mnull[m [01;34mthen[m
         [01;34mloop[m
            [01;34mdeclare[m
               Child [31m:[m [01;34mconstant[m Gtk[31m.[mWidget[31m.[mGtk_Widget [31m:=[m [01;30mGet_Child[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mProject_Define[31m).[mbox[31m,[m [35m0[m[31m);[m
            [01;34mbegin[m
               [01;34mif[m Gtk[31m.[mWidget[31m.[m[31m"/="[m[31m([mChild[31m,[m[01;34mnull[m[31m)[m [01;34mthen[m
                  [01;30mRemove[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mProject_Define[31m).[mbox[31m,[m Child[31m);[m
               [01;34melse[m
                  [01;34mexit[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
	 
      [01;34mend[m [01;34mif[m[31m;[m
      
      Agnose[31m.[m[01;30mLoad_Project[m[31m([mObject[31m.[mContext[31m.[m[01;34mall[m[31m,[m Ada_Path[31m,[m Gtk_Path[31m,[m Aws_Path[31m,[m Pro_Path[31m);[m
      
      [01;34mfor[m Machine_Lang [01;34min[m Machine_Lang_Enum'[01;34mRange[m [01;34mloop[m
	 
         [01;34mcase[m Machine_Lang [01;34mis[m
	    [01;34mwhen[m Project_Define [31m=>[m
	       
	       [01;34mif[m Object[31m.[mContext[31m.[mProject [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m Object[31m.[mContext[31m.[mProject[31m.[mProject_Name [31m/=[m [01;34mnull[m [01;34mthen[m
		  [01;30mLoad_Machine_Box[m[31m([mObject[31m,[m Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m,[m Machine_Lang[31m);[m	       	       
		  [01;34mif[m Object[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mCanvas[31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mClear_Canvas[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  [01;34mif[m Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m	 	 
		     Canvas_Project_Constructor
		       [31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m),[m
			Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mLibrary_Unit[31m,[m
			Object[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mUnit_Index[31m,[m
			False
		       [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mwhen[m Ada_2012 [31m=>[m
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Reaload Ada 2012"[m[31m);[m
	       [01;34mif[m Object[31m.[mContext[31m.[mprojects_Params[31m.[mWith_ada [01;34mthen[m
		  
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"with Ada is setted"[m[31m);[m
		  [01;30mLoad_Machine_Box[m[31m([mObject[31m,[m Object[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m,[m Machine_Lang[31m);[m
		  
		  Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"clear canvas"[m[31m);[m
		  [01;30mClear_Canvas[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
	       
		  [01;34mif[m Object[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m	 	 
		     
		     Canvas_Project_Constructor
		       [31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m),[m
			Object[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m.[mLibrary_Unit[31m,[m
			Object[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m.[mUnit_Index[31m,[m
			True
		       [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mwhen[m Ada_Web_server [31m=>[m
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Reaload AWS"[m[31m);[m
	       [01;34mif[m Object[31m.[mContext[31m.[mprojects_Params[31m.[mWith_aws [01;34mthen[m
		  [01;30mLoad_Machine_Box[m[31m([mObject[31m,[m Object[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m,[m Machine_Lang[31m);[m
		  [01;30mClear_Canvas[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
		  
		  [01;34mif[m Object[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m	 	 
		     
		     Canvas_Project_Constructor
		       [31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m),[m
			Object[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m.[mLibrary_Unit[31m,[m
		     Object[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m.[mUnit_Index[31m,[m
			True
		       [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mwhen[m Gtk_Ada [31m=>[m
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Reaload GtkAda"[m[31m);[m
	       [01;34mif[m Object[31m.[mContext[31m.[mprojects_Params[31m.[mWith_Gtk [01;34mthen[m

		  [01;30mLoad_Machine_Box[m[31m([mObject[31m,[m Object[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m,[m Machine_Lang[31m);[m
		  [01;30mClear_Canvas[m[31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
		  
		  [01;34mif[m Object[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m	 	 
		  
		     Canvas_Project_Constructor
		       [31m([mObject[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m),[m
			Object[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m.[mLibrary_Unit[31m,[m
			Object[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m.[mUnit_Index[31m,[m
			True
		       [31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mcase[m[31m;[m
	 
	 
      [01;34mend[m [01;34mloop[m[31m;[m
      
      [01;30mShow_All[m[31m([m[01;30mGtk_Window[m[31m([mObject[31m.[mGnose_interface[31m));[m
   [01;34mend[m Reload_Project[31m;[m
   
   
   
   [01;34mpackage[m Common_Notebook_Cb [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[mUser_Callback
     [31m([mGtk_Notebook_Record[31m,[m Object_Pointer[31m);[m
   
   Null_Args [31m:[m [01;30mArgument_List[m[31m([m[35m1[m[31m..[m[35m0[m[31m);[m
   
   [01;34mprocedure[m [01;30mOn_change[m[31m([mText [31m:[m [01;34maccess[m Gtk_Text_Buffer_record'Class[31m;[m Main [31m:[m Object_Pointer[31m);[m
   
   [01;34mpackage[m User_Cb_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk[31m.[mText_buffer[31m.[mGtk_Text_Buffer_record[31m,[m Object_pointer[31m);[m      
   
   
   [01;34mprocedure[m [01;30mOn_change[m[31m([mText [31m:[m [01;34maccess[m Gtk_Text_Buffer_record'Class[31m;[m Main [31m:[m Object_Pointer[31m)[m [01;34mis[m
         Top [31m:[m Gtk_Text_Iter[31m;[m
         Bot [31m:[m Gtk_Text_Iter[31m;[m
      
         Pos [31m:[m Gint [31m:=[m [35m0[m[31m;[m            
         Mark [31m:[m Gtk[31m.[mText_Mark[31m.[mGtk_Text_Mark[31m;[m
	 Result [31m:[m Results[31m.[mSpawn_Result_Type[31m;[m
   [01;34mbegin[m
      
      [01;30mGet_Bounds[m[31m([mText[31m,[m Top[31m,[m Bot[31m);[m
      [01;34mdeclare[m
	 Line [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m Handling[31m.[m[01;30mTo_Wide_String[m[31m([mGlib[31m.[mConvert[31m.[m[01;30mLocale_From_Utf8[m[31m([m[01;30mGet_Slice[m[31m([mText[31m,[m Top[31m,[m Bot[31m)));[m
      [01;34mbegin[m
	 Pos [31m:=[m [01;30mGet_Char_count[m[31m([mText[31m);[m
	 [01;34mif[m Pos [31m-[m [35m1[m [31m>[m [01;30mGint[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Position[31m)[m [01;34mthen[m
	    
	    [01;34mif[m [31m([mLine[31m'Length /= 0) and then (Line(Line'[mLast[31m)[m [31m=[m Wide_character'[01;30mVal[m[31m([m[35m10[m[31m))[m [01;34mthen[m	       
	       [01;34mdeclare[m
		  New_Entry [31m:[m [01;34mconstant[m [32mWide_String[m [31m:=[m [01;30mLine[m[31m([m[01;30mPositive[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Position[31m+[m[35m1[m[31m)..[mLine'Last[31m-[m[35m1[m[31m);[m
		  Non_Blank [31m:[m [01;34mconstant[m Natural [31m:=[m Wide_Fixed[31m.[m[01;30mIndex_Non_Blank[m[31m([mNew_Entry[31m);[m
	       [01;34mbegin[m
		  [01;34mif[m Non_Blank [31m=[m [35m0[m [01;34mthen[m
		     [01;34mreturn[m[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  
		  Wide_Text_Io[31m.[m[01;30mPut_Line[m[31m([mNew_Entry[31m);[m
		  
		  
		  Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([mUTF_Encoding[31m.[mStrings[31m.[m[01;30mEncode[m[31m([m[01;30mExpand_Filename[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mNew_Entry[31m))));[m
		  
		  
		  [01;34mif[m Result[31m.[mFile_Content [31m/=[m [01;34mnull[m [01;34mthen[m
		     [01;30mDisconnect[m[31m([mText[31m,[m Main[31m.[mGnose_Interface[31m.[mUser_Handler[31m);[m
		     [01;34mfor[m I [01;34min[m Result[31m.[mFile_Content'[01;34mRange[m [01;34mloop[m
			
			[01;30mInsert_With_Tag[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_buffer[31m,[m [31m""[m[31m,[m  Glib[31m.[mConvert[31m.[m[01;30mLocale_To_Utf8[m[31m([mHandling[31m.[m[01;30mTo_String[m[31m([mUTF_Encoding[31m.[mWide_Strings[31m.[m[01;30mDecode[m[31m(-([mResult[31m.[m[01;30mFile_Content[m[31m([mI[31m))))));[m
			
		     [01;34mend[m [01;34mloop[m[31m;[m	       
		     Main[31m.[mGnose_Interface[31m.[mUser_Handler [31m:=[m User_Cb_Handlers[31m.[mConnect
		       [31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_Buffer[31m,[m [31m"changed"[m[31m,[m
			User_Cb_Handlers[31m.[mTo_Marshaller
			  [31m([mOn_change'[01;34mAccess[m[31m),[m
			Main[31m);[m
		     
		     Main[31m.[mGnose_Interface[31m.[mUser_Position [31m:=[m [32mInteger[m[31m([m[01;30mGet_char_count[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_Buffer[31m));[m
		     [01;30mGet_Bounds[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_buffer[31m,[m Top[31m,[m Bot[31m);[m
		     Mark [31m:=[m [01;30mCreate_Mark[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_buffer[31m,[m Where [31m=>[m Bot[31m);[m
		     [01;30mScroll_To_Mark[m[31m([mMain[31m.[mGnose_Interface[31m.[mUser_Text_view[31m,[m Mark[31m,[m [35m0.0[m[31m,[m false[31m,[m [35m0.0[m[31m,[m [35m0.0[m[31m);[m
   
		  [01;34mend[m [01;34mif[m[31m;[m
	       [01;34mend[m[31m;[m
	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m[31m;[m
   [01;34mend[m On_Change[31m;[m
	 
   
   
   
   
   [31m----------------------------------------------------------------------------------------[m
   [31m--              Initialization of Gnose record with Gnose_Interface with GtkAda.      --[m
   [31m----------------------------------------------------------------------------------------[m
   
   [01;34mtype[m [01;30mGtk_Parameter_Record[m[31m([mFlag [31m:[m Parameters_Flags_Enum_Type[31m)[m [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
         Label [31m:[m Gtk_Label[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Gtk_Parameters_Array [01;34mis[m [01;34marray[m [31m([mParameters_Flags_Enum_Type[31m)[m [01;34mof[m [01;34maccess[m Gtk_Parameter_record[31m;[m
   
   
   [01;34mprocedure[m [01;30mInitialize_Parameters[m[31m([mFrame [31m:[m [01;34maccess[m Gtk_Frame_Record'Class[31m;[m
                                   Object [31m:[m [01;34min[m Object_Pointer[31m)[m [01;34mis[m
      Box [31m:[m Gtk_Vbox[31m;[m
      Scroll [31m:[m Gtk_Scrolled_Window[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
      
      [31m-- Parameters widgets :[m
      Gtk_Parameters [31m:[m Gtk_Parameters_Array[31m;[m
      
      
      
   [01;34mbegin[m
      [01;34mfor[m Flag [01;34min[m Gtk_Parameters'[01;34mRange[m [01;34mloop[m
         [01;34mcase[m Flag [01;34mis[m
	    [01;34mwhen[m Null_Parameter [31m|[m Version_Edition [31m|[m Help [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;30mGtk_Parameters[m[31m([mFlag[31m)[m [31m:=[m [01;34mnew[m [01;30mGtk_Parameter_Record[m[31m([mFlag[31m);[m
         [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      [01;30mGtk_New_Vbox[m[31m([mBox[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mGtk_New[m[31m([mScroll[31m);[m
      [01;30mAdd_With_Viewport[m[31m([mScroll[31m,[m Box[31m);[m
      
      [01;34mfor[m Flag [01;34min[m Gtk_Parameters'[01;34mRange[m [01;34mloop[m
	 Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"params'flag => "[m [31m&[m Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m));[m
         [01;34mcase[m Flag [01;34mis[m
	    [01;34mwhen[m Null_Parameter [31m|[m Version_Edition [31m|[m Help [31m=>[m
	       [01;34mnull[m[31m;[m
	    [01;34mwhen[m [01;34mothers[m [31m=>[m
	       [01;34mif[m [01;30mGet_Parameter[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mKit[31m,[m
                             Flag[31m).[mIs_Setted [01;34mthen[m
		 [01;34mcase[m Flag [01;34mis[m
		    [01;34mwhen[m Config_Filename [31m=>[m

		       
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Handling[31m.[mTo_String
				 [31m([m[01;30mGet_Parameter[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mKit[31m,[m
						Flag[31m).[mValue[31m.[m[01;34mall[m[31m));[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m false[31m);[m
		    [01;34mwhen[m Name_Length [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Name_Index_Type'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mLanguage_Params[31m.[mName_length[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Unit_Max [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Unit_Index_Type'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mLanguage_Params[31m.[mUnit_Max[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Char_Max [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Char_Index_Type'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mObjects_Params[31m.[mChar_Max[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Version [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Version_Index_Type'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[msystem_Params[31m.[mversion[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Object_Max [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Object_Index_Type'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mSystem_Params[31m.[mObjects_Max[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Self_Programming [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [32mBoolean[m'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_programming[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Self_Executed [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [32mBoolean[m'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Executed[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Self_Wait [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [01;30mImage[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mSelf_wait[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m User_Wait [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [01;30mImage[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[muser_wait[31m));[m	       
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m Human_Lang [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 Human_Lang_Enum'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mGnose_Params[31m.[mHuman_lang[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m

		    [01;34mwhen[m With_Gtk [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [32mBoolean[m'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mLanguage_Params[31m.[mWith_Gtk[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m With_Ada [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [32mBoolean[m'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mLanguage_Params[31m.[mWith_Ada[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m With_Aws [31m=>[m
		       [01;30mGtk_New[m[31m([m[01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m 
			       Parameters_Flags_Enum_Type'[01;30mImage[m[31m([mFlag[31m)[m [31m&[m [31m" := "[m [31m&[m
				 [32mBoolean[m'[01;30mImage[m[31m([mObject[31m.[mContext[31m.[mLanguage_Params[31m.[mWith_Aws[31m));[m
		       [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
		       [01;30mPack_Start[m[31m([mHbox[31m,[m [01;30mGtk_Parameters[m[31m([mFlag[31m).[mLabel[31m,[m False[31m,[m False[31m);[m
		       [01;30mPack_Start[m[31m([mBox[31m,[m Hbox[31m,[m False[31m,[m False[31m);[m
		    [01;34mwhen[m [01;34mothers[m [31m=>[m
		       [01;34mnull[m[31m;[m
		 [01;34mend[m [01;34mcase[m[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	       
	 [01;34mend[m [01;34mcase[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      
      [01;30mAdd[m[31m([mFrame[31m,[m Scroll[31m);[m
      [01;30mShow_All[m[31m([mFrame[31m);[m
   [01;34mend[m Initialize_Parameters[31m;[m
   
   
   
   [01;34mfunction[m Gnose_initialize 
     [31m([mGnose_Context [31m:[m [01;34maccess[m Gnose_Context_Record[31m;[m
      Gnose_Params [31m:[m [01;34maccess[m Gnose_Parameters_Type[31m)[m
     
      [01;34mreturn[m Gnose_Access [01;34mis[m
      
      
      
      Gnostic [31m:[m [01;34mconstant[m Object_Pointer [31m:=[m [01;34mnew[m Gnose_Record[31m;[m
      
      Label [31m:[m Gtk_Label[31m;[m
      Error   [31m:[m [01;34maliased[m GError [31m:=[m [01;34mnull[m[31m;[m
   [01;34mbegin[m                  
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Going to Gtk_Window initialization..."[m[31m);[m      
      [31m--  Initialize the colors[m
      
      [01;34mfor[m J [01;34min[m Color_Names'[01;34mRange[m [01;34mloop[m
         [01;30mColors[m [31m([mJ[31m)[m [31m:=[m [01;30mParse[m [31m([m[01;30mColor_Names[m [31m([mJ[31m).[m[01;34mall[m[31m);[m
         [31m--Alloc (Gtk.Widget.Get_Default_Colormap, Colors (J));[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      [31m--Text_Io.Put_Line("Colors set initialized.");[m

      
      [01;34mdeclare[m
	 
	 
      [01;34mbegin[m
         [31m--Text_Io.Put_Line("new gnose_interafce");[m
         Gnostic[31m.[mGnose_Interface [31m:=[m [01;34mnew[m Gnose_Interface_Record[31m;[m
         [31m--Text_Io.Put_Line("self Link gnose_interafce");[m
         Gnostic[31m.[mGnose_Interface[31m.[mGnostic [31m:=[m Gnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m;[m	 	 	 
         [31m--Text_Io.Put_Line("gnostic context := gnose_context");[m
         Gnostic[31m.[mContext [31m:=[m [01;34mnew[m gnose_context_record ' [31m([mGnose_Context[31m.[m[01;34mAll[m[31m);[m      
         [31m--Text_Io.Put_Line("new neural system set");[m
         Gnostic[31m.[mSystem[31m.[mNeural_Set [31m:=[m [01;34mnew[m [01;30mNeural_Set_Array_Type[m[31m([mEn[31m..[mFr[31m);[m
         [31m--Text_Io.Put_Line("Load network");[m
         [01;34mfor[m Human_Lang [01;34min[m Gnostic[31m.[mSystem[31m.[mNeural_Set'[01;34mRange[m [01;34mloop[m
            [01;30mLoad_network[m[31m([mGnostic[31m.[mSystem[31m.[mNeural_Set[31m.[m[01;34mall[m[31m,[m Human_Lang[31m);[m
         [01;34mend[m [01;34mloop[m[31m;[m
         Gnostic[31m.[mSystem[31m.[mNeural_Lang [31m:=[m Gnostic[31m.[mContext[31m.[mGnose_Params[31m.[mHuman_Lang[31m;[m
         [31m--Text_Io.Put_Line("new Language_set");[m
         Gnostic[31m.[mSystem[31m.[mLanguage_Set [31m:=[m [01;34mnew[m [01;30mLanguage_Set_Array_Type[m[31m([mMachine_Lang_Enum'[01;34mrange[m[31m);[m
	 
         [31m--Text_Io.Put_Line("Loading Project and Libraries");[m
         [01;34mfor[m Machine_Lang [01;34min[m Gnostic[31m.[mSystem[31m.[mLanguage_Set'[01;34mRange[m [01;34mloop[m
	    
            [01;34mcase[m Machine_Lang [01;34mis[m
            [01;34mwhen[m Project_Define [31m=>[m		  
               [01;30mLoad_Language[m[31m([mGnostic[31m.[mSystem[31m.[mLanguage_Set[31m.[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
	    [01;34mwhen[m Gtk_Ada [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mprojects_Params[31m.[mWith_Gtk [01;34mthen[m
                  [01;30mLoad_Language[m[31m([mGnostic[31m.[mSystem[31m.[mLanguage_Set[31m.[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mwhen[m Ada_Web_Server [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mprojects_Params[31m.[mWith_Aws [01;34mthen[m
                  [01;30mLoad_Language[m[31m([mGnostic[31m.[mSystem[31m.[mLanguage_Set[31m.[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
		  
            [01;34mwhen[m Ada_2012 [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mprojects_Params[31m.[mWith_Ada [01;34mthen[m
                  [01;30mLoad_Language[m[31m([mGnostic[31m.[mSystem[31m.[mLanguage_Set[31m.[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m	 	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Machines initilaized..."[m[31m);[m
	 
         Gtk[31m.[mWindow[31m.[mInitialize
           [31m([m[01;30mGtk_Window_record[m[31m([mGnostic[31m.[mGnose_interface[31m.[m[01;34mall[m[31m)[m'[01;34maccess[m[31m,[m Gtk[31m.[mEnums[31m.[mWindow_Toplevel[31m);[m

	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Loading project..."[m[31m);[m
         Text_Io[31m.[mNew_Line[31m;[m
         Agnose[31m.[m[01;30mLoad_Project[m[31m([mGnostic[31m.[mContext[31m.[m[01;34mall[m[31m,[m Ada_Path[31m,[m Gtk_Path[31m,[m Aws_Path[31m,[m Pro_Path[31m);[m
         Text_Io[31m.[mNew_Line[31m;[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Project loaded."[m[31m);[m
	 
         [31m-------------------------------------------------------------------------------------[m
         [31m-- Begin of Window construction :[m
	 
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mFrame[31m,[m [31m"system"[m[31m);[m
         [31m--Set_USize (Gnostic.Gnose_Interface.System_Frame.frame, 600, 200);[m
         [01;30mGtk_New_Vbox[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mBox[31m);[m
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_buffer[31m);[m	 
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_View[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m);[m
         [01;30mSet_Editable[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_View[31m,[m False[31m);[m
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Scroll[31m);[m
         [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Scroll[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSystem_Text_View[31m);[m	 
         [01;30mPack_Start[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mBox[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSystem_Scroll[31m);[m	 
         [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mBox[31m);[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"System frame"[m[31m);[m
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[muser_Frame[31m.[mFrame[31m,[m [31m"user"[m[31m);[m
         [31m--Set_USize (Gnostic.Gnose_Interface.User_Frame.frame, 600, 200);[m
         [01;30mGtk_New_Vbox[m[31m([mGnostic[31m.[mGnose_Interface[31m.[muser_Frame[31m.[mBox[31m);[m
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Text_buffer[31m);[m	 	 
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Text_View[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mUser_Text_buffer[31m);[m	 
         [01;30mSet_Accepts_Tab[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Text_view[31m,[m False[31m);[m
         [31m--Set_Editable(Gnostic.Gnose_Interface.User_Text_view, True);[m
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Scroll[31m);[m
         [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Scroll[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mUser_Text_View[31m);[m
         [01;30mPack_Start[m[31m([mGnostic[31m.[mGnose_Interface[31m.[muser_Frame[31m.[mBox[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mUser_scroll[31m);[m
         [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[muser_Frame[31m.[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[muser_Frame[31m.[mBox[31m);[m
	 
         Gnostic[31m.[mGnose_Interface[31m.[mUser_Handler [31m:=[m User_Cb_Handlers[31m.[mConnect
           [31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Text_Buffer[31m,[m [31m"changed"[m[31m,[m
            User_Cb_Handlers[31m.[mTo_Marshaller
              [31m([mOn_change'[01;34mAccess[m[31m),[m
            gnostic[31m);[m
	 
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"user interfcae frame"[m[31m);[m
	 
	 
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mParmeters_Frame[31m.[mFrame[31m,[m[31m"parameters"[m[31m);[m
	 
         [01;30mInitialize_Parameters[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mParmeters_Frame[31m.[mFrame[31m,[m
                               Gnostic[31m);[m
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"parameters frame initialized"[m[31m);[m
	 
         [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m);[m	 
         [31m--Text_Io.Put_Line("new graph book");	 [m
	 
         [01;30mGtk_New_Vpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mMain_Pan[31m);[m	 
         [01;30mGtk_New_Hpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m);[m	 
	 
         [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mMain_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m False[31m,[m False[31m);[m	 
	 
         Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Machine initialization"[m[31m);[m
         [01;34mfor[m Machine_Lang [01;34min[m Machine_Lang_Enum'[01;34mRange[m [01;34mloop[m
	    
	    
            [01;34mcase[m Machine_Lang [01;34mis[m
            [01;34mwhen[m Project_Define [31m=>[m		  
               
               [01;34mif[m Gnostic[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m
                  [31m--Text_Io.Put_Line("new project frame");[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m		     
                  [31m--Text_Io.Put_Line("Machine_init");[m
                  [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                  [31m--Text_Io.Put_Line("Load_Machine_box");[m
                  [01;30mLoad_Machine_Box[m[31m([mGnostic[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m,[m Machine_Lang[31m);[m		     
                  [31m--Text_Io.Put_Line("Notebook set");[m
                  [01;30mNotebook_Set[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mGraph_Set[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mProj_Library[31m,[m Project_Define[31m);[m  
                  [31m--Text_Io.Put_Line("Project frames initialized.");[m
               [01;34melse[m
                  
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Canvas_Record_Type[31m;[m		     
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas [31m:=[m [01;34mnew[m Image_Canvas_Record[31m;[m

                  [01;30mInitialize[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m

                  [01;30mConfigure[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m            
		     
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
		     
                  [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
		     
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m

                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m

                  [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m            

                  [01;30mGtk_New[m[31m([mLabel[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m      

                  [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m

                  [01;30mAppend_Page[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Child [31m=>[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Tab_Label [31m=>[m Label[31m);[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mLayout [31m:=[m [01;30mCreate_Pango_Layout[m [31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
                  [31m--Text_Io.Put_Line("Project Canvas appened");[m
               [01;34mend[m [01;34mif[m[31m;[m

            [01;34mwhen[m Gtk_Ada [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mProjects_Params[31m.[mWith_Gtk [01;34mthen[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;34mif[m Gnostic[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m			
                     [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                     [01;30mLoad_Machine_Box[m[31m([mGnostic[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m,[m Machine_Lang[31m);[m
                     [01;30mNotebook_Set[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mGraph_Set[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mGtk_Library[31m,[m Gtk_Ada[31m);[m
			
                  [01;34mend[m [01;34mif[m[31m;[m
               [01;34melse[m		     
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Canvas_Record_Type[31m;[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
                  [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m            
                  [01;30mGtk_New[m[31m([mLabel[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m      
                  [01;30mAppend_Page[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Child [31m=>[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Tab_Label [31m=>[m Label[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mwhen[m Ada_Web_Server [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mProjects_Params[31m.[mWith_Aws [01;34mthen[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;34mif[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m
			
                     [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                     [01;30mLoad_Machine_Box[m[31m([mGnostic[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m,[m Machine_Lang[31m);[m
                     [01;30mNotebook_Set[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mGraph_Set[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAws_Library[31m,[m Ada_Web_server[31m);[m
			
                  [01;34mend[m [01;34mif[m[31m;[m
               [01;34melse[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Canvas_Record_Type[31m;[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
                  [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m            
                  [01;30mGtk_New[m[31m([mLabel[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m      
                  [01;30mAppend_Page[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Child [31m=>[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Tab_Label [31m=>[m Label[31m);[m
               [01;34mend[m [01;34mif[m[31m;[m
		  
            [01;34mwhen[m Ada_2012 [31m=>[m
               [01;34mif[m Gnostic[31m.[mContext[31m.[mProjects_Params[31m.[mWith_Ada [01;34mthen[m		     
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;34mif[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m.[mUnit_Index [31m>[m [35m0[m [01;34mthen[m
			
                     [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                     [01;30mLoad_Machine_Box[m[31m([mGnostic[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m,[m Machine_Lang[31m);[m
                     [01;30mNotebook_Set[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mGraph_Set[31m,[m Gnostic[31m.[mContext[31m.[mProject[31m.[mAda_Library[31m,[m Ada_2012[31m);[m

                  [01;34mend[m [01;34mif[m[31m;[m
               [01;34melse[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Canvas_Record_Type[31m;[m
                  Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m:=[m [01;34mnew[m Machine_Language_Frame_Type[31m;[m
                  [01;30mMachine_Init[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[m[01;34mall[m[31m,[m Machine_Lang[31m);[m
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m
		     
                  [01;30mGtk_New[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m
		     
                  [01;30mAdd[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mScroll[31m);[m            
		     
                  [01;30mGtk_New[m[31m([mLabel[31m,[m Machine_Lang_Enum'[01;30mImage[m[31m([mMachine_Lang[31m));[m      
		     
                  [01;30mAppend_Page[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Child [31m=>[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mFrame[31m,[m Tab_Label [31m=>[m Label[31m);[m
		     
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m [01;34mcase[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m	 	 
	 
         [31m--Text_Io.Put_Line("Graph book added.");[m
	 
	 
	 
         [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mMain_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m,[m False[31m,[m False[31m);[m
         [01;30mSet_Position[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m,[m [35m250[m[31m);[m
	 
         [01;30mGtk_New_Hpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Second_Pan[31m);[m
         [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mBot_Second_Pan[31m,[m False[31m,[m False[31m);[m
	 
	 
         [01;30mGtk_New_Vpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mFirst_Machines_Left_Pan[31m);[m
	 
         [01;30mGtk_New_Vpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSecond_Machines_Left_Pan[31m);[m
         [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mFirst_Machines_Left_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSecond_Machines_Left_Pan[31m,[m False[31m,[m False[31m);[m
         [31m--Text_Io.Put_Line("Language_set initialization....");[m
      	 [01;34mif[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mGtk_Ada[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSecond_Machines_Left_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mGtk_Ada[31m).[mFrame[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
         [31m--Text_Io.Put_Line("Gtkada added..");[m
         [01;34mif[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mAda_2012[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSecond_Machines_Left_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mAda_2012[31m).[mFrame[31m);[m	 
         [01;34mend[m [01;34mif[m[31m;[m
         [31m--Text_Io.Put_Line("Ada added..");[m

         [01;34mif[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mAda_Web_Server[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mFirst_Machines_Left_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mAda_Web_Server[31m).[mFrame[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
         [31m--Text_Io.Put_Line("AWS added..");[m

         [31m--Text_Io.Put_Line("Language_set initialized;");[m

         [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Second_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mFirst_Machines_Left_Pan[31m,[m False[31m,[m False[31m);[m
         [01;30mSet_Position[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_second_Pan[31m,[m [35m250[m[31m);[m
	 
	 
         [01;30mGtk_New_Vpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mHuman_Pan[31m);[m
         [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mHuman_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mSystem_Frame[31m.[mFrame[31m,[m False[31m,[m False[31m);[m
         [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mHuman_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mUser_Frame[31m.[mframe[31m,[m False[31m,[m False[31m);[m
         [01;30mSet_Position[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mHuman_Pan[31m,[m [35m250[m[31m);[m
	 
         [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mbot_Second_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mHuman_Pan[31m,[m False[31m,[m False[31m);[m
	 
	 
         [01;30mGtk_New_Vpaned[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mProject_Pan[31m);[m 
         [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mProject_Pan[31m,[m False[31m,[m False[31m);[m
         [01;30mSet_Position[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mBot_Main_Pan[31m,[m [35m800[m[31m);[m
         [31m--Text_Io.Put_Line("Add project Frame");[m
         [01;34mif[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mProject_Define[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            [01;30mPack1[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mProject_Pan[31m,[mGnostic[31m.[mGnose_Interface[31m.[m[01;30mLanguage_Set[m[31m([mProject_Define[31m).[mframe [31m,[m False[31m,[m False[31m);[m	    
         [01;34mend[m [01;34mif[m[31m;[m
	 
	 
         [01;30mPack2[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mProject_Pan[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mParmeters_Frame[31m.[mFrame [31m,[m False[31m,[m False[31m);[m
	 
         [31m------------------------------------------------[m
         [31m-- Initialize Main box :                      --[m
         [31m------------------------------------------------[m
         [01;30mGtk_New_Vbox[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mMain_Vbox[31m);[m
	 
         [01;30mGtk_New[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mActions[31m,[m [31m"Actions"[m[31m);[m
         [01;30mAdd_Actions[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mActions[31m,[m Entries[31m,[m [01;30mTo_Address[m[31m([mGnostic[31m));[m
         [01;30mGtk_New[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mUI[31m);[m
         [01;30mInsert_Action_Group[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mUI[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mActions[31m,[m [35m0[m[31m);[m
         Add_Accel_Group
           [31m([m[01;30mGtk_Window[m[31m([mGnostic[31m.[mGnose_Interface[31m),[m [01;30mGet_Accel_Group[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mUI[31m));[m
	 
         [01;34mif[m [01;30mAdd_UI_From_String[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mUI[31m,[m UI_Info[31m,[m Error'Unchecked_Access[31m)[m [31m=[m [35m0[m [01;34mthen[m
            Text_Io[31m.[m[01;30mPut_Line[m [31m([m[31m"Building menus failed: "[m [31m&[m [01;30mGet_Message[m [31m([mError[31m));[m
            [01;30mError_Free[m [31m([mError[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m      
         [01;30mPack_Start[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mMAin_Vbox[31m,[m [01;30mGet_Widget[m [31m([mGnostic[31m.[mGnose_Interface[31m.[mUI[31m,[m [31m"/MenuBar"[m[31m),[m False[31m,[m False[31m,[m [35m5[m[31m);[m
	 
	 
         [01;30mPack_start[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mMain_Vbox[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mMain_Pan[31m,[m True[31m,[m True[31m,[m [35m0[m[31m);[m
	 
         [31m--Text_Io.Put_Line("Add main box to Gtk_Window");[m
	 
         [01;30mAdd[m[31m([m[01;30mGtk_Window_Record[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;34mall[m[31m)[m'[01;34maccess[m[31m,[m Gnostic[31m.[mGnose_Interface[31m.[mMain_Vbox[31m);[m
     	 
	 
	 
	 
         Gtk[31m.[mWindow[31m.[m[01;30mSet_Focus[m[31m([m[01;30mGtk_Window_Record[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;34mall[m[31m)[m'[01;34mAccess[m[31m,[m Gtk[31m.[mWidget[31m.[m[01;30mGtk_Widget[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mUser_Text_View[31m));[m
	 
         [01;30mSet_Tab_Pos[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_Book[31m,[m Pos_Left[31m);[m
      	 
	 
         [31m--Text_Io.Put_Line("-- End of Window construction.");[m
         [31m-----------------------------------------------------------------------------------[m
	 
	 
         [31m--Text_Io.Put_Line("Attach destroy Handler...");[m
	 
         Main_User_Cb_Handlers[31m.[mConnect
           [31m([m[01;30mGtk_Window_Record[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;34mall[m[31m)[m'[01;34maccess[m[31m,[m [31m"destroy"[m[31m,[m 
            Main_User_Cb_Handlers[31m.[mTo_Marshaller
              [31m([mMain_Destroy'[01;34mAccess[m[31m),[m
            Gnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m);[m
	 
         [31m--Text_Io.Put_Line("Setting the default size...");[m
         [01;30mSet_Default_Size[m[31m([mGnostic[31m.[mGnose_interface[31m,[m [35m1024[m[31m,[m [35m720[m[31m);[m
	 
         Gtk[31m.[mWindow[31m.[m[01;30mset_position[m[31m([m[01;30mGtk_Window[m[31m([mGnostic[31m.[mGnose_Interface[31m),[m Gtk[31m.[mEnums[31m.[mWin_Pos_Center[31m);[m
         [01;34mif[m Gnostic[31m.[mcontext[31m.[mProject[31m.[mProject_Name [31m/=[m [01;34mnull[m [01;34mthen[m
            Gtk[31m.[mWindow[31m.[m[01;30mSet_Title[m[31m([m[01;30mGtk_Window[m[31m([mGnostic[31m.[mGnose_Interface[31m),[m Gnostic[31m.[mcontext[31m.[mProject[31m.[mProject_Name[31m.[m[01;34mall[m [31m&[m [31m" - "[m [31m&[m [01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m
	 
	 
         Common_notebook_Cb[31m.[mConnect
           [31m([mGnostic[31m.[mGnose_Interface[31m.[mGraph_book[31m,[m [31m"switch_page"[m[31m,[m
            Common_notebook_Cb[31m.[m[01;30mTo_Marshaller[m [31m([mPage_Switched'[01;34mAccess[m[31m),[m
            Gnostic[31m,[m
            true[31m);[m
	 
         [01;34mfor[m Machine_Lang [01;34min[m Machine_Lang_Enum'[01;34mRange[m [01;34mloop[m
            [01;34mif[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m)[m [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
              Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas [31m/=[m [01;34mnull[m [01;34mthen[m
               [01;30mRealize[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mMachine_Lang[31m).[mCanvas[31m);[m
            [01;34mend[m [01;34mif[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
	 
	 
         Calendar[31m.[m[01;30mSplit[m[31m([mClock[31m,[m Start_Date[31m.[mYear[31m,[m Start_Date[31m.[mMonth[31m,[m Start_Date[31m.[mDay[31m,[m Start_Date[31m.[mHours[31m);[m
	 
         Gnostic[31m.[mProcess[31m.[mInitialize
           [31m([mClock[31m,[m 
            Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m,[m 
            Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m);[m
	 
         Gnostic[31m.[mProcess[31m.[mRun
           [31m([mGnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming[31m,[m
            Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed[31m);[m      
	 
	 
         [31m--Text_io.put_line("initialize Global layout.");[m
         Layout [31m:=[m Gnostic[31m.[mGnose_Interface[31m.[m[01;30mGraph_Set[m[31m([mProject_Define[31m).[mLayout[31m;[m
	 
         [31m--Text_io.put_line("create make file");[m
	 
         [01;34mif[m [01;34mnot[m [01;30mIs_Regular_File[m[31m([m[31m"Makefile"[m[31m)[m [01;34mthen[m
            [01;34mdeclare[m
               Project_Name [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mRandom_Name[m[31m([m[35m12[m[31m);[m
            [01;34mbegin[m
               [01;34mif[m Environment[31m.[mVersion_Reset [31m=[m [35m0[m [01;34mthen[m		  
                  [01;34mdeclare[m
		     
                     Dialog [31m:[m Gtk[31m.[mDialog[31m.[mGtk_Dialog[31m;[m
                     Yes    [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m
                     No     [31m:[m Gtk[31m.[mWidget[31m.[mGtk_Widget[31m;[m		     
                     Box    [31m:[m Gtk_Vbox[31m;[m
                     Label  [31m:[m Gtk_Label[31m;[m
                  [01;34mbegin[m
                     [01;34mloop[m
                        [01;30mGtk_New[m[31m([mLabel[31m,[m Project_Name[31m);[m
                        Gtk[31m.[mDialog[31m.[m[01;30mGtk_New[m[31m([mDialog[31m,[m [31m"Create project named :"[m[31m,[m [01;30mGtk_Window[m[31m([mGnostic[31m.[mGnose_interface[31m),[m Gtk[31m.[mdialog[31m.[mmodal[31m);[m
                        [01;30mSet_Default_Size[m[31m([m[01;30mGtk_Window[m[31m([mDialog[31m),[m [35m150[m[31m,[m [35m70[m[31m);[m
                        Box [31m:=[m [01;30mGet_Content_Area[m[31m([mDialog[31m);[m      
                        [01;30mPack_Start[m[31m([mBox[31m,[m Label[31m);[m
                        Yes [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mDialog[31m,[m [31m"Yes"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes[31m);[m
                        No [31m:=[m Gtk[31m.[mDialog[31m.[m[01;30mAdd_Button[m[31m([mDialog[31m,[m [31m"No"[m[31m,[m Gtk[31m.[mDialog[31m.[mGtk_Response_No[31m);[m         			
                        [01;30mShow_All[m[31m([mBox[31m);[m
                        [01;34mcase[m Gtk[31m.[mDialog[31m.[m[01;30mRun[m[31m([mDialog[31m)[m [01;34mis[m
                        [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_Yes    [31m=>[m             
			      
                           [01;30mMakefile[m[31m([m[31m"Makefile"[m[31m);[m			      			      			      
                           [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mthen[m
                              [01;30mInitialize_Project_Window[m[31m([mGnostic[31m,[m Project_Name[31m);[m			      
                           [01;34mend[m [01;34mif[m[31m;[m
                           [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m				 
                              Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Gnostic.all'[m[01;34maccess[m[31m);[m
                           [01;34mend[m [01;34mif[m[31m;[m								
                           Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m  	       
                           [01;34mexit[m[31m;[m
                        [01;34mwhen[m Gtk[31m.[mDialog[31m.[mGtk_Response_No     [31m=>[m
                           [01;30mMakefile[m[31m([m[31m"Makefile"[m[31m);[m			      			      			      
                           [01;30mInitialize_Project_Window[m[31m([mGnostic[31m,[m [31m""[m[31m);[m
                           [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m				 
                              Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Gnostic.all'[m[01;34maccess[m[31m);[m
                           [01;34mend[m [01;34mif[m[31m;[m				     
                           Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m               
                           [01;34mexit[m[31m;[m
                        [01;34mwhen[m [01;34mothers[m [31m=>[m
                           Gtk[31m.[mDialog[31m.[m[01;30mDestroy[m[31m([mDialog[31m);[m	       
                           [01;34mexit[m[31m;[m
                        [01;34mend[m [01;34mcase[m[31m;[m
                     [01;34mend[m [01;34mloop[m[31m;[m      
                  [01;34mend[m[31m;[m
               [01;34mend[m [01;34mif[m[31m;[m
            [01;34mend[m[31m;[m	 
         [01;34melsif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
            Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Gnostic.all'[m[01;34maccess[m[31m);[m
         [01;34mend[m [01;34mif[m[31m;[m
         [31m--Text_Io.Put_Line("Show_all Window...");[m
         Gtk[31m.[mWindow[31m.[m[01;30mShow_All[m[31m([m[01;30mGtk_Window_Record[m[31m([mGnostic[31m.[mGnose_Interface[31m.[m[01;34mall[m[31m)[m'[01;34maccess[m[31m);[m
	 
      [01;34mend[m[31m;[m

      [01;34mreturn[m Gnostic[31m.[m[01;34mall[m'[01;34mAccess[m[31m;[m
   [01;34mend[m Gnose_Initialize[31m;[m
   
   
   
   [31m-------------------------------------------------------------------------------[m
   [31m-- End of Gnose Interface.                                                   --[m
   [31m-------------------------------------------------------------------------------[m
   
   
   [31m-------------------------------------------------------------------------------[m
   [31m-- Gnose Process body :                                                      --[m
   [31m-------------------------------------------------------------------------------[m
   
   [01;34mtask[m [01;34mbody[m Gnose_Process [01;34mis[m
      Start_Process [31m:[m Time [31m:=[m Clock[31m;[m
      Self_Wait [31m:[m [32mDuration[m [31m:=[m [35m0.0[m[31m;[m
      User_Wait [31m:[m [32mDuration[m [31m:=[m [35m0.0[m[31m;[m
      End_Of_Task [31m:[m [32mBoolean[m [31m:=[m False[31m;[m      
   [01;34mbegin[m
      [01;34maccept[m Initialize
        [31m([mDate [31m:[m [01;34min[m Time[31m;[m
         Self[31m,[m User [31m:[m [01;34min[m [32mDuration[m[31m)[m [01;34mdo[m
         Self_Wait [31m:=[m Self[31m;[m	 
         [01;34mdelay[m [01;34muntil[m Date[31m;[m
         Start_Process [31m:=[m Date[31m;[m
	 
         User_Wait [31m:=[m User[31m;[m
	 
	 
      [01;34mend[m Initialize[31m;[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Available Human Language : "[m[31m);[m
      [01;34mfor[m Human_Lang [01;34min[m Gnostic[31m.[mSystem[31m.[mNeural_Set'[01;34mRange[m [01;34mloop[m
         [01;34mif[m Gnostic[31m.[mSystem[31m.[m[01;30mNeural_Set[m[31m([mHuman_Lang[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Human Lang : "[m [31m&[m Human_Lang_Enum'[01;30mImage[m[31m([mGnostic[31m.[mSystem[31m.[m[01;30mNeural_Set[m[31m([mHuman_Lang[31m).[mHuman_Lang[31m));[m
         [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      Text_Io[31m.[mNew_Line[31m;[m
      
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Neural Language : "[m [31m&[m Human_Lang_Enum'[01;30mImage[m[31m([mGnostic[31m.[mSystem[31m.[mNeural_Lang[31m));[m
      Text_Io[31m.[mNew_Line[31m;[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Available Machine Language : "[m[31m);[m
      [01;34mfor[m Machine_Lang [01;34min[m Gnostic[31m.[mSystem[31m.[mLanguage_Set'[01;34mRange[m [01;34mloop[m
         [01;34mif[m Gnostic[31m.[mSystem[31m.[mLanguage_Set [31m/=[m [01;34mnull[m [01;34mand[m [01;34mthen[m
           Gnostic[31m.[mSystem[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m)[m [31m/=[m [01;34mnull[m [01;34mthen[m
            Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Machine Lang : "[m [31m&[m Machine_Lang_Enum'[01;30mImage[m[31m([mGnostic[31m.[mSystem[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m).[mMachine_Lang[31m));[m	    
         [01;34mend[m [01;34mif[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      
      
      [01;34mwhile[m [01;34mnot[m End_Of_Task [01;34mloop[m
         Text_Io[31m.[mNew_Line[31m;[m
	 
	 
         [01;34maccept[m [01;30mRun[m[31m([mProgramming[31m,[m Executed [31m:[m [01;34min[m [32mBoolean[m[31m);[m
         [01;34mloop[m	    
            [01;34mselect[m
               [01;34maccept[m Halt [01;34mdo[m
                  End_Of_Task [31m:=[m True[31m;[m
               [01;34mend[m Halt[31m;[m
               [01;34mexit[m[31m;[m
            [01;34mor[m
               [01;34maccept[m Suspend[31m;[m
               [01;34mexit[m[31m;[m
            [01;34mor[m
               [01;34maccept[m Respond[31m;[m
            [01;34mor[m
               [01;34maccept[m Train[31m;[m
            [01;34mor[m
               [01;34maccept[m Info[31m;[m      
            [01;34mor[m
               [01;34maccept[m [01;30mSet_Neural[m[31m([mHuman_Lang [31m:[m [01;34min[m Human_Lang_Enum[31m)[m [01;34mdo[m
                  Gnostic[31m.[mSystem[31m.[mNeural_Lang [31m:=[m Human_Lang[31m;[m
               [01;34mend[m Set_Neural[31m;[m
            [01;34mor[m
               [01;34maccept[m [01;30mGet_Language[m[31m([mLanguage_Unit [31m:[m [01;34mout[m Language_Unit_Access[31m;[m	    
                                   Machine_Lang [31m:[m [01;34min[m Machine_Lang_Enum[31m)[m [01;34mdo[m
                  Language_Unit [31m:=[m Gnostic[31m.[mSystem[31m.[m[01;30mLanguage_Set[m[31m([mMachine_Lang[31m);[m
               [01;34mend[m Get_Language[31m;[m
            [01;34mor[m
               [01;34maccept[m [01;30mGet_Neural[m[31m([mNeural_Unit [31m:[m [01;34mout[m Neural_Unit_Access[31m;[m
                                 Human_Lang [31m:[m [01;34min[m Human_Lang_Enum[31m)[m [01;34mdo[m
                  Neural_Unit [31m:=[m Gnostic[31m.[mSystem[31m.[m[01;30mNeural_Set[m[31m([mHuman_Lang[31m);[m		  
               [01;34mend[m Get_Neural[31m;[m
            [01;34mor[m
	       
               [01;34maccept[m Build[31m;[m
	       
            [01;34mor[m
               [01;34maccept[m Execute[31m;[m
            [01;34mor[m
               [01;34mdelay[m Self_Wait[31m;[m	       
	       
	       
            [01;34mend[m [01;34mselect[m[31m;[m
         [01;34mend[m [01;34mloop[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m
      Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Process halted"[m[31m);[m
   [01;34mend[m Gnose_Process[31m;[m
   
   
   
   
   
   
   
   [31m----------------------------------------------------------------------------------------[m
   [31m-- function On_Self_Execution : Timeout callback with Data_Type (Gnose_Access)        --[m
   [31m----------------------------------------------------------------------------------------[m
   [01;34mfunction[m [01;30mOn_Self_Execution[m[31m([mObject [31m:[m Object_Pointer[31m)[m [01;34mreturn[m [32mBoolean[m [01;34mis[m
      
      Gnostic [31m:[m [01;34mconstant[m Gnose_Access [31m:=[m Object[31m.[m[01;34mall[m'[01;34mAccess[m[31m;[m
      File [31m:[m Text_Io[31m.[mFile_Type[31m;[m
   [01;34mbegin[m
      [01;34mcase[m Gnostic[31m.[mSystem_Step [01;34mis[m
	 [01;34mwhen[m List [31m=>[m
	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Programming [01;34mthen[m
	       [01;34mdeclare[m
		  Project_Name [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mRandom_Name[m[31m([m[35m12[m[31m);[m		     
	       [01;34mbegin[m
		  [01;30mCreate_List_Window[m[31m([mGnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m,[m Project_Name[31m);[m
	       [01;34mend[m[31m;[m
	       
	    [01;34melse[m
	       [01;30mCreate_List_Window[m[31m([mGnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m,[m [31m""[m[31m);[m    
	    [01;34mend[m [01;34mif[m[31m;[m
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make clean"[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m
	       
	       
	       [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
		  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m		     
		  Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	 	       	       
	       
	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
		  
		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m	       		  		  

	       [01;34mend[m[31m;[m
	    [01;34melse[m
	       
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Prepare [31m=>[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making prepare..."[m[31m);[m
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make prepare"[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m
	       

	       [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
		  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
		  Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	 	       

	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m	       		  		  
		  
	       [01;34mend[m[31m;[m
	       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Computation [31m=>[m
	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
	       [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 
	    
	    [31m-- For Automation message :	    [m
	    [01;34mdeclare[m
	       
	       Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Computation_Message[31m;[m
	       Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	    [01;34mbegin[m	       
	       Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

	       [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
	       [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m		  	       
		  
		  [01;34mdeclare[m
		     Computation_Pointer [31m:[m Computation_Conversions[31m.[mObject_Pointer[31m;[m
		  [01;34mbegin[m
		     Computation_Pointer [31m:=[m [01;34mnew[m Computation_Window_Access[31m;[m
		     Computation_Pointer[31m.[m[01;34mall[m [31m:=[m [01;34mnew[m Computation_Window_Record_Type[31m;[m
		     [01;30mComputation_Initialize[m[31m([mComputation_Pointer[31m,[m Object[31m);[m
		     
		  [01;34mend[m[31m;[m		     
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m		  
		  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  
	       
	       [01;34melse[m
		  Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
		  [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	       [01;34mend[m [01;34mif[m[31m;[m
	    [01;34mend[m[31m;[m
	 [01;34mwhen[m Reload [31m=>[m
	    
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Reaload"[m[31m);[m
	    [01;30mReload_Project[m[31m([mGnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m
	       [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
		  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
		  Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	 
		     

	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m	       		  		  
	       [01;34mend[m[31m;[m
	       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 
	 [01;34mwhen[m Update [31m=>[m	    
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"Update"[m[31m);[m
	    [01;30mUpgrade[m[31m([mGnostic[31m.[m[01;34mall[m'[01;34mAccess[m[31m);[m

	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
	       [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 
	    
	    
	    [01;34mbegin[m
		  text_io[31m.[m[01;30mOpen[m[31m([mFile[31m,[m text_io[31m.[mAppend_File[31m,[m [31m"Versions.default"[m[31m);[m
	       [01;34mexception[m
		  [01;34mwhen[m text_io[31m.[mName_Error [31m=>[m
		     text_io[31m.[m[01;30mcreate[m[31m([mFile[31m,[m text_io[31m.[mout_File[31m,[m [31m"Versions.default"[m[31m);[m
	       [01;34mend[m[31m;[m
	       text_io[31m.[m[01;30mPut_Line[m[31m([mFile[31m,[m [01;30mTo_String[m[31m([mVersions[31m.[mVersion[31m));[m
	       text_io[31m.[m[01;30mClose[m[31m([mFile[31m);[m
	       
	       
	       [31m-- Make update.[m
	       Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making update..."[m[31m);[m
	       Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make update"[m[31m);[m
	       [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
		  Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m		  
		  [01;34mdeclare[m
		     
		     Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		     Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
		  [01;34mbegin[m
		     Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		     Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
		     
		     [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		     [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
			Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
			Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
			[01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		     [01;34mend[m [01;34mif[m[31m;[m		  		  		  
		     
		     
		  [01;34mend[m[31m;[m
		  
	       [01;34melse[m
		  
		  Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Clean [31m=>[m	   
	    [31m-- make clean.[m
	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
	       [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 

	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making mrproper..."[m[31m);[m
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make mrproper"[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m
	       
	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m		  		  		  
		  
	       [01;34mend[m[31m;[m       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Arch [31m=>[m
	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
	       [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 
	    
	    [01;34mdeclare[m
	       Computation_Pointer [31m:[m Computation_Conversions[31m.[mObject_Pointer[31m;[m
	    [01;34mbegin[m
	       Computation_Pointer [31m:=[m [01;34mnew[m Computation_Window_Access[31m;[m
	       Computation_Pointer[31m.[m[01;34mall[m [31m:=[m [01;34mnew[m Computation_Window_Record_Type[31m;[m
	       [01;30mComputation_Initialize[m[31m([mComputation_Pointer[31m,[m Object[31m);[m
	    [01;34mend[m[31m;[m
	    
	    [31m-- make arch.[m
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make enlight-sources"[m[31m);[m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making arch.."[m[31m);[m
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make arch"[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       [01;34mcase[m Gnostic[31m.[mPlan [01;34mis[m
		  [01;34mwhen[m Spec [31m=>[m
		     Gnostic[31m.[mSystem_Step [31m:=[m Computation[31m;[m
		     Gnostic[31m.[mPlan [31m:=[m Impl[31m;[m
		  [01;34mwhen[m Impl [31m=>[m
		     Gnostic[31m.[mPlan [31m:=[m Spec[31m;[m
		     Gnostic[31m.[mSystem_Step [31m:=[m Build[31m;[m
	       [01;34mend[m [01;34mcase[m[31m;[m	       	       
	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m		  		  		  
		  		  
	       [01;34mend[m[31m;[m
	       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Build [31m=>[m
	    [31m-- make all;	    [m
	    Text_Io[31m.[m[01;30mPut_Line[m[31m([m[31m"-- Making all..."[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
	       [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 
	    
	    Gnostic[31m.[mExit_Result [31m:=[m Results[31m.[m[01;30mSpawn[m[31m([m[31m"make all"[m[31m);[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'[01;30mSucc[m[31m([mGnostic[31m.[mSystem_Step[31m);[m	              
	       [31m-- For Automation message :[m
	       [01;34mdeclare[m
		  
		  Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m Automation_Message[31m;[m
		  Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	       [01;34mbegin[m
		  Message_Window[31m.[mNext_Step [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
		  Message_Window[31m.[mRemaning_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m

		  [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
		  [01;34mif[m Message_Window[31m.[mSuccess [01;34mthen[m
		     Gnostic[31m.[mSelf_Execute_Timeout [31m:=[m Main_timeout[31m.[m[01;30mTimeout_Add[m[31m([m[01;30mGuint[m[31m([mGnostic[31m.[mContext[31m.[mNeural_Params[31m.[mSelf_Wait[31m*[m[35m1000.0[m[31m),[m On_Self_Execution[31m'Access, Object.all'[m[01;34maccess[m[31m);[m
		     Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m True[31m;[m
		     [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
		  [01;34mend[m [01;34mif[m[31m;[m		  		  		  
		  
		  
	       [01;34mend[m[31m;[m
	       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m
	 [01;34mwhen[m Restart [31m=>[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       
	       [01;34mdelay[m [35m0.5[m[31m;[m
	       
	       [01;30mRestart[m[31m([mGnostic[31m.[m[01;34mall[m'[01;34maccess[m[31m);[m
	       
	       [01;34mdelay[m [35m0.5[m[31m;[m
	       
	       [01;30mDestroy[m[31m([mGnostic[31m.[mGnose_Interface[31m);[m
	       
	       
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Error [31m:=[m Gnostic[31m.[mSystem_Step[31m;[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to next step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    [01;34mend[m [01;34mif[m[31m;[m	 
	 [01;34mwhen[m At_Limit [31m=>[m
	    [01;34mif[m Gnostic[31m.[mExit_Result[31m.[mSuccess [01;34mthen[m
	       Gnostic[31m.[mSystem_Step [31m:=[m System_Step_Enum'First[31m;[m
	       [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Going to first step : "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	       [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
		  [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
	       [01;34mend[m [01;34mif[m[31m;[m
	       Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	    [01;34melse[m
	       Gnostic[31m.[mSystem_Step [31m:=[m On_Error[31m;[m
	    [01;34mend[m [01;34mif[m[31m;[m	 
	 [01;34mwhen[m On_Error [31m=>[m
	    [01;30mInsert_With_Tag[m[31m([mGnostic[31m.[mGnose_Interface[31m.[mSystem_Text_Buffer[31m,[m [31m""[m[31m,[m [31m"Step On Error: "[m [31m&[m System_Step_Enum'[01;30mimage[m[31m([mGnostic[31m.[mSystem_Step[31m));[m	       
	    
	    [01;34mdeclare[m
	       
	       Message [31m:[m [01;34mconstant[m Message_Enum [31m:=[m On_Error_Message[31m;[m
	       Message_Window [31m:[m [01;30mMessage_Timeout_Window_Type[m[31m([mMessage[31m);[m
	    [01;34mbegin[m	     
	       Message_Window[31m.[mStep_On_Error [31m:=[m Gnostic[31m.[mSystem_Error[31m;[m
	       Message_Window[31m.[mResult [31m:=[m Gnostic[31m.[mExit_Result[31m;[m
	       Message_Window[31m.[mEnd_Time [31m:=[m Clock [31m+[m Gnostic[31m.[mContext[31m.[mNeural_Params[31m.[mUser_Wait[31m;[m
	       [01;30mInitialize_Message_Window[m[31m([mMessage_Window[31m,[m [01;30mgtk_window[m[31m([mGnostic[31m.[mGnose_Interface[31m));[m
	       [01;34mif[m [01;34mnot[m Message_Window[31m.[mSuccess [01;34mthen[m
		  [01;34mif[m Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [01;34mthen[m
		     [01;30mRemove[m[31m([mGnostic[31m.[mSelf_Execute_Timeout[31m);[m
		  [01;34mend[m [01;34mif[m[31m;[m
		  Gnostic[31m.[mContext[31m.[mSystem_Params[31m.[mSelf_Executed [31m:=[m False[31m;[m
	       [01;34melse[m
		  Gnostic[31m.[mSystem_Step [31m:=[m Message_Window[31m.[mStep_On_Error[31m;[m
	       [01;34mend[m [01;34mif[m[31m;[m	       
	    [01;34mend[m[31m;[m	    	    
      [01;34mend[m [01;34mcase[m[31m;[m
      
      [01;34mreturn[m True[31m;[m
   [01;34mend[m On_Self_Execution[31m;[m
   
[01;34mend[m Gnos[31m.[mWindows[31m;[m
