Mercurial > hg > mercurial-crew-with-dirclash
diff contrib/hgk @ 5117:d4fa6bafc43a
Remove trailing spaces, fix indentation
author | Thomas Arendsen Hein <thomas@intevation.de> |
---|---|
date | Tue, 07 Aug 2007 10:28:43 +0200 |
parents | b43db44cd047 |
children | f8c36b215281 |
line wrap: on
line diff
--- a/contrib/hgk +++ b/contrib/hgk @@ -32,7 +32,7 @@ proc ::tk::MouseWheel {wFired X Y D {shi # if we are outside the app, try and scroll the focus widget if {![winfo exists $w]} { catch {set w [focus]} } if {[winfo exists $w]} { - + if {[bind $w $evt] ne ""} { # Awkward ... this widget has a MouseWheel binding, but to # trigger successfully in it, we must give it focus. @@ -70,7 +70,7 @@ proc ::tk::MouseWheel {wFired X Y D {shi bind all <MouseWheel> [list ::tk::MouseWheel %W %X %Y %D 0] # end of win32 section -} +} proc gitdir {} {