mmartin has asked for the wisdom of the Perl Monks concerning the following question:

Hey Monks!

So I'm creating the AboutDialog for my GUI and I'm doing the "set_website" portion and trying to make the URL I enter actually do something when you click on it. I read that you do the set_url_hook() part before you run the set_website() method/function.

So I was having trouble just getting Perl to open a Browser and go to a URL, but I figured out how to do that part by using the Perl Module use Browser::Open qw( open_browser ); which seems to work pretty well. I then tried the code below and now, when I open the AboutDialog box, it instantly opens whatever URL I put in the "open_browser()" function from that Module without clicking on the link.
# Create a MessageDialog to display the "About" Info in:
my $about_window = Gtk2::AboutDialog->new;
    $about_window->set_program_name("Program-Name");
    $about_window->set_version('v1.0');
    $about_window->set_copyright('August 2013');
    $about_window->set_comments("This is the Comment String");
    # Using Google.com just as an example:
    my $url = "http://www.google.com";
    $about_window->set_url_hook(open_browser($url));
    $about_window->set_website($url);
    $about_window->set_authors("....author_data....");
    my $about_img = "$icon_DIR/Icon_Logo.png";
    my $about_pixbuf = Gtk2::Gdk::Pixbuf->new_from_file($about_img);
    $about_window->set_logo($about_pixbuf);

    # Add the Hide action to the 'Close' button in the AboutDialog():
    $about_window->signal_connect('response' => sub { $about_window->h
+ide; });
    $about_window->show;

[download]
So from what's going on here I would assume that whatever you put inside the "set_url_hook()" function gets executed immediately upon creation of the AboutDialog. I did see a SIGNAL available for the AboutDialog that's called "activate-link" but I couldn't connect it with "signal_connect" function...

Does anyone know what I'm missing here? I would assume there is something that I need to add to this to get it working?


UPDATE:
I've also noticed this... So I click the MenuItem to open the AboutDialog, and like I mentioned before, the set_url_hook() gets executed immediately without having to click the link. So I close the page that opened and go back to the About Window and click on the Link itself. When that happens I can see this error below being printed to the terminal.
Undefined subroutine &main::0 called at

[download]
And the line that the error references to is the line that has Gtk2->main; on it... So I tried putting a test sub in the set_url_hook() and I get the same error and whatever the Sub returns is what Perl is saying is a Undefined Subroutine.
So if my function returns "Hello", the Error would be:
Undefined subroutine &main::Hello called at

[download]
So I just thought I should mention that since I'm tinkering with it a bit...

Thanks in Advance,
Matt


Replies are listed 'Best First'.
Re: Perl Gtk2 AboutDialog's "set_url_hook()" is Not Working as Expected.
by Crackers2 (Parson) on Aug 22, 2013 at 19:46 UTC

    When you say this:

    $about_window->set_url_hook(open_browser($url));

    [download]

    You're calling set_url_hook with as parameter the result of open_browser($url). I'm not familiar with Gtk2, but you probably want something like

    $about_window->set_url_hook("open_browser",$url);

    [download]

    i.e. you tell set_url_hook the name of the function to call; it's possible that you have to pass the argument to open_browser in a different way; you'll have to experiment or read the docs to find out.

[reply]
[d/l]
[select]
      Hey Crackers, thanks for the reply

      Humm, just tried what you showed and this time nothing happened when I opened the About window, which is good.

      But this time something actually did happen when I clicked on the link. I got an error from the open_browser() function but still good news because its actually now executing what's in there when I click the link... Thanks!

      I was about to walk out the door before you replied so I'll mess with it a bit tomorrow when I get back in.


      Thanks AGAIN for the reply, much appreciated!


      Thanks Again,
      Matt


[reply]
      Ok... Got it working!

      So this is what I've found out this morning testing the set_url_hook() function. Seems that whatever is set in "$about_window->set_website($url);" for the $url variable will get passed to the "open_url()" sub which is an argument to the "$about_window->set_url_hook("open_url");" function, which is a subroutine.

      So with these 2 commands I can now successfully open the URL in a browser when I click on the link:
            ### 1st we need to define HOOK before we set the website:
      #     *open_url() is a Subroutine:
      $about_window->set_url_hook("open_url");

      ### Now we call the set_website() function:
      #     *The $website var will be passed as an ARG to open_url():
      $about_window->set_website($website);

    # This receives 2 Args:
    #     ARG[0] --> AboutDialog Widget
    #     ARG[1] --> $website
    sub open_url() {
        my ($widget, $url) = @_;
        print "   url == $url\n";
        print "Widget == $widget\n\n";
        open_browser($url);
    }

      [download]
      So now it seems everything is working as expected...! Thanks again Crackers, if you hadn't posted your example of the set_url_hook("open_broswer", $url) it probably would have taken me much longer to find that's how the syntax should be for that set_url_hook() Function's Arguments...!


      So thanks again for the reply, much appreciated!


      Thanks Again,
      Matt

[reply]
[d/l]

Back to Seekers of Perl Wisdom