[31m------------------------------------------------------------------------------[m
[31m-- Gmface-Gm_Application-Gtk_Interface : GtkAda Gm interface of Gmface.     --[m
[31m------------------------------------------------------------------------------[m
[01;34mwith[m Gmface[31m.[mGm_Midi[31m.[mInstruments[31m;[m        [01;34muse[m Gmface[31m.[mGm_Midi[31m.[mInstruments[31m;[m

[01;34mwith[m Gmface[31m.[mGm_Virtual[31m;[m                 [01;34muse[m Gmface[31m.[mGm_Virtual[31m;[m
[01;34mwith[m Gmface[31m.[mGm_Processing[31m.[mGm_Work_Processing[31m;[m
[01;34muse[m Gmface[31m.[mGm_Processing[31m.[mGm_Work_Processing[31m;[m

[01;34mwith[m Gmface[31m.[mGm_Application[31m.[mGtk_Plugins_Specifications[31m;[m
[01;34muse[m Gmface[31m.[mGm_Application[31m.[mGtk_Plugins_Specifications[31m;[m


[01;34mwith[m System[31m.[mAddress_To_Access_Conversions[31m;[m
[01;34mwith[m GtkAda[31m.[mApplication[31m;[m                [01;34muse[m GtkAda[31m.[mApplication[31m;[m
[01;34mwith[m Gmface[31m.[mGm_Application[31m.[mGm_Interface[31m;[m[01;34muse[m Gmface[31m.[mGm_Application[31m.[mGm_Interface[31m;[m

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


[01;34mwith[m Gtk[31m.[mPaned[31m;[m                         [01;34muse[m Gtk[31m.[mPaned[31m;[m
[01;34mwith[m Gtk[31m.[mFrame[31m;[m                         [01;34muse[m Gtk[31m.[mFrame[31m;[m
[01;34mwith[m Gtk[31m.[mTree_Model[31m;[m                    [01;34muse[m Gtk[31m.[mTree_Model[31m;[m
[01;34mwith[m Gtk[31m.[mTree_View[31m;[m                     [01;34muse[m Gtk[31m.[mTree_View[31m;[m
[01;34mwith[m Gtk[31m.[mTree_Store[31m;[m                    [01;34muse[m Gtk[31m.[mTree_Store[31m;[m

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

[01;34mwith[m Gtk[31m.[mCombo_Box_Text[31m;[m                [01;34muse[m Gtk[31m.[mCombo_Box_Text[31m;[m
[01;34mwith[m Gtk[31m.[mButton[31m;[m                        [01;34muse[m Gtk[31m.[mButton[31m;[m
[01;34mwith[m Gtk[31m.[mSpin_Button[31m;[m                   [01;34muse[m Gtk[31m.[mSpin_Button[31m;[m

[01;34mwith[m Gtk[31m.[mWindow[31m;[m                        [01;34muse[m Gtk[31m.[mWindow[31m;[m
[01;34mwith[m Gtk[31m.[mBox[31m;[m                           [01;34muse[m Gtk[31m.[mBox[31m;[m
[01;34mwith[m Gtk[31m.[mNotebook[31m;[m                      [01;34muse[m Gtk[31m.[mNotebook[31m;[m

[01;34mwith[m Gtk[31m.[mAction_Group[31m;[m
[01;34mpragma[m [01;30mElaborate_All[m[31m([mGtk[31m.[mAction_Group[31m);[m
[01;34muse[m Gtk[31m.[mAction_Group[31m;[m

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

[01;34mwith[m Glib[31m.[mMain[31m;[m                         [01;34muse[m Glib[31m.[mMain[31m;[m

[01;34mpackage[m Gmface[31m.[mGm_Application[31m.[mGtk_Interface [01;34mis[m
   
   
   
   
   [01;34mtype[m Plugin_Page_Access [01;34mis[m [01;34maccess[m [01;34mall[m Plugin_Page_Type[31m;[m
   
   [01;34mtype[m Plugins_Pages_Set [01;34mis[m [01;34marray[m [31m([mPlugin_num'[01;34mrange[m[31m)[m [01;34mof[m Plugin_Page_Access[31m;[m
   
   
   
   
   [01;34mtype[m Gtk_Work_Window_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m	 
	 
	 Window [31m:[m Gtk_Application_Window[31m;[m
	 
	 Main_Vbox          [31m:[m Gtk_Vbox[31m;[m
	 
	 
	 Menus_Hbox         [31m:[m Gtk_Hbox[31m;[m
	 
	 App_Action_Group   [31m:[m Gtk_Action_Group[31m;[m
	 App_UI             [31m:[m Gtk_UI_Manager[31m;[m	 
	 
	 Win_Action_Group   [31m:[m Gtk_Action_Group[31m;[m
	 Win_UI             [31m:[m Gtk_UI_Manager[31m;[m
	 
	 Process             [31m:[m Work_Processing_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m [01;30mGtk_Gmface_Work_Window_Record[m[31m([mWork [31m:[m Work_Access[31m;[m
				      Work_Id [31m:[m Work_Num[31m)[m [01;34mis[m [01;34mnew[m Gtk_Work_Window_Record [01;34mwith[m
      [01;34mrecord[m
	 Master_Frame                [31m:[m Gtk_Frame[31m;[m
	 Master_Box                  [31m:[m Gtk_Box[31m;[m
	 Signature                   [31m:[m Gtk_Entry[31m;[m
	 Tempo_Button                [31m:[m Gtk_Spin_Button[31m;[m
	 Track_length_Button         [31m:[m Gtk_Spin_Button[31m;[m
	 Played_Form                 [31m:[m Gtk_Combo_Box_Text[31m;[m
	 
	 Flow_Frame                  [31m:[m Gtk_Frame[31m;[m	 
	 Flow_Model                  [31m:[m Gtk_Tree_Store[31m;[m
	 Flow_Tree                   [31m:[m Gtk_Tree_View[31m;[m
	 Iter                        [31m:[m Gtk_Tree_Iter[31m;[m   
	 Line_Counter                [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 
	 
	 Devices_Frame               [31m:[m Gtk_Frame[31m;[m
	 Devices_Model               [31m:[m Gtk_Tree_Store[31m;[m
	 Devices_Tree                [31m:[m Gtk_Tree_View[31m;[m
	 
	 Plugins_Frame               [31m:[m Gtk_Frame[31m;[m
	 Plugins_Model               [31m:[m Gtk_Tree_Store[31m;[m
	 Plugins_Tree                [31m:[m Gtk_Tree_View[31m;[m
	 Plugins_Pages               [31m:[m Plugins_Pages_Set[31m;[m
	 
	 
	 Flow_Paned                  [31m:[m Gtk_Hpaned[31m;[m [31m-- between device and flow[m
	 
	 Main_Paned                  [31m:[m Gtk_Vpaned[31m;[m [31m-- between Plugin and Hpanned.[m
	 
	 State_Frame                 [31m:[m Gtk_Frame[31m;[m
	 State_Box                   [31m:[m Gtk_Hbox[31m;[m	 	 
	 Media_Play                  [31m:[m Gtk_Button[31m;[m
	 Media_Stop                  [31m:[m Gtk_Button[31m;[m
	 In_Loop                     [31m:[m Gtk_Check_Button[31m;[m	 
	 Elapsed                     [31m:[m Gtk_Entry[31m;[m	 	 
	 Position                    [31m:[m Gtk_Entry[31m;[m
	 State_Vbox                  [31m:[m Gtk_Box[31m;[m
	 Tools_Box                   [31m:[m Gtk_Box[31m;[m            
	 State_Label                 [31m:[m Gtk_Label[31m;[m            
	 Modulation_Play_On          [31m:[m Gtk_Button[31m;[m
	 Modulation_Play_Off         [31m:[m Gtk_Button[31m;[m
	 Modulation_Record_On        [31m:[m Gtk_Button[31m;[m
	 Modulation_Record_Off       [31m:[m Gtk_Button[31m;[m            
	 Mod_Reset                   [31m:[m Gtk_Button[31m;[m
      	 
	 
	 Main_Hbox                   [31m:[m Gtk_Hbox[31m;[m	 	 	 
	 
	 Flow_Control                [31m:[m Glib[31m.[mMain[31m.[mG_Source_Id [31m:=[m
	   Glib[31m.[mMain[31m.[mNo_Source_Id[31m;[m
	 State_Control               [31m:[m Glib[31m.[mMain[31m.[mG_Source_Id [31m:=[m
	   Glib[31m.[mMain[31m.[mNo_Source_Id[31m;[m
   
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m [01;30mGtk_Gmidi_Work_Window_Record[m[31m([mWork_Id [31m:[m Work_Num[31m)[m [01;34mis[m [01;34mnew[m Gtk_Work_Window_Record [01;34mwith[m
      [01;34mrecord[m
	 [01;34mnull[m[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
      
   [01;34mpackage[m Gtk_Work_Window_Conversions
   [01;34mis[m [01;34mnew[m System[31m.[mAddress_To_Access_Conversions
     [31m([mGtk_Work_Window_Record'Class[31m);[m
   
   [01;34msubtype[m Gtk_Work_Window_Pointer [01;34mis[m Gtk_Work_Window_Conversions[31m.[mObject_Pointer[31m;[m
   
   [01;34mtype[m Gtk_Work_Window_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Gtk_Work_Window_Pointer[31m;[m
   
   [01;34mtype[m Device_Page_record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Input_Device  [31m:[m Gtk_Combo_Box_Text[31m;[m
	 Output_Device [31m:[m Gtk_Combo_Box_Text[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m   
   [01;34mtype[m Device_Page_Access [01;34mis[m [01;34maccess[m [01;34mall[m Device_Page_Record[31m;[m
   
   [01;34mtype[m Device_Page_Array [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Device_Page_Access[31m;[m
   
   [01;34mtype[m Gtk_Application_Record [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Gm_Application  [31m:[m Gm_Interface[31m.[mGm_Interface[31m;[m
	 Devices_Pages   [31m:[m [01;30mDevice_Page_Array[m[31m([m[35m1[m[31m..[m[35m128[m[31m);[m
	 Bandmaster      [31m:[m [01;34maliased[m [01;30mBandmaster_Record[m[31m([m[35m128[m[31m);[m
	 Notebook        [31m:[m Gtk_Notebook[31m;[m
	 Cur_Page        [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
	 Works_Processes  [31m:[m Work_Process_Array[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Gtk_Interface_Record [01;34mis[m [01;34mnew[m Gtk_Application_Record With
      [01;34mrecord[m
	 Application       [31m:[m GtkAda_Application[31m;[m	 
	 Window            [31m:[m Gtk_Window[31m;[m
	 Gtk_Works_Windows [31m:[m [01;30mGtk_Work_Window_Array[m[31m([m[35m1[m[31m..[m[35m128[m[31m);[m
	 In_Loop           [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Auto_Play         [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
	 Cur_Win           [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 [31m-- Current Work on play list.[m
	 
	 
	 Works             [31m:[m Work_Array[31m;[m
	 Work_Last         [31m:[m Natural [31m:=[m [35m0[m[31m;[m
	 Cur_Window        [31m:[m Positive [31m:=[m [35m1[m[31m;[m
	 [31m-- Current Window when activate-focus sended.[m
	 
	 
	 Main_Automation   [31m:[m G_Source_Id[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   [01;34mtype[m Gtk_Interafce [01;34mis[m [01;34maccess[m [01;34mall[m Gtk_Interface_Record[31m;[m
   
   [01;34mpackage[m Gtk_Interface_Conversions
   [01;34mis[m [01;34mnew[m System[31m.[mAddress_To_Access_Conversions
     [31m([mGtk_interface_Record[31m);[m
   
   [01;34msubtype[m Gtk_Interface_Pointer [01;34mis[m Gtk_Interface_Conversions[31m.[mObject_Pointer[31m;[m
   
   [01;34mprocedure[m [01;30mGtk_New[m[31m([mGtk_Int   [31m:[m [01;34mout[m Gtk_Interface_Pointer[31m;[m
		     Works     [31m:[m [01;34maccess[m Work_Array[31m;[m
		     Auto_Play [31m:[m [01;34min[m [32mBoolean[m[31m;[m
		     In_Loop   [31m:[m [01;34min[m [32mboolean[m[31m);[m
   
   
[01;34mprivate[m
   
   GApplication_Id [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [31m"gmface.gm_applications.gtk_interface"[m[31m;[m
   
   
   [01;34mpackage[m Main_Sources [01;34mis[m [01;34mnew[m Glib[31m.[mMain[31m.[m[01;30mGeneric_Sources[m[31m([mGtk_Interface_Pointer[31m);[m
[01;34mend[m Gmface[31m.[mGm_Application[31m.[mGtk_Interface[31m;[m
