commit 3131c97a9a94b2e13e02d2a08664a7965790c08f
Author: Dousig <thierry.vignaud@gmail.com>
Date:   Thu Aug 30 15:50:11 2012 +0200

    clean obsolete help functions

diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 17102b1..1dd2094 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -22,7 +22,6 @@ use modules;
 use install::gtk;
 use install::any;
 use mouse;
-use install::help::help;
 use log;
 
 #-######################################################################################
@@ -186,19 +185,6 @@ sub charsetChanged {
 }
 
 
-sub interactive_help_has_id {
-    my ($_o, $id) = @_;
-    exists $install::help::help::{$id};
-}
-
-sub interactive_help_get_id {
-    my ($_o, @l) = @_;
-    @l = map { 
-	join("\n\n", map { s/\n/ /mg; $_ } split("\n\n", translate($install::help::help::{$_}->())));
-    } grep { exists $install::help::help::{$_} } @l;
-    join("\n\n\n", @l);
-}
-
 #-######################################################################################
 #- Steps Functions
 #-######################################################################################
diff --git a/perl-install/interactive.pm b/perl-install/interactive.pm
index 2a17f5c..03fff05 100644
--- a/perl-install/interactive.pm
+++ b/perl-install/interactive.pm
@@ -643,14 +643,8 @@ sub helper_separator_tree_to_tree {
 
 sub interactive_help_sub_get_id {
     my ($o, $id) = @_;
-    eval { $o->is_help_file_exist($id) }
-      && sub { $o->interactive_help_get_id($id) };
+    eval { $o->is_help_file_exist($id) };
 }
 
-sub interactive_help_sub_display_id {
-    my ($o, $id) = @_;
-    eval { $o->interactive_help_has_id($id) }
-      && sub { $o->ask_warn(N("Help"), $o->interactive_help_get_id($id)) };
-}
 
 1;