Merge branch 'nm/grep-object-sha1-lock' into maint
[git] / git-gui / lib / branch_checkout.tcl
1 # git-gui branch checkout support
2 # Copyright (C) 2007 Shawn Pearce
3
4 class branch_checkout {
5
6 field w              ; # widget path
7 field w_rev          ; # mega-widget to pick the initial revision
8
9 field opt_fetch     1; # refetch tracking branch if used?
10 field opt_detach    0; # force a detached head case?
11
12 constructor dialog {} {
13         global use_ttk NS
14         make_dialog top w
15         wm withdraw $w
16         wm title $top [append "[appname] ([reponame]): " [mc "Checkout Branch"]]
17         if {$top ne {.}} {
18                 wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
19         }
20
21         ${NS}::label $w.header -text [mc "Checkout Branch"] \
22                 -font font_uibold -anchor center
23         pack $w.header -side top -fill x
24
25         ${NS}::frame $w.buttons
26         ${NS}::button $w.buttons.create -text [mc Checkout] \
27                 -default active \
28                 -command [cb _checkout]
29         pack $w.buttons.create -side right
30         ${NS}::button $w.buttons.cancel -text [mc Cancel] \
31                 -command [list destroy $w]
32         pack $w.buttons.cancel -side right -padx 5
33         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
34
35         set w_rev [::choose_rev::new $w.rev [mc Revision]]
36         $w_rev bind_listbox <Double-Button-1> [cb _checkout]
37         pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
38
39         ${NS}::labelframe $w.options -text [mc Options]
40
41         ${NS}::checkbutton $w.options.fetch \
42                 -text [mc "Fetch Tracking Branch"] \
43                 -variable @opt_fetch
44         pack $w.options.fetch -anchor nw
45
46         ${NS}::checkbutton $w.options.detach \
47                 -text [mc "Detach From Local Branch"] \
48                 -variable @opt_detach
49         pack $w.options.detach -anchor nw
50
51         pack $w.options -anchor nw -fill x -pady 5 -padx 5
52
53         bind $w <Visibility> [cb _visible]
54         bind $w <Key-Escape> [list destroy $w]
55         bind $w <Key-Return> [cb _checkout]\;break
56         wm deiconify $w
57         tkwait window $w
58 }
59
60 method _checkout {} {
61         set spec [$w_rev get_tracking_branch]
62         if {$spec ne {} && $opt_fetch} {
63                 set new {}
64         } elseif {[catch {set new [$w_rev commit_or_die]}]} {
65                 return
66         }
67
68         if {$opt_detach} {
69                 set ref {}
70         } else {
71                 set ref [$w_rev get_local_branch]
72         }
73
74         set co [::checkout_op::new [$w_rev get] $new $ref]
75         $co parent $w
76         $co enable_checkout 1
77         if {$spec ne {} && $opt_fetch} {
78                 $co enable_fetch $spec
79         }
80
81         if {[$co run]} {
82                 destroy $w
83         } else {
84                 $w_rev focus_filter
85         }
86 }
87
88 method _visible {} {
89         grab $w
90         $w_rev focus_filter
91 }
92
93 }