summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 29776c7)
raw | patch | inline | side by side (parent: 29776c7)
author | Heiko Voigt <hvoigt@hvoigt.net> | |
Fri, 27 May 2011 15:40:24 +0000 (17:40 +0200) | ||
committer | Pat Thoyts <patthoyts@users.sourceforge.net> | |
Thu, 6 Oct 2011 22:20:16 +0000 (23:20 +0100) |
As a shortcut the "Stage Changed" button can be used to stage all current
changes in the worktree which are not set to ignore. Previously unknown
files would be ignored. The user might want to say: "Just save everything
in my worktree". To support this workflow we now ask whether the user also
wants to stage the unknown files if there are some present.
Signed-off-by: Heiko Voigt <hvoigt@hvoigt.net>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
changes in the worktree which are not set to ignore. Previously unknown
files would be ignored. The user might want to say: "Just save everything
in my worktree". To support this workflow we now ask whether the user also
wants to stage the unknown files if there are some present.
Signed-off-by: Heiko Voigt <hvoigt@hvoigt.net>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
lib/index.tcl | patch | blob | history |
diff --git a/lib/index.tcl b/lib/index.tcl
index 5d7bbf23eddeb2ff146487b28a79feee1d296289..e38b647b71ea335d6771121cfd079de919ced55b 100644 (file)
--- a/lib/index.tcl
+++ b/lib/index.tcl
global file_states
set paths [list]
+ set unknown_paths [list]
foreach path [array names file_states] {
switch -glob -- [lindex $file_states($path) 0] {
U? {continue}
?M -
?T -
?D {lappend paths $path}
+ ?O {lappend unknown_paths $path}
+ }
+ }
+ if {[llength $unknown_paths]} {
+ set reply [ask_popup [mc "There are unknown files do you also want
+to stage those?"]]
+ if {$reply} {
+ set paths [concat $paths $unknown_paths]
}
}
add_helper {Adding all changed files} $paths