
[01;34mwith[m Glib[31m;[m                              [01;34muse[m Glib[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.[mBox[31m;[m                           [01;34muse[m Gtk[31m.[mBox[31m;[m
[01;34mwith[m Gtk[31m.[mLabel[31m;[m                         [01;34muse[m Gtk[31m.[mLabel[31m;[m

[01;34mwith[m Libsens[31m.[mVirtual[31m.[mGen_plugin[31m;[m        [01;34muse[m Libsens[31m.[mVirtual[31m.[mGen_Plugin[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_Genetical [01;34mis[m
   
   [31m----------------------[m
   [31m-- genetical plugin --[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 Max_B_Inf_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf [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_B_Inf_Bass_Callback[31m;[m
   
   [01;34mprocedure[m Max_B_Sup_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup [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_B_Sup_Bass_Callback[31m;[m
   
   
   [01;34mprocedure[m Min_Class_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id [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 Min_Class_Id_Bass_Callback[31m;[m
   
   [01;34mprocedure[m Max_Class_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id [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_Class_Id_Bass_Callback[31m;[m

   
   [01;34mprocedure[m Min_Value_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id [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 Min_Value_Id_Bass_Callback[31m;[m
   
   [01;34mprocedure[m Max_Value_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id [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_Value_Id_Bass_Callback[31m;[m
   
   [01;34mprocedure[m Min_Data_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id [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 Min_Data_Id_Bass_Callback[31m;[m
   
   [01;34mprocedure[m Max_Data_Id_Bass_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;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id [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_Data_Id_Bass_Callback[31m;[m

   
            
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Genetical_Bass_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m
            
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Genetical bass : "[m[31m);[m      
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      
      [01;30mPut_Line[m[31m([m[31m"Genetical bass :  0.0.0"[m[31m);[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m);[m
      [31m--Put_Line("Genetical bass :  0.1.0");[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf[31m));[m
      [31m--Put_Line("Genetical bass :  0.2.0");[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m      
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_inf  (has constant 1 : "[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 Spec[31m.[mConfig[31m.[mMax_B_Inf[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
      [31m--Put_Line("Genetical bass :  0.0.1");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMax_B_Inf[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_inf_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.2");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [35m1.0[m[31m,[m [35m4.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_Sup (has max element)  : "[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 Spec[31m.[mConfig[31m.[mMax_B_Sup[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
      [31m--Put_Line("Genetical bass :  0.0.3");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMax_B_Sup[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_Sup_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.4");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [35m5.0[m[31m,[m [35m63.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min class id (has key type)  : "[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 Spec[31m.[mConfig[31m.[mMin_Class_Id[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
      [31m--Put_Line("Genetical bass :  0.0.5");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMin_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Class_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.6");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [35m24.0[m[31m,[m [35m65.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max class id (has key type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Class_Id[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
      [31m--Put_Line("Genetical bass :  0.0.7");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMax_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Class_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.8");[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [35m25.0[m[31m,[m [35m65.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Value id  (has sens type) : "[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 Spec[31m.[mConfig[31m.[mMin_Value_Id[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
      [31m--Put_Line("Genetical bass :  0.0.9");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMin_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Value_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.10");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [35m29.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Value id (has sens type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Value_Id[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
      [31m--Put_Line("Genetical bass :  0.0.11");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMax_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Value_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [35m2.0[m[31m,[m [35m64.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Data id (has length type  : "[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 Spec[31m.[mConfig[31m.[mMin_Data_Id[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
      [31m--Put_Line("Genetical bass :  0.0.12");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMin_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Data_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.13");[m
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [35m6.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Bass_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Data id (has length type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Data_Id[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
      [31m--Put_Line("Genetical bass :  0.0.14");[m
      Plugin_Cb[31m.[mConnect
        [31m([mSpec[31m.[mconfig[31m.[mMax_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Data_Id_Bass_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      [31m--Put_Line("Genetical bass :  0.0.15");[m
      
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m
      
      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
   
   [01;34mprocedure[m Max_B_Inf_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf [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_B_Inf_Synth_Callback[31m;[m
   
   [01;34mprocedure[m Max_B_Sup_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup [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_B_Sup_Synth_Callback[31m;[m
   
   
   [01;34mprocedure[m Min_Class_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id [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 Min_Class_Id_Synth_Callback[31m;[m
   
   [01;34mprocedure[m Max_Class_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id [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_Class_Id_Synth_Callback[31m;[m

   
   [01;34mprocedure[m Min_Value_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id [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 Min_Value_Id_Synth_Callback[31m;[m
   
   [01;34mprocedure[m Max_Value_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id [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_Value_Id_Synth_Callback[31m;[m
   
   [01;34mprocedure[m Min_Data_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id [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 Min_Data_Id_Synth_Callback[31m;[m
   
   [01;34mprocedure[m Max_Data_Id_Synth_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;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id [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_Data_Id_Synth_Callback[31m;[m

   
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Genetical_Synth_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m
      
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Genetical synth : "[m[31m);[m      
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_inf (has constant 1  : "[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 Spec[31m.[mConfig[31m.[mMax_B_Inf[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([mSpec[31m.[mconfig[31m.[mMax_B_Inf[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_inf_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [35m1.0[m[31m,[m [35m4.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_Sup (has max element)  : "[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 Spec[31m.[mConfig[31m.[mMax_B_Sup[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([mSpec[31m.[mconfig[31m.[mMax_B_Sup[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_Sup_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [35m5.0[m[31m,[m [35m65.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min class id  (has key type) : "[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 Spec[31m.[mConfig[31m.[mMin_Class_Id[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([mSpec[31m.[mconfig[31m.[mMin_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Class_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [35m24.0[m[31m,[m [35m49.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max class id  (has key type) : "[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 Spec[31m.[mConfig[31m.[mMax_Class_Id[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([mSpec[31m.[mconfig[31m.[mMax_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Class_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [35m25.0[m[31m,[m [35m65.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Value id (has sens type)  : "[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 Spec[31m.[mConfig[31m.[mMin_Value_Id[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([mSpec[31m.[mconfig[31m.[mMin_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Value_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [35m25.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Value id (has sens type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Value_Id[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([mSpec[31m.[mconfig[31m.[mMax_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Value_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [35m2.0[m[31m,[m [35m64.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Data id (has length type)  : "[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 Spec[31m.[mConfig[31m.[mMin_Data_Id[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([mSpec[31m.[mconfig[31m.[mMin_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Data_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [35m4.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Synth_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Data id (has length type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Data_Id[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([mSpec[31m.[mconfig[31m.[mMax_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Data_Id_Synth_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m
      
      
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
   
   
   [01;34mprocedure[m Max_B_Inf_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf [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_B_Inf_Drums_Callback[31m;[m
   
   [01;34mprocedure[m Max_B_Sup_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup [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_B_Sup_Drums_Callback[31m;[m
   
   
   [01;34mprocedure[m Min_Class_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id [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 Min_Class_Id_Drums_Callback[31m;[m
   
   [01;34mprocedure[m Max_Class_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id [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_Class_Id_Drums_Callback[31m;[m

   
   [01;34mprocedure[m Min_Value_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id [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 Min_Value_Id_Drums_Callback[31m;[m
   
   [01;34mprocedure[m Max_Value_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id [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_Value_Id_Drums_Callback[31m;[m
   
   [01;34mprocedure[m Min_Data_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id [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 Min_Data_Id_Drums_Callback[31m;[m
   
   [01;34mprocedure[m Max_Data_Id_Drums_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;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id [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_Data_Id_Drums_Callback[31m;[m

   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Genetical_Drums_Specifications[31m;[m
     			 Plugin [31m:[m [01;34min[m Abstract_Plugin_access[31m)[m [01;34mis[m
      
      
      Vbox [31m:[m Gtk_Vbox[31m;[m
      Label [31m:[m Gtk_Label[31m;[m
      Hbox [31m:[m Gtk_Hbox[31m;[m
   [01;34mbegin[m                  
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mSpecifications_Frame[31m,[m [31m"Genetical Drums : "[m[31m);[m      
      
      [01;30mGtk_New_Vbox[m[31m([mVbox[31m,[m Homogeneous [31m=>[m False[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_inf[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Inf[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_inf (has constant 1  : "[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 Spec[31m.[mConfig[31m.[mMax_B_Inf[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([mSpec[31m.[mconfig[31m.[mMax_B_Inf[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_inf_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [35m1.0[m[31m,[m [35m4.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_B_Sup[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_B_Sup[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame b_Sup (has max element)  : "[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 Spec[31m.[mConfig[31m.[mMax_B_Sup[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([mSpec[31m.[mconfig[31m.[mMax_B_Sup[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_B_Sup_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [35m5.0[m[31m,[m [35m24.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min class id  (has key type) : "[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 Spec[31m.[mConfig[31m.[mMin_Class_Id[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([mSpec[31m.[mconfig[31m.[mMin_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Class_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [35m25.0[m[31m,[m [35m49.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Class_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Class_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max class id  (has key type) : "[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 Spec[31m.[mConfig[31m.[mMax_Class_Id[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([mSpec[31m.[mconfig[31m.[mMax_Class_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Class_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [35m5.0[m[31m,[m [35m25.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Value id (has sens type)  : "[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 Spec[31m.[mConfig[31m.[mMin_Value_Id[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([mSpec[31m.[mconfig[31m.[mMin_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Value_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [35m25.0[m[31m,[m [35m127.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Value_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Value_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Value id (has sens type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Value_Id[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([mSpec[31m.[mconfig[31m.[mMax_Value_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Value_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [35m2.0[m[31m,[m [35m24.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMin_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMin_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame min Data id (has length type)  : "[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 Spec[31m.[mConfig[31m.[mMin_Data_Id[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([mSpec[31m.[mconfig[31m.[mMin_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMin_Data_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mGtk_New[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [35m28.0[m[31m,[m [35m65.0[m[31m,[m [35m1.0[m[31m);[m
      [01;30mSet_Value[m[31m([mSpec[31m.[mConfig[31m.[mMax_Data_Id[31m,[m [01;30mGdouble[m[31m([m[01;30mGen_Drums_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mMax_Data_Id[31m));[m
      [01;30mGtk_New_Hbox[m[31m([mHbox[31m);[m
      [01;30mGtk_New[m[31m([mLabel[31m,[m [31m"Frame max Data id (has length type)  : "[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 Spec[31m.[mConfig[31m.[mMax_Data_Id[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([mSpec[31m.[mconfig[31m.[mMax_Data_Id[31m,[m [31m"value_changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mMax_Data_Id_Drums_Callback'[01;34mAccess[m[31m),[m
	 User_Data [31m=>[m Plugin[31m);[m
      
      [01;30mAdd[m [31m([mSpec[31m.[mSpecifications_Frame[31m,[m Vbox[31m);[m
      [31m--Put_Line("Load seq 0.1.8.1");[m
      
   [01;34mend[m Initialize[31m;[m
      
[01;34mend[m Libsens[31m.[mGtk_Genetical[31m;[m
