

[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.[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.[mNl_Network[31m;[m        [01;34muse[m Libsens[31m.[mVirtual[31m.[mNL_Network[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_Modulator [01;34mis[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 Reuse_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;30mNl_Network_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mGen_Reuse [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_Callback[31m;[m
   


   
   
   [01;34mprocedure[m [01;30mInitialize[m [31m([mSpec [31m:[m [01;34min[m [01;34mout[m Modulator_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"Modulator : "[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.[mReuse[31m);[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mReuse[31m,[m [35m0[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mFalse[31m));[m
      [01;30mInsert_Text[m[31m([mSpec[31m.[mReuse[31m,[m [35m1[m[31m,[m [32mBoolean[m'[01;30mImage[m[31m([mTrue[31m));[m                  
      [01;30mSet_Active[m[31m([mSpec[31m.[mReuse[31m,[m [32mBoolean[m'[01;30mPos[m[31m([m[01;30mNl_Network_Plugin_Record[m[31m([mPlugin[31m.[m[01;34mall[m[31m).[mGen_Reuse[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 Spec[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([mSpec[31m.[mReuse[31m,[m [31m"changed"[m[31m,[m Plugin_Cb[31m.[m[01;30mTo_Marshaller[m[31m([mReuse_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_Modulator[31m;[m
   
