Login or Register to Ask a Question and Join Our Community

Sponsored Content
Full Discussion: Perl - start search by using search button or by pressing the enter key
Top Forums Shell Programming and Scripting Perl - start search by using search button or by pressing the enter key Post 302840723 by popeye on Tuesday 6th of August 2013 11:04:54 AM
Old 08-06-2013
Ok I got side tracked.

I am trying to solve two problems.

The first
When the program starts, I want to have the cursor already placed in the text entry box. Right now I have to click in that box, then enter data.

The second

The user should be able to enter data then hit the return key to execute the search
or
enter data and press the search key to execute the search.




Code:
#!C:\Perl64\bin\perl.exe
require Tk;
use Tk;
use strict;

my $text456;

my $main = MainWindow->new();
$main->configure(-title => 'Popeyes Cheap Windows Program',
                 -background => 'blue');


#build separator
my $lin=$main->Frame(-borderwidth=> 8)->pack(-side=>'top');
my $stat=$lin->Label (-width=>40, -height=>0)->pack();
$stat->configure(-text=>"Popeyes Cheap Window Program");


#Build label and text box
$main->Label(
       -text => "Enter sumtin below:"
    )->pack();
 $main->Entry(
        -textvariable => \$text456,-width=>7, -borderwidth=>6, -relief=>'sunken'
    )->pack();


#Setup Search button/execute input check and search. 
$main->Button(
        -text => "Search",
        -command =>
          sub {
           errchk ($text456);
           dosearch ($text456);
           }#end sub   
     )->pack();


Thanks in advance for the help !!
 

10 More Discussions You Might Find Interesting

1. Post Here to Contact Site Administrators and Moderators

Make the SEARCH button REALLY BIG

Neo, Maybe it would be best to make the search button/option more visible? I know when I came here the first time, I didn't really notice that option. Just an idea. It appears that some people either don't see it.. or the obvious, don't want to use it, but I'd suggest that it's more of the... (8 Replies)
Discussion started by: ober5861
8 Replies

2. UNIX for Dummies Questions & Answers

Pressing backspace key simulates enter key

Hi, Whenever i press the backspace key, a new line appears, i.e. it works like a enter key. :confused: Thanks (2 Replies)
Discussion started by: vibhor_agarwali
2 Replies

3. Shell Programming and Scripting

Perl: Search for string on line then search and replace text

Hi All, I have a file that I need to be able to find a pattern match on a line, search that line for a text pattern, and replace that text. An example of 4 lines in my file is: 1. MatchText_randomNumberOfText moreData ReplaceMe moreData 2. MatchText_randomNumberOfText moreData moreData... (4 Replies)
Discussion started by: Crypto
4 Replies

4. Shell Programming and Scripting

Pressing Enter (bash)

Hey, I'm writing this BASH script, I recently started learning BASH after I did Java and I'm pretty new to the syntax. Anways, what I want to do is simple, I coudn't find the right information though: Let's say I make a : read -p "Press ENTER to go back to menu" choice ..... What is... (34 Replies)
Discussion started by: Yakuzan
34 Replies

5. Shell Programming and Scripting

Pressing "Enter/Space bar" using Net::TELNET? in Perl

I'm trying to learn how to get my script to execute the enter button when it telnets into a router and the router displays output but you need to press the space bar or enter button to continue displaying my output of the router. How is this done? (0 Replies)
Discussion started by: xmaverick
0 Replies

6. Shell Programming and Scripting

enter key or carriage return as input in perl

hi experts Question in perl i'm creating a script to take from user a different inputs one of them is the carriage return .. so that i want to make an if condition if the user hit enter key the user will go to previous step it something like that chomp ($input = <STDIN>); if ($input =~... (3 Replies)
Discussion started by: doubando
3 Replies

7. Shell Programming and Scripting

Pressing enter and script still goes on

i have a bash shell script and i press enter and the script still continues on? how do i stop this (3 Replies)
Discussion started by: gangsta
3 Replies

8. Shell Programming and Scripting

Want to write a command that keeps pressing enter key in regular interval

Hi, I m new to linux, can you pls help me to write a command/ script that keeps pressing the enter key in regular interval. Thx, Linux1 (2 Replies)
Discussion started by: mylinux1
2 Replies

9. Shell Programming and Scripting

Perl - use search keywords from array and search a file and print 3rd field when matched

Hi , I have been trying to write a perl script to do this job. But i am not able to achieve the desired result. Below is my code. my $current_value=12345; my @users=("bob","ben","tom","harry"); open DBLIST,"<","/var/tmp/DBinfo"; my @input = <DBLIST>; foreach (@users) { my... (11 Replies)
Discussion started by: chidori
11 Replies

10. Shell Programming and Scripting

Script termination without pressing Enter key[nohup]

I have a script in which we have used nohup. Once script is executed it will be terminated only when enter key is pressed. I want the script to be terminated without pressing enter key nohup imqbrokerd -name user_id port 2>1 1>$home_`date` & I am a newbie to shell, Kindly please help (3 Replies)
Discussion started by: Suganbabu
3 Replies

LEARN ABOUT DEBIAN

tk::optionmenu

Optionmenu(3pm) 					User Contributed Perl Documentation					   Optionmenu(3pm)

NAME

       Tk::Optionmenu - Let the user select one of some predefined options values

SYNOPSIS

	   use Tk::Optionmenu;

	   $opt = $w->Optionmenu(
			       -options => REFERENCE_to_OPTIONLIST,
			       -command => CALLBACK,
			       -variable => SCALAR_REF,
			       );

	   $opt->addOptions( OPTIONLIST );

	   # OPTION LIST is
	   #   a)  $val1, $val2, $val3,...
	   #   b)  [ $lab1=>$val1], [$lab2=>val2], ... ]
	   #   c)  combination of a) and b), e.g.,
	   #	   val1, [$lab2=>val2], val3, val4, [...], ...

DESCRIPTION

       The Optionmenu widget allows the user chose between a given set of options.

       If the user should be able to change the available option have a look at Tk::BrowseEntry.

OPTIONS

       -options
	   (Re)sets the list of options presented.

       -command
	   Defines the callback that is invokes when a new option is selected.

       -variable
	   Reference to a scalar that contains the current value of the selected option.

       -textvariable
	   Reference to a scalar that contains the text label of the current value of the selected option.

METHODS

       addOptions
	   Adds OPTION_LIST to the already available options.

EXAMPLE

	use Tk;
	my $mw = MainWindow->new();

	my ($var, $tvar);
	my $opt = $mw->Optionmenu(
	       -options => [[jan=>1], [feb=>2], [mar=>3], [apr=>4]],
	       -command => sub { print "got: ", shift, "
" },
	       -variable => $var,
	       -textvariable => $tvar
	      )->pack;

	$opt->addOptions([may=>5],[jun=>6],[jul=>7],[aug=>8]);

	my $f = $mw->Frame(-relief=>'groove', -borderwidth => 2)->pack;
	$f->Label(-textvariable=>$tvar)->pack(-side => 'left');
	$f->Label(-text => " -> ")->pack(-side => 'left');
	$f->Label(-textvariable=>$var)->pack(-side => 'left');

	$mw->Button(-text=>'Exit', -command=>sub{$mw->destroy})->pack;

	MainLoop;

SEE ALSO

       Tk::Menubutton, Tk::BrowseEntry

perl v5.14.2							    2010-05-29							   Optionmenu(3pm)
All times are GMT -4. The time now is 03:12 PM.
Unix & Linux Forums Content Copyright 1993-2022. All Rights Reserved.
Privacy Policy