
[01;34mwith[m Glib[31m;[m                              [01;34muse[m Glib[31m;[m
[01;34mwith[m Glib[31m.[mObject[31m;[m                       [01;34muse[m Glib[31m.[mObject[31m;[m
[01;34mwith[m Glib[31m.[mValues[31m;[m                       [01;34muse[m Glib[31m.[mValues[31m;[m
[01;34mwith[m Gtk[31m.[mHandlers[31m;[m                      [01;34muse[m Gtk[31m.[mHandlers[31m;[m
[01;34mpragma[m [01;30mElaborate_All[m [31m([mGtk[31m.[mHandlers[31m);[m
[01;34mwith[m Gtk[31m.[mWidget[31m;[m                        [01;34muse[m Gtk[31m.[mWidget[31m;[m
[01;34mwith[m Gtk[31m.[mEnums[31m;[m                         [01;34muse[m Gtk[31m.[mEnums[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.[mScrolled_Window[31m;[m               [01;34muse[m Gtk[31m.[mScrolled_Window[31m;[m
[01;34mwith[m Gtk[31m.[mTree_View_Column[31m;[m              [01;34muse[m Gtk[31m.[mTree_View_Column[31m;[m
[01;34mwith[m Gtk[31m.[mCell_Renderer_Text[31m;[m            [01;34muse[m Gtk[31m.[mCell_Renderer_Text[31m;[m
[01;34mwith[m Gtk[31m.[mCell_Renderer_Toggle[31m;[m          [01;34muse[m Gtk[31m.[mCell_Renderer_Toggle[31m;[m
[01;34mwith[m Gtk[31m.[mTree_Selection[31m;[m                [01;34muse[m Gtk[31m.[mTree_Selection[31m;[m

[01;34mwith[m Libsens[31m.[mVirtual[31m.[mCc_change[31m;[m         [01;34muse[m Libsens[31m.[mVirtual[31m.[mCc_change[31m;[m
[01;34mwith[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m             [01;34muse[m Libsens[31m.[mMIDI[31m.[mMessages[31m;[m

[01;34mwith[m Text_Io[31m;[m                           [01;34muse[m Text_Io[31m;[m



[01;34mpackage[m [01;34mbody[m Libsens[31m.[mGtk_Ctrl_Change [01;34mis[m
   
   [31m--------------------[m
   [31m-- step sequencer --[m
   [31m--------------------[m
   
   
   [01;34mpackage[m Plugin_Object_CB [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[mUser_Callback 
     [31m([mGobject_Record[31m,[m
      Abstract_Plugin_Access[31m);[m   
   
   
   [01;34mprocedure[m [01;30mMuted_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
			   Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
			   Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
      
      
      
      
      
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m [01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      Old_Value   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      Old_Value [31m:=[m [01;30mGet_Boolean[m [31m([mM[31m,[m Iter[31m,[m Muttable_Column[31m);[m
      
      Id [31m:=[m [32mInteger[m'Value
	[31m([m
	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m
      
      [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mplayed [31m:=[m Old_Value[31m;[m
      [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Muttable_Column[31m,[m [01;34mnot[m Old_Value[31m);[m
   [01;34mend[m Muted_Edited[31m;[m
   
   
   
   
   
   [01;34mprocedure[m [01;30mLoop_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
			  Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
			   Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m [01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      Old_Value   [31m:[m [32mBoolean[m[31m;[m
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      Old_Value [31m:=[m [01;30mGet_Boolean[m [31m([mM[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m3[m[31m);[m
      
      Id [31m:=[m [32mInteger[m'Value
	[31m([m
	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m
      
      
      [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mIn_Loop [31m:=[m [01;34mnot[m Old_Value[31m;[m
      [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m3[m[31m,[m [01;34mnot[m Old_Value[31m);[m
   [01;34mend[m Loop_Edited[31m;[m
   

   
   [01;34mprocedure[m [01;30mName_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
   			 Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
   			 Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m Gvalue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
   	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      
   [01;34mbegin[m
      
      
      Id [31m:=[m [32mInteger[m'Value
   	[31m([m
   	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
   			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m
      
      [01;34mbegin[m   	 
   	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mCtrl_name [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
      
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Cname_Column[31m,[m [31m([m[01;30mGet_String[m[31m([mText_Value[31m)));[m
      [01;34mexception[m
   	 [01;34mwhen[m Constraint_Error [31m=>[m
   	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m name_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mCC_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
   			  Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
   			  Plugin [31m:[m Abstract_Plugin_Access[31m)[m  [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m GValue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
   	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Value [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      Id [31m:=[m [32mInteger[m'Value
   	[31m([m
   	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
   			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m
      [01;34mbegin[m
   	 Value [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
   	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mCtrl_Num [31m:=[m [01;30mvalue_Type[m[31m([mValue[31m);[m
	 
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m CC_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mValue[31m));[m
      [01;34mexception[m
   	 [01;34mwhen[m Constraint_Error [31m=>[m
   	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m CC_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mCV_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
   			    Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
   			    Plugin [31m:[m Abstract_Plugin_Access[31m)[m  [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m GValue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
   	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Value [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      Id [31m:=[m [32mInteger[m'Value
   	[31m([m
   	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
   			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m
      [01;34mbegin[m
   	 Value [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
   	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mCtrl_val [31m:=[m [01;30mvalue_Type[m[31m([mValue[31m);[m
	 
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m CV_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mValue[31m));[m
      [01;34mexception[m
   	 [01;34mwhen[m Constraint_Error [31m=>[m
   	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m CV_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mBar_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
			 Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
			 Plugin [31m:[m Abstract_Plugin_Access[31m)[m  [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m GValue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Value [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      
      Id [31m:=[m [32mInteger[m'Value
	[31m([m
	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m      
      [01;34mbegin[m
	 Value [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mBar [31m:=[m Value[31m;[m
      
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Bar_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mValue[31m));[m
      [01;34mexception[m
	 [01;34mwhen[m Constraint_Error [31m=>[m
	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m Bar_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mNumber_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
			    Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
			 Plugin [31m:[m Abstract_Plugin_Access[31m)[m  [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m GValue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Value [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      Id [31m:=[m [32mInteger[m'Value
	[31m([m
	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m      
      [01;34mbegin[m
	 Value [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mNumber [31m:=[m Value[31m;[m
	 
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Number_Column[31m-[m[35m3[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([mValue[31m));[m
      [01;34mexception[m
	 [01;34mwhen[m Constraint_Error [31m=>[m
	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m Number_Edited[31m;[m

   	    
         
   [01;34mprocedure[m [01;30mStep_Edited[m [31m([mModel  [31m:[m [01;34maccess[m GObject_Record'Class[31m;[m
			  Params [31m:[m Glib[31m.[mValues[31m.[mGValues[31m;[m
			 Plugin [31m:[m Abstract_Plugin_Access[31m)[m  [01;34mis[m
      M           [31m:[m [01;34mconstant[m Gtk_Tree_Store [31m:=[m [01;30mGtk_Tree_Store[m [31m([mModel[31m);[m
      Path_String [31m:[m [01;34mconstant[m [32mString[m [31m:=[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m));[m
      Text_Value  [31m:[m [01;34mconstant[m GValue [31m:=[m [01;30mNth[m [31m([mParams[31m,[m [35m2[m[31m);[m
      Iter        [31m:[m [01;34mconstant[m Gtk_Tree_Iter [31m:=[m
	[01;30mGet_Iter_From_String[m [31m([mM[31m,[m Path_String[31m);[m
      
      
      
      Id [31m:[m Natural [31m:=[m [35m0[m[31m;[m
      Value [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
   [01;34mbegin[m
      
      
      Id [31m:=[m [32mInteger[m'Value
	[31m([m
	 [31m([m[01;30mGet_String[m [31m([mM[31m,[m Get_Iter_From_String 
			[31m([mM[31m,[m [01;30mGet_String[m [31m([m[01;30mNth[m [31m([mParams[31m,[m [35m1[m[31m))),[m Text_Column[31m)));[m      
      [01;34mbegin[m
	 Value [31m:=[m [32mInteger[m'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
	 [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mStep [31m:=[m Value[31m;[m
	 
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Step_Column[31m-[m[35m3[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([mValue[31m));[m
      [01;34mexception[m
	 [01;34mwhen[m Constraint_Error [31m=>[m
	    [01;34mnull[m[31m;[m
      [01;34mend[m[31m;[m
      
   [01;34mend[m Step_Edited[31m;[m
   
   [31m--  procedure Note_Edited (Model  : access GObject_Record'Class;[m
   [31m--  			  Params : Glib.Values.GValues;[m
   [31m--  			 Plugin : Abstract_Plugin_Access)  is[m
   [31m--     M           : constant Gtk_Tree_Store := Gtk_Tree_Store (Model);[m
   [31m--     Path_String : constant String := Get_String (Nth (Params, 1));[m
   [31m--     Text_Value  : constant GValue := Nth (Params, 2);[m
   [31m--     Iter        : constant Gtk_Tree_Iter :=[m
   [31m--  	Get_Iter_From_String (M, Path_String);[m
      
      
      
   [31m--     Id : Natural := 0;[m
      
   [31m--  begin[m
      
      
   [31m--     Id := Integer'Value[m
   [31m--  	([m
   [31m--  	 (Get_String (M, Get_Iter_From_String [m
   [31m--  			(M, Get_String (Nth (Params, 1))), Text_Column)));      [m
      
   [31m--     Free(CC_Change_Plugin_Record(Plugin.all).Sequencer(Id).Note);[m
   [31m--     CC_Change_Plugin_Record(Plugin.all).Sequencer(Id).Note := new String ' (Get_String (Text_Value));[m
      
   [31m--     Set_value (M, Iter, Type_Column+2, Text_value);[m
   [31m--  end Note_Edited;[m

   [31m------------------[m
   [31m-- Add_Key_Line --[m
   [31m------------------[m
   [01;34mfunction[m Add_Key_Line
     [31m([mModel     [31m:[m [01;34maccess[m Gtk_Tree_Store_Record'Class[31m;[m
      Id        [31m:[m [32mInteger[m[31m;[m
      Cname     [31m:[m [32mString[m[31m;[m
      CC        [31m:[m [32mInteger[m [31m:=[m [35m64[m[31m;[m
      CV        [31m:[m [32mInteger[m [31m:=[m [35m8[m[31m;[m
      Bar       [31m:[m [32mInteger[m [31m:=[m [35m1[m[31m;[m
      Number    [31m:[m [32mInteger[m [31m:=[m [35m1[m[31m;[m
      Step      [31m:[m [32mInteger[m [31m:=[m [35m1[m[31m;[m      
      Played    [31m:[m [32mBoolean[m [31m:=[m True[31m;[m      
      Muttable  [31m:[m [32mBoolean[m [31m:=[m False[31m;[m            
      In_Loop   [31m:[m [32mBoolean[m [31m:=[m False[31m;[m
      Parent    [31m:[m Gtk_Tree_Iter [31m:=[m Null_Iter[31m)[m [01;34mreturn[m Gtk_Tree_Iter
      [01;34mis[m
     Iter [31m:[m Gtk_Tree_Iter[31m;[m
   [01;34mbegin[m
      [31m--Put_Line("Add key 1.0");[m
      [01;30mAppend[m [31m([mModel[31m,[m Iter[31m,[m Parent[31m);[m
      [31m--Put_Line("Add key 1.1");[m
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Text_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mId[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Cname_Column[31m,[m Cname[31m);[m
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m CC_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mCC[31m));[m

      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m CV_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mCV[31m));[m                 
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Bar_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mBar[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Number_Column[31m-[m[35m3[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([mNumber[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Step_Column[31m-[m[35m3[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([mStep[31m));[m
      
      [31m--Set (Model, Iter, Type_Column+2, Note);      [m

      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Muttable_Column[31m,[m Muttable[31m);[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m3[m[31m,[m In_Loop[31m);[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Editable_Column[31m+[m[35m8[m[31m,[m True[31m);[m
      
      [01;34mreturn[m Iter[31m;[m
   [01;34mend[m Add_Key_Line[31m;[m
   
   
   
   [01;34mprocedure[m Bars_Max_Callback
     [31m([mWidget  [31m:[m [01;34maccess[m Gtk_Widget_Record'Class[31m;[m      
      Plugin [31m:[m Abstract_Plugin_Access[31m)[m [01;34mis[m
   [01;34mbegin[m      
      [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mBars_Max [31m:=[m [32mInteger[m[31m([mGtk[31m.[mSpin_Button[31m.[m[01;30mGet_Value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Bars_Max_Callback[31m;[m

   [01;34mpackage[m Plugin_Cb [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[mUser_Callback 
     [31m([mGtk[31m.[mWidget[31m.[mGtk_Widget_Record[31m,[m 
      Abstract_Plugin_Access[31m);[m
   
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Ctrl_Change_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m)[m [01;34mis[m
      
      Scrolled   [31m:[m Gtk_Scrolled_Window[31m;[m            
      
      [31m-- Comon Tree      [m
      Col      [31m:[m Gtk_Tree_View_Column[31m;[m
      Num      [31m:[m Gint[31m;[m
      Text_Render   [31m:[m Gtk_Cell_Renderer_Text[31m;[m
      Toggle_Render [31m:[m Gtk_Cell_Renderer_Toggle[31m;[m
      
      Parent[31m,[m Iter  [31m:[m Gtk_Tree_Iter[31m;[m
      [01;34mpragma[m [01;30mUnreferenced[m [31m([mNum[31m);[m
      [01;34mpragma[m [01;30mWarnings[m [31m([mOff[31m,[m Iter[31m);[m
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      
   [01;34mbegin[m
      
      [01;30mGtk_New[m [31m([mSpec[31m.[mSequencer_Model[31m,[m
	       [31m([mText_column         [31m=>[m GType_String[31m,[m
		Cname_Column         [31m=>[m GType_String[31m,[m
                CC_Column         [31m=>[m GType_String[31m,[m
		CV_Column       [31m=>[m GType_String[31m,[m   
		Bar_Column          [31m=>[m GType_String[31m,[m
		Number_Column[31m-[m[35m3[m     [31m=>[m GType_String[31m,[m
		Step_Column[31m-[m[35m3[m       [31m=>[m GType_String[31m,[m		
		Muttable_Column   [31m=>[m GType_Boolean[31m,[m		
		Loop_Column[31m-[m[35m3[m       [31m=>[m GType_Boolean[31m,[m
		Editable_Column[31m+[m[35m8[m   [31m=>[m GType_Boolean[31m)[m
	      [31m);[m
      
      [31m--Put_Line("Load seq 0.1");[m
      
      [01;30mGtk_New[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Spec[31m.[mSequencer_Model[31m);[m
      [31m--Put_Line("Load seq 0.1.1");[m
      [01;30mSet_Grid_Lines[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Grid_Lines_Vertical[31m);[m
      [31m--Put_Line("Load seq 0.1.2");[m
      [01;30mSet_Enable_Tree_Lines[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m True[31m);[m
      [31m--Put_Line("Load seq 0.1.3");[m
      [01;30mSet_Rubber_Banding[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m True[31m);[m
      [31m--Put_Line("Load seq 0.1.4");[m
      [01;30mSet_Mode[m [31m([m[01;30mGet_Selection[m [31m([mSpec[31m.[mSequencer_Tree[31m),[m Selection_Multiple[31m);[m
      [31m--Put_Line("Load seq 0.1.5");[m
      [01;30mGtk_New[m [31m([mScrolled[31m);[m
      [31m--Put_Line("Load seq 0.1.6");[m
      [01;30mSet_Policy[m [31m([mScrolled[31m,[m Policy_Always[31m,[m Policy_Always[31m);[m
      [31m--Put_Line("Load seq 0.1.7");[m
      [01;30mAdd[m [31m([mScrolled[31m,[m Spec[31m.[mSequencer_Tree[31m);[m            
      [31m--Put_Line("Load seq 0.1.8");[m
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Ctrl change sequencer : "[m[31m);[m      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mBars_Max[31m,[m [35m1.0[m[31m,[m [35m257.0[m[31m,[m [35m1.0[m[31m);[m
      [01;34mif[m Plugin [31m/=[m [01;34mnull[m [01;34mthen[m
	 [01;30mSet_Value[m[31m([mSpec[31m.[mBars_Max[31m,[m [01;30mGdouble[m[31m([m[01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mBars_Max[31m));[m
      [01;34mend[m [01;34mif[m[31m;[m
      [31m--Put_Line("Load seq 0.1.8.2");[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mBars_Max[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mBars_Max_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [31m--Put_Line("Load seq 0.1.8.3");[m
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m false[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mSpec[31m.[mHbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mLabel[31m,[m [31m"Bars max : "[m[31m);[m
      [01;30mPack_Start[m[31m([mSpec[31m.[mHbox[31m,[m Spec[31m.[mLabel[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mSpec[31m.[mHbox[31m,[m Spec[31m.[mBars_Max[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Spec[31m.[mhbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_End[m[31m([mVbox[31m,[m scrolled[31m);[m
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m      
      [31m--Put_Line("Load seq 0.2");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m      
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m cname_Column[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Id"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m True[31m);[m
      [01;30mSet_Sizing[m [31m([mCol[31m,[m Tree_View_Column_Autosize[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m Text_Column[31m);[m      
      [31m--Put_Line("Load seq 0.3");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m cname_Column[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Ctrl name"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m True[31m);[m
      [01;30mSet_Sizing[m [31m([mCol[31m,[m Tree_View_Column_Autosize[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m Cname_Column[31m);[m          
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m name_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Load seq 0.4");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m      
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"CC"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m True[31m);[m
      [01;30mSet_Sizing[m [31m([mCol[31m,[m Tree_View_Column_Autosize[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m CC_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m CC_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Load seq 0.5");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m      
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"CV"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m True[31m);[m
      [01;30mSet_Sizing[m [31m([mCol[31m,[m Tree_View_Column_Autosize[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m CV_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m CV_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      [31m--Put_Line("Load seq 0.6");[m
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m [31m-[m[35m1[m[31m);[m  [31m--  unsortable[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Bar"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m False[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m Bar_Column[31m);[m      
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Bar_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [31m--Put_Line("Load seq 0.7");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m [31m-[m[35m1[m[31m);[m  [31m--  unsortable[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Number"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m False[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m Number_Column[31m-[m[35m3[m[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Number_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [31m--Put_Line("Load seq 0.8");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [31m--Put_Line("Load seq 0.8.1");[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [31m--Put_Line("Load seq 0.8.2");[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m [31m-[m[35m1[m[31m);[m  [31m--  unsortable[m
      [31m--Put_Line("Load seq 0.8.3");[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [31m--Put_Line("Load seq 0.8.4");[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Step"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Text_Render[31m,[m False[31m);[m
      [31m--Put_Line("Load seq 0.8.5");[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"text"[m[31m,[m Step_Column[31m-[m[35m3[m[31m);[m
      [31m--Put_Line("Load seq 0.8.6");[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m8[m[31m);[m
      [31m--Put_Line("Load seq 0.8.7");[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Step_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [31m--  --Put_Line("Load seq 0.9");[m
      [31m--  Gtk_New (Text_Render);[m
      [31m--  Gtk_New (Col);[m
      [31m--  Set_Sort_Column_Id (Col, -1);  --  unsortable[m
      [31m--  Num := Append_Column (Spec.Sequencer_Tree, Col);[m
      [31m--  Set_Title (Col, "Note");[m
      [31m--  Pack_Start (Col, Text_Render, False);[m
      [31m--  Add_Attribute (Col, Text_Render, "text", Editable_Column+9);[m
      [31m--  Add_Attribute (Col, Text_Render, "editable", Editable_Column+9);[m
      [31m--  Plugin_Object_CB.Object_Connect[m
      [31m--    (Text_Render, "edited", Note_Edited'Access,[m
      [31m--  	 Slot_Object => Spec.Sequencer_Model,[m
      [31m--  	 User_Data => Plugin);[m
      [31m--Put_Line("Load seq 0.10");[m
      
      [01;30mGtk_New[m [31m([mToggle_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m [31m-[m[35m1[m[31m);[m  [31m--  unsortable[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Mute"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Toggle_Render[31m,[m False[31m);[m      
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Toggle_Render[31m,[m [31m"active"[m[31m,[m Muttable_Column[31m);[m      
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mToggle_Render[31m,[m [31m"toggled"[m[31m,[m Muted_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [31m--Put_Line("Load seq 0.11");[m
      
      [01;30mGtk_New[m [31m([mToggle_Render[31m);[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [01;30mSet_Sort_Column_Id[m [31m([mCol[31m,[m [31m-[m[35m1[m[31m);[m  [31m--  unsortable[m
      Num [31m:=[m [01;30mAppend_Column[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Col[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"In loop"[m[31m);[m
      [01;30mPack_Start[m [31m([mCol[31m,[m Toggle_Render[31m,[m False[31m);[m      
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Toggle_Render[31m,[m [31m"active"[m[31m,[m Loop_Column[31m-[m[35m3[m[31m);[m      
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mToggle_Render[31m,[m [31m"toggled"[m[31m,[m loop_Edited'[01;34mAccess[m[31m,[m
	 Slot_Object [31m=>[m Spec[31m.[mSequencer_Model[31m,[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Load seq 0.12");[m
      
      
      [31m--Put_Line("Load seq 0.13");[m
      Parent [31m:=[m Null_Iter[31m;[m
      [31m--Put_Line("Load seq 0.14");[m
      [01;34mfor[m Count [01;34min[m [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mSequencer'[01;34mrange[m [01;34mloop[m	 
	 [01;34mdeclare[m
	    Voice [31m:[m [01;34mconstant[m Ctrl_Change_Type [31m:=[m [01;30mCC_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mCount[31m);[m
	 [01;34mbegin[m
	    
	    [31m--Put_Line("Load seq 0.15");[m
	    
	    Iter [31m:=[m Add_Key_Line
	      [31m([mSpec[31m.[mSequencer_Model[31m,[m 
	       Id [31m=>[m count[31m,[m
	       Cname [31m=>[m Voice[31m.[mCtrl_Name[31m.[m[01;34mall[m[31m,[m
	       CC [31m=>[m [32mInteger[m[31m([mVoice[31m.[mCtrl_num[31m),[m
	       CV [31m=>[m [32mInteger[m[31m([mVoice[31m.[mCtrl_val[31m),[m
	       Bar [31m=>[m [32mInteger[m[31m([mVoice[31m.[mBar[31m),[m
	       Number [31m=>[m [32mInteger[m[31m([mVoice[31m.[mNumber[31m),[m
	       Step [31m=>[m [32mInteger[m[31m([mVoice[31m.[mStep[31m),[m 	       
	       Played [31m=>[m Voice[31m.[mPlayed[31m,[m
	       Muttable [31m=>[m [01;34mnot[m Voice[31m.[mPlayed[31m,[m	      	       
	       In_Loop [31m=>[m Voice[31m.[mIn_Loop[31m,[m	       	       
	       Parent [31m=>[m Parent[31m);[m

	    
	    [31m--Put_Line("Load seq 0.16");[m
	 [01;34mend[m[31m;[m
      [01;34mend[m [01;34mloop[m[31m;[m            
      [31m-- End Sequencer View[m
      [31m--Put_Line("Load seq 1.0");[m

      
      
   [01;34mend[m Initialize[31m;[m
   
   
   [31m--  procedure Load_specifications (Page : in out Plugin_Page_Type;[m
   [31m--  				  Plugin : in Abstract_Plugin_Access;[m
   [31m--  				  Id : in Plugin_Num) is[m
   [31m--     --  Scrolled   : Gtk_Scrolled_Window;            [m
      
   [31m--     --  -- Comon Tree      [m
   [31m--     --  Col      : Gtk_Tree_View_Column;[m
   [31m--     --  Num      : Gint;[m
   [31m--     --  Text_Render   : Gtk_Cell_Renderer_Text;[m
   [31m--     --  Toggle_Render : Gtk_Cell_Renderer_Toggle;[m
      
   [31m--     --  Parent, Iter  : Gtk_Tree_Iter;[m
   [31m--     --  pragma Unreferenced (Num);[m
   [31m--     --  pragma Warnings (Off, Iter);[m
      
      
   [31m--     --  Vbox : Gtk_Vbox;[m
      
   [31m--  begin[m
   [31m--     Page.Plugin_Spec := Initialize(Plugin.Class, Plugin, Id);--New CC_Change_Plugin_Specifications;[m
   [31m--  end Load_Specifications;[m
   
[01;34mend[m Libsens[31m.[mGtk_Ctrl_Change[31m;[m
