summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-03-05 10:35:13 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-03-05 10:35:13 +0000
commitf1b52f2ea149d2d1dc85d575c8d5900591f012be (patch)
treefd3120d658f17242208c0891dfbab815c638de51 /perl-install
parent497dd09956b76b8e1d8b400e12283559540669f2 (diff)
downloaddrakx-f1b52f2ea149d2d1dc85d575c8d5900591f012be.tar
drakx-f1b52f2ea149d2d1dc85d575c8d5900591f012be.tar.gz
drakx-f1b52f2ea149d2d1dc85d575c8d5900591f012be.tar.bz2
drakx-f1b52f2ea149d2d1dc85d575c8d5900591f012be.tar.xz
drakx-f1b52f2ea149d2d1dc85d575c8d5900591f012be.zip
restore old search behavior like we did before gtk+-2 port:
- empty log buffer on search startup - freeze buffer while searching - do not realize ourselves the window, it's done by next statement - set initial text to '' so that editable property is disabled once the textview is realized
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/logdrake10
1 files changed, 4 insertions, 6 deletions
diff --git a/perl-install/standalone/logdrake b/perl-install/standalone/logdrake
index f1fa4cba9..1506b6f7f 100755
--- a/perl-install/standalone/logdrake
+++ b/perl-install/standalone/logdrake
@@ -143,7 +143,7 @@ my %files = (
);
my $yy = gtkset_sensitive(gtksignal_connect(new Gtk2::Button(N("search")) , clicked => \&search),0);
-my $log_text = new Gtk2::TextView;
+my $log_text = gtktext_insert(Gtk2::TextView->new, [ [ '' ] ]);
my $log_buf = $log_text->get_buffer();
my $refcount_search;
@@ -207,7 +207,6 @@ gtkadd($my_win->{window},
$::isFile && !$::isEmbedded and gtkset_size_request($log_text, 400, 500);
-$my_win->{window}->realize;
$my_win->{window}->show_all();
search() if $::isFile;
$my_win->main;
@@ -218,9 +217,8 @@ sub quit { ugtk2->exit(0) }
# search functions
#-------------------------------------------------------------
sub search {
-# gtk_text_buffer_delete();
-#BUG $log_text->backward_delete($log_text->get_length()); #BUG
-#BUG $log_text->freeze();
+ $log_text->window->freeze_updates();
+ $log_buf->set_text('', -1);
if ($::isFile) {
parse_file($::File);
} else {
@@ -228,7 +226,7 @@ sub search {
parse_file($files{$_}{file}) if $toggle{$_}->active;
}
}
-#BUG $log_text->thaw();
+ $log_text->window->thaw_updates();
$log_text->show();
gtkflush();
}