Script 'mail_helper' called by obssrc
Hello community,
here is the log from the commit of package remind for openSUSE:Factory checked
in at 2021-01-22 21:52:26
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Comparing /work/SRC/openSUSE:Factory/remind (Old)
and /work/SRC/openSUSE:Factory/.remind.new.28504 (New)
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Package is "remind"
Fri Jan 22 21:52:26 2021 rev:17 rq:865666 version:3.3.5
Changes:
--------
--- /work/SRC/openSUSE:Factory/remind/remind.changes 2021-01-13
18:35:48.658391387 +0100
+++ /work/SRC/openSUSE:Factory/.remind.new.28504/remind.changes 2021-01-22
21:52:49.197891282 +0100
@@ -1,0 +2,25 @@
+Fri Jan 22 08:16:00 UTC 2021 - Detlef Steuer <detlef.ste...@gmx.de>
+
+- update to remind 3.3.5
+
+- CHANGES TO REMIND
+
+* VERSION 3.3 Patch 5 - 2021-01-21
+
+- NEW FEATURE: tkremind: Add ability to change fonts and colors from
+ within TkRemind "Options" dialog.
+
+- CHANGE: tkremind: TkRemind now requires Tcl/Tk 8.5 or newer.
+
+- CHANGE: tkremind: You can specify the location of the options
+ file on the command-line if you want to use one other than ~/.tkremindrc
+
+- CLEANUP: tkremind: Remove "Apply Options" from Options dialog; we only
+ need "Save Options".
+
+- DOC FIX: Add missing release note in 3.3.4 notes regarding
+ setpagedevice patch
+
+- DOC FIX: tkremind: Document shortcut keys.
+
+-------------------------------------------------------------------
Old:
----
remind-03.03.04.tar.gz
remind-3.3.4-rpmlintrc
New:
----
remind-03.03.05.tar.gz
remind-3.3.5-rpmlintrc
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ remind.spec ++++++
--- /var/tmp/diff_new_pack.oec8PG/_old 2021-01-22 21:52:49.785892116 +0100
+++ /var/tmp/diff_new_pack.oec8PG/_new 2021-01-22 21:52:49.789892122 +0100
@@ -17,9 +17,9 @@
Name: remind
-Version: 3.3.4
+Version: 3.3.5
Release: 0
-%define tar_version 03.03.04
+%define tar_version 03.03.05
Summary: A sophisticated calendar and alarm program
License: GPL-2.0-only
Group: Productivity/Office/Organizers
++++++ remind-03.03.04.tar.gz -> remind-03.03.05.tar.gz ++++++
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/configure
new/remind-03.03.05/configure
--- old/remind-03.03.04/configure 2021-01-12 16:13:13.000000000 +0100
+++ new/remind-03.03.05/configure 2021-01-21 21:48:26.000000000 +0100
@@ -3991,7 +3991,7 @@
fi
done
-VERSION=03.03.04
+VERSION=03.03.05
ac_config_files="$ac_config_files src/Makefile www/Makefile src/version.h"
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/configure.in
new/remind-03.03.05/configure.in
--- old/remind-03.03.04/configure.in 2021-01-12 16:13:13.000000000 +0100
+++ new/remind-03.03.05/configure.in 2021-01-21 21:48:26.000000000 +0100
@@ -75,6 +75,6 @@
fi
AC_CHECK_FUNCS(setenv unsetenv glob mbstowcs setlocale)
-VERSION=03.03.04
+VERSION=03.03.05
AC_SUBST(VERSION)
AC_OUTPUT(src/Makefile www/Makefile src/version.h)
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/docs/WHATSNEW
new/remind-03.03.05/docs/WHATSNEW
--- old/remind-03.03.04/docs/WHATSNEW 2021-01-12 16:13:13.000000000 +0100
+++ new/remind-03.03.05/docs/WHATSNEW 2021-01-21 21:48:26.000000000 +0100
@@ -1,6 +1,24 @@
CHANGES TO REMIND
-* VERSION 3.3 Patch 3 - 2021-01-12
+* VERSION 3.3 Patch 5 - 2021-01-21
+
+- NEW FEATURE: tkremind: Add ability to change fonts and colors from
+ within TkRemind "Options" dialog.
+
+- CHANGE: tkremind: TkRemind now requires Tcl/Tk 8.5 or newer.
+
+- CHANGE: tkremind: You can specify the location of the options
+ file on the command-line if you want to use one other than ~/.tkremindrc
+
+- CLEANUP: tkremind: Remove "Apply Options" from Options dialog; we only
+ need "Save Options".
+
+- DOC FIX: Add missing release note in 3.3.4 notes regarding
+ setpagedevice patch
+
+- DOC FIX: tkremind: Document shortcut keys.
+
+* VERSION 3.3 Patch 4 - 2021-01-12
- NEW FEATURE: If "inotifywait" is installed, TkRemind uses it to refresh
the calendar display right away when the reminders file/directory is updated.
@@ -13,6 +31,9 @@
- MINOR FIXES: A typo in remind.1 was fixed; additional comments regarding
UNTIL were added.
+- BUG FIX: rem2ps: Call setpagedevice to set page size. Based on a patch
+ from Jonathan Kamens.
+
* VERSION 3.3 Patch 3 - 2020-11-09
- BUG FIX: Fix startup crash in TkRemind if "Show Today's Reminders on
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/man/tkremind.1
new/remind-03.03.05/man/tkremind.1
--- old/remind-03.03.04/man/tkremind.1 2021-01-12 16:13:13.000000000 +0100
+++ new/remind-03.03.05/man/tkremind.1 2021-01-21 21:48:26.000000000 +0100
@@ -1,9 +1,9 @@
-.TH TKREMIND 1 "1 January 2020"
+.TH TKREMIND 1 "15 January 2021"
.UC 4
.SH NAME
tkremind \- graphical front-end to Remind calendar program
.SH SYNOPSIS
-.B tkremind \fR[\fIoptions\fR] [\fIread_file\fR] [\fIwrite_file\fR]
+.B tkremind \fR[\fIoptions\fR] [\fIread_file\fR] [\fIwrite_file\fR]
[\fIconfig_file\fR]
.SH DESCRIPTION
\fBTkRemind\fR is a graphical front-end to the \fBRemind\fR program.
It provides a friendly graphical interface which allows you to view
@@ -41,6 +41,9 @@
.fi
.PP
+\fIConfig_file\fR is the file in which \fBTkRemind\fR stores
+its options. If it is omitted, it defaults to \fI$HOME/.tkremindrt\fR.
+
.SH THE CALENDAR WINDOW
When you start \fBTkRemind\fR, it displays a calendar for the current
month, with today's date highlighted. Reminders are filled into each
@@ -51,11 +54,14 @@
.SH NAVIGATING
To change to the previous or next month, click the \fB<\-\fR
-or \fB\->\fR button, respectively. To change back to
-the current month, click \fBToday\fR. To go to a specific month,
-click \fBGo To Date...\fR. This pops up a dialog box which allows you
-to select a month and enter a year. Once you've done this, click
-\fBGo\fR to go to the date, or \fBCancel\fR to cancel.
+or \fB\->\fR button, respectively. You can also use the left/right arrow
+keys or PageUp/PageDown to navigate.
+
+To change back to the current month, click \fBToday\fR or press the
+Home key. To go to a specific month, click \fBGo To Date...\fR. This
+pops up a dialog box which allows you to select a month and enter a
+year. Once you've done this, click \fBGo\fR to go to the date, or
+\fBCancel\fR to cancel.
To exit \fBTkRemind\fR, click \fBQuit\fR.
@@ -233,6 +239,22 @@
containing the reminder, and "%s" are replaced with the file name.
Useful strings might be "emacs +%d %s" or "gvim +%d %s"
+.TP
+.B Extra Argument for Remind
+This specifies any extra arguments that should be passed to Remind
+when \BTkRemind\fR invokes \fBremind\fR. Unless you know what
+you are doing, leave this blank.
+
+.TP
+.B Change entry font...
+This button pops up a font selection dialog that lets you change the
+font used to draw calendar items in the calendar boxes.
+
+.TP
+.B Change heading font...
+Similar to Change entry font, but applies to calendar heading
+(the month and day names and the day numbers.)
+
.PP
Once you've configured the options the way you like them,
press \fBApply Options\fR to put them into effect, \fBSave Options\fR
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/scripts/tkremind
new/remind-03.03.05/scripts/tkremind
--- old/remind-03.03.04/scripts/tkremind 2021-01-12 16:13:13.000000000
+0100
+++ new/remind-03.03.05/scripts/tkremind 2021-01-21 21:48:26.000000000
+0100
@@ -7,13 +7,20 @@
# A cheesy graphical front/back end for Remind using Tcl/Tk
#
# This file is part of REMIND.
-# Copyright (C) 1992-2020 Dianne Skoll
+# Copyright (C) 1992-2021 Dianne Skoll
#
#--------------------------------------------------------------
# the next line restarts using wish \
exec wish "$0" "$@"
+# We need at least version 8.5 because of {*} list expansion operator
+if {[catch {package require Tcl 8.5}]} {
+ puts "This program requires Tcl 8.5 or higher."
+ puts "You have version [info tclversion]"
+ exit 1
+}
+
wm withdraw .
set Hostname [exec hostname]
@@ -155,6 +162,24 @@
set Option(ExtraRemindArgs) ""
set OptDescr(ExtraRemindArgs) "(String) Extra arguments when invoking remind"
+set Option(CalboxFont) [font actual TkFixedFont]
+set OptDescr(CalboxFont) "Font to use in calendar boxes in Tk font format"
+
+set Option(HeadingFont) [font actual TkDefaultFont]
+set OptDescr(HeadingFont) "Font to use in calendar headings in Tk font format"
+
+set Option(BackgroundColor) "#d9d9d9"
+set OptDescr(BackgroundColor) "Default background color of calendar boxes"
+
+set Option(TextColor) "#000000"
+set OptDescr(TextColor) "Default text color in calendar boxes"
+
+set Option(LabelColor) "#000000"
+set OptDescr(LabelColor) "Default label color for headings"
+
+set Option(WinBackground) "#d9d9d9"
+set OptDescr(WinBackground) "Background color of calendar window"
+
set TimerUpdateForChanges ""
# Remind program to execute -- supply full path if you want
@@ -168,6 +193,9 @@
set ReminderFile {NOSUCHFILE}
set ReminderFile [file nativename "~/.reminders"]
+# Default options file
+set ConfigFile ~/.tkremindrc
+
set EditorPid -1
# Inotify file
@@ -269,7 +297,7 @@
global DayNames argc argv CommandLine ReminderFile AppendFile Remind PSCmd
global MondayFirst TwentyFourHourMode ReminderFileModTime
- global Option
+ global Option ConfigFile
set CommandLine "|$Remind -itkremind=1 -pp -y -l EXTRA"
set PSCmd "$Remind -itkremind=1 -itkprint=1 -pp -l EXTRA"
set i 0
@@ -295,6 +323,10 @@
if {$i < $argc} {
set AppendFile [lindex $argv $i]
incr i
+ if {$i < $argc} {
+ set ConfigFile [lindex $argv $i]
+ incr i
+ }
}
}
@@ -452,6 +484,7 @@
proc CreateCalFrame { w dayNames } {
# Figure out reasonable height for text frames
global SetFontsWorked
+ global Option
set h [winfo screenheight .]
if {$h <= 480} {
if {$SetFontsWorked} {
@@ -466,7 +499,7 @@
}
global MondayFirst
- frame $w
+ frame $w -background $Option(WinBackground)
for {set i 0} {$i < 7} {incr i} {
if {$MondayFirst} {
set index [expr ($i+1)%7]
@@ -474,7 +507,7 @@
set index $i
}
- label $w.day$i -border 1 -text [lindex $dayNames $index] -justify center
+ label $w.day$i -border 1 -text [lindex $dayNames $index] -justify
center -font HeadingFont -foreground $Option(LabelColor) -background
$Option(WinBackground)
grid configure $w.day$i -row 0 -column $i -sticky ew
}
for {set i 0} {$i < 6} {incr i} {
@@ -482,9 +515,9 @@
for {set j 0} {$j < 7} {incr j} {
set f [expr $n+$j]
button $w.l$f -text "" -justify center -command "" \
- -state disabled -relief flat -border 0 -padx 0 -pady 0
+ -state disabled -relief flat -border 0 -padx 0 -pady 0 -font
HeadingFont
text $w.t$f -width 12 -height $h -border 1 -spacing3 3 -wrap word
-relief flat \
- -state disabled -takefocus 0 -cursor {}
+ -state disabled -takefocus 0 -cursor {} -font CalboxFont
-foreground $Option(TextColor) -background $Option(BackgroundColor)
$w.t$f tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$f"
$w.t$f tag bind REM <ButtonPress-3> "FireEditor $w.t$f"
@@ -514,18 +547,17 @@
#***********************************************************************
proc ConfigureCalFrame { w firstDay numDays } {
global CurMonth CurYear TodayMonth TodayYear TodayDay
- global tk_version
+ global tk_version Option
set offset [CalEntryOffset $firstDay]
set first [expr $offset+1]
set last [expr $offset+$numDays]
- set bg [lindex [. configure -background] 3]
-
for {set i 0} {$i < $first} {incr i} {
grid $w.l$i $w.t$i
- $w.l$i configure -text "" -command "" -state disabled -relief flat
+ $w.l$i configure -text "" -command "" -state normal -relief flat
-foreground $Option(LabelColor) -background $Option(WinBackground)
+ $w.l$i configure -state disabled
balloon_add_help $w.l$i ""
- $w.t$i configure -relief flat -takefocus 0 -state normal
+ $w.t$i configure -relief flat -takefocus 0 -state normal -background
$Option(WinBackground)
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
@@ -533,16 +565,14 @@
$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
$w.t$i configure -state disabled
- $w.t$i configure -background $bg
- $w.l$i configure -background $bg
}
for {set i $first} {$i <= $last} {incr i} {
grid $w.l$i $w.t$i
set d [expr $i-$first+1]
$w.l$i configure -text $d -state normal -relief flat \
- -command "ModifyDay $d $firstDay"
+ -command "ModifyDay $d $firstDay" -foreground
$Option(LabelColor) -background $Option(WinBackground)
balloon_add_help $w.l$i "Add a reminder..."
- $w.t$i configure -relief sunken -takefocus 1 -state normal
+ $w.t$i configure -relief sunken -takefocus 1 -state normal -foreground
$Option(TextColor) -background $Option(BackgroundColor)
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
@@ -550,8 +580,6 @@
$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
$w.t$i configure -state disabled
- $w.t$i configure -background $bg
- $w.l$i configure -background $bg
}
set forgetIt 0
for {set i [expr $last+1]} {$i < 42} {incr i} {
@@ -564,11 +592,13 @@
grid rowconfigure $w $row -weight 0
grid rowconfigure $w [expr $row+1] -weight 0
} else {
+ grid $w.l$i $w.t$i
grid rowconfigure $w [expr $row+1] -weight 1
}
- $w.l$i configure -text "" -command "" -state disabled -relief flat
+ $w.l$i configure -text "" -command "" -state normal -relief flat
-foreground $Option(LabelColor) -background $Option(WinBackground)
+ $w.l$i configure -state disabled
balloon_add_help $w.l$i ""
- $w.t$i configure -relief flat -takefocus 0 -state normal
+ $w.t$i configure -relief flat -takefocus 0 -state normal -background
$Option(WinBackground)
$w.t$i delete 1.0 end
foreach t [$w.t$i tag names] {
$w.t$i tag delete $t
@@ -576,8 +606,6 @@
$w.t$i tag bind TAGGED <ButtonPress-1> "EditTaggedReminder $w.t$i"
$w.t$i tag bind REM <ButtonPress-3> "FireEditor $w.t$i"
$w.t$i configure -state disabled
- $w.t$i configure -background $bg
- $w.l$i configure -background $bg
}
if { $CurMonth == $TodayMonth && $CurYear == $TodayYear } {
set n [expr $TodayDay + $offset]
@@ -598,14 +626,14 @@
#---------------------------------------------------------------------------
proc CreateCalWindow { dayNames } {
global Option
- frame .h
- label .h.title -text "" -justify center -pady 1 -border 1 -relief raised
+ frame .h -background $Option(WinBackground);
+ label .h.title -text "" -justify center -pady 1 -border 1 -relief raised
-font HeadingFont -background $Option(WinBackground) -foreground
$Option(LabelColor)
pack .h.title -side top -fill x
pack .h -side top -expand 0 -fill x
CreateCalFrame .cal $dayNames
- frame .b
+ frame .b -background $Option(WinBackground);
button .b.prev -image leftarrow -width 24 -command {MoveMonth -1} -border 1
balloon_add_help .b.prev "Go to previous month"
button .b.this -text {Today} -command {ThisMonth} -border 1
@@ -640,6 +668,7 @@
bind . <KeyPress-Next> ".b.next flash; .b.next invoke"
bind . <KeyPress-Home> ".b.this flash; .b.this invoke"
+ . configure -background $Option(WinBackground)
if {$Option(StartIconified)} {
wm iconify .
}
@@ -741,6 +770,30 @@
pack $w.extraargs -in $w.eaf -side left -expand 1 -fill x
$w.extraargs insert 0 $tmpOpt(ExtraRemindArgs)
+ # Fonts
+ frame $w.fframe
+ button $w.font -text "Change entry font..." -command "ChooseCalboxFont"
+ button $w.hfont -text "Change heading font..." -command "ChooseHeadingFont"
+ pack $w.font $w.hfont -in $w.fframe -side left -expand 1 -fill x
+
+ # Colors
+ frame $w.colors1
+ label $w.textcolor -text "Text Color:"
+ button $w.btextcolor -background $Option(TextColor) -command [list
PickColor TextColor $w.btextcolor] -text ...
+ label $w.bgcolor -text " Background color:"
+ button $w.bbgcolor -background $Option(BackgroundColor) -command [list
PickColor BackgroundColor $w.bbgcolor] -text ...
+
+ grid $w.textcolor $w.btextcolor $w.bgcolor $w.bbgcolor -in $w.colors1
+ grid $w.bgcolor $w.bbgcolor -in $w.colors1
+
+ label $w.headcolor -text "Heading Color:"
+ button $w.bheadcolor -background $Option(LabelColor) -command [list
PickColor LabelColor $w.bheadcolor] -text ...
+ label $w.wincolor -text " Window color:"
+ button $w.bwincolor -background $Option(WinBackground) -command [list
PickColor WinBackground $w.bwincolor] -text ...
+ grid $w.headcolor $w.bheadcolor $w.wincolor $w.bwincolor -in $w.colors1
+
+ grid columnconfigure $w.colors1 0 -weight 1
+ grid columnconfigure $w.colors1 2 -weight 1
frame $w.sep1 -border 1 -relief sunken
frame $w.sep2 -border 1 -relief sunken
@@ -762,16 +815,23 @@
pack $w.fsmtp -in $w.f -side top -expand 0 -fill x
pack $w.ef -in $w.f -side top -expand 0 -fill x
pack $w.eaf -in $w.f -side top -expand 0 -fill x
+ pack $w.fframe -in $w.f -side top -expand 0 -fill x
+ pack $w.colors1 -in $w.f -side top -expand 0 -fill x
pack $w.sep2 -in $w.f -side top -expand 0 -fill x -ipady 1
- button $w.apply -text "Apply Options" -command "ApplyOptions $w; destroy
$w"
button $w.save -text "Save Options" -command "SaveOptions $w; destroy $w"
- button $w.cancel -text "Cancel" -command "destroy $w"
-
- pack $w.apply $w.save $w.cancel -in $w.b -side left -expand 0 -fill x
+ button $w.cancel -text "Cancel" -command "CancelOptions; destroy $w"
+ wm protocol $w WM_DELETE_WINDOW "CancelOptions; destroy $w"
+ pack $w.save $w.cancel -in $w.b -side left -expand 0 -fill x
CenterWindow $w .
}
+proc CancelOptions { } {
+ global Option
+ font configure CalboxFont {*}$Option(CalboxFont)
+ font configure HeadingFont {*}$Option(HeadingFont)
+}
+
#***********************************************************************
# %PROCEDURE: ApplyOptions
# %ARGUMENTS:
@@ -812,15 +872,15 @@
# %RETURNS:
# Nothing
# %DESCRIPTION:
-# Saves options in $HOME/.tkremindrc
+# Saves options in specified config file
#***********************************************************************
proc SaveOptions { w } {
- global Option OptDescr
+ global Option OptDescr ConfigFile
ApplyOptions $w
- set problem [catch {set f [open ~/.tkremindrc "w"]} err]
+ set problem [catch {set f [open $ConfigFile "w"]} err]
if {$problem} {
- tk_dialog .error Error "Can't write ~/.tkremindrc: $err" 0 OK
+ tk_dialog .error Error "Can't write $ConfigFile: $err" 0 OK
return
}
@@ -836,6 +896,11 @@
}
puts $f ""
close $f
+ FillCalWindow
+ .h.title configure -background $Option(WinBackground) -foreground
$Option(LabelColor)
+ for {set i 0} {$i < 7} {incr i} {
+ .cal.day$i configure -foreground $Option(LabelColor) -background
$Option(WinBackground)
+ }
}
#***********************************************************************
@@ -845,25 +910,31 @@
# %RETURNS:
# Nothing
# %DESCRIPTION:
-# Loads options from ~/.tkremindrc
+# Loads options from $ConfigFile
#***********************************************************************
proc LoadOptions {} {
- global Option
- set problem [catch {set f [open "~/.tkremindrc" "r"]}]
+ global Option ConfigFile
+ set problem [catch {set f [open "$ConfigFile" "r"]}]
if {$problem} {
return
}
while {[gets $f line] >= 0} {
- if {[string match "#*" $line]} { continue }
- if {$line == ""} { continue }
- foreach {key val} $line {}
- if {![info exists Option($key)]} {
- puts "Unknown option in ~/.tkremindrc: $key"
- continue
- }
- set Option($key) $val
+ if {[string match "#*" $line]} {
+ continue
+ }
+ if {$line == ""} {
+ continue
+ }
+ foreach {key val} $line {}
+ if {![info exists Option($key)]} {
+ puts "Unknown option in $ConfigFile: $key"
+ continue
+ }
+ set Option($key) $val
}
close $f
+ font configure CalboxFont {*}$Option(CalboxFont)
+ font configure HeadingFont {*}$Option(HeadingFont)
}
@@ -2626,22 +2697,27 @@
proc main {} {
- # If no ~/.tkremindrc file, create an empty one
- if {![file exists ~/.tkremindrc]} {
- catch {
- set f [open ~/.tkremindrc "w"]
- close $f
- }
- }
+ global ConfigFile
+
+ font create CalboxFont {*}[font actual TkFixedFont]
+ font create HeadingFont {*}[font actual TkDefaultFont]
global AppendFile HighestTagSoFar DayNames
catch {
- puts "\nTkRemind Copyright (C) 1996-2020 Dianne Skoll"
+ puts "\nTkRemind Copyright (C) 1996-2021 Dianne Skoll"
}
catch { SetFonts }
+ Initialize
+
+ # If no $ConfigFile file, create an empty one
+ if {![file exists $ConfigFile]} {
+ catch {
+ set f [open $ConfigFile "w"]
+ close $f
+ }
+ }
LoadOptions
CreateMoonImages
- Initialize
ShowTodaysReminders
ScanForTags $AppendFile
CreateCalWindow $DayNames
@@ -3062,12 +3138,13 @@
# Removes highlight from an "editable" reminder as mouse leaves it
#***********************************************************************
proc TaggedLeave { w } {
+ global Option
set tag [GetCurrentReminder $w]
if {$tag != ""} {
set tags [$w tag names current]
set index [lsearch -glob $tags "clr*"]
if {$index < 0} {
- set fg "#000000"
+ set fg $Option(TextColor)
} else {
set fg [string range [lindex $tags $index] 3 end]
set fg "#$fg"
@@ -3589,6 +3666,7 @@
set Balloon(HelpTime) 400
set Balloon(StayTime) 3500
set Balloon(Font) fixed
+set Balloon(MustLeave) 0
proc balloon_reset_timer { w } {
balloon_destroy_help_window
@@ -3702,4 +3780,40 @@
return "+$tx+$ty"
}
+proc ChooseCalboxFont {} {
+ tk fontchooser show
+ tk fontchooser configure -font [font actual CalboxFont]
+ tk fontchooser configure -command SetCalboxFont
+}
+
+proc SetCalboxFont {font} {
+ global tmpOpt
+ font configure CalboxFont {*}[font actual $font]
+ set tmpOpt(CalboxFont) [font actual $font]
+ raise .opt
+}
+
+proc ChooseHeadingFont {} {
+ tk fontchooser show
+ tk fontchooser configure -font [font actual HeadingFont]
+ tk fontchooser configure -command SetHeadingFont
+}
+
+proc SetHeadingFont {font} {
+ global tmpOpt
+ font configure HeadingFont {*}[font actual $font]
+ set tmpOpt(HeadingFont) [font actual $font]
+ raise .opt
+}
+
+proc PickColor {index button} {
+ global tmpOpt
+ set x [tk_chooseColor -initialcolor $tmpOpt($index)]
+ if {"$x" != ""} {
+ set tmpOpt($index) $x
+ $button configure -background $x
+ }
+ raise .opt
+}
+
main
diff -urN '--exclude=CVS' '--exclude=.cvsignore' '--exclude=.svn'
'--exclude=.svnignore' old/remind-03.03.04/tests/test.cmp
new/remind-03.03.05/tests/test.cmp
--- old/remind-03.03.04/tests/test.cmp 2021-01-12 16:13:13.000000000 +0100
+++ new/remind-03.03.05/tests/test.cmp 2021-01-21 21:48:26.000000000 +0100
@@ -857,7 +857,7 @@
"a05" + "6" => "a056"
value("a056") => "SDFJHSDF KSJDFH KJSDFH KSJDFH"
set a058 version()
-version() => "03.03.04"
+version() => "03.03.05"
set a059 wkday(today())
today() => 1991-02-16
wkday(1991-02-16) => "Saturday"
@@ -2426,7 +2426,7 @@
a109 2012-01-01
a128 2018-02-03@16:45
a039 "February"
-a058 "03.03.04"
+a058 "03.03.05"
a077 "1992 92
"
a096 -4
++++++ remind-3.3.4-rpmlintrc -> remind-3.3.5-rpmlintrc ++++++
