Lines Matching refs:detail
36 global calendar detail
49 pack [entry .f2.e -textvariable detail(e)] -side left -fill x -expand 1
53 [entry .f3.e1 -textvariable detail(m) -width 3] \
55 [entry .f3.e2 -textvariable detail(d) -width 3] \
66 trace variable detail wu {after cancel FixEntry; after 100 FixEntry; #}
82 global calendar detail
84 regexp {..$} "00$detail(m)" m
85 regexp {..$} "00$detail(d)" d
86 set new "$m/$d $detail(e)"
88 if {$new == $detail(full)} return
90 catch {unset calendar($detail(full))}
91 if {$detail(e) != ""} {
94 set detail(full) $new
99 global detail
101 set detail(full) [.f1.lb get $n]
102 if {![regexp {^(..)/(..) (.*)} $detail(full) x \
103 detail(m) detail(d) detail(e)]} {
105 set detail(m) [clock format $now -format %m]
106 set detail(d) [clock format $now -format %d]
107 set detail(e) ""