widget_calendar - widget::calendar Megawidget
package require Tcl 8.4
package require Tk 8.4
package require widget ?3.0?
widget::calendar pathname ?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: en, de, fr, it, es, pt, ru, sv, zh,
fi
- -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.
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.
On creation of the calendar widget the following bindings are
installed.
- 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
package require widget::calendar ; # or widget::all
set t [widget::calendar .t]
pack $t -fill x -expand 1