
[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.[mCommon[31m;[m                    [01;34muse[m Libsens[31m.[mCommon[31m;[m
[01;34mwith[m Libsens[31m.[mVirtual[31m.[mStep_Sequencer[31m;[m    [01;34muse[m Libsens[31m.[mVirtual[31m.[mStep_Sequencer[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_Step_Sequencer [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;30mStep_Seq_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;30mStep_Seq_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[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;30mStep_Seq_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;30mStep_Seq_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[35m1[m[31m,[m [01;34mnot[m Old_Value[31m);[m
   [01;34mend[m Loop_Edited[31m;[m
   

   
   [01;34mprocedure[m [01;30mKey_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;30mStep_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mKey [31m:=[m [01;30mKey_Type[m[31m([mValue[31m);[m
      
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Keys_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 Key_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mSens_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;30mStep_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mSens [31m:=[m [01;30mSens_Type[m[31m([mValue[31m);[m
	 
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Sens_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 Sens_Edited[31m;[m
   
   [01;34mprocedure[m [01;30mLength_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;30mStep_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mLength [31m:=[m [01;30mLength_Type[m[31m([mValue[31m);[m
	 
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Length_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 Length_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;30mStep_Seq_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;30mStep_Seq_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;30mStep_Seq_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;30mStep_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mNote[31m);[m
      [01;30mStep_Seq_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
   
   [01;34mprocedure[m [01;30mOctave_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 Octave_num [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  Octave_num'[01;30mValue[m[31m([m[01;30mGet_String[m[31m([mText_Value[31m));[m
	 
	 [01;30mStep_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[m[01;30mSequencer[m[31m([mId[31m).[mOctave [31m:=[m Value[31m;[m
	 [01;30mSet[m [31m([mM[31m,[m Iter[31m,[m Transpose_Column[31m-[m[35m1[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([m[32mInteger[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 Octave_Edited[31m;[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
      Keys      [31m:[m [32mInteger[m [31m:=[m [35m64[m[31m;[m
      Sens      [31m:[m [32mInteger[m [31m:=[m [35m64[m[31m;[m
      Length    [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
      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      
      Transpose [31m:[m [32mInteger[m [31m:=[m [35m0[m[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 Keys_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mKeys[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Sens_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mSens[31m));[m

      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Length_Column[31m,[m [32mInteger[m'[01;30mImage[m[31m([mLength[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 Transpose_Column[31m-[m[35m1[m[31m,[m [32mInteger[m'[01;30mImage[m[31m([mTranspose[31m));[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Loop_Column[31m-[m[35m1[m[31m,[m In_Loop[31m);[m
      
      [01;30mSet[m [31m([mModel[31m,[m Iter[31m,[m Editable_Column[31m+[m[35m10[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;30mStep_Seq_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 Step_Seq_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
		keys_Column         [31m=>[m GType_String[31m,[m
                Sens_Column         [31m=>[m GType_String[31m,[m
		Length_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
		Transpose_Column[31m-[m[35m1[m  [31m=>[m GType_String[31m,[m
		Loop_Column[31m-[m[35m1[m       [31m=>[m GType_Boolean[31m,[m
		Editable_Column[31m+[m[35m10[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"Step 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 [35m65537.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;30mStep_Seq_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 Keys_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 Keys_Column[31m);[m
      [01;30mSet_Title[m [31m([mCol[31m,[m [31m"Key"[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 Keys_Column[31m);[m          
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m10[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Key_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"Sens"[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 Sens_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m10[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Sens_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"Length"[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 Length_Column[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m10[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Length_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[35m10[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[35m10[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[35m10[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
      [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[35m10[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 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[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 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[35m1[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
      
      [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"Oct"[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 Transpose_Column[31m-[m[35m1[m[31m);[m
      [01;30mAdd_Attribute[m [31m([mCol[31m,[m Text_Render[31m,[m [31m"editable"[m[31m,[m Editable_Column[31m+[m[35m10[m[31m);[m
      Plugin_Object_CB[31m.[mObject_Connect
        [31m([mText_Render[31m,[m [31m"edited"[m[31m,[m Octave_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.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;30mStep_Seq_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 Voice_Type [31m:=[m [01;30mStep_Seq_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
	       Keys [31m=>[m [32mInteger[m[31m([mVoice[31m.[mKey[31m),[m
	       Sens [31m=>[m [32mInteger[m[31m([mVoice[31m.[mSens[31m),[m
	       Length [31m=>[m [32mInteger[m[31m([mVoice[31m.[mLength[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	      
	       Transpose [31m=>[m [32mInteger[m[31m([mVoice[31m.[mOctave[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 Step_Seq_Specifications;[m
   [31m--  end Load_Specifications;[m
   
[01;34mend[m Libsens[31m.[mGtk_Step_Sequencer[31m;[m
