Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
A "Tip of the Day" dialog for Perl/Tk.
Perl
branch: master

Fetching latest commit…

Cannot retrieve the latest commit at this time

Failed to load latest commit information.
lib/Tk
t
Changes
MANIFEST
Makefile.PL
README.md
test.pl
totd.pl

README.md

NAME

Tk::TOTD - Tip Of The Day dialog for Perl/Tk.

SYNOPSIS

use Tk::TOTD;

my $top = MainWindow->new();

my $totd = $top->TOTD (
  -title    => 'Tip Of The Day -- MyPerlApp',
  -messages => \@messages,
);

$totd->Show;

DESCRIPTION

Tk::TOTD provides a simple Tip of the Day dialog for Perl/Tk programs.

OPTIONS

The options recognized by Show are as follows:

  • -title

    Specify the title of the Tip Of The Day dialog. Defaults to "Tip Of The Day"

  • -messages

    The array of tip messages. If omitted, a default 10 tips about this module will be used instead.

  • -slogan

    Set the slogan at the top of the dialog. Default is "Did you know that..."

  • -image

    A Tk::Photo object. If omitted, the default totd image is used. This default image is appropriate for most TOTD usages, but if you use this as something other than a Tip Of The Day you may want to use your own image. The default image's dimensions are 23x31.

  • -background

    The main window's background color. Defaults to #BFBFBF

  • -leftbackground

    Background color for the left panel (where the image and slide number is). Defaults to #808080

  • -mainbackground

    The background color of the main content area. Defaults to #FFFFFF (white).

  • -slidecolor

    The text color of the slide number (as on the left panel). Defaults to #FFFF99.

  • -foreground

    Main foreground color of text. Defaults to #000000 (black).

  • -mainfont

    The main font family used on most of the labels. Defaults to Arial.

  • -mainfontsize

    Font size of the main font. Defaults to 10.

  • -titlefont

    The font family used on the slogan text. Defaults to Times New Roman.

  • -titlefontsize

    Font size on the slogan text. Defaults to 14.

  • -checklabel

    The label on the checkbutton. Defaults to "Show tips at startup"

  • -checkvariable

    The variable to store the state of the checkbutton. 1 for checked, 0 for not.

  • -closebutton

    The text of the close button. Defaults to "Close"

  • -nextbutton

    The text of the next button. Defaults to "Next Tip"

METHODS

  • Show (? options ?)

    Displays the Tip Of The Day dialog. The TOTD dialog is based from Tk::DialogBox and therefore will pause your main window.

  • configure (? options ?)

    Reconfigure previously set options.

  • destroy ()

    Completely clean up the TOTD DialogBox. This method is a workaround for an underlying bug in Tk::DialogBox wherein if a DialogBox is open, and you close the MainWindow by clicking on the "X" button from the window manager, your program doesn't exit completely because the DialogBox is waiting on a variable that's only set when a button has been clicked.

    You can work around this bug by calling destroy() on your Tk::TOTD object when your MainWindow is exited.

    $mw->protocol('WM_DELETE_WINDOW', sub {
      $totd->destroy();
      exit(0);
    });
    

CHANGES

Version 0.4 - Nov 11 2013
- Add the destroy() method to allow for a workaround to a bug in
  Tk::DialogBox.

Version 0.3 - Nov  1 2013
- Fix a bug where using the "Close" button on the dialog wouldn't dismiss the
  dialog properly, and the program would never exit gracefully again.

Version 0.2 - Jan 16 2005
- The widget now behaves as a DialogBox as it should, blocking the main window
  until closed.

BUGS

None known yet.

AUTHOR

Noah Petherbridge, http://www.kirsle.net/

This code is distributed under the same terms as Perl.

Something went wrong with that request. Please try again.