Add balloon help to moon windows

This commit is contained in:
Dianne Skoll
2021-12-26 13:08:49 -05:00
parent a1d03b8159
commit c33e873577

View File

@@ -3560,6 +3560,11 @@ proc CreateMoonWindows {} {
canvas .moon_last -background $Option(BackgroundColor) -width $wid -height $wid -borderwidth 0 -highlightthickness 0
.moon_last create oval $extra $extra $w $w -outline $Option(TextColor) -width 1
.moon_last create arc $extra $extra $w $w -outline $Option(TextColor) -fill $Option(TextColor) -start 270 -extent 180 -outline {}
balloon_add_help .moon_new "New Moon"
balloon_add_help .moon_first "First Quarter"
balloon_add_help .moon_full "Full Moon"
balloon_add_help .moon_last "Last Quarter"
}
#***********************************************************************