
[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 Gmface[31m.[mGm_Common[31m;[m                   [01;34muse[m Gmface[31m.[mGm_Common[31m;[m
[01;34mwith[m Gmface[31m.[mGm_MIDI[31m.[mMessages[31m;[m           [01;34muse[m Gmface[31m.[mGm_MIDI[31m.[mMessages[31m;[m
[01;34mwith[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mPrgm_change[31m;[m
[01;34muse[m Gmface[31m.[mGm_Virtual[31m.[mGmface[31m.[mPrgm_change[31m;[m


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



[01;34mpackage[m [01;34mbody[m Gmface[31m.[mGm_Application[31m.[mGtk_Prgm_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[35m1[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;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mplayed [31m:=[m [01;34mnot[m [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mPlayed[31m;[m      
      [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Muttable_Column[31m+[m[35m1[m[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[35m2[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;30mPrgm_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 [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mIn_Loop[31m;[m
      [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m2[m[31m,[m [01;34mnot[m Old_Value[31m);[m
   [01;34mend[m Loop_Edited[31m;[m
   

   
   [01;34mprocedure[m [01;30mMSB_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;34mif[m C[31m.[m[01;30mLong[m[31m([mValue[31m)[m [01;34min[m Value_Type [01;34mthen[m
	    [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mMSB_select [31m:=[m [01;30mValue_type[m[31m([mValue[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
      
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m MSB_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 MSB_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mLSB_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;34mif[m C[31m.[m[01;30mLong[m[31m([mValue[31m)[m [01;34min[m Value_Type [01;34mthen[m
	    [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mLSB_Select [31m:=[m [01;30mvalue_Type[m[31m([mValue[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m LSB_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 LSB_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mPrgm_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;34mif[m C[31m.[m[01;30mLong[m[31m([mValue[31m)[m [01;34min[m Value_Type [01;34mthen[m
	    [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mPrgm_Num [31m:=[m [01;30mvalue_Type[m[31m([mValue[31m);[m
	 [01;34mend[m [01;34mif[m[31m;[m
	 
   	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Prgm_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 Prgm_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;30mPrgm_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;30mPrgm_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;30mPrgm_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
   
   [01;34mprocedure[m [01;30mNote_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;30mFree[m[31m([m[01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mNote[31m);[m
      [01;30mPrgm_Change_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mNote [31m:=[m [01;34mnew[m [32mString[m ' [31m([m[01;30mGet_String[m [31m([mText_Value[31m));[m
      
      [01;30mSet_value[m [31m([mM[31m,[m Iter[31m,[m Type_Column[31m+[m[35m2[m[31m,[m Text_value[31m);[m
   [01;34mend[m Note_Edited[31m;[m
   
   

   [31m------------------[m
   [31m-- Add_Name_Line --[m
   [31m------------------[m
   [01;34mfunction[m Add_Prgm_Line
     [31m([mModel     [31m:[m [01;34maccess[m Gtk_Tree_Store_Record'Class[31m;[m
      Id        [31m:[m [32mInteger[m[31m;[m      
      MSB       [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      LSB       [31m:[m [32mInteger[m [31m:=[m [35m0[m[31m;[m
      Prgm      [31m:[m [32mInteger[m [31m:=[m [35m0[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
      Note      [31m:[m [32mString[m [31m:=[m [31m""[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 MSB_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mMSB[31m));[m
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m LSB_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mLSB[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Prgm_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mprgm[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
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Type_Column[31m+[m[35m2[m[31m,[m Note[31m);[m      

      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Muttable_Column[31m+[m[35m1[m[31m,[m Muttable[31m);[m
            
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m2[m[31m,[m In_Loop[31m);[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Editable_Column[31m+[m[35m9[m[31m,[m True[31m);[m
      
      [01;34mreturn[m Iter[31m;[m
   [01;34mend[m Add_Prgm_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;30mPrgm_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 Prgm_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
		MSB_Column          [31m=>[m GType_String[31m,[m
                LSB_Column          [31m=>[m GType_String[31m,[m
		Prgm_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
		Type_Column[31m+[m[35m2[m       [31m=>[m GType_String[31m,[m		
		Muttable_Column[31m+[m[35m1[m   [31m=>[m GType_Boolean[31m,[m		
		Loop_Column[31m-[m[35m2[m       [31m=>[m GType_Boolean[31m,[m
		Editable_Column[31m+[m[35m9[m   [31m=>[m GType_Boolean[31m)[m		
	      [31m);[m
      
      [31m--Put_Line("load Prgm_change 0.1");[m
      
      [01;30mGtk_New[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m Spec[31m.[mSequencer_Model[31m);[m
      [31m--Put_Line("load Prgm_change 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 Prgm_change 0.1.2");[m
      [01;30mSet_Enable_Tree_Lines[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m True[31m);[m
      [31m--Put_Line("load Prgm_change 0.1.3");[m
      [01;30mSet_Rubber_Banding[m [31m([mSpec[31m.[mSequencer_Tree[31m,[m True[31m);[m
      [31m--Put_Line("load Prgm_change 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 Prgm_change 0.1.5");[m
      [01;30mGtk_New[m [31m([mScrolled[31m);[m
      [31m--Put_Line("load Prgm_change 0.1.6");[m
      [01;30mSet_Policy[m [31m([mScrolled[31m,[m Policy_Always[31m,[m Policy_Always[31m);[m
      [31m--Put_Line("load Prgm_change 0.1.7");[m
      [01;30mAdd[m [31m([mScrolled[31m,[m Spec[31m.[mSequencer_Tree[31m);[m            
      [31m--Put_Line("load Prgm_change 0.1.8");[m
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Prgm change sequencer : "[m[31m);[m      
      [31m--Put_Line("load Prgm_change 0.1.8.1");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mBars_Max[31m,[m [35m1.0[m[31m,[m [35m4096.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;30mPrgm_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 Prgm_change 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 Prgm_change 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 Prgm_change 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 Id_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 Prgm_change 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 MSB_Column[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"MSB"[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 MSB_Column[31m);[m          
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m9[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m MSB_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 Prgm_change 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"LSB"[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 LSB_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m9[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m LSB_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 Prgm_change 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"Prgm"[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 Prgm_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m9[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Prgm_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 Prgm_change 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[35m9[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 Prgm_change 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[35m9[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 Prgm_change 0.8");[m
      
      [01;30mGtk_New[m [31m([mText_Render[31m);[m
      [31m--Put_Line("load Prgm_change 0.8.1");[m
      [01;30mGtk_New[m [31m([mCol[31m);[m
      [31m--Put_Line("load Prgm_change 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 Prgm_change 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 Prgm_change 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 Prgm_change 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 Prgm_change 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[35m9[m[31m);[m
      [31m--Put_Line("load Prgm_change 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 Prgm_change 0.9");[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"Note"[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 Type_Column[31m+[m[35m2[m[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m9[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Note_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 Prgm_change 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[35m1[m[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 Prgm_change 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[35m2[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 Prgm_change 0.12");[m
      
      
      [31m--Put_Line("load Prgm_change 0.13");[m
      Parent [31m:=[m Null_Iter[31m;[m
      [31m--Put_Line("load Prgm_change 0.14");[m
      [01;34mfor[m Count [01;34min[m [01;30mPrgm_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 Prgm_Change_Type [31m:=[m [01;30mPrgm_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 Prgm_change 0.15");[m
	    
	    Iter [31m:=[m Add_Prgm_Line
	      [31m([mSpec[31m.[mSequencer_Model[31m,[m 
	       Id [31m=>[m count[31m,[m
	       MSB [31m=>[m [32mInteger[m[31m([mVoice[31m.[mMSB_select[31m),[m
	       LSB [31m=>[m [32mInteger[m[31m([mVoice[31m.[mLSB_select[31m),[m
	       Prgm [31m=>[m [32mInteger[m[31m([mVoice[31m.[mPrgm_num[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 
	       Note [31m=>[m Voice[31m.[mNote[31m.[m[01;34mall[m[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 Prgm_change 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 Prgm_change 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 Prgm_Change_Plugin_Specifications;[m
   [31m--  end Load_Specifications;[m
   
[01;34mend[m Gmface[31m.[mGm_Application[31m.[mGtk_Prgm_Change[31m;[m
