Hi,

Thanks for your great piece of work (really it is very useful for me, I am searching and researching for such a tool for very long time)

I dont have any great documentation of perl/Tk with me. So I tried from my own so far and got lot of frustration.

But your help is very great to me.

Thanks a lot,

srikrishnan

I dont have any great documentation of perl/Tk with me. So I tried from my own so far and got lot of frustration.

You are not alone. I wrote some tiny Perl/Tk based tools, but the lack of a USABLE documentation for Perl/Tk drove me mad each time. I used Google a lot, and "Mastering Perl/Tk" (dated 2002), and of course perlmonks, but I found only fragments and a lot of cargo cult. The original TCL/Tk documentation may be helpful for someone who has worked with TCL, but it was not really useful for me, because I still fail to understand the deeper magics in Perl/Tk.

It would be really great if some people could rework the Perl/Tk documentation in a way that it can be used stand-alone. The partly auto-generated documentation is not really helpful. For something complex as Perl/Tk, a really good documentation is needed. The DBI documentation is an example for how the Perl/Tk documentation should look like.

I know that some people think that Perl/Tk is dead, and GTK or some other toolkit should be used. But I think the main reason for that is the lack of good documentation.

Alexander

--
Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)

Hi Alexander,

Thanks for shared your experiences

I dont know any other programming language. I learned little about perl and Perl/Tk So I have written all my small Tools using these only.

If you go through my blog "srikrisnanr.wordpress.com" you can view my some of perl Tools in the page "Perl scripts".

I hope it will show you how hard I worked with my programs for creating all these tools without having a complete Documentation about such a big program like Perl/Tk

Thanks,

Srikrishnan

Hi thundergnat

Again I thanks you for your sample. From the sample you have given, i got a idea of using "Listbox" option for my requirement. Also I have tried that with success

Below I have pasted my final completed code, may be it would be useful for somebody

use strict;
use warnings;
use Tk;
use Tk::ROText;
use win32;
use Win32::FileOp;
use File::Find;
use Tk::LabFrame;
use Tk::LabEntry;

my @filename;
my $w;
my $TagType;
my $var;
my $fileList;

my $mw = new MainWindow;
$mw -> setPalette('#EEEEEE');
$mw->resizable('no', 'no');
$mw -> title("get File List");


my $frame = $mw -> Frame -> pack (-side => 'top', -fill => 'both', -ex
+pand => 1, -padx => '12', -pady => '12');
my $frame1 = $frame -> Frame -> pack (-side => 'left');
$frame1 -> Button (-text => 'Add Files...', -command => \&openFile, -b
+ackground => '#E9F0F7', -activebackground => '#B8C4E5') -> pack (-sid
+e => 'top', -padx => '0', -pady => '10', -anchor => 'e');

my $frame3a = $mw -> Frame () -> pack (-side => 'top', -fill => 'both'
+, -expand => 1, -padx => 12, -pady => '6');
my $frame3 = $frame3a -> LabFrame (-label => "Add Files, and then arra
+nge them in the order you want.", -font => 'Arial-Bold 11', -labelsid
+e => "acrosstop") -> pack (-anchor => 'w');

my $ins = $frame3 -> Scrolled("Listbox", -scrollbars => 'e', -width =>
+ '90', -background => 'white') -> pack(-side => 'top', -pady => '12',
+ -padx => '12', -fill => 'both', -expand => 1);

my $frame4 = $frame3 -> Frame () -> pack (-side => 'top', -fill => 'bo
+th', -expand => 1, -padx => '12');
my $frame5 = $frame4 -> Frame -> pack (-side => 'left');

my $frame6 = $frame4 -> Frame -> pack (-side => 'left');
$frame6 -> Button (-text => 'Move Up', -command => \&moveUP, -backgrou
+nd => '#E9F0F7', -activebackground => '#B8C4E5', -width => '11') -> p
+ack (-side => 'top', -padx => '6', -pady => '10', -anchor => 'w');
my $frame7 = $frame4 -> Frame -> pack (-side => 'left');
$frame7 -> Button (-text => 'Move Down', -command => \&moveDown, -back
+ground => '#E9F0F7', -activebackground => '#B8C4E5', -width => '11') 
+-> pack (-side => 'top', -padx => '0', -pady => '10', -anchor => 'w')
+;
my $frame8 = $frame4 -> Frame -> pack (-side => 'left');
$frame8 -> Button (-text => 'Remove', -command => \&removePages, -back
+ground => '#E9F0F7', -activebackground => '#B8C4E5', -width => '11') 
+-> pack (-side => 'top', -padx => '6', -pady => '10', -anchor => 'w')
+;

my $frame10 = $mw -> Frame -> pack (-side => 'bottom', -fill => 'both'
+, -expand => 1, -padx => '12');
my $frame11 = $frame10 -> Frame -> pack (-side => 'right');
$frame11 -> Button (-text => 'Cancel', -command => sub{$mw -> destroy;
+}, -background => '#E9F0F7', -activebackground => '#B8C4E5', -width =
+> '9') -> pack (-side => 'top', -pady => '10', -anchor => 'ne');
my $frame12 = $frame10 -> Frame -> pack (-side => 'right');
$frame12 -> Button (-text => 'Process', -command => \&process, -backgr
+ound => '#E9F0F7', -activebackground => '#B8C4E5', -width => '9') -> 
+pack (-side => 'top', -padx => '0', -padx => '6', -pady => '10', -anc
+hor => 'ne');

MainLoop;

sub openFile {
    my @types =
      ( [ "3d Files", '.3d' ],
        [ "All files", '*' ] );
    @filename = $mw->getOpenFile(
        -filetypes  => \@types,
        -defaultextension => '.3d',
        -title            => 'file to read',
        -multiple       => 1,
    );

    $mw->Unbusy;
    return 'Cancel' unless (@filename);
    foreach my $single(@filename) {
    $ins->insert( 'end', "$single" );
    }
}

sub gotoSave {
        my $ExtractedStream = $w->get("1.0", "end");
        print "$ExtractedStream";
}       

sub gotoClear {
        $ins -> delete ("1.0", "end");
}

sub moveUP {
        my @fileList = $ins->curselection();
        my $selIndex = $fileList[0];
        $selIndex = $selIndex-1;
        $fileList = $ins->get(@fileList);
        $ins->delete(@fileList);
        $ins -> insert($selIndex, $fileList);
        $ins->selectionSet($selIndex);

}

sub moveDown {
        my @fileList = $ins->curselection();
        my $selIndex = $fileList[0];
        $selIndex = $selIndex+1;
        $fileList = $ins->get(@fileList);
        $ins->delete(@fileList);
        $ins -> insert($selIndex, $fileList);
        $ins->selectionSet($selIndex);
        
}

sub removePages {
       my @fileList = $ins->curselection();
       $ins->delete(@fileList); 
}

sub process {
        my @colList = $ins -> get(0, 'end');
        my $count = 1;
        foreach my $single(@colList) {
        print "$count\. $single\n";
        $count++;
        }
}
[download]

I have learned the following new things from your code

1. gif as a data within perl script

2. -multiple file selection option in "getOpenFile"

3. DragDrop and DropSite modules

4. Different way of coding with Tk

Once again thanks for teaching me all these things from a discussion

Thanks

Srikrishnan R.