Browse Source

gitk - remove trailing whitespace from a few lines.

Signed-off-by: Mark Levedahl <mdl123@verizon.net>
maint
Mark Levedahl 18 years ago committed by Junio C Hamano
parent
commit
32364b3a19
  1. 8
      gitk

8
gitk

@ -427,7 +427,7 @@ proc makewindow {} {
.bar.view add separator .bar.view add separator
.bar.view add radiobutton -label "All files" -command {showview 0} \ .bar.view add radiobutton -label "All files" -command {showview 0} \
-variable selectedview -value 0 -variable selectedview -value 0

menu .bar.help menu .bar.help
.bar add cascade -label "Help" -menu .bar.help .bar add cascade -label "Help" -menu .bar.help
.bar.help add command -label "About gitk" -command about .bar.help add command -label "About gitk" -command about
@ -1402,7 +1402,7 @@ proc newview {ishighlight} {
set newviewname($nextviewnum) "View $nextviewnum" set newviewname($nextviewnum) "View $nextviewnum"
set newviewperm($nextviewnum) 0 set newviewperm($nextviewnum) 0
set newviewargs($nextviewnum) [shellarglist $revtreeargs] set newviewargs($nextviewnum) [shellarglist $revtreeargs]
vieweditor $top $nextviewnum "Gitk view definition" vieweditor $top $nextviewnum "Gitk view definition"
} }


proc editview {} { proc editview {} {
@ -3897,7 +3897,7 @@ proc selectline {l isnew} {
} }
$ctext insert end "\n" $ctext insert end "\n"
} }

set headers {} set headers {}
set olds [lindex $parentlist $l] set olds [lindex $parentlist $l]
if {[llength $olds] > 1} { if {[llength $olds] > 1} {
@ -4006,7 +4006,7 @@ proc selnextpage {dir} {
set l [expr $numcommits - 1] set l [expr $numcommits - 1]
} }
unmarkmatches unmarkmatches
selectline $l 1 selectline $l 1
} }


proc unselectline {} { proc unselectline {} {

Loading…
Cancel
Save