in reply to Re^2: Perl::Tk and cursor in Menubutton
in thread Perl::Tk and cursor in Menubutton

At first this is violation of license.

Ha! You are Microsoft brainwashed.

The Tk module is open source, and you can make a copy of an existing module, rename it and make it yours, then put it in your own home directory for your personal use.

must have root privilegies to correct module code.

You are not correcting it, you are making a copy and modifying it for your own use.

But, just go to Tk download , unpack it, and get your very own free copy!!!!! Yes FREE as in FREE BEER. :-)

I'm not really a human, but I play one on earth.
Old Perl Programmer Haiku ................... flash japh
  • Comment on Re^3: Perl::Tk and cursor in Menubutton

Replies are listed 'Best First'.
Re^4: Perl::Tk and cursor in Menubutton
by Anonymous Monk on Oct 20, 2010 at 20:12 UTC
    )))
    MS)))
    It's free. Yes. Free for use...
    If I correct some code or use it in my software with corrections, I must tell about this software owner and publicate my source code of new version...
    As I know, this module many years have not support... May be I thinking wrong...
    This is first.

    I want for my program less dependences...
    May be in future all peoples can get new version of Tk module and my module may be have bad compatability with main procedures. I will have not in future headache with this...
    If I choose correct code way I must track on each system version of Tk and its compatability with my module...
[reply]
      I must apologize a bit to you. The preferred way to modify a module, for your own use, is to use a Derived widget. But as I experimented with making a Derived Menubutton widget, many unexpected behaviors popped up. I finally resorted to trying a local Tk directory containing a copy of Menubutton.pm . Then even with 
      use strict;
use lib '.';
BEGIN{ unshift  @INC, '.';}
use Tk;
print "@INC\n";
.....

      [download]
      It would find the system installed module, instead of my copy.

      I did manage to get a package MyMenuButton to load error free, but the menubutton would not appear in the $mw->menu for some reason.

      Here is as far as I care to take it. It works as a package, as long as you place the Derived MenuButton in the $mw, instead of the $mw->menu(). I do not know why it won't work from the menu. I changed the cursor to a pencil.

      So this would be perfectly acceptable as far as license and distribution goes. You can do some more cursor modifications in the Enter and Leave subs if you desire.

      Read more... (10 kB)
      I'm not really a human, but I play one on earth.
      Old Perl Programmer Haiku ................... flash japh
[reply]
[d/l]
[select]
        Yes!
        This is great!
        Thank you very much for your work...
        This is will be very usefull for me in for this task and may be help me with another module...

        I writing Drag-N-Drop Genealogy Editor.
        Родовід(Descent)
        At monday (I mean) I post new version with html reporting as descent site(www.mishchenko.tk example).
        But code in this software very wet and stupid at now.
        Now I create functionality and when I create it I must begin optimise code for better and better...
[reply]

      I presented two caveats at the end of the code. The first one addresses the compatibility issue you allude to.

      -- Ken

[reply]

In Section Seekers of Perl Wisdom