Just a couple of quick thoughts:
  1. Drag and drop accuracy aside, if there is the slightest chance that the user might drop the group on the wrong directory, you want to avoid that as tossing around permissions is probably not a good idea. I'd consider add a confirmation dialog box before executing the permission change. You might trap the movement of the dragged token and report the nearest target dynamically as text on the token, on a status bar, or maybe by highlighting the current nearest target. You could use the -motioncommand option for your DropSite to find the nearest directory in the tree as you drag the group across.

  2. Just by inspection (so I could easily be totally wrong here ;-), it looks to me that you are not passing a complete path specification to your AddGroupToDir subroutine, as you are only taking the text from the dirtree item, which would just be the leaf directory name, not the whole path. That might account for the difference between the Tk version and your stand-alone test.

  3. Sorry, I'd need to do some homework on that one too!

I hope this is of some help! I'd also like to thank you for posting this as it is an interesting example for me in my ongoing (but low priority) interest in Tk.

--
I'd like to be able to assign to an luser


In reply to Re: Tk::DirTree and Tk::Drag&Drop problem by Albannach
in thread Tk::DirTree and Tk::Drag&Drop problem 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.