widget_calendar (3)

NAME

widget_calendar - Calendar Megawidget

SYNOPSIS

package require Tcl 8.4

package require Tk 8.4

package require widget ?3.0?

package require widget::calendar ?1.0.1?

widget::calendar pathname ?options?

DESCRIPTION

This package provides a calendar megawidget (snidget).

widget::calendar pathname ?options?

WIDGET OPTIONS

-command

A script to evaluate when a date was selected.

-dateformat

The format of the date that is returned. Default: %m/%d/%Y.

-firstday

Set first day the week, Either sunday or monday. It defaults to monday.

-font

Select the font used in the widget. It defaults to Helvetica 9.

-highlightcolor

Selects the background color for the day that has been selected. Default: #FFCC00

-language

Specify language of the calendar contents. The language is specified by abbreviations of the languge, for example: en - english, de - german ... It defaults to en.

Supported languages: de en es fr gr he it ja sv pl pt zh fi tr nl ru crk crx-nak crx-lhe

-shadecolor

Selects the color of the parts that have a shaded background. Default: #888888

-showpast

Specify if the past shall be shown. It is a boolean value and defaults to 1.

-textvariable

Specifies the name of a variable whose value is linked to the entry widget's contents. Whenever the variable changes value, the widget's contents are updated, and vice versa.

WIDGET COMMAND

pathname get ?what?

Returns a part of the selected date or 'all'. The argument what selects the part. Valid values for what are: day, month, year and all. 'all' is the default and returns the complete date in the format given with -dateformat.

DEFAULT BINDINGS

On creation of the calendar widget the following bindings are installed. When pressing a key the command is invoked and the textvariable is updated. updated.

*

Home - Move to the current date

*

Up - Move to week before current date

*

Down - Move to week after current date

*

Left - Move to day before current date

*

Right - Move to day after current date

*

Control-Left - Move to month before current date

*

Control-Right - Move to month after current date

*

Control-Up - Move to year before current date

*

Control-Down - Move to year after current date

EXAMPLE

    package require widget::calendar ; # or widget::all
    set t [widget::calendar .t]
    pack $t -fill x -expand 1

KEYWORDS

calendar, date, megawidget, snit, widget

CATEGORY

Widget