bike/gbootroot
1
0
Fork 0
mirror of https://github.com/fspc/gbootroot.git synced 2025-04-04 07:43:22 -04:00
Code Issues Projects Releases Wiki Activity

Search is getting there.

Browse Source
This commit is contained in:
freesource 2001-08-28 03:02:07 +00:00
parent f147d66954
commit e1834f63b1
1 changed files with 44 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

68
BootRoot/YardBox.pm
View File

@ -45,7 +45,6 @@ my $search_window;
my $Shortcuts;
my @entry;
my $file_dialog;
my $blue; # for search
#my $filesystem_type = "ext2";
#my $inode_size = 8192;
@ -962,8 +961,6 @@ sub yard_box {
#_______________________________________
# Create the GtkText widget
$text = new Gtk::Text( undef, undef );
##Gtk::Text->signal_connect_after("key-press-event" => \&Gtk::false);
$blue = Gtk::Gdk::Color->parse_color("blue");
$text->set_editable($true);
$text->signal_connect("activate", sub {
my $new_length = $text->get_length();
@ -1189,14 +1186,41 @@ sub search {
$submit_b->signal_connect( "clicked", sub {
my $keywords = $search1->get_text();
# There may be numbers, ofcourse.
if ($keywords && $keywords ne $old_keywords) {
undef $offset;
}
# rindex
if ($search_backwards->active) {
if (!$offset) {
$offset = rindex($changed_text_from_template, $keywords);
if ($offset != -1) {
my $length = length($keywords);
$text->set_position($offset);
$text->get_chars($offset, $length);
$length = $length + $offset;
$text->select_region($offset, $length);
#print "$offset && $length\n";
}
else {
}
}
else {
$offset = $offset - 1;
$offset = rindex($changed_text_from_template, $keywords,
$offset);
if ($offset != -1) {
my $length = length($keywords);
$text->set_position($offset);
$text->get_chars($offset, $length);
$length = $length + $offset;
$text->select_region($offset,$length);
#print "$offset && $length\n";
}
else {
}
}
}
# index
@ -1204,15 +1228,13 @@ sub search {
if (!$offset) {
$offset = index($changed_text_from_template, $keywords);
if ($offset != -1) {
$text->set_point($offset);
my $length = length($keywords);
$text->forward_delete( $length );
$text->insert( undef, $blue, undef, $keywords );
$length = $length + ($offset - 1);
my $stuff = $text->get_chars($offset, $length);
print "$offset && $length\n";
#Gtk::Widget::drag_begin(widget, targets, actions, button, event)
$text->set_position($offset);
$text->get_chars($offset, $length);
$length = $length + $offset;
$text->select_region($offset, $length);
}
else {
}
}
@ -1221,20 +1243,18 @@ sub search {
$offset = index($changed_text_from_template, $keywords,
$offset);
if ($offset != -1) {
$text->set_point($offset);
my $length = length($keywords);
$text->forward_delete( $length );
$text->insert( undef, $blue, undef, $keywords );
$length = $length + ($offset - 1);
$text->set_position($offset);
$text->get_chars($offset, $length);
print "$offset && $length\n";
$length = $length + $offset;
$text->select_region($offset,$length);
}
else {
}
}
print "$offset\n" if $offset;
}
$old_keywords = $keywords;