background cursor foreground height
See the options manual entry for details on the standard options.
See the lcdigit manual entry.
Name: date Class: Date Command-Line Switch: -date Default value: 0
Name: dateformat Class: Dateformat Command-Line Switch: -dateformat Default value: "%A %B %d, %Y"
Name: hours Class: Hours Command-Line Switch: -hours Default value: 12
Name: seconds Class: Seconds Command-Line Switch: -seconds Default value: 0
Name: tilt Class: Tilt Command-Line Switch: -tilt Default value: 0
Name: utc Class: Utc Command-Line Switch: -utc Default value: 0
The lcdclock command creates a clock image widget drawn with 7 segment digits, and a new Tcl command whose name is pathname. The command is then used to invoke various methods of the widget. The command has the general form:
pathName option ?arg arg ... arg?
The widget resizes itself to fill the available height. The width is adjusted to keep the aspect ratio of the digits constant. The date text, if shown, is resized in proportion to the digits. The -height widget option is used as a specification for the digit height, so the overall widget height is larger if the date is displayed.
package require Dmhwidgets proc testclock {{w .c}} { catch { destroy $w } toplevel $w -class Lcdclock wm title $w {Current Time} dmhwidgets::lcdclock $w.c -seconds 1 -hours 12 -height 250 -date 1 pack $w.c -side top -expand 1 -fill both -anchor w frame $w.z pack $w.z -side top -expand 1 -fill x button $w.z.b -text Ok -command # button $w.z.x -text Exit -command exit pack $w.z.b $w.z.x -side left -padx 12m }