← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/git-core/intrepid-security

« back to all changes in this revision

Viewing changes to git-gui/lib/branch_create.tcl

  • Committer: Package Import Robot
  • Author(s): Gerrit Pape
  • Date: 2007-10-04 08:27:01 UTC
  • mfrom: (1.1.23)
  • Revision ID: package-import@ubuntu.com-20071004082701-rsd058ontoqz4i30
Tags: 1:1.5.3.4-1
http://bugs.debian.org/445188
new upstream point release (closes: #445188).

Show diffs side-by-side

added added

removed removed

Lines of Context:
git-gui/lib/branch_create.tcl
 
1
# git-gui branch create support
 
2
# Copyright (C) 2006, 2007 Shawn Pearce
 
3
 
 
4
class branch_create {
 
5
 
 
6
field w              ; # widget path
 
7
field w_rev          ; # mega-widget to pick the initial revision
 
8
field w_name         ; # new branch name widget
 
9
 
 
10
field name         {}; # name of the branch the user has chosen
 
11
field name_type  user; # type of branch name to use
 
12
 
 
13
field opt_merge    ff; # type of merge to apply to existing branch
 
14
field opt_checkout  1; # automatically checkout the new branch?
 
15
field opt_fetch     1; # refetch tracking branch if used?
 
16
field reset_ok      0; # did the user agree to reset?
 
17
 
 
18
constructor dialog {} {
 
19
        global repo_config
 
20
 
 
21
        make_toplevel top w
 
22
        wm title $top "[appname] ([reponame]): Create Branch"
 
23
        if {$top ne {.}} {
 
24
                wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
 
25
        }
 
26
 
 
27
        label $w.header -text {Create New Branch} -font font_uibold
 
28
        pack $w.header -side top -fill x
 
29
 
 
30
        frame $w.buttons
 
31
        button $w.buttons.create -text Create \
 
32
                -default active \
 
33
                -command [cb _create]
 
34
        pack $w.buttons.create -side right
 
35
        button $w.buttons.cancel -text {Cancel} \
 
36
                -command [list destroy $w]
 
37
        pack $w.buttons.cancel -side right -padx 5
 
38
        pack $w.buttons -side bottom -fill x -pady 10 -padx 10
 
39
 
 
40
        labelframe $w.desc -text {Branch Name}
 
41
        radiobutton $w.desc.name_r \
 
42
                -anchor w \
 
43
                -text {Name:} \
 
44
                -value user \
 
45
                -variable @name_type
 
46
        set w_name $w.desc.name_t
 
47
        entry $w_name \
 
48
                -borderwidth 1 \
 
49
                -relief sunken \
 
50
                -width 40 \
 
51
                -textvariable @name \
 
52
                -validate key \
 
53
                -validatecommand [cb _validate %d %S]
 
54
        grid $w.desc.name_r $w_name -sticky we -padx {0 5}
 
55
 
 
56
        radiobutton $w.desc.match_r \
 
57
                -anchor w \
 
58
                -text {Match Tracking Branch Name} \
 
59
                -value match \
 
60
                -variable @name_type
 
61
        grid $w.desc.match_r -sticky we -padx {0 5} -columnspan 2
 
62
 
 
63
        grid columnconfigure $w.desc 1 -weight 1
 
64
        pack $w.desc -anchor nw -fill x -pady 5 -padx 5
 
65
 
 
66
        set w_rev [::choose_rev::new $w.rev {Starting Revision}]
 
67
        pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
 
68
 
 
69
        labelframe $w.options -text {Options}
 
70
 
 
71
        frame $w.options.merge
 
72
        label $w.options.merge.l -text {Update Existing Branch:}
 
73
        pack $w.options.merge.l -side left
 
74
        radiobutton $w.options.merge.no \
 
75
                -text No \
 
76
                -value none \
 
77
                -variable @opt_merge
 
78
        pack $w.options.merge.no -side left
 
79
        radiobutton $w.options.merge.ff \
 
80
                -text {Fast Forward Only} \
 
81
                -value ff \
 
82
                -variable @opt_merge
 
83
        pack $w.options.merge.ff -side left
 
84
        radiobutton $w.options.merge.reset \
 
85
                -text {Reset} \
 
86
                -value reset \
 
87
                -variable @opt_merge
 
88
        pack $w.options.merge.reset -side left
 
89
        pack $w.options.merge -anchor nw
 
90
 
 
91
        checkbutton $w.options.fetch \
 
92
                -text {Fetch Tracking Branch} \
 
93
                -variable @opt_fetch
 
94
        pack $w.options.fetch -anchor nw
 
95
 
 
96
        checkbutton $w.options.checkout \
 
97
                -text {Checkout After Creation} \
 
98
                -variable @opt_checkout
 
99
        pack $w.options.checkout -anchor nw
 
100
        pack $w.options -anchor nw -fill x -pady 5 -padx 5
 
101
 
 
102
        trace add variable @name_type write [cb _select]
 
103
 
 
104
        set name $repo_config(gui.newbranchtemplate)
 
105
        if {[is_config_true gui.matchtrackingbranch]} {
 
106
                set name_type match
 
107
        }
 
108
 
 
109
        bind $w <Visibility> [cb _visible]
 
110
        bind $w <Key-Escape> [list destroy $w]
 
111
        bind $w <Key-Return> [cb _create]\;break
 
112
        tkwait window $w
 
113
}
 
114
 
 
115
method _create {} {
 
116
        global repo_config
 
117
        global M1B
 
118
 
 
119
        set spec [$w_rev get_tracking_branch]
 
120
        switch -- $name_type {
 
121
        user {
 
122
                set newbranch $name
 
123
        }
 
124
        match {
 
125
                if {$spec eq {}} {
 
126
                        tk_messageBox \
 
127
                                -icon error \
 
128
                                -type ok \
 
129
                                -title [wm title $w] \
 
130
                                -parent $w \
 
131
                                -message "Please select a tracking branch."
 
132
                        return
 
133
                }
 
134
                if {![regsub ^refs/heads/ [lindex $spec 2] {} newbranch]} {
 
135
                        tk_messageBox \
 
136
                                -icon error \
 
137
                                -type ok \
 
138
                                -title [wm title $w] \
 
139
                                -parent $w \
 
140
                                -message "Tracking branch [$w get] is not a branch in the remote repository."
 
141
                        return
 
142
                }
 
143
        }
 
144
        }
 
145
 
 
146
        if {$newbranch eq {}
 
147
                || $newbranch eq $repo_config(gui.newbranchtemplate)} {
 
148
                tk_messageBox \
 
149
                        -icon error \
 
150
                        -type ok \
 
151
                        -title [wm title $w] \
 
152
                        -parent $w \
 
153
                        -message "Please supply a branch name."
 
154
                focus $w_name
 
155
                return
 
156
        }
 
157
 
 
158
        if {[catch {git check-ref-format "heads/$newbranch"}]} {
 
159
                tk_messageBox \
 
160
                        -icon error \
 
161
                        -type ok \
 
162
                        -title [wm title $w] \
 
163
                        -parent $w \
 
164
                        -message "'$newbranch' is not an acceptable branch name."
 
165
                focus $w_name
 
166
                return
 
167
        }
 
168
 
 
169
        if {$spec ne {} && $opt_fetch} {
 
170
                set new {}
 
171
        } elseif {[catch {set new [$w_rev commit_or_die]}]} {
 
172
                return
 
173
        }
 
174
 
 
175
        set co [::checkout_op::new \
 
176
                [$w_rev get] \
 
177
                $new \
 
178
                refs/heads/$newbranch]
 
179
        $co parent $w
 
180
        $co enable_create   1
 
181
        $co enable_merge    $opt_merge
 
182
        $co enable_checkout $opt_checkout
 
183
        if {$spec ne {} && $opt_fetch} {
 
184
                $co enable_fetch $spec
 
185
        }
 
186
 
 
187
        if {[$co run]} {
 
188
                destroy $w
 
189
        } else {
 
190
                focus $w_name
 
191
        }
 
192
}
 
193
 
 
194
method _validate {d S} {
 
195
        if {$d == 1} {
 
196
                if {[regexp {[~^:?*\[\0- ]} $S]} {
 
197
                        return 0
 
198
                }
 
199
                if {[string length $S] > 0} {
 
200
                        set name_type user
 
201
                }
 
202
        }
 
203
        return 1
 
204
}
 
205
 
 
206
method _select {args} {
 
207
        if {$name_type eq {match}} {
 
208
                $w_rev pick_tracking_branch
 
209
        }
 
210
}
 
211
 
 
212
method _visible {} {
 
213
        grab $w
 
214
        if {$name_type eq {user}} {
 
215
                $w_name icursor end
 
216
                focus $w_name
 
217
        }
 
218
}
 
219
 
 
220
}