thanks ron. it worked!
i need plz another suggestion.

in scrolled text window, i need text to be printed line by line instead of bulk 
printing entire output.
please find the attached code. 

in code, there is line called,  $t->see('end');  which makes the focus of 
entire scrolled text window at the end.
however, whenever there is any line to be entered in scrolled window, it should 
enter line by line and not in bulk.

something like auto scroll down whenever text is getting entered in scrolled 
window 

please suggest 

regards
irfan






________________________________
 From: Ron Bergin <r...@i.frys.com>
To: Irfan Sayed <irfan_sayed2...@yahoo.com> 
Cc: Shlomi Fish <shlo...@shlomifish.org>; Perl Beginners <beginners@perl.org> 
Sent: Wednesday, September 5, 2012 7:38 PM
Subject: Re: destroy widget
 
Irfan Sayed wrote:
> please find the attached .
> what i am looking for is, need to destroy the window $mw1 once the text
> entered in scrolled text window
> i just want to destroy $mw1 and not entire application
>
>
> please suggest .
>
>
> regards,
> irfan
>
>
>
> ________________________________
>  From: Shlomi Fish <shlo...@shlomifish.org>
> To: Perl Beginners <beginners@perl.org>
> Sent: Tuesday, September 4, 2012 6:07 PM
> Subject: Re: destroy widget
>
> Hi Irfan,
>
> On Tue, 4 Sep 2012 05:01:11 -0700 (PDT)
> Irfan Sayed <irfan_sayed2...@yahoo.com> wrote:
>
>> hi,
>>
>> i have following code to get the user input :
>>
>> $mw1 = MainWindow->new;
>>    $mw1->geometry( "200x100" );
>>    $mw1->title("Client Workspace");
>>    $mw1->Label(
>>            -text => "Enter the Perforce client name:"
>>        )->pack(-anchor=>'center');
>>       
>
>

You're looking for the ->withdraw()method.

# Hide main window
$mw1->withdraw();

...
...

# Sometime later in the app show main window again
$mw1->deiconify();
$mw1->raise();

----

Ron Bergin


-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Attachment: ProjectLevelFinder.pl
Description: Binary data

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/

Reply via email to