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

Link the Fill page and Avoid over-full boxes checkbuttons.

Browse Source
This commit is contained in:
Dianne Skoll
2026-02-27 16:46:16 -05:00
parent 0a82eadea6
commit 52b36d4503
1 changed files with 15 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
scripts/tkremind.in
View File

@@ -1761,8 +1761,8 @@ proc DoPrintHelper {} {
radiobutton .p.landscape -text "Landscape" -variable Option(PrintOrient) -value landscape radiobutton .p.landscape -text "Landscape" -variable Option(PrintOrient) -value landscape
radiobutton .p.portrait -text "Portrait" -variable Option(PrintOrient) -value portrait radiobutton .p.portrait -text "Portrait" -variable Option(PrintOrient) -value portrait
checkbutton .p.fill -text "Fill page" -variable Option(PrintFill) checkbutton .p.fill -text "Fill page" -variable Option(PrintFill) -command PrintFillButtonPressed
checkbutton .p.avoid -text "Avoid over-full boxes" -variable Option(PrintAvoidOverfull) checkbutton .p.avoid -text "Avoid over-full boxes" -variable Option(PrintAvoidOverfull) -command PrintAvoidOverfullButtonPressed
checkbutton .p.wrap -text "Use at most 5 rows" -variable Option(WrapCal) checkbutton .p.wrap -text "Use at most 5 rows" -variable Option(WrapCal)
checkbutton .p.right -text "Day numbers at top-right" -variable Option(PrintDaysRight) checkbutton .p.right -text "Day numbers at top-right" -variable Option(PrintDaysRight)
checkbutton .p.calendars -text "Print small calendars" -variable Option(PrintSmallCalendars) checkbutton .p.calendars -text "Print small calendars" -variable Option(PrintSmallCalendars)
@@ -1890,6 +1890,19 @@ proc DoPrintHelper {} {
} }
} }
proc PrintFillButtonPressed {} {
global Option
if { ! $Option(PrintFill) && $Option(PrintAvoidOverfull) } {
set Option(PrintAvoidOverfull) 0
}
}
proc PrintAvoidOverfullButtonPressed {} {
global Option
if { ! $Option(PrintFill) && $Option(PrintAvoidOverfull) } {
set Option(PrintFill) 1
}
}
proc ShowPrintCommand { cmd } { proc ShowPrintCommand { cmd } {
global Option global Option
catch { destroy .pc } catch { destroy .pc }