Browse Source

gitk: Minor cleanups

Removed some unnecessary quotes and globals, updated copyright notice.

Signed-off-by: Paul Mackerras <paulus@samba.org>
maint
Paul Mackerras 19 years ago
parent
commit
e1a7c81f6a
  1. 12
      gitk

12
gitk

@ -2,7 +2,7 @@ @@ -2,7 +2,7 @@
# Tcl ignores the next line -*- tcl -*- \
exec wish "$0" -- "$@"

# Copyright (C) 2005 Paul Mackerras. All rights reserved.
# Copyright (C) 2005-2006 Paul Mackerras. All rights reserved.
# This program is free software; it may be used, copied, modified
# and distributed under the terms of the GNU General Public Licence,
# either version 2, or (at your option) any later version.
@ -341,13 +341,13 @@ proc readrefs {} { @@ -341,13 +341,13 @@ proc readrefs {} {
set tag {}
catch {
set commit [exec git rev-parse "$id^0"]
if {"$commit" != "$id"} {
if {$commit != $id} {
set tagids($name) $commit
lappend idtags($commit) $name
}
}
catch {
set tagcontents($name) [exec git cat-file tag "$id"]
set tagcontents($name) [exec git cat-file tag $id]
}
} elseif { $type == "heads" } {
set headids($name) $id
@ -3263,8 +3263,7 @@ proc show_status {msg} { @@ -3263,8 +3263,7 @@ proc show_status {msg} {

proc finishcommits {} {
global commitidx phase curview
global canv mainfont ctext maincursor textcursor
global findinprogress pending_select
global pending_select

if {$commitidx($curview) > 0} {
drawrest
@ -3307,9 +3306,7 @@ proc notbusy {what} { @@ -3307,9 +3306,7 @@ proc notbusy {what} {
}

proc drawrest {} {
global numcommits
global startmsecs
global canvy0 numcommits linespc
global rowlaidout commitidx curview
global pending_select

@ -3323,6 +3320,7 @@ proc drawrest {} { @@ -3323,6 +3320,7 @@ proc drawrest {} {
}

set drawmsecs [expr {[clock clicks -milliseconds] - $startmsecs}]
#global numcommits
#puts "overall $drawmsecs ms for $numcommits commits"
}


Loading…
Cancel
Save