felixfoertsch/remind
1
0
Fork 0
mirror of https://salsa.debian.org/dskoll/remind.git synced 2026-05-04 22:59:45 +02:00
Code Issues Actions Packages Projects Releases Wiki Activity

Save screen real-estate.

Browse Source
This commit is contained in:
dfs
2007-07-17 08:57:38 +00:00
parent 1a6d59d9c0
commit cbf12b5601
1 changed files with 15 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
scripts/tkremind
+15 -15
View File
@@ -12,7 +12,7 @@
# #
#-------------------------------------------------------------- #--------------------------------------------------------------
# $Id: tkremind,v 1.42 2007-04-24 14:34:48 dfs Exp $ # $Id: tkremind,v 1.43 2007-07-17 08:57:38 dfs Exp $
# the next line restarts using wish \ # the next line restarts using wish \
exec wish "$0" "$@" exec wish "$0" "$@"
@@ -271,7 +271,7 @@ proc CreateCalFrame { w dayNames } {
set index $i set index $i
} }
label $w.day$i -text [lindex $dayNames $index] -justify center label $w.day$i -border 1 -text [lindex $dayNames $index] -justify center
grid configure $w.day$i -row 0 -column $i -sticky ew grid configure $w.day$i -row 0 -column $i -sticky ew
} }
for {set i 0} {$i < 6} {incr i} { for {set i 0} {$i < 6} {incr i} {
@@ -279,9 +279,9 @@ proc CreateCalFrame { w dayNames } {
for {set j 0} {$j < 7} {incr j} { for {set j 0} {$j < 7} {incr j} {
set f [expr $n+$j] set f [expr $n+$j]
button $w.l$f -text "" -justify center -command "" \ button $w.l$f -text "" -justify center -command "" \
-state disabled -relief flat -state disabled -relief flat -border 0 -padx 0 -pady 0
text $w.t$f -width 12 -height $h -wrap word -relief flat \ text $w.t$f -width 12 -height $h -border 1 -wrap word -relief flat \
-state disabled -takefocus 0 -cursor {} -state disabled -takefocus 0 -cursor {}
$w.t$f tag bind TAGGED <Enter> "TaggedEnter $w.t$f" $w.t$f tag bind TAGGED <Enter> "TaggedEnter $w.t$f"
$w.t$f tag bind TAGGED <Leave> "TaggedLeave $w.t$f" $w.t$f tag bind TAGGED <Leave> "TaggedLeave $w.t$f"
$w.t$f tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$f" $w.t$f tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$f"
@@ -392,22 +392,22 @@ proc ConfigureCalFrame { w firstDay numDays } {
proc CreateCalWindow { dayNames } { proc CreateCalWindow { dayNames } {
global Option global Option
frame .h frame .h
label .h.title -text "" -justify center -pady 2 -relief raised label .h.title -text "" -justify center -pady 1 -border 1 -relief raised
pack .h.title -side top -fill x pack .h.title -side top -fill x
pack .h -side top -expand 0 -fill x pack .h -side top -expand 0 -fill x
CreateCalFrame .cal $dayNames CreateCalFrame .cal $dayNames
frame .b frame .b
button .b.prev -text {<-} -command {MoveMonth -1} button .b.prev -text {<-} -command {MoveMonth -1} -border 1
button .b.this -text {Today} -command {ThisMonth} button .b.this -text {Today} -command {ThisMonth} -border 1
button .b.next -text {->} -command {MoveMonth 1} button .b.next -text {->} -command {MoveMonth 1} -border 1
button .b.goto -text {Go To Date...} -command {GotoDialog} button .b.goto -text {Go To Date...} -command {GotoDialog} -border 1
button .b.print -text {Print...} -command {DoPrint} button .b.print -text {Print...} -command {DoPrint} -border 1
button .b.quit -text {Quit} -command {Quit} button .b.quit -text {Quit} -command {Quit} -border 1
button .b.options -text {Options...} -command EditOptions button .b.options -text {Options...} -command EditOptions -border 1
label .b.status -text "" -width 25 -relief sunken label .b.status -text "" -width 25 -relief sunken -border 1
label .b.nqueued -text "" -width 20 -relief sunken label .b.nqueued -text "" -width 20 -relief sunken -border 1
pack .b.prev .b.this .b.next .b.goto .b.print .b.options .b.quit -side left -fill x pack .b.prev .b.this .b.next .b.goto .b.print .b.options .b.quit -side left -fill x
pack .b.status -side left -fill x -expand 1 pack .b.status -side left -fill x -expand 1
pack .b.nqueued -side left -fill x pack .b.nqueued -side left -fill x