diff options
Diffstat (limited to 'perl-install/unused')
| -rw-r--r-- | perl-install/unused/.cvsignore | 1 | ||||
| -rw-r--r-- | perl-install/unused/cdrom.pm | 2 | ||||
| -rwxr-xr-x[-rw-r--r--] | perl-install/unused/migrate-ugtk2-to-mygtk2.pl | 9 |
3 files changed, 8 insertions, 4 deletions
diff --git a/perl-install/unused/.cvsignore b/perl-install/unused/.cvsignore deleted file mode 100644 index 72e8ffc0d..000000000 --- a/perl-install/unused/.cvsignore +++ /dev/null @@ -1 +0,0 @@ -* diff --git a/perl-install/unused/cdrom.pm b/perl-install/unused/cdrom.pm index 040ac7e98..e77c97a9f 100644 --- a/perl-install/unused/cdrom.pm +++ b/perl-install/unused/cdrom.pm @@ -1,4 +1,4 @@ -package cdrom; # $Id$ +package cdrom; # $Id: cdrom.pm 193259 2000-09-14 12:58:40Z prigaux $ use diagnostics; use strict; diff --git a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl index 8528eaac2..ccd0faaee 100644..100755 --- a/perl-install/unused/migrate-ugtk2-to-mygtk2.pl +++ b/perl-install/unused/migrate-ugtk2-to-mygtk2.pl @@ -2,7 +2,7 @@ use MDK::Common; BEGIN { @ARGV or warn(<<EOF), exit 1; -usage: unused/migrate-ugtk2-to-mygtk2.pl -pi <file.pm> +usage: $0 -pi <file.pm> - an emacs is launched with a script fixing the closing "children => [ ...", simply save the file and exit this emacs @@ -174,6 +174,10 @@ sub dorepl_new { if ($class_ eq 'TextView' || !$class) { $s = "$pre, text => "; } + } elsif ($f eq 'gtkset_text') { + if ($class_ eq 'Entry' || !$class) { + $s = "$pre, text => "; + } } if (!$s) { @@ -217,7 +221,8 @@ END { if (defined $^I) { foreach (@args) { warn "$_: closing children using emacs\n"; - system('emacs', '-q', '-l', 'unused/migrate-ugtk2-to-mygtk2.el', $_, '-f', 'my-close-children') + (my $el = $0) =~ s/\.pl$/.el/ or die ".el missing"; + system('emacs', '-q', '-l', $el, $_, '-f', 'my-close-children') } } } |