diff --git a/BootRoot/YardBox.pm b/BootRoot/YardBox.pm index 56d313d..8ce4b93 100644 --- a/BootRoot/YardBox.pm +++ b/BootRoot/YardBox.pm @@ -45,6 +45,7 @@ my $search_window; my $Shortcuts; my @entry; my $file_dialog; +my $blue; # for search #my $filesystem_type = "ext2"; #my $inode_size = 8192; @@ -961,7 +962,8 @@ sub yard_box { #_______________________________________ # Create the GtkText widget $text = new Gtk::Text( undef, undef ); -##Gtk::Text->signal_connect_after("key-press-event" => \&Gtk::false); + ##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(); @@ -1196,15 +1198,41 @@ sub search { if ($search_backwards->active) { } + + # index else { 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) + + } } else { $offset = $offset + 1; $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->get_chars($offset, $length); + print "$offset && $length\n"; + + } } + print "$offset\n" if $offset; }