summaryrefslogtreecommitdiffstats
path: root/perl-install/ugtk2.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-12-13 15:56:00 +0000
commit4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25 (patch)
treea12104a3a9468cc42b83634feb5e6a2e72003532 /perl-install/ugtk2.pm
parentf298cec9f7d4bb4dc1972cc737007b6da86d4cb0 (diff)
downloaddrakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.gz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.bz2
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.tar.xz
drakx-4b9d142bd37dcdc94b7bcdbdb3f7109d7a915e25.zip
better english (writing style rather than spoken one)
Diffstat (limited to 'perl-install/ugtk2.pm')
-rw-r--r--perl-install/ugtk2.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm
index efecc112d..d5e8ce449 100644
--- a/perl-install/ugtk2.pm
+++ b/perl-install/ugtk2.pm
@@ -374,7 +374,7 @@ sub _create_dialog {
$options->{transient_for} = delete $options->{transient} if $options->{transient};
my $dialog = gtknew('Dialog', title => $title,
- position_policy => 'center-on-parent', # center-on-parent doesn't work
+ position_policy => 'center-on-parent', # center-on-parent does not work
modal => 1,
%$options,
);
@@ -756,7 +756,7 @@ sub get_text_coord {
$width += $w;
}
}
- #- if wrap_char was at the end, don't forget it, for cases when bold/nonbold text follows
+ #- if wrap_char was at the end, do not forget it, for cases when bold/nonbold text follows
$text =~ /$wrap_char$/ and $current_text .= $wrap_char;
$add_line->();
@@ -790,7 +790,7 @@ sub wrap_paragraph {
my $currentx;
foreach (@elements) {
my ($text, %options) = @$_;
- #- hack :( if ' ' is at the beginning, don't forget it, substitute
+ #- hack :( if ' ' is at the beginning, do not forget it, substitute
#- with an unbreakable space because gtk allocates too much space otherwise
$text =~ /^ (.*)/ and $text = " $1";
my @newlines = get_text_coord($text, $widget4style, $max_width, $currentx, $ydec);
@@ -854,7 +854,7 @@ sub new {
$o->{wm_icon} ||= $wm_icon || $::Wizard_pix_up || "wiz_default_up.png";
$o->{pop_it} ||= $pop_it || !$o->{isWizard} && !$o->{isEmbedded} || $::WizardTable && do {
- #- don't take into account the DrawingArea
+ #- do not take into account the DrawingArea
any { !$_->isa('Gtk2::DrawingArea') && $_->visible } $::WizardTable->get_children;
};
@@ -991,7 +991,7 @@ sub _create_window {
if ($::isInstall && $::o->{mouse}{unsafe}) {
$w->add_events('pointer-motion-mask');
- my $signal; #- don't make this line part of next one, signal_disconnect won't be able to access $signal value
+ my $signal; #- do not make this line part of next one, signal_disconnect will not be able to access $signal value
$signal = $w->signal_connect(motion_notify_event => sub {
delete $::o->{mouse}{unsafe};
log::l("unsetting unsafe mouse");
@@ -1377,7 +1377,7 @@ sub ask_browse_tree_info_given_widgets {
}
0;
});
- $w->{tree}->signal_connect(button_press_event => sub { #- not too good, but CellRendererPixbuf doesn't have the needed signals :(
+ $w->{tree}->signal_connect(button_press_event => sub { #- not too good, but CellRendererPixbuf does not have the needed signals :(
my ($path, $column) = $w->{tree}->get_path_at_pos($_[1]->x, $_[1]->y);
if ($path && $column) {
$column->{is_pix} and $mouse_toggle_pending = $w->{tree_model}->get($w->{tree_model}->get_iter($path), 0);
@@ -1404,7 +1404,7 @@ sub gtk_TextView_get_log {
my ($log_w, $log_scroll, $command, $filter_output, $when_command_is_over) = @_;
my $pid = open(my $F, "$command |") or return;
- fcntl($F, c::F_SETFL(), c::O_NONBLOCK()) or die "can't fcntl F_SETFL: $!";
+ fcntl($F, c::F_SETFL(), c::O_NONBLOCK()) or die "can not fcntl F_SETFL: $!";
my $gtk_buffer = $log_w->get_buffer;
$log_w->signal_connect(destroy => sub {
@@ -1425,7 +1425,7 @@ sub gtk_TextView_get_log {
$log_w->scroll_to_iter($end, 0, 0, 0, 0) if $want_scroll_down;
}
if (waitpid($pid, c::WNOHANG()) > 0) {
- #- we do not call $when_command_is_over if $gtk_buffer doesn't exist anymore
+ #- we do not call $when_command_is_over if $gtk_buffer does not exist anymore
#- since it is not a normal case
$when_command_is_over->($gtk_buffer) if $when_command_is_over && $gtk_buffer;
$pid = '';