SYNOPSIS
package require Tcl 8.4package 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