git-gui/lib/branch_rename.tcl

   1 # git-gui branch rename support
   2 # Copyright (C) 2007 Shawn Pearce
   3
   4 class branch_rename {
   5
   6 field w
   7 field oldname
   8 field newname
   9
  10 constructor dialog {} {
  11         global current_branch use_ttk NS
  12
  13         make_dialog top w
  14         wm withdraw $w
  15         wm title $top [mc "%s (%s): Rename Branch" [appname] [reponame]]
  16         if {$top ne {.}} {
  17                 wm geometry $top "+[winfo rootx .]+[winfo rooty .]"
  18         }
  19
  20         set oldname $current_branch
  21         set newname [get_config gui.newbranchtemplate]
  22
  23         ${NS}::label $w.header -text [mc "Rename Branch"]\
  24                 -font font_uibold -anchor center
  25         pack $w.header -side top -fill x
  26
  27         ${NS}::frame $w.buttons
  28         ${NS}::button $w.buttons.rename -text [mc Rename] \
  29                 -default active \
  30                 -command [cb _rename]
  31         pack $w.buttons.rename -side right
  32         ${NS}::button $w.buttons.cancel -text [mc Cancel] \
  33                 -command [list destroy $w]
  34         pack $w.buttons.cancel -side right -padx 5
  35         pack $w.buttons -side bottom -fill x -pady 10 -padx 10
  36
  37         ${NS}::frame $w.rename
  38         ${NS}::label $w.rename.oldname_l -text [mc "Branch:"]
  39         if {$use_ttk} {
  40                 ttk::combobox $w.rename.oldname_m -textvariable @oldname \
  41                         -values [load_all_heads] -state readonly
  42         } else {
  43                 eval tk_optionMenu $w.rename.oldname_m @oldname [load_all_heads]
  44         }
  45
  46         ${NS}::label $w.rename.newname_l -text [mc "New Name:"]
  47         ${NS}::entry $w.rename.newname_t \
  48                 -width 40 \
  49                 -textvariable @newname \
  50                 -validate key \
  51                 -validatecommand {
  52                         if {%d == 1 && [regexp {[~^:?*\[\0- ]} %S]} {return 0}
  53                         return 1
  54                 }
  55
  56         grid $w.rename.oldname_l $w.rename.oldname_m -sticky we -padx {0 5}
  57         grid $w.rename.newname_l $w.rename.newname_t -sticky we -padx {0 5}
  58         grid columnconfigure $w.rename 1 -weight 1
  59         pack $w.rename -anchor nw -fill x -pady 5 -padx 5
  60
  61         bind $w <Key-Return> [cb _rename]
  62         bind $w <Key-Escape> [list destroy $w]
  63         bind $w <Visibility> "
  64                 grab $w
  65                 $w.rename.newname_t icursor end
  66                 focus $w.rename.newname_t
  67         "
  68         wm deiconify $w
  69         tkwait window $w
  70 }
  71
  72 method _rename {} {
  73         global current_branch
  74
  75         if {$oldname eq {}} {
  76                 tk_messageBox \
  77                         -icon error \
  78                         -type ok \
  79                         -title [wm title $w] \
  80                         -parent $w \
  81                         -message [mc "Please select a branch to rename."]
  82                 focus $w.rename.oldname_m
  83                 return
  84         }
  85         if {$newname eq {}
  86                 || $newname eq [get_config gui.newbranchtemplate]} {
  87                 tk_messageBox \
  88                         -icon error \
  89                         -type ok \
  90                         -title [wm title $w] \
  91                         -parent $w \
  92                         -message [mc "Please supply a branch name."]
  93                 focus $w.rename.newname_t
  94                 return
  95         }
  96         if {![catch {git show-ref --verify -- "refs/heads/$newname"}]} {
  97                 tk_messageBox \
  98                         -icon error \
  99                         -type ok \
 100                         -title [wm title $w] \
 101                         -parent $w \
 102                         -message [mc "Branch '%s' already exists." $newname]
 103                 focus $w.rename.newname_t
 104                 return
 105         }
 106         if {[catch {git check-ref-format "heads/$newname"}]} {
 107                 tk_messageBox \
 108                         -icon error \
 109                         -type ok \
 110                         -title [wm title $w] \
 111                         -parent $w \
 112                         -message [mc "'%s' is not an acceptable branch name." $newname]
 113                 focus $w.rename.newname_t
 114                 return
 115         }
 116
 117         if {[catch {git branch -m $oldname $newname} err]} {
 118                 tk_messageBox \
 119                         -icon error \
 120                         -type ok \
 121                         -title [wm title $w] \
 122                         -parent $w \
 123                         -message [strcat [mc "Failed to rename '%s'." $oldname] "\n\n$err"]
 124                 return
 125         }
 126
 127         if {$current_branch eq $oldname} {
 128                 set current_branch $newname
 129         }
 130
 131         destroy $w
 132 }
 133
 134 }