From 547c121394ad7f7fa2c56518bd2a94686370ee42 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Thu, 3 Apr 2003 17:01:50 +0000 Subject: after adding gtk_text_buffer_place_cursor in gtk2-perl, use it here :) --- perl-install/drakxtools.spec | 7 +++++-- perl-install/ugtk2.pm | 5 ++--- 2 files changed, 7 insertions(+), 5 deletions(-) (limited to 'perl-install') diff --git a/perl-install/drakxtools.spec b/perl-install/drakxtools.spec index e5bb98d94..f30aee4d9 100644 --- a/perl-install/drakxtools.spec +++ b/perl-install/drakxtools.spec @@ -1,14 +1,14 @@ Summary: The drakxtools (XFdrake, diskdrake, keyboarddrake, mousedrake...) Name: drakxtools Version: 9.1 -Release: 29mdk +Release: 30mdk Url: http://www.mandrakelinux.com/en/drakx.php2 Source0: %name-%version.tar.bz2 License: GPL Group: System/Configuration/Other # Temporary requires for tools that still use gtk+1 (mainly drakfloppy and net_monitor) Requires: perl-GTK >= 0.6123, perl-GTK-GdkImlib, perl-GTK-GdkPixbuf -Requires: %{name}-newt = %version-%release, perl-GTK2 >= 0.0.cvs.2003.03.04.1-2mdk, XFree86-100dpi-fonts, XFree86-75dpi-fonts, /usr/X11R6/bin/xtest, font-tools, usermode >= 1.63-5mdk, perl-MDK-Common >= 1.0.4-14mdk +Requires: %{name}-newt = %version-%release, perl-GTK2 >= 0.0.cvs.2003.04.03.1, XFree86-100dpi-fonts, XFree86-75dpi-fonts, /usr/X11R6/bin/xtest, font-tools, usermode >= 1.63-5mdk, perl-MDK-Common >= 1.0.4-14mdk Conflicts: drakconf < 9.1-3mdk BuildRequires: gettext, libgtk+-x11-2.0-devel, ldetect-devel >= 0.4.8, ncurses-devel, newt-devel, perl-devel, libext2fs-devel, perl-MDK-Common-devel BuildRoot: %_tmppath/%name-buildroot @@ -303,6 +303,9 @@ file /etc/sysconfig/harddrake2/previous_hw | fgrep -q perl && %_datadir/harddrak %config(noreplace) %_sysconfdir/logrotate.d/drakxtools-http %changelog +* Thu Apr 3 2003 Guillaume Cottenceau 9.1-30mdk +- ugtk2.pm: fix slight pb with gtktext_insert (#3633) + * Fri Mar 28 2003 Pixel 9.1-29mdk - use ServerFlags DontVTSwitch for i845, i865 and i85x diff --git a/perl-install/ugtk2.pm b/perl-install/ugtk2.pm index 67f9fb774..4882cb95a 100644 --- a/perl-install/ugtk2.pm +++ b/perl-install/ugtk2.pm @@ -557,10 +557,9 @@ sub gtktext_insert { } else { $buffer->set_text($t, -1); } - #- the following lines are needed to move the cursor mark to the beginning, so that if the + #- the following line is needed to move the cursor to the beginning, so that if the #- textview has a scrollbar, it won't scroll to the bottom when focusing (#3633) - $buffer->move_mark_by_name('selection_bound', my $beg = $buffer->get_start_iter); $beg->free; - $buffer->move_mark_by_name('insert', my $end = $buffer->get_start_iter); $end->free; + $buffer->place_cursor(my $iter = $buffer->get_start_iter); $iter->free; $textview->set_wrap_mode($opts->{wrap_mode} || 'word'); $textview->set_editable($opts->{editable} || 0); $textview->set_cursor_visible($opts->{visible} || 0); -- cgit v1.2.1