How to set a Gtk::Adjustment?

[ws <ws bluewin ch>]

Hi,
Is there a better idea to set a Gtk::Adjustment then edit the
Glade-generated ApplicUI.pm file and the use of a global value
($::modDbSeqAnaAdj=...) ?
See snipped:

#Part of applicUI.pm (THIS FILE WILL BE OVERWRITTEN BY THE NEXT RUN OF
Glade::PerlGenerate):
                       # Construct a GtkHScale 'newDbSeqAnaScale'
     $::modDbSeqAnaAdj=$work->{'newDbSeqAnaScale-adj'} = new
Gtk::Adjustment(3, 1, 8, 1, 0, 0 );
                       $widgets->{'newDbSeqAnaScale'} = new
Gtk::HScale($work->{'newDbSeqAnaScale-adj'} );

#Application sets a new value:
     $::modDbSeqAnaAdj->set_value(8);


Regards,
              Wolfgang