projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
fb0e0b5
)
make it scroll correctly, finally...
author
minima
<minima>
Thu, 20 Jul 2006 23:00:14 +0000
(23:00 +0000)
committer
minima
<minima>
Thu, 20 Jul 2006 23:00:14 +0000
(23:00 +0000)
gtkconsole/gtkconsole
patch
|
blob
|
history
diff --git
a/gtkconsole/gtkconsole
b/gtkconsole/gtkconsole
index cfa771b0b39f7a8d6e17e78051d1dda812e7a270..d4b6fd736510305994ab633cf637eb61dace6bc7 100755
(executable)
--- a/
gtkconsole/gtkconsole
+++ b/
gtkconsole/gtkconsole
@@
-194,6
+194,7
@@
my $dxlist = Gtk2::SimpleList->new(
'TxTime' => 'tt',
);
$dxlist->set_rules_hint(1);
'TxTime' => 'tt',
);
$dxlist->set_rules_hint(1);
+$dxlist->get_model->signal_connect('row-changed', \&row_inserted, $dxlist);
my $dxscroll = Gtk2::ScrolledWindow->new (undef, undef);
$dxscroll->set_shadow_type ('etched-out');
$dxscroll->set_policy ('never', 'automatic');
my $dxscroll = Gtk2::ScrolledWindow->new (undef, undef);
$dxscroll->set_shadow_type ('etched-out');
$dxscroll->set_policy ('never', 'automatic');
@@
-215,6
+216,8
@@
$cmdscroll->set_policy ('automatic', 'automatic');
#$cmdscroll->set_size_request (700, 400);
$cmdscroll->add($cmdlist);
$cmdscroll->set_border_width(5);
#$cmdscroll->set_size_request (700, 400);
$cmdscroll->add($cmdlist);
$cmdscroll->set_border_width(5);
+$cmdlist->get_model->signal_connect('row-changed', \&row_inserted, $cmdlist);
+
$lhvbox->pack_start($cmdscroll, 1, 1, 0);
$lhvbox->pack_start($cmdscroll, 1, 1, 0);
@@
-249,6
+252,7
@@
my $annlist = Gtk2::SimpleList->new(
Announcement => 'ttlesslong',
);
$annlist->set_rules_hint(1);
Announcement => 'ttlesslong',
);
$annlist->set_rules_hint(1);
+$annlist->get_model->signal_connect('row-changed', \&row_inserted, $annlist);
my $annscroll = Gtk2::ScrolledWindow->new (undef, undef);
$annscroll->set_shadow_type ('etched-out');
$annscroll->set_policy ('automatic', 'automatic');
my $annscroll = Gtk2::ScrolledWindow->new (undef, undef);
$annscroll->set_shadow_type ('etched-out');
$annscroll->set_policy ('automatic', 'automatic');
@@
-270,6
+274,7
@@
my $wwvlist = Gtk2::SimpleList->new(
Hour => 'tt'
);
$wwvlist->set_rules_hint(1);
Hour => 'tt'
);
$wwvlist->set_rules_hint(1);
+$wwvlist->get_model->signal_connect('row-changed', \&row_inserted, $wwvlist);
my $wwvscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wwvscroll->set_shadow_type ('etched-out');
$wwvscroll->set_policy ('never', 'automatic');
my $wwvscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wwvscroll->set_shadow_type ('etched-out');
$wwvscroll->set_policy ('never', 'automatic');
@@
-293,6
+298,7
@@
my $wcylist = Gtk2::SimpleList->new(
Hour => 'tt'
);
$wcylist->set_rules_hint(1);
Hour => 'tt'
);
$wcylist->set_rules_hint(1);
+$wcylist->get_model->signal_connect('row-changed', \&row_inserted, $wcylist);
my $wcyscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wcyscroll->set_shadow_type ('etched-out');
$wcyscroll->set_policy ('never', 'automatic');
my $wcyscroll = Gtk2::ScrolledWindow->new (undef, undef);
$wcyscroll->set_shadow_type ('etched-out');
$wcyscroll->set_policy ('never', 'automatic');
@@
-468,6
+474,21
@@
sub handle_wwv
push @{$wwvlist->{data}}, [tim(), @$ref[6,2,3,4,5,1] ];
}
push @{$wwvlist->{data}}, [tim(), @$ref[6,2,3,4,5,1] ];
}
+
+sub row_inserted
+{
+ my ($list, $path, $iter, $tree) = @_;
+# print $list->get_string_from_iter, "\n";
+ $tree->scroll_to_cell($path, undef, 0, 0, 0);
+}
+
+sub row_activated
+{
+ my ($tree, $path, $col) = @_;
+ print "row activated\n";
+ $tree->scroll_to_cell($path, undef, 0, 0, 0);
+}
+
#
# subroutine
#
#
# subroutine
#