kernel
/
git
mirror of https://git.kernel.org/pub/scm/git/git.git
1
0
Fork 0
Code Releases Activity

git-gui: Convert UI to use 'staged for commit' interface. 

This is a rather drastic change to the git-gui user interface, but it
doesn't really look any different yet.  I've taken the two lists and
converted them to being "changes to be committed" and "changed but
not updated".  These lists correspond to the same lists output by
git-runstatus based on how files differ in the HEAD<->index and the
index<->working directory comparsions it performs.

This change is meant to correlate with the change in Git 1.5.0 where
we have brought the index more into the foreground and are trying to
teach users to make use of it as part of their daily operations.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
maint
Shawn O. Pearce 2007-01-20 22:45:19 -05:00
parent 0812665e57
commit 21e409ad7f
1 changed files with 98 additions and 110 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

208
git-gui.sh
View File

@ -610,16 +610,7 @@ files list, to prevent possible confusion.
} }


clear_diff clear_diff
set old_w [mapcol [lindex $file_states($path) 0] $path] display_file $path __
set lno [lsearch -sorted $file_lists($old_w) $path]
if {$lno >= 0} {
set file_lists($old_w) \
[lreplace $file_lists($old_w) $lno $lno]
incr lno
$old_w conf -state normal
$old_w delete $lno.0 [expr {$lno + 1}].0
$old_w conf -state disabled
}
} }


proc show_diff {path {w {}} {lno {}}} { proc show_diff {path {w {}} {lno {}}} {
@ -1230,21 +1221,11 @@ proc push_to {remote} {
## ##
## ui helpers ## ui helpers


proc mapcol {state path} { proc mapicon {w state path} {
global all_cols ui_workdir

if {[catch {set r $all_cols($state)}]} {
puts "error: no column for state={$state} $path"
return $ui_workdir
}
return $r
}

proc mapicon {state path} {
global all_icons global all_icons


if {[catch {set r $all_icons($state)}]} { if {[catch {set r $all_icons($state$w)}]} {
puts "error: no icon for state={$state} $path" puts "error: no icon for $w state={$state} $path"
return file_plain return file_plain
} }
return $r return $r
@ -1307,64 +1288,69 @@ proc merge_state {path new_state {head_info {}} {index_info {}}} {
return $state return $state
} }


proc display_file_helper {w path icon_name old_m new_m} {
global file_lists

if {$new_m eq {_}} {
set lno [lsearch -sorted $file_lists($w) $path]
if {$lno >= 0} {
set file_lists($w) [lreplace $file_lists($w) $lno $lno]
incr lno
$w conf -state normal
$w delete $lno.0 [expr {$lno + 1}].0
$w conf -state disabled
}
} elseif {$old_m eq {_} && $new_m ne {_}} {
lappend file_lists($w) $path
set file_lists($w) [lsort -unique $file_lists($w)]
set lno [lsearch -sorted $file_lists($w) $path]
incr lno
$w conf -state normal
$w image create $lno.0 \
-align center -padx 5 -pady 1 \
-name $icon_name \
-image [mapicon $w $new_m $path]
$w insert $lno.1 "[escape_path $path]\n"
$w conf -state disabled
} elseif {$old_m ne $new_m} {
$w conf -state normal
$w image conf $icon_name -image [mapicon $w $new_m $path]
$w conf -state disabled
}
}

proc display_file {path state} { proc display_file {path state} {
global file_states file_lists selected_paths global file_states selected_paths
global ui_index ui_workdir


set old_m [merge_state $path $state] set old_m [merge_state $path $state]
set s $file_states($path) set s $file_states($path)
set new_m [lindex $s 0] set new_m [lindex $s 0]
set new_w [mapcol $new_m $path] set icon_name [lindex $s 1]
set old_w [mapcol $old_m $path]
set new_icon [mapicon $new_m $path] display_file_helper $ui_index $path $icon_name \
[string index $old_m 0] \
[string index $new_m 0]
display_file_helper $ui_workdir $path $icon_name \
[string index $old_m 1] \
[string index $new_m 1]


if {$new_m eq {__}} { if {$new_m eq {__}} {
set lno [lsearch -sorted $file_lists($old_w) $path]
if {$lno >= 0} {
set file_lists($old_w) \
[lreplace $file_lists($old_w) $lno $lno]
incr lno
$old_w conf -state normal
$old_w delete $lno.0 [expr {$lno + 1}].0
$old_w conf -state disabled
}
unset file_states($path) unset file_states($path)
catch {unset selected_paths($path)} catch {unset selected_paths($path)}
return
} }
}


if {$new_w ne $old_w} { proc display_all_files_helper {w path icon_name m} {
set lno [lsearch -sorted $file_lists($old_w) $path] global file_lists
if {$lno >= 0} {
set file_lists($old_w) \
[lreplace $file_lists($old_w) $lno $lno]
incr lno
$old_w conf -state normal
$old_w delete $lno.0 [expr {$lno + 1}].0
$old_w conf -state disabled
}


lappend file_lists($new_w) $path lappend file_lists($w) $path
set file_lists($new_w) [lsort $file_lists($new_w)] set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
set lno [lsearch -sorted $file_lists($new_w) $path] $w image create end \
incr lno -align center -padx 5 -pady 1 \
$new_w conf -state normal -name $icon_name \
$new_w image create $lno.0 \ -image [mapicon $w $m $path]
-align center -padx 5 -pady 1 \ $w insert end "[escape_path $path]\n"
-name [lindex $s 1] \
-image $new_icon
$new_w insert $lno.1 "[escape_path $path]\n"
if {[catch {set in_sel $selected_paths($path)}]} {
set in_sel 0
}
if {$in_sel} {
$new_w tag add in_sel $lno.0 [expr {$lno + 1}].0
}
$new_w conf -state disabled
} elseif {$new_icon ne [mapicon $old_m $path]} {
$new_w conf -state normal
$new_w image conf [lindex $s 1] -image $new_icon
$new_w conf -state disabled
}
} }


proc display_all_files {} { proc display_all_files {} {
@ -1385,19 +1371,15 @@ proc display_all_files {} {
foreach path [lsort [array names file_states]] { foreach path [lsort [array names file_states]] {
set s $file_states($path) set s $file_states($path)
set m [lindex $s 0] set m [lindex $s 0]
set w [mapcol $m $path] set icon_name [lindex $s 1]
lappend file_lists($w) $path
set lno [expr {[lindex [split [$w index end] .] 0] - 1}] if {[string index $m 0] ne {_}} {
$w image create end \ display_all_files_helper $ui_index $path \
-align center -padx 5 -pady 1 \ $icon_name [string index $m 0]
-name [lindex $s 1] \
-image [mapicon $m $path]
$w insert end "[escape_path $path]\n"
if {[catch {set in_sel $selected_paths($path)}]} {
set in_sel 0
} }
if {$in_sel} { if {[string index $m 1] ne {_}} {
$w tag add in_sel $lno.0 [expr {$lno + 1}].0 display_all_files_helper $ui_workdir $path \
$icon_name [string index $m 1]
} }
} }


@ -1961,41 +1943,47 @@ static unsigned char file_merge_bits[] = {


set ui_index .vpane.files.index.list set ui_index .vpane.files.index.list
set ui_workdir .vpane.files.workdir.list set ui_workdir .vpane.files.workdir.list

set all_icons(_$ui_index) file_plain
set all_icons(A$ui_index) file_fulltick
set all_icons(M$ui_index) file_fulltick
set all_icons(D$ui_index) file_removed
set all_icons(U$ui_index) file_merge

set all_icons(_$ui_workdir) file_plain
set all_icons(M$ui_workdir) file_mod
set all_icons(D$ui_workdir) file_question
set all_icons(O$ui_workdir) file_plain

set max_status_desc 0 set max_status_desc 0
foreach i { foreach i {
{__ i plain "Unmodified"} {__ "Unmodified"}
{_M i mod "Modified"} {_M "Modified"}
{M_ i fulltick "Added to commit"} {M_ "Added to commit"}
{MM i parttick "Partially included"} {MM "Partially added"}
{MD i question "Added (but gone)"} {MD "Added (but gone)"}


{_O o plain "Untracked"} {_O "Untracked"}
{A_ o fulltick "Added by commit"} {A_ "Added by commit"}
{AM o parttick "Partially added"} {AM "Partially added"}
{AD o question "Added (but gone)"} {AD "Added (but gone)"}


{_D i question "Missing"} {_D "Missing"}
{DD i removed "Removed by commit"} {DD "Removed by commit"}
{D_ i removed "Removed by commit"} {D_ "Removed by commit"}
{DO i removed "Removed (still exists)"} {DO "Removed (still exists)"}
{DM i removed "Removed (but modified)"} {DM "Removed (but modified)"}


{UD i merge "Merge conflicts"} {UD "Merge conflicts"}
{UM i merge "Merge conflicts"} {UM "Merge conflicts"}
{U_ i merge "Merge conflicts"} {U_ "Merge conflicts"}
} { } {
if {$max_status_desc < [string length [lindex $i 3]]} { if {$max_status_desc < [string length [lindex $i 1]]} {
set max_status_desc [string length [lindex $i 3]] set max_status_desc [string length [lindex $i 1]]
} }
if {[lindex $i 1] eq {i}} { set all_descs([lindex $i 0]) [lindex $i 1]
set all_cols([lindex $i 0]) $ui_index
} else {
set all_cols([lindex $i 0]) $ui_workdir
}
set all_icons([lindex $i 0]) file_[lindex $i 2]
set all_descs([lindex $i 0]) [lindex $i 3]
} }
unset filemask i unset i


###################################################################### ######################################################################
## ##
@ -3302,7 +3290,7 @@ pack .vpane -anchor n -side top -fill both -expand 1
# -- Index File List # -- Index File List
# #
frame .vpane.files.index -height 100 -width 400 frame .vpane.files.index -height 100 -width 400
label .vpane.files.index.title -text {Modified Files} \ label .vpane.files.index.title -text {Changes To Be Committed} \
-background green \ -background green \
-font font_ui -font font_ui
text $ui_index -background white -borderwidth 0 \ text $ui_index -background white -borderwidth 0 \
@ -3320,7 +3308,7 @@ pack $ui_index -side left -fill both -expand 1
# -- Working Directory File List # -- Working Directory File List
# #
frame .vpane.files.workdir -height 100 -width 100 frame .vpane.files.workdir -height 100 -width 100
label .vpane.files.workdir.title -text {Untracked Files} \ label .vpane.files.workdir.title -text {Changed But Not Updated} \
-background red \ -background red \
-font font_ui -font font_ui
text $ui_workdir -background white -borderwidth 0 \ text $ui_workdir -background white -borderwidth 0 \