The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Package Forms::Tools

Utility functions for Dnav bar

widgets_set_sensitivity( $array_ref $value )

call the set_sensitive( $value ) methods on all the widget received in @$array_ref

populate_widgets ( $widget, $array_ref, $id )

Cheks that $widget is a Gtk2::Container and populate @$array_ref with all its descendant having an id different from $id and that are sensible - get_sensitive returns true -

This array can then be used with widgets_set_sensitivity to change the sensitivity in one go

getID ( $widget )

Returns the $widget Id or an empty string if none is found