git

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 [mc "%s (%s): Checkout Branch" [appname] [reponame]]
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
}
94