summaryrefslogtreecommitdiff
path: root/lib/database.tcl
diff options
context:
space:
mode:
authorShawn O. Pearce <spearce@spearce.org>2007-05-09 00:33:47 (GMT)
committerShawn O. Pearce <spearce@spearce.org>2007-05-09 01:38:54 (GMT)
commitc74b6c66f00ce51b2c01d20fc5ef0e6429811124 (patch)
tree354c54001cae46387de2230af368b33c1b4b5154 /lib/database.tcl
parent1f07c4e5cefec88d825045ade24eee71f6a2df47 (diff)
downloadgit-c74b6c66f00ce51b2c01d20fc5ef0e6429811124.zip
git-c74b6c66f00ce51b2c01d20fc5ef0e6429811124.tar.gz
git-c74b6c66f00ce51b2c01d20fc5ef0e6429811124.tar.bz2
git-gui: Convert browser, console to "class" format
Now that we have a slightly easier method of working with per-widget data we should make use of that technique in our browser and console meta-widgets, as both have a decent amount of information that they store on a per-widget basis and our current approach of handling it is difficult to follow. Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Diffstat (limited to 'lib/database.tcl')
-rw-r--r--lib/database.tcl12
1 files changed, 6 insertions, 6 deletions
diff --git a/lib/database.tcl b/lib/database.tcl
index 73058a8..43e4a28 100644
--- a/lib/database.tcl
+++ b/lib/database.tcl
@@ -70,12 +70,12 @@ proc do_stats {} {
proc do_gc {} {
set w [console::new {gc} {Compressing the object database}]
- console::chain {
- {exec {git pack-refs --prune}}
- {exec {git reflog expire --all}}
- {exec {git repack -a -d -l}}
- {exec {git rerere gc}}
- } $w
+ console::chain $w {
+ {exec git pack-refs --prune}
+ {exec git reflog expire --all}
+ {exec git repack -a -d -l}
+ {exec git rerere gc}
+ }
}
proc do_fsck_objects {} {