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

Add TkRemind option for drawing day numbers on left.

Browse Source
This commit is contained in:
Dianne Skoll
2021-01-05 16:39:57 -05:00
parent 350564c304
commit 2a1960f257
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
scripts/tkremind
View File

@@ -223,6 +223,7 @@ set PrintDest file
set PrintSize letter set PrintSize letter
set PrintOrient landscape set PrintOrient landscape
set PrintFill 1 set PrintFill 1
set PrintDaysRight 1
set PrintEncoding 0 set PrintEncoding 0
set PrintMargins 36pt set PrintMargins 36pt
set PrintSmallCalendars 1 set PrintSmallCalendars 1
@@ -1082,7 +1083,7 @@ proc Status { stuff } {
# None # None
#--------------------------------------------------------------------------- #---------------------------------------------------------------------------
proc DoPrint {} { proc DoPrint {} {
global PrintDest PrintSize PrintMargins PrintOrient PrintFill PrintEncoding PrintSmallCalendars PrintStatus Rem2PS PSCmd Option global PrintDest PrintSize PrintMargins PrintOrient PrintFill PrintDaysRight PrintEncoding PrintSmallCalendars PrintStatus Rem2PS PSCmd Option
global CurMonth CurYear MonthNames global CurMonth CurYear MonthNames
catch {destroy .p} catch {destroy .p}
toplevel .p toplevel .p
@@ -1118,6 +1119,7 @@ proc DoPrint {} {
radiobutton .p.portrait -text "Portrait" -variable PrintOrient -value portrait radiobutton .p.portrait -text "Portrait" -variable PrintOrient -value portrait
checkbutton .p.fill -text "Fill page" -variable PrintFill checkbutton .p.fill -text "Fill page" -variable PrintFill
checkbutton .p.right -text "Day numbers at top-right" -variable PrintDaysRight
checkbutton .p.encoding -text "ISO 8859-1 PostScript encoding" -variable PrintEncoding checkbutton .p.encoding -text "ISO 8859-1 PostScript encoding" -variable PrintEncoding
checkbutton .p.calendars -text "Print small calendars" -variable PrintSmallCalendars checkbutton .p.calendars -text "Print small calendars" -variable PrintSmallCalendars
@@ -1126,7 +1128,7 @@ proc DoPrint {} {
pack .p.f1 .p.f2 .p.f2a .p.f3 .p.f3a \ pack .p.f1 .p.f2 .p.f2a .p.f3 .p.f3a \
-side top -fill both -expand 1 -anchor w -side top -fill both -expand 1 -anchor w
pack .p.fill .p.encoding .p.calendars -in .p.f3a \ pack .p.fill .p.right .p.encoding .p.calendars -in .p.f3a \
-side top -anchor w -fill none -expand 0 -side top -anchor w -fill none -expand 0
pack .p.f4 -side top -fill both -expand 1 -anchor w pack .p.f4 -side top -fill both -expand 1 -anchor w
pack .p.f11 .p.f12 -in .p.f1 -side top -fill none -expand 0 -anchor w pack .p.f11 .p.f12 -in .p.f1 -side top -fill none -expand 0 -anchor w
@@ -1198,6 +1200,9 @@ proc DoPrint {} {
append cmd " -e" append cmd " -e"
} }
if {!$PrintDaysRight} {
append cmd " -x"
}
if {$PrintEncoding} { if {$PrintEncoding} {
append cmd " -i" append cmd " -i"
} }