Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re^5: file open in perl tk

by vr786 (Sexton)
on Nov 03, 2010 at 09:32 UTC ( [id://869176]=note: print w/replies, xml ) Need Help??


in reply to Re^4: file open in perl tk
in thread file open in perl tk

Hi please have a look on it, this is my code , here iam able to open the file but i can't save the changes , can you help me how can i do it.
#!/usr/bin/perl -w # Create a sub window at the request of the user use Tk; use strict; my $mw = MainWindow->new; $mw->configure(-background => 'black', -foreground => 'white'); $mw->geometry("400x100"); $mw->title("Multiple Windows Test"); my $button1 = $mw->Button( -text => "view Results", -background => "cyan", -command => \&button1_sub)->pack(-side=>"right +"); $mw->Button(-text => "Exit", -command => sub{exi +t})->pack(-side=>"bottom"); sub button1_sub { my $subwin1 = $mw->Toplevel; $subwin1->geometry("400x300"); $subwin1->title("Sub Window #1"); my $fh; open ($fh,"<test.txt") or die $!; my @contents = <$fh>; my $sublable = $subwin1->Scrolled('Text', -scrollbars => 'osoe', )->pack; $sublable->insert('end',@contents); close($fh); my $subwin_button = $subwin1->Button(-text => "Close w +indow", -command => [$subwin1 => 'destroy'])->pack(-side=>"bot +tom"); #=================================Creating save buttio +n on subwindow =========== my $save_button = $subwin1->Button(-text=>'save', -command =>\&get_save, -background =>'cyan')- +>pack(-side=>'right'); } MainLoop; sub get_save { getSaveFile(-title => 'Select a file to APPEND',-defau +ltextension=>'.in'); }

Replies are listed 'Best First'.
Re^6: file open in perl tk
by kcott (Archbishop) on Nov 03, 2010 at 09:58 UTC

    Firstly, thanks formatting the page.

    I saved the code as tk_edit_prob.pl, ran it and got:

    $ tk_edit_prob.pl Assuming 'require Tk::Gedi;' at ./tk_edit_prob.pl line 26 Tk::Error: Can't locate Tk/Gedi.pm in @INC (@INC contains: ...

    Line 26 is:

    my $sublable = $subwin1->Scrolled('Gedi',

    So, put use Tk::Gedi; after use Tk; - that's fairly minor.

    I went to CPAN to get Tk::Gedi but it's not there. Let me know where you got this module from and I'll look into the problem further.

    -- Ken

      Hi ken, instead of that we can use this, in line 26
      my $sublable = $subwin1->Scrolled('Text',

        It looks like zentara has already posted a solution for you (below).

        You didn't say where you got Tk::Gedi from.

        -- Ken

Re^6: file open in perl tk
by roboticus (Chancellor) on Nov 03, 2010 at 12:13 UTC

    vr786:

    Thanks for formatting the code.

    Please note that you can actually go back and repair a node, so next time you want to fix it, you can go back and add the code tags. Remember to add an "Update" to it, so people can see that the content changed. (It makes it easier to make sense of a conversation that way.)

    ...roboticus

    Update: Actually, I didn't update this node. I just wanted to provide an example.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://869176]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others studying the Monastery: (7)
As of 2024-03-28 16:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found