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.5 - Sep 18 2015
- Add dependency on Tk modules.

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.