Oops - committed with debugging instrumentation which would confuse scripts!
This commit is contained in:
parent
a7673b42d2
commit
15c5b0f48e
@ -5,14 +5,14 @@
|
|||||||
# by Mike Newman <mikegtn@gnome.org>
|
# by Mike Newman <mikegtn@gnome.org>
|
||||||
#
|
#
|
||||||
# This is all, of course, horrible - but it should translate
|
# This is all, of course, horrible - but it should translate
|
||||||
# most commond gdialog types to zenity equivalents. It will drop
|
# most commond gdialog types to zenity equivalents. It will mostly drop
|
||||||
# the pointless and unused (even by gdialog!) size arguments
|
# the pointless and unused (even by gdialog!) size arguments
|
||||||
# but hopefully will pass all the others.
|
# but hopefully will translate all the others.
|
||||||
#
|
#
|
||||||
# For testing purposes, I've used a couple of the nautilus scripts
|
# For testing purposes, I've used a couple of the nautilus scripts
|
||||||
# available at http://g-scripts.sourceforge.net - what is sometimes
|
# available at http://g-scripts.sourceforge.net - what is sometimes
|
||||||
# unclear is what is a gdialog/zenity translation problem, and what is
|
# unclear is what is a gdialog/zenity translation problem, and what is
|
||||||
# a problem with the script
|
# a problem with the original script
|
||||||
|
|
||||||
my $command = "zenity "; # the command line we build up to execute
|
my $command = "zenity "; # the command line we build up to execute
|
||||||
my $element = ""; # current bit of command line
|
my $element = ""; # current bit of command line
|
||||||
@ -28,8 +28,6 @@ sub get_arg () {
|
|||||||
|
|
||||||
# walk the command line
|
# walk the command line
|
||||||
|
|
||||||
print $args;
|
|
||||||
|
|
||||||
ARG: while ($argn < $args) {
|
ARG: while ($argn < $args) {
|
||||||
|
|
||||||
get_arg;
|
get_arg;
|
||||||
|
Reference in New Issue
Block a user