--- C:/src/tklib/widget/dateentry.1.7.tcl	Tue Dec 13 21:28:00 2011
+++ C:/src/tklib/widget/dateentry.tcl	Fri Mar 08 09:42:52 2013
@@ -184,11 +184,12 @@
 	bind $dropbox <Return> [list $win DateAccepted]
 	bind $dropbox <space>  [list $win DateAccepted]
 	bind $dropbox <ButtonPress> [subst -nocommands {
-	    if {[string first "$dropbox" [winfo containing %X %Y]] != 0} {
-		$win unpost
-	    } else {
-                $win DateAccepted
-            }
+		set tags [$dropbox.calendar gettags [$dropbox.calendar find closest %x %y]]
+		if {[string first "$dropbox" [winfo containing %X %Y]] != 0} {
+			$win unpost
+		} elseif {"cbutton" ni \$tags} {
+			$win DateAccepted
+		}
 	}]
 	bindtags $dropbox [linsert [bindtags $dropbox] 1 TDateEntryPopdown]
 
