1- ...How can I get the script to refresh rather than add it to the end of the list...?

add $output_text->delete('0.1','end'); to your get_perms method right before foreach. This will clear the text widget before you insert.

2- The Directory list is not sorted in the in the order they appear (i.e c:/, then sub directories in that folder) how can I tie it up so they are sorted in the oder they appear?

You will need to change 2 things. 

my %dirs;
find(sub { $dirs{$File::Find::dir}++;}, $path);

[download]
change to... 
my @dirs;
find(sub { push @dirs, $File::Find::dir }, $path);

[download]
and $list_box->insert('end', keys %dirs); change to... $list_box->insert('end', @dirs);

As for point 3, do you want an icon to show up in the listbox, or do you want to put an icon in the text widget?

And point 4, yes it is possible to drag and drop using Tk. Reflecting back on point 3, do you want to drag from the listbox to the text widget, from the text widget to the listbox, or both?

--
.dave.

In reply to Re: Perl::Tk and Win32::Perms Startup help by hiseldl
in thread Perl::Tk and Win32::Perms Startup help by blackadder

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.