
[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 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.[mScrolled_Window[31m;[m               [01;34muse[m Gtk[31m.[mScrolled_Window[31m;[m

[01;34mwith[m PragmARC[31m.[mREM_NN_Wrapper[31m;[m           [01;34muse[m PragmARC[31m.[mREM_NN_Wrapper[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_Arpegiator [01;34mis[m
   
   [31m--------------------[m
   [31m-- step sequencer --[m
   [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;30mSet_Last_step[m[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;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mLast_step [31m:=[m [01;30mPositive[m[31m([m[01;30mGet_value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
       
    [01;34mend[m Set_Last_step[31m;[m

    [01;34mprocedure[m [01;30mSet_Transpose[m[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;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mTranspose [31m:=[m C[31m.[m[01;30mlong[m[31m([m[01;30mGet_value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m       
    [01;34mend[m Set_Transpose[31m;[m        
    
    [01;34mprocedure[m Reuse_Mono_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;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse [31m:=[m [32mBoolean[m'[01;30mVal[m[31m([mGtk[31m.[mCombo_Box_text[31m.[m[01;30mGet_Active[m[31m([m[01;30mGtk_Combo_Box_text[m[31m([mWidget[31m)));[m
   [01;34mexception[m
      [01;34mwhen[m [01;34mothers[m [31m=>[m
	 [01;34mnull[m[31m;[m
   [01;34mend[m Reuse_Mono_Callback[31m;[m

   
      
   [01;34mprocedure[m Converged_Mono_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;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged [31m:=[m [01;30mreal[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 Converged_Mono_Callback[31m;[m
   
   [01;34mprocedure[m Max_Epoch_Mono_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;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch [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 Max_Epoch_Mono_Callback[31m;[m


   
   
   [01;34mprocedure[m Init_intel
     [31m([mIntelligence [31m:[m [01;34mout[m Intelligence_Access[31m;[m
      Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      
      
      Hbox [31m:[m Gtk_Hbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Vbox [31m:[m Gtk_Vbox[31m;[m
   [01;34mbegin[m
      Intelligence [31m:=[m [01;34mnew[m GTK_Intelligence[31m;[m
      [31m--Put_Line("intel ::= 0.0.0");[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mMain_Vbox[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mMain_Hbox[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mparameters[31m);[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mChord_Hbox[31m);[m
      [31m--Put_Line("intel ::= 0.0.1");[m
      [01;34mfor[m I [01;34min[m [01;30mArp_Seq_Plugin_Record[m[31m([mplugin[31m.[m[01;34mall[m[31m).[mchord'[01;34mRange[m [01;34mloop[m
	 
	 
	 [31m--Put_Line("intel ::= 0.0.2");[m
	 Gtk_Arpegiator[31m.[m[01;30mInitialize[m[31m([mIntelligence[31m.[m[01;30mchord[m[31m([mI[31m),[m [01;30mArp_Seq_Plugin_Record[m[31m([mplugin[31m.[m[01;34mall[m[31m).[m[01;30mStart_Chord[m[31m([mI[31m),[m Plugin[31m);[m
	 [31m----Put_Line("intel ::= 0.0.3");[m
	 [01;30mPack_Start[m[31m([mIntelligence[31m.[mChord_Hbox[31m,[m Intelligence[31m.[m[01;30mChord[m[31m([mI[31m).[mNote_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
	 
	 [31m--Put_Line("intel ::= 0.0.4");[m
         
      [01;34mend[m [01;34mloop[m[31m;[m
      
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mKey_Label[31m,[m [31m"Key"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mSens_Label[31m,[m [31m"Sens"[m[31m);[m

      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mLabel_Vbox[31m);[m
      [31m--Put_Line("intel ::= 0.0.5");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mLabel_Vbox[31m,[m Intelligence[31m.[mKey_Label[31m,[m False[31m,[m False[31m,[m [35m5[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mLabel_Vbox[31m,[m Intelligence[31m.[mSens_Label[31m,[m False[31m,[m False[31m,[m [35m5[m[31m);[m

      [31m--Put_Line("intel ::= 0.0.6");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mLabel_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mChord_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mparameters[31m,[m False[31m,[m False[31m,[m [35m15[m[31m);[m

      [31m--Put_Line("intel ::= 0.0.7");[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mLast_Label[31m,[m [31m"Last step :"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m [35m1.0[m[31m,[m [35m32.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m [01;30mGdouble[m[31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mLast_Step[31m));[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mTranspose_Label[31m,[m [31m"Transpose :"[m[31m);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m [35m0.0[m[31m,[m [35m24.0[m[31m,[m [35m1.0[m[31m);[m
      
      
      
      
      
      
      
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m [01;30mGdouble[m[31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mtranspose[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mIntelligence[31m.[mStepseq_Hbox[31m);[m
      [01;34mfor[m I [01;34min[m Intelligence[31m.[mStep_Table'[01;34mRange[m [01;34mloop[m
	 
	 
	 Gtk_Arpegiator[31m.[m[01;30mInit_step[m[31m([mIntelligence[31m.[m[01;30mStep_Table[m[31m([mI[31m),[m [01;30mArp_Seq_Plugin_Record[m[31m([mplugin[31m.[m[01;34mall[m[31m).[m[01;30mStep_Table[m[31m([mI[31m),[m [32mInteger[m'[01;30mImage[m[31m([mI[31m),[m plugin[31m);[m
	 [01;30mPack_Start[m[31m([mIntelligence[31m.[mStepseq_Hbox[31m,[m Intelligence[31m.[m[01;30mStep_Table[m[31m([mI[31m).[mStep_Vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

      [01;34mend[m [01;34mloop[m[31m;[m
      [31m--Put_Line("intel ::= 0.0.8");[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mFilename_Gentry[31m);[m
      [31m--Gtk_New_From_stock(Intelligence.File_Selection_button, Stock_open);[m
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mFilename_Label[31m,[m [31m"Network filename : "[m [31m&[m [01;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mNetwork[31m.[m[01;34mall[m[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mStep_Parameters[31m);[m
      [01;30mGtk_New_Vbox[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m);[m
      [31m--Put_Line("intel ::= 0.0.9");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mLast_label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mLast_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mTranspose_Label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mStep_Parameters[31m,[m Intelligence[31m.[mTranspose_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [31m--Put_Line("intel ::= 0.0.10");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m,[m Intelligence[31m.[mFilename_Label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m);[m
      
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mReuse[31m);[m
      [01;30mInsert_Text[m[31m([mIntelligence[31m.[mReuse[31m,[m [35m0[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mFalse[31m));[m
      [01;30mInsert_Text[m[31m([mIntelligence[31m.[mReuse[31m,[m [35m1[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mTrue[31m));[m                  
      [01;30mSet_Active[m[31m([mIntelligence[31m.[mReuse[31m,[m [32mBoolean[m'[01;30mPos[m[31m([m[01;30mArp_seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mReuse[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Reuse network   : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Intelligence[31m.[mReuse[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      Plugin_Cb[31m.[mConnect
        [31m([mIntelligence[31m.[mReuse[31m,[m [31m"changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mReuse_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mConverged[31m,[m [35m0.0001[m[31m,[m [35m1.0[m[31m,[m [35m0.0001[m[31m);[m
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mConverged[31m,[m [01;30mGdouble[m[31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mConverged[31m));[m
           
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Converged       :"[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Intelligence[31m.[mConverged[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mIntelligence[31m.[mConverged[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mConverged_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      
      [01;30mGtk_New[m[31m([mIntelligence[31m.[mMax_Epoch[31m,[m [35m1.0[m[31m,[m [35m65537.0[m[31m,[m [35m128.0[m[31m);[m
      [01;30mSet_Value[m[31m([mIntelligence[31m.[mMax_Epoch[31m,[m [01;30mGdouble[m[31m([m[01;30mArp_Seq_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Epoch[31m));[m

      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Max epoch       : "[m[31m);[m      
      [01;30mPack_Start[m[31m([mHbox[31m,[m Label[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mHbox[31m,[m Intelligence[31m.[mMax_epoch[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      [01;30mPack_Start[m[31m([mVbox[31m,[m Hbox[31m,[m False[31m,[m False[31m,[m [35m2[m[31m);[m
      
      
      Plugin_Cb[31m.[mConnect
        [31m([mIntelligence[31m.[mMax_Epoch[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Epoch_Mono_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      
      
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mNetwork_Parameters[31m,[m vbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      
      
      [31m--Pack_Start(Intelligence.Network_Parameters, Intelligence.Filename_gentry, False, False, 0);[m
      [31m--Pack_Start(Intelligence.Network_Parameters, Intelligence.File_Selection_button, False, False, 10);[m
      [31m--Put_Line("intel ::= 0.0.11");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mStep_Parameters[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Hbox[31m,[m Intelligence[31m.[mNetwork_Parameters[31m,[m False[31m,[m False[31m,[m [35m15[m[31m);[m
      [31m--Put_Line("intel ::= 0.0.12");[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Vbox[31m,[m Intelligence[31m.[mMain_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [01;30mPack_Start[m[31m([mIntelligence[31m.[mMain_Vbox[31m,[m Intelligence[31m.[mStepseq_Hbox[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
      [31m--Put_Line("intel ::= 0.0.13");[m
      Plugin_Cb[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[mLast_Spin_Button[31m,[m
                                    [31m"value_changed"[m[31m,[m
                                    Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mSet_Last_Step'[01;34maccess[m[31m),[m
                                    plugin[31m);[m

      Plugin_Cb[31m.[m[01;30mConnect[m[31m([mIntelligence[31m.[mTranspose_Spin_Button[31m,[m
                                    [31m"value_changed"[m[31m,[m
                                    Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mSet_Transpose'[01;34maccess[m[31m),[m
                                    plugin[31m);[m

      [31m--  Plugin_Cb.Connect(Intelligence.File_Selection_Button,[m
      [31m--                                "clicked",[m
      [31m--                                Plugin_Cb.To_Marshaller(Set_filename'access),[m
      [31m--                                Intelligence);[m



      
   [01;34mend[m Init_intel[31m;[m

   
   [01;34mprocedure[m [01;30mSet_To_Active[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m step [31m:[m Virtual[31m.[mArp_Sequencer[31m.[mStep_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      step[31m.[mSet [31m:=[m [01;30mGet_active[m[31m([m[01;30mGtk_Check_Button[m[31m([mWidget[31m));[m
   [01;34mend[m Set_To_Active[31m;[m
   
   [01;34mprocedure[m [01;30mSet_Key[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Step [31m:[m Common[31m.[mNote_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Step[31m.[mkey [31m:=[m C[31m.[m[01;30mLong[m[31m([m[01;30mGet_value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mwidget[31m)));[m
   [01;34mend[m Set_Key[31m;[m

   [01;34mprocedure[m [01;30mSet_Sens[m[31m([mWidget [31m:[m [01;34maccess[m Gtk_Widget_Record'class[31m;[m Step [31m:[m Common[31m.[mNote_Access[31m)[m [01;34mis[m
   [01;34mbegin[m
      Step[31m.[mvel [31m:=[m C[31m.[m[01;30mLong[m[31m([m[01;30mGet_value[m[31m([m[01;30mGtk_Spin_Button[m[31m([mWidget[31m)));[m
   [01;34mend[m Set_Sens[31m;[m


   [01;34mpackage[m Step_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Widget_Record[31m,[m Virtual[31m.[mArp_Sequencer[31m.[mStep_Access[31m);[m
   
   [01;34mpackage[m note_Handlers [01;34mis[m [01;34mnew[m Gtk[31m.[mHandlers[31m.[m[01;30mUser_Callback[m[31m([mGtk_Widget_Record[31m,[m Common[31m.[mNote_Access[31m);[m


   [01;34mprocedure[m Initialize
     [31m([mNote [31m:[m [01;34min[m [01;34mout[m Gtk_Note_Access[31m;[m
      The_note [31m:[m [01;34min[m Common[31m.[mNote_Access[31m;[m
      Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m)[m [01;34mis[m
      [01;34mbegin[m
	 
         note [31m:=[m [01;34mnew[m Gtk_Note[31m;[m
         [01;30mGtk_New[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m [35m0.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
         [01;30mSet_Value[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m [01;30mGdouble[m[31m([mThe_Note[31m.[mkey[31m));[m
         [01;30mGtk_New[m[31m([mNote[31m.[mSens_Spin_Button[31m,[m [35m0.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
         [01;30mSet_Value[m[31m([mNote[31m.[msens_Spin_Button[31m,[m [01;30mGdouble[m[31m([mThe_Note[31m.[mVel[31m));[m
	 
	 [01;30mGtk_New_Vbox[m[31m([mNote[31m.[mNote_Vbox[31m,[m False[31m,[m [35m0[m[31m);[m
	 
         [01;30mPack_Start[m[31m([mNote[31m.[mNote_Vbox[31m,[m Note[31m.[mKey_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m
         [01;30mPack_Start[m[31m([mNote[31m.[mNote_Vbox[31m,[m Note[31m.[mSens_Spin_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

         

	 
         note_Handlers[31m.[m[01;30mConnect[m[31m([mNote[31m.[mKey_Spin_Button[31m,[m
                               [31m"value_changed"[m[31m,[m
                               note_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_key'[01;34maccess[m[31m),[m
			       The_Note[31m);[m

         note_Handlers[31m.[m[01;30mConnect[m[31m([mNote[31m.[msens_Spin_Button[31m,[m
                               [31m"value_changed"[m[31m,[m
                               note_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_sens'[01;34maccess[m[31m),[m
                               The_Note[31m);[m
	 
   [01;34mend[m Initialize[31m;[m


   
    
 
    [01;34mprocedure[m Init_step
      [31m([mStep [31m:[m [01;34min[m [01;34mout[m Gtk_Step_Access[31m;[m
       The_Step [31m:[m [01;34min[m Virtual[31m.[mArp_Sequencer[31m.[mStep_Access[31m;[m
       Label [31m:[m [01;34min[m [32mString[m[31m;[m
       Plugin [31m:[m [01;34min[m Abstract_Plugin_Access[31m)[m [01;34mis[m
    [01;34mbegin[m

       Step [31m:=[m [01;34mnew[m Gtk_Step[31m;[m
       [01;30mGtk_New_Vbox[m[31m([mStep[31m.[mStep_Vbox[31m);[m
       [01;30mGtk_New[m[31m([mStep[31m.[mStep_Label[31m,[m Label[31m);[m
       [01;30mGtk_New[m[31m([mStep[31m.[mSet_Check_Button[31m);[m
       [01;30mSet_Active[m[31m([mStep[31m.[mSet_Check_Button[31m,[m The_Step[31m.[mset[31m);[m

       [01;30mPack_Start[m[31m([mStep[31m.[mStep_Vbox[31m,[m Step[31m.[mStep_label[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

       [01;30mPack_Start[m[31m([mStep[31m.[mStep_Vbox[31m,[m Step[31m.[mSet_check_Button[31m,[m False[31m,[m False[31m,[m [35m0[m[31m);[m

       Step_Handlers[31m.[m[01;30mConnect[m[31m([mStep[31m.[mSet_Check_Button[31m,[m
                             [31m"toggled"[m[31m,[m
                             Step_handlers[31m.[m[01;30mTo_Marshaller[m[31m([mSet_To_Active'[01;34maccess[m[31m),[m
                             The_Step[31m);[m

    [01;34mend[m Init_step[31m;[m


   
   
   
    [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Arpegiator_Specifications[31m;[m
			  Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
       
       Scrolled   [31m:[m Gtk_Scrolled_Window[31m;[m      
   [01;34mbegin[m
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Arpegiator : "[m[31m);[m
      [31m--Put_Line("initializing intel spec...");[m
      [01;30mInit_intel[m[31m([mSpec[31m.[mIntel[31m,[m Plugin[31m);[m
      [31m--Put_Line("Intel spec initialized.");[m
      [01;30mGtk_New[m[31m([mScrolled[31m);[m
      [31m--Put_Line("new scroll");[m
      [01;30mAdd_With_Viewport[m[31m([mScrolled[31m,[m Spec[31m.[mIntel[31m.[mMain_Vbox[31m);[m
      [31m--Put_Line("add vbox to scrolled");[m
      [01;30mAdd[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m scrolled[31m);[m
      [31m--Put_Line("add scrolled to frame");[m
      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
   
   
   
   
[01;34mend[m Libsens[31m.[mGtk_Arpegiator[31m;[m
