| Subject: | Please add visible and invisible cursor option |
Please, add curvis and curinvis functions
See the attached patch
Thank you very much
| Subject: | libterm_screen_add_cursor_visibility.patch |
--- /usr/share/perl5/Term/Screen.pm.orig 2012-03-18 19:31:04.000000000 +0100
+++ /usr/share/perl5/Term/Screen.pm 2012-03-18 19:37:44.000000000 +0100
@@ -284,6 +284,32 @@
return $this;
}
+=item curvis()
+
+The vs value from termcap - make cursor very visible
+
+=cut
+
+sub curvis
+{
+ my $this = shift;
+ $this->term()->Tputs( 'vs', 1, *STDOUT );
+ return $this;
+}
+
+=item curinvis()
+
+The vi value from termcap - make cursor invisible
+
+=cut
+sub curinvis
+{
+ my $this = shift;
+ $this->term()->Tputs( 'vi', 1, *STDOUT );
+ return $this;
+}
+
+
=item clrscr()
Clear the screen and home cursor