1 # git-gui Tools menu implementation
7 foreach item
[array names repo_config guitool.
*.cmd
] {
8 lappend names
[string range
$item 8 end-4
]
13 proc tools_populate_all
{} {
14 global tools_menubar tools_menutbl
17 set mbar_end
[$tools_menubar index end
]
18 set mbar_base
[expr {$mbar_end - $tools_tailcnt}]
19 if {$mbar_base >= 0} {
20 $tools_menubar delete
0 $mbar_base
23 array unset tools_menutbl
25 foreach fullname
[tools_list
] {
26 tools_populate_one
$fullname
30 proc tools_create_item
{parent args
} {
31 global tools_menubar tools_tailcnt
32 if {$parent eq
$tools_menubar} {
33 set pos
[expr {[$parent index end
]-$tools_tailcnt+1}]
34 eval [list $parent insert
$pos] $args
36 eval [list $parent add
] $args
40 proc tools_populate_one
{fullname
} {
41 global tools_menubar tools_menutbl tools_id
43 if {![info exists tools_id
]} {
47 set names
[split $fullname '
/'
]
48 set parent
$tools_menubar
49 for {set i
0} {$i < [llength $names]-1} {incr i
} {
50 set subname
[join [lrange $names 0 $i] '
/'
]
51 if {[info exists tools_menutbl
($subname)]} {
52 set parent
$tools_menutbl($subname)
54 set subid
$parent.t
$tools_id
55 tools_create_item
$parent cascade
\
56 -label [lindex $names $i] -menu $subid
58 set tools_menutbl
($subname) $subid
64 tools_create_item
$parent command
\
65 -label [lindex $names end
] \
66 -command [list tools_exec
$fullname]
69 proc tools_exec
{fullname
} {
70 global repo_config env current_diff_path
71 global current_branch is_detached
73 if {[is_config_true
"guitool.$fullname.needsfile"]} {
74 if {$current_diff_path eq
{}} {
75 error_popup
[mc
"Running %s requires a selected file." $fullname]
80 if {[is_config_true
"guitool.$fullname.confirm"]} {
81 if {[ask_popup
[mc
"Are you sure you want to run %s?" $fullname]] ne
{yes
}} {
86 set env
(GIT_GUITOOL
) $fullname
87 set env
(FILENAME
) $current_diff_path
89 set env
(CUR_BRANCH
) ""
91 set env
(CUR_BRANCH
) $current_branch
94 set cmdline
$repo_config(guitool.
$fullname.cmd
)
95 if {[is_config_true
"guitool.$fullname.noconsole"]} {
98 regsub {/} $fullname { / } title
100 [mc
"Tool: %s" $title] \
101 [mc
"Running: %s" $cmdline]]
102 console::exec $w [list sh
-c $cmdline]
105 unset env
(GIT_GUITOOL
)
107 unset env
(CUR_BRANCH
)