felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-04-17 06:48:47 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fixed typos.

Browse Source
This commit is contained in:
dfs
2004-08-11 02:14:36 +00:00
parent 4e0be6645a
commit f9719ae7f5
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
scripts/tkremind
View File

@@ -12,7 +12,7 @@
#
#--------------------------------------------------------------
# $Id: tkremind,v 1.33 2004-08-11 02:01:46 dfs Exp $
# $Id: tkremind,v 1.34 2004-08-11 02:14:36 dfs Exp $
# the next line restarts using wish \
exec wish "$0" "$@"
@@ -315,6 +315,9 @@ proc ConfigureCalFrame { w firstDay numDays } {
$w.l$i configure -text "" -command "" -state disabled -relief flat
$w.t$i configure -relief flat -takefocus 0 -state normal
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
}
$w.t$i configure -state disabled
$w.t$i configure -background [lindex [$w.t$i configure -background] 3]
$w.l$i configure -background [lindex [$w.l$i configure -background] 3]
@@ -326,6 +329,9 @@ proc ConfigureCalFrame { w firstDay numDays } {
-command "ModifyDay $d $firstDay"
$w.t$i configure -relief sunken -takefocus 1 -state normal
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
}
$w.t$i configure -state disabled
$w.t$i configure -background [lindex [$w.t$i configure -background] 3]
$w.l$i configure -background [lindex [$w.l$i configure -background] 3]
@@ -346,6 +352,9 @@ proc ConfigureCalFrame { w firstDay numDays } {
$w.l$i configure -text "" -command "" -state disabled -relief flat
$w.t$i configure -relief flat -takefocus 0 -state normal
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
}
$w.t$i configure -state disabled
$w.t$i configure -background [lindex [$w.t$i configure -background] 3]
$w.l$i configure -background [lindex [$w.l$i configure -background] 3]
@@ -679,7 +688,7 @@ proc FillCalWindow {} {
if {[regexp {TKTAG([0-9]+)} $tag all tagno]} {
.cal.t$n insert end [string trim $stuff] [list TAGGED "TKTAG$tagno" $extratags]
} else {
.cal.t$n insert end [string trim $stuff]
.cal.t$n insert end [string trim $stuff] $extratags
}
.cal.t$n insert end "\n"
.cal.t$n configure -state disabled