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

This enhances the search box, so it remembers and highlights the last search

Browse Source 
text entered.
This commit is contained in:
freesource 2001-08-28 04:39:20 +00:00
parent a43ab55b66
commit 5a51b1f26c
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
BootRoot/YardBox.pm
View File

@ -45,6 +45,7 @@ my $search_window;
my $Shortcuts;
my @entry;
my $file_dialog;
my $search_text;
#my $filesystem_type = "ext2";
#my $inode_size = 8192;
@ -1140,7 +1141,10 @@ sub search {
# Search keywords
label("Search:",0,1,0,1,$table_search);
my $search1 = entry(1,3,0,1,0,$table_search);
$search1->set_text(""); # if defined $search;
$search1->signal_connect("changed", sub {
$search_text = $search1->get_text(); });
$search1->set_text($search_text) if defined $search_text;
$search1->select_region(0,length($search1->get_text));
#_______________________________________
@ -1151,8 +1155,6 @@ sub search {
['shrink','fill','expand'],['fill','shrink'],0,0);
$case_sensitive->show();
#$case_sensitive->signal_connect("clicked", \&which_stage, "check");
#_______________________________________
# Search Backwards
@ -1567,7 +1569,12 @@ Selection Shortcuts
Searching Shortcuts
Alt-S
Alt-S Search Template
File Shortcuts
Ctrl-S Save File
Alt-A Save As File
SHORTCUTS
sub path {