You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
528 lines
16 KiB
Plaintext
528 lines
16 KiB
Plaintext
# Spintime
|
|
# ----------------------------------------------------------------------
|
|
# Implements a Time spinner widget. A time spinner contains three
|
|
# integer spinners: one for hours, one for minutes and one for
|
|
# seconds. Options exist to manage to behavior, appearance, and
|
|
# format of each component spinner.
|
|
#
|
|
# ----------------------------------------------------------------------
|
|
# AUTHOR: Sue Yockey EMAIL: yockey@actc.com
|
|
# Mark L. Ulferts mulferts@austin.dsccc.com
|
|
#
|
|
# @(#) $Id: spintime.itk,v 1.3 2001/08/17 19:04:45 smithc Exp $
|
|
# ----------------------------------------------------------------------
|
|
# Copyright (c) 1997 DSC Technologies Corporation
|
|
# ======================================================================
|
|
# Permission to use, copy, modify, distribute and license this software
|
|
# and its documentation for any purpose, and without fee or written
|
|
# agreement with DSC, is hereby granted, provided that the above copyright
|
|
# notice appears in all copies and that both the copyright notice and
|
|
# warranty disclaimer below appear in supporting documentation, and that
|
|
# the names of DSC Technologies Corporation or DSC Communications
|
|
# Corporation not be used in advertising or publicity pertaining to the
|
|
# software without specific, written prior permission.
|
|
#
|
|
# DSC DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
|
|
# ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, AND NON-
|
|
# INFRINGEMENT. THIS SOFTWARE IS PROVIDED ON AN "AS IS" BASIS, AND THE
|
|
# AUTHORS AND DISTRIBUTORS HAVE NO OBLIGATION TO PROVIDE MAINTENANCE,
|
|
# SUPPORT, UPDATES, ENHANCEMENTS, OR MODIFICATIONS. IN NO EVENT SHALL
|
|
# DSC BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
|
|
# ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
|
|
# WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTUOUS ACTION,
|
|
# ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
|
|
# SOFTWARE.
|
|
# ======================================================================
|
|
|
|
#
|
|
# Default resources.
|
|
#
|
|
option add *Spintime.hourLabel "Hour" widgetDefault
|
|
option add *Spintime.minuteLabel "Minute" widgetDefault
|
|
option add *Spintime.secondLabel "Second" widgetDefault
|
|
option add *Spintime.hourWidth 3 widgetDefault
|
|
option add *Spintime.minuteWidth 3 widgetDefault
|
|
option add *Spintime.secondWidth 3 widgetDefault
|
|
|
|
#
|
|
# Usual options.
|
|
#
|
|
itk::usual Spintime {
|
|
keep -background -cursor -foreground -labelfont -textbackground -textfont
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# SPINTIME
|
|
# ------------------------------------------------------------------
|
|
itcl::class iwidgets::Spintime {
|
|
inherit itk::Widget
|
|
|
|
constructor {args} {}
|
|
destructor {}
|
|
|
|
itk_option define -orient orient Orient vertical
|
|
itk_option define -labelpos labelPos Position w
|
|
itk_option define -houron hourOn HourOn true
|
|
itk_option define -minuteon minuteOn MinuteOn true
|
|
itk_option define -secondon secondOn SecondOn true
|
|
itk_option define -timemargin timeMargin Margin 1
|
|
itk_option define -militaryon militaryOn MilitaryOn true
|
|
|
|
public {
|
|
method get {{format "-string"}}
|
|
method show {{date now}}
|
|
}
|
|
|
|
protected {
|
|
method _packTime {{when later}}
|
|
method _down60 {comp}
|
|
|
|
variable _repack {} ;# Reconfiguration flag.
|
|
variable _interior
|
|
}
|
|
}
|
|
|
|
#
|
|
# Provide a lowercased access method for the Spintime class.
|
|
#
|
|
proc ::iwidgets::spintime {pathName args} {
|
|
uplevel ::iwidgets::Spintime $pathName $args
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# CONSTRUCTOR
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::constructor {args} {
|
|
set _interior $itk_interior
|
|
set clicks [clock seconds]
|
|
|
|
#
|
|
# Create Hour Spinner
|
|
#
|
|
itk_component add hour {
|
|
iwidgets::Spinint $itk_interior.hour -fixed 2 -range {0 23} -justify right
|
|
} {
|
|
keep -background -cursor -arroworient -foreground \
|
|
-labelfont -labelmargin -relief -textbackground \
|
|
-textfont -repeatdelay -repeatinterval
|
|
|
|
rename -labeltext -hourlabel hourLabel Text
|
|
rename -width -hourwidth hourWidth Width
|
|
}
|
|
|
|
#
|
|
# Take off the default bindings for selction and motion.
|
|
#
|
|
bind [$itk_component(hour) component entry] <1> {break}
|
|
bind [$itk_component(hour) component entry] <Button1-Motion> {break}
|
|
|
|
#
|
|
# Create Minute Spinner
|
|
#
|
|
itk_component add minute {
|
|
iwidgets::Spinint $itk_interior.minute \
|
|
-decrement [itcl::code $this _down60 minute] \
|
|
-fixed 2 -range {0 59} -justify right
|
|
} {
|
|
keep -background -cursor -arroworient -foreground \
|
|
-labelfont -labelmargin -relief -textbackground \
|
|
-textfont -repeatdelay -repeatinterval
|
|
|
|
rename -labeltext -minutelabel minuteLabel Text
|
|
rename -width -minutewidth minuteWidth Width
|
|
}
|
|
|
|
#
|
|
# Take off the default bindings for selction and motion.
|
|
#
|
|
bind [$itk_component(minute) component entry] <1> {break}
|
|
bind [$itk_component(minute) component entry] <Button1-Motion> {break}
|
|
|
|
#
|
|
# Create Second Spinner
|
|
#
|
|
itk_component add second {
|
|
iwidgets::Spinint $itk_interior.second \
|
|
-decrement [itcl::code $this _down60 second] \
|
|
-fixed 2 -range {0 59} -justify right
|
|
} {
|
|
keep -background -cursor -arroworient -foreground \
|
|
-labelfont -labelmargin -relief -textbackground \
|
|
-textfont -repeatdelay -repeatinterval
|
|
|
|
rename -labeltext -secondlabel secondLabel Text
|
|
rename -width -secondwidth secondWidth Width
|
|
}
|
|
|
|
#
|
|
# Take off the default bindings for selction and motion.
|
|
#
|
|
bind [$itk_component(second) component entry] <1> {break}
|
|
bind [$itk_component(second) component entry] <Button1-Motion> {break}
|
|
|
|
#
|
|
# Initialize the widget based on the command line options.
|
|
#
|
|
eval itk_initialize $args
|
|
|
|
#
|
|
# Show the current time.
|
|
#
|
|
show now
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# DESTRUCTOR
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::destructor {} {
|
|
if {$_repack != ""} {after cancel $_repack}
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTIONS
|
|
# ------------------------------------------------------------------
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -orient
|
|
#
|
|
# Specifies the orientation of the 3 spinners for Hour, Minute
|
|
# and second.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::orient {
|
|
_packTime
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -labelpos
|
|
#
|
|
# Specifies the location of all 3 spinners' labels.
|
|
# Overloaded
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::labelpos {
|
|
switch $itk_option(-labelpos) {
|
|
n {
|
|
$itk_component(hour) configure -labelpos n
|
|
$itk_component(minute) configure -labelpos n
|
|
$itk_component(second) configure -labelpos n
|
|
|
|
#
|
|
# Un-align labels
|
|
#
|
|
$itk_component(hour) configure -labelmargin 1
|
|
$itk_component(minute) configure -labelmargin 1
|
|
$itk_component(second) configure -labelmargin 1
|
|
}
|
|
|
|
s {
|
|
$itk_component(hour) configure -labelpos s
|
|
$itk_component(minute) configure -labelpos s
|
|
$itk_component(second) configure -labelpos s
|
|
|
|
#
|
|
# Un-align labels
|
|
#
|
|
$itk_component(hour) configure -labelmargin 1
|
|
$itk_component(minute) configure -labelmargin 1
|
|
$itk_component(second) configure -labelmargin 1
|
|
}
|
|
|
|
w {
|
|
$itk_component(hour) configure -labelpos w
|
|
$itk_component(minute) configure -labelpos w
|
|
$itk_component(second) configure -labelpos w
|
|
}
|
|
|
|
e {
|
|
$itk_component(hour) configure -labelpos e
|
|
$itk_component(minute) configure -labelpos e
|
|
$itk_component(second) configure -labelpos e
|
|
|
|
#
|
|
# Un-align labels
|
|
#
|
|
$itk_component(hour) configure -labelmargin 1
|
|
$itk_component(minute) configure -labelmargin 1
|
|
$itk_component(second) configure -labelmargin 1
|
|
}
|
|
|
|
default {
|
|
error "bad labelpos option \"$itk_option(-labelpos)\",\
|
|
should be n, s, w or e"
|
|
}
|
|
}
|
|
|
|
_packTime
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -houron
|
|
#
|
|
# Specifies whether or not to display the hour spinner.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::houron {
|
|
_packTime
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -minuteon
|
|
#
|
|
# Specifies whether or not to display the minute spinner.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::minuteon {
|
|
_packTime
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -secondon
|
|
#
|
|
# Specifies whether or not to display the second spinner.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::secondon {
|
|
_packTime
|
|
}
|
|
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -timemargin
|
|
#
|
|
# Specifies the margin space between the hour and minute spinners
|
|
# and the minute and second spinners.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::timemargin {
|
|
_packTime
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# OPTION: -militaryon
|
|
#
|
|
# Specifies 24-hour clock or 12-hour.
|
|
# ------------------------------------------------------------------
|
|
itcl::configbody iwidgets::Spintime::militaryon {
|
|
set clicks [clock seconds]
|
|
|
|
if {$itk_option(-militaryon)} {
|
|
$itk_component(hour) configure -range {0 23}
|
|
$itk_component(hour) delete 0 end
|
|
$itk_component(hour) insert end [clock format $clicks -format "%H"]
|
|
} else {
|
|
$itk_component(hour) configure -range {1 12}
|
|
$itk_component(hour) delete 0 end
|
|
$itk_component(hour) insert end [clock format $clicks -format "%I"]
|
|
}
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# METHODS
|
|
# ------------------------------------------------------------------
|
|
|
|
# ------------------------------------------------------------------
|
|
# METHOD: get ?format?
|
|
#
|
|
# Get the value of the time spinner in one of two formats string or
|
|
# as an integer clock value using the -string and -clicks options
|
|
# respectively. The default is by string. Reference the clock
|
|
# command for more information on obtaining time and its formats.
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::get {{format "-string"}} {
|
|
set hour [$itk_component(hour) get]
|
|
set minute [$itk_component(minute) get]
|
|
set second [$itk_component(second) get]
|
|
|
|
switch -- $format {
|
|
"-string" {
|
|
return "$hour:$minute:$second"
|
|
}
|
|
"-clicks" {
|
|
return [clock scan "$hour:$minute:$second"]
|
|
}
|
|
default {
|
|
error "bad format option \"$format\":\
|
|
should be -string or -clicks"
|
|
}
|
|
}
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# PUBLIC METHOD: show time
|
|
#
|
|
# Changes the currently displayed time to be that of the time
|
|
# argument. The time may be specified either as a string or an
|
|
# integer clock value. Reference the clock command for more
|
|
# information on obtaining time and its format.
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::show {{time "now"}} {
|
|
if {$time == "now"} {
|
|
set seconds [clock seconds]
|
|
} else {
|
|
if {[catch {clock format $time}] == 0} {
|
|
set seconds $time
|
|
} elseif {[catch {set seconds [clock scan $time]}] != 0} {
|
|
error "bad time: \"$time\", must be a valid time\
|
|
string, clock clicks value or the keyword now"
|
|
}
|
|
}
|
|
|
|
$itk_component(hour) delete 0 end
|
|
|
|
if {$itk_option(-militaryon)} {
|
|
scan [clock format $seconds -format "%H"] "%d" hour
|
|
} else {
|
|
scan hour [clock format $seconds -format "%I"] "%d" hour
|
|
}
|
|
|
|
$itk_component(hour) insert end $hour
|
|
|
|
$itk_component(minute) delete 0 end
|
|
scan [clock format $seconds -format "%M"] "%d" minute
|
|
$itk_component(minute) insert end $minute
|
|
|
|
$itk_component(second) delete 0 end
|
|
scan [clock format $seconds -format "%S"] "%d" seconds
|
|
$itk_component(second) insert end $seconds
|
|
|
|
return
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# PROTECTED METHOD: _packTime ?when?
|
|
#
|
|
# Pack components of time spinner. If "when" is "now", the change
|
|
# is applied immediately. If it is "later" or it is not specified,
|
|
# then the change is applied later, when the application is idle.
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::_packTime {{when later}} {
|
|
if {$when == "later"} {
|
|
if {$_repack == ""} {
|
|
set _repack [after idle [itcl::code $this _packTime now]]
|
|
}
|
|
return
|
|
} elseif {$when != "now"} {
|
|
error "bad option \"$when\": should be now or later"
|
|
}
|
|
|
|
for {set i 0} {$i < 5} {incr i} {
|
|
grid rowconfigure $_interior $i -minsize 0
|
|
grid columnconfigure $_interior $i -minsize 0
|
|
}
|
|
|
|
if {$itk_option(-minuteon)} {
|
|
set minuteon 1
|
|
} else {
|
|
set minuteon 0
|
|
}
|
|
if {$itk_option(-secondon)} {
|
|
set secondon 1
|
|
} else {
|
|
set secondon 0
|
|
}
|
|
|
|
set _repack ""
|
|
|
|
switch $itk_option(-orient) {
|
|
vertical {
|
|
set row -1
|
|
|
|
if {$itk_option(-houron)} {
|
|
grid $itk_component(hour) -row [incr row] -column 0 \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(hour)
|
|
}
|
|
|
|
if {$itk_option(-minuteon)} {
|
|
if {$itk_option(-houron)} {
|
|
grid rowconfigure $_interior [incr row] \
|
|
-minsize $itk_option(-timemargin)
|
|
}
|
|
|
|
grid $itk_component(minute) -row [incr row] -column 0 \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(minute)
|
|
}
|
|
|
|
if {$itk_option(-secondon)} {
|
|
if {$minuteon || $secondon} {
|
|
grid rowconfigure $_interior [incr row] \
|
|
-minsize $itk_option(-timemargin)
|
|
}
|
|
|
|
grid $itk_component(second) -row [incr row] -column 0 \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(second)
|
|
}
|
|
|
|
if {$itk_option(-labelpos) == "w"} {
|
|
iwidgets::Labeledwidget::alignlabels $itk_component(hour) \
|
|
$itk_component(minute) $itk_component(second)
|
|
}
|
|
}
|
|
|
|
horizontal {
|
|
set column -1
|
|
|
|
if {$itk_option(-houron)} {
|
|
grid $itk_component(hour) -row 0 -column [incr column] \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(hour)
|
|
}
|
|
|
|
if {$itk_option(-minuteon)} {
|
|
if {$itk_option(-houron)} {
|
|
grid columnconfigure $_interior [incr column] \
|
|
-minsize $itk_option(-timemargin)
|
|
}
|
|
|
|
grid $itk_component(minute) -row 0 -column [incr column] \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(minute)
|
|
}
|
|
|
|
if {$itk_option(-secondon)} {
|
|
if {$minuteon || $secondon} {
|
|
grid columnconfigure $_interior [incr column] \
|
|
-minsize $itk_option(-timemargin)
|
|
}
|
|
|
|
grid $itk_component(second) -row 0 -column [incr column] \
|
|
-sticky nsew
|
|
} else {
|
|
grid forget $itk_component(second)
|
|
}
|
|
|
|
#
|
|
# Un-align labels
|
|
#
|
|
$itk_component(hour) configure -labelmargin 1
|
|
$itk_component(minute) configure -labelmargin 1
|
|
$itk_component(second) configure -labelmargin 1
|
|
}
|
|
|
|
default {
|
|
error "bad orient option \"$itk_option(-orient)\", should\
|
|
be \"vertical\" or \"horizontal\""
|
|
}
|
|
}
|
|
}
|
|
|
|
# ------------------------------------------------------------------
|
|
# METHOD: down60
|
|
#
|
|
# Down arrow button press event. Decrement value in the minute
|
|
# or second entry.
|
|
# ------------------------------------------------------------------
|
|
itcl::body iwidgets::Spintime::_down60 {comp} {
|
|
set step [$itk_component($comp) cget -step]
|
|
set val [$itk_component($comp) get]
|
|
|
|
incr val -$step
|
|
if {$val < 0} {
|
|
set val [expr {60-$step}]
|
|
}
|
|
$itk_component($comp) delete 0 end
|
|
$itk_component($comp) insert 0 $val
|
|
}
|