diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 16:32:22 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2005-02-09 16:32:22 +0000 |
| commit | 719a268b70274f200cc245dd5d2515fbc1cc0e67 (patch) | |
| tree | ebb91eda2421639b2c405923c0499026992d34ec /perl-install | |
| parent | 23da00868903cc5d9d19517e4e0d1d3430e799d9 (diff) | |
| download | drakx-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar drakx-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.gz drakx-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.bz2 drakx-719a268b70274f200cc245dd5d2515fbc1cc0e67.tar.xz drakx-719a268b70274f200cc245dd5d2515fbc1cc0e67.zip | |
Add the possibility to call a callback just after widget initialisation in
ask_browse_tree_info_given_widgets().
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/ugtk2.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 4cb39422d..e91ed0eb5 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -1249,6 +1249,7 @@ sub ask_browse_tree_info_given_widgets { &$update_size; $common->{initial_selection} and $common->{toggle_nodes}($set_leaf_state, @{$common->{initial_selection}}); my $_b = before_leaving { $clear_all_caches->() }; + $common->{init_callback}->() if $common->{init_callback}; $w->{w}->main; } |