You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
89 lines
2.1 KiB
89 lines
2.1 KiB
# git-gui branch checkout support |
|
# Copyright (C) 2007 Shawn Pearce |
|
|
|
class branch_checkout { |
|
|
|
field w ; # widget path |
|
field w_rev ; # mega-widget to pick the initial revision |
|
|
|
field opt_fetch 1; # refetch tracking branch if used? |
|
field opt_detach 0; # force a detached head case? |
|
|
|
constructor dialog {} { |
|
make_toplevel top w |
|
wm title $top [append "[appname] ([reponame]): " [mc "Checkout Branch"]] |
|
if {$top ne {.}} { |
|
wm geometry $top "+[winfo rootx .]+[winfo rooty .]" |
|
} |
|
|
|
label $w.header -text [mc "Checkout Branch"] -font font_uibold |
|
pack $w.header -side top -fill x |
|
|
|
frame $w.buttons |
|
button $w.buttons.create -text [mc Checkout] \ |
|
-default active \ |
|
-command [cb _checkout] |
|
pack $w.buttons.create -side right |
|
button $w.buttons.cancel -text [mc Cancel] \ |
|
-command [list destroy $w] |
|
pack $w.buttons.cancel -side right -padx 5 |
|
pack $w.buttons -side bottom -fill x -pady 10 -padx 10 |
|
|
|
set w_rev [::choose_rev::new $w.rev [mc Revision]] |
|
$w_rev bind_listbox <Double-Button-1> [cb _checkout] |
|
pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5 |
|
|
|
labelframe $w.options -text [mc Options] |
|
|
|
checkbutton $w.options.fetch \ |
|
-text [mc "Fetch Tracking Branch"] \ |
|
-variable @opt_fetch |
|
pack $w.options.fetch -anchor nw |
|
|
|
checkbutton $w.options.detach \ |
|
-text [mc "Detach From Local Branch"] \ |
|
-variable @opt_detach |
|
pack $w.options.detach -anchor nw |
|
|
|
pack $w.options -anchor nw -fill x -pady 5 -padx 5 |
|
|
|
bind $w <Visibility> [cb _visible] |
|
bind $w <Key-Escape> [list destroy $w] |
|
bind $w <Key-Return> [cb _checkout]\;break |
|
tkwait window $w |
|
} |
|
|
|
method _checkout {} { |
|
set spec [$w_rev get_tracking_branch] |
|
if {$spec ne {} && $opt_fetch} { |
|
set new {} |
|
} elseif {[catch {set new [$w_rev commit_or_die]}]} { |
|
return |
|
} |
|
|
|
if {$opt_detach} { |
|
set ref {} |
|
} else { |
|
set ref [$w_rev get_local_branch] |
|
} |
|
|
|
set co [::checkout_op::new [$w_rev get] $new $ref] |
|
$co parent $w |
|
$co enable_checkout 1 |
|
if {$spec ne {} && $opt_fetch} { |
|
$co enable_fetch $spec |
|
} |
|
|
|
if {[$co run]} { |
|
destroy $w |
|
} else { |
|
$w_rev focus_filter |
|
} |
|
} |
|
|
|
method _visible {} { |
|
grab $w |
|
$w_rev focus_filter |
|
} |
|
|
|
}
|
|
|