[01;34mwith[m Gtk[31m.[mFrame[31m;[m                         [01;34muse[m Gtk[31m.[mFrame[31m;[m
[01;34mwith[m Gtk[31m.[mLabel[31m;[m                         [01;34muse[m Gtk[31m.[mLabel[31m;[m
[01;34mwith[m Gtk[31m.[mBox[31m;[m                           [01;34muse[m Gtk[31m.[mBox[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.[mCheck_Button[31m;[m                  [01;34muse[m Gtk[31m.[mCheck_Button[31m;[m
[01;34mwith[m Gtk[31m.[mGEntry[31m;[m                        [01;34muse[m Gtk[31m.[mGEntry[31m;[m
[01;34mwith[m Gtk[31m.[mButton[31m;[m                        [01;34muse[m Gtk[31m.[mButton[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 Gtkada[31m.[mFile_Selection[31m;[m             [01;34muse[m Gtkada[31m.[mFile_Selection[31m;[m

[01;34mwith[m Libsens[31m.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[31m;[m

[01;34mwith[m Libsens[31m.[mVirtual[31m;[m                   [01;34muse[m Libsens[31m.[mVirtual[31m;[m
[01;34mwith[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer[31m;[m     [01;34muse[m Libsens[31m.[mVirtual[31m.[mArp_Sequencer[31m;[m
[01;34mwith[m Libsens[31m.[mVirtual[31m.[mWork_Class[31m;[m        [01;34muse[m Libsens[31m.[mVirtual[31m.[mWork_Class[31m;[m
  
[01;34mwith[m Libsens[31m.[mGtk_Plugins_Specifications[31m;[m[01;34muse[m Libsens[31m.[mGtk_Plugins_Specifications[31m;[m

[01;34mpackage[m Libsens[31m.[mGtk_Arpegiator [01;34mis[m
   
   [01;34mtype[m GTK_Note [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
         Note_Vbox          [31m:[m Gtk_Vbox[31m;[m         
         Key_Spin_Button    [31m:[m Gtk_Spin_Button[31m;[m
         Sens_Spin_button   [31m:[m Gtk_Spin_Button[31m;[m	 
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mtype[m Gtk_Note_Access [01;34mis[m [01;34maccess[m [01;34mall[m GTK_Note[31m;[m

   [01;34mtype[m GTK_Note_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Gtk_Note_Access[31m;[m
         
   [01;34mprocedure[m Initialize
     [31m([mNote [31m:[m [01;34min[m [01;34mout[m Gtk_Note_Access[31m;[m      
      The_note [31m:[m [01;34min[m note_Access[31m;[m
      Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m);[m


   [01;34mtype[m GTK_Step [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
         Step_Vbox        [31m:[m Gtk_Vbox[31m;[m
         Step_Label       [31m:[m Gtk_Label[31m;[m         
         Set_Check_button [31m:[m Gtk_Check_Button[31m;[m	 
	 Length_Spin_button [31m:[m Gtk_Spin_Button[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mtype[m Gtk_Step_Access [01;34mis[m [01;34maccess[m [01;34mall[m GTK_Step[31m;[m
   
   [01;34mprocedure[m Init_step
     [31m([mStep [31m:[m [01;34min[m [01;34mout[m Gtk_Step_Access[31m;[m
      The_Step [31m:[m [01;34min[m step_Access[31m;[m
      Label [31m:[m [01;34min[m [32mString[m[31m;[m
      Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m);[m
   

   [01;34mtype[m GTK_Step_Table [01;34mis[m [01;34marray[m [31m([mPositive [01;34mrange[m [31m<>)[m [01;34mof[m Gtk_Step_Access[31m;[m
   

   [01;34mtype[m GTK_Intelligence [01;34mis[m [01;34mtagged[m
      [01;34mrecord[m
	 Network_Parameters    [31m:[m Gtk_Vbox[31m;[m
         Filename_Label        [31m:[m Gtk_Label[31m;[m
         Filename_Gentry       [31m:[m Gtk_Gentry[31m;[m
         File_Selection_button [31m:[m Gtk_Button[31m;[m
         [31m--File_Selection        : Gtkada_File_Selection;[m
	 
	 Reuse             [31m:[m Gtk_Combo_Box_text[31m;[m	 
	 Converged         [31m:[m Gtk_Spin_Button[31m;[m	 
         Max_Epoch         [31m:[m Gtk_Spin_Button[31m;[m	 
	 
	 Last_Label            [31m:[m Gtk_Label[31m;[m
	 [31m--[m
         Last_Spin_Button      [31m:[m Gtk_Spin_Button[31m;[m
         Transpose_Label       [31m:[m Gtk_Label[31m;[m
         [31m--[m
         Transpose_Spin_Button [31m:[m Gtk_Spin_Button[31m;[m

	 Resolution            [31m:[m Gtk_Combo_Box_text[31m;[m
	 
	 
	 
	 
	 
         Main_Frame            [31m:[m Gtk_Frame[31m;[m
         [31m--[m
         Main_Vbox             [31m:[m Gtk_Vbox[31m;[m
         Main_Hbox             [31m:[m Gtk_Hbox[31m;[m
         Parameters            [31m:[m Gtk_Vbox[31m;[m
         Key_Label             [31m:[m Gtk_Label[31m;[m
         Sens_Label            [31m:[m Gtk_Label[31m;[m
         Label_Vbox            [31m:[m Gtk_Vbox[31m;[m
         [31m--[m
	 Chord                 [31m:[m [01;30mGTK_Note_Table[m[31m([m[35m1[m[31m..[m[35m3[m[31m);[m
         Chord_Hbox            [31m:[m Gtk_Hbox[31m;[m

         
         Step_Table            [31m:[m [01;30mGtk_Step_Table[m[31m([m[35m1[m[31m..[m[35m32[m[31m);[m
         Stepseq_Hbox          [31m:[m Gtk_Hbox[31m;[m
         Step_Parameters       [31m:[m Gtk_Vbox[31m;[m
	 
	 
      [01;34mend[m [01;34mrecord[m[31m;[m

   [01;34mtype[m Intelligence_Access [01;34mis[m [01;34maccess[m [01;34mall[m Gtk_Intelligence[31m;[m

   [01;34mprocedure[m Init_intel
     [31m([mIntelligence [31m:[m [01;34mout[m Intelligence_Access[31m;[m
     Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m);[m  
   
   [01;34mtype[m Arpegiator_Specifications [01;34mis[m
     [01;34mnew[m [01;30mAbstract_Plugin_Specifications[m[31m([mArp_Seq[31m)[m [01;34mwith[m
      [01;34mrecord[m	 
	 Intel [31m:[m Intelligence_Access[31m;[m
      [01;34mend[m [01;34mrecord[m[31m;[m
   
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Arpegiator_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m);[m
   
[01;34mend[m Libsens[31m.[mGtk_Arpegiator[31m;[m
