@@ -19,9 +19,6 @@ GNU General Public License for more details.
19
19
You should have received a copy of the GNU General Public License
20
20
along with this program; if not, write to the Free Software
21
21
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA}
22
- set gitgui_credits {
23
- Paul Mackerras
24
- }
25
22
26
23
# #####################################################################
27
24
# #
@@ -302,6 +299,11 @@ proc ask_popup {msg} {
302
299
# #
303
300
# # version check
304
301
302
+ if {{--version} eq $argv || {version} eq $argv } {
303
+ puts " git-gui version $appvers "
304
+ exit
305
+ }
306
+
305
307
set req_maj 1
306
308
set req_min 5
307
309
@@ -1171,7 +1173,7 @@ File [short_path $path] cannot be committed by this program.
1171
1173
}
1172
1174
}
1173
1175
}
1174
- if {!$files_ready } {
1176
+ if {!$files_ready && ![ string match *merge $curType ] } {
1175
1177
info_popup {No changes to commit.
1176
1178
1177
1179
You must add at least 1 file before you can commit.
@@ -4492,61 +4494,6 @@ proc do_commit {} {
4492
4494
commit_tree
4493
4495
}
4494
4496
4495
- proc do_credits {} {
4496
- global gitgui_credits
4497
-
4498
- set w .credits_dialog
4499
-
4500
- toplevel $w
4501
- wm geometry $w " +[ winfo rootx .] +[ winfo rooty .] "
4502
-
4503
- label $w .header -text {git-gui Contributors} -font font_uibold
4504
- pack $w .header -side top -fill x
4505
-
4506
- frame $w .buttons
4507
- button $w .buttons.close -text {Close} \
4508
- -font font_ui \
4509
- -command [list destroy $w ]
4510
- pack $w .buttons.close -side right
4511
- pack $w .buttons -side bottom -fill x -pady 10 -padx 10
4512
-
4513
- frame $w .credits
4514
- text $w .credits.t \
4515
- -background [$w .header cget -background] \
4516
- -yscrollcommand [list $w .credits.sby set] \
4517
- -width 20 \
4518
- -height 10 \
4519
- -wrap none \
4520
- -borderwidth 1 \
4521
- -relief solid \
4522
- -padx 5 -pady 5 \
4523
- -font font_ui
4524
- scrollbar $w .credits.sby -command [list $w .credits.t yview]
4525
- pack $w .credits.sby -side right -fill y
4526
- pack $w .credits.t -fill both -expand 1
4527
- pack $w .credits -side top -fill both -expand 1 -padx 5 -pady 5
4528
-
4529
- label $w .desc \
4530
- -text " All portions are copyrighted by their respective authors
4531
- and are distributed under the GNU General Public License." \
4532
- -padx 5 -pady 5 \
4533
- -justify left \
4534
- -anchor w \
4535
- -borderwidth 1 \
4536
- -relief solid \
4537
- -font font_ui
4538
- pack $w .desc -side top -fill x -padx 5 -pady 5
4539
-
4540
- $w .credits.t insert end " [ string trim $gitgui_credits ] \n "
4541
- $w .credits.t conf -state disabled
4542
- $w .credits.t see 1.0
4543
-
4544
- bind $w <Visibility> " grab $w ; focus $w "
4545
- bind $w <Key-Escape> [list destroy $w ]
4546
- wm title $w [$w .header cget -text]
4547
- tkwait window $w
4548
- }
4549
-
4550
4497
proc do_about {} {
4551
4498
global appvers copyright
4552
4499
global tcl_patchLevel tk_patchLevel
@@ -4563,10 +4510,6 @@ proc do_about {} {
4563
4510
button $w .buttons.close -text {Close} \
4564
4511
-font font_ui \
4565
4512
-command [list destroy $w ]
4566
- button $w .buttons.credits -text {Contributors} \
4567
- -font font_ui \
4568
- -command do_credits
4569
- pack $w .buttons.credits -side left
4570
4513
pack $w .buttons.close -side right
4571
4514
pack $w .buttons -side bottom -fill x -pady 10 -padx 10
4572
4515
@@ -5116,8 +5059,6 @@ enable_option branch
5116
5059
enable_option transport
5117
5060
5118
5061
switch -- $subcommand {
5119
- --version -
5120
- version -
5121
5062
browser -
5122
5063
blame {
5123
5064
disable_option multicommit
@@ -5488,11 +5429,6 @@ bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
5488
5429
# -- Not a normal commit type invocation? Do that instead!
5489
5430
#
5490
5431
switch -- $subcommand {
5491
- --version -
5492
- version {
5493
- puts " git-gui version $appvers "
5494
- exit
5495
- }
5496
5432
browser {
5497
5433
if {[llength $argv ] != 1} {
5498
5434
puts stderr " usage: $argv0 browser commit"
0 commit comments