]>
Commit | Line | Data |
---|---|---|
b1fa2bff SP |
1 | # git-gui revision chooser |
2 | # Copyright (C) 2006, 2007 Shawn Pearce | |
3 | ||
4 | class choose_rev { | |
5 | ||
7618e6b1 SP |
6 | image create photo ::choose_rev::img_find -data {R0lGODlhEAAQAIYAAPwCBCQmJDw+PBQSFAQCBMza3NTm5MTW1HyChOT29Ozq7MTq7Kze5Kzm7Oz6/NTy9Iza5GzGzKzS1Nzy9Nz29Kzq9HTGzHTK1Lza3AwKDLzu9JTi7HTW5GTCzITO1Mzq7Hza5FTK1ESyvHzKzKzW3DQyNDyqtDw6PIzW5HzGzAT+/Dw+RKyurNTOzMTGxMS+tJSGdATCxHRydLSqpLymnLSijBweHERCRNze3Pz69PTy9Oze1OTSxOTGrMSqlLy+vPTu5OzSvMymjNTGvNS+tMy2pMyunMSefAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAQABAAAAe4gACCAAECA4OIiAIEBQYHBAKJgwIICQoLDA0IkZIECQ4PCxARCwSSAxITFA8VEBYXGBmJAQYLGhUbHB0eH7KIGRIMEBAgISIjJKaIJQQLFxERIialkieUGigpKRoIBCqJKyyLBwvJAioEyoICLS4v6QQwMQQyLuqLli8zNDU2BCf1lN3AkUPHDh49fAQAAEnGD1MCCALZEaSHkIUMBQS8wWMIkSJGhBzBmFEGgRsBUqpMiSgdAD+BAAAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7} |
7 | ||
b1fa2bff | 8 | field w ; # our megawidget path |
7618e6b1 SP |
9 | field w_list ; # list of currently filtered specs |
10 | field w_filter ; # filter entry for $w_list | |
b1fa2bff | 11 | |
b1fa2bff | 12 | field c_expr {}; # current revision expression |
c80d7be5 | 13 | field filter ""; # current filter string |
7618e6b1 SP |
14 | field revtype head; # type of revision chosen |
15 | field cur_specs [list]; # list of specs for $revtype | |
16 | field spec_head ; # list of all head specs | |
17 | field spec_trck ; # list of all tracking branch specs | |
18 | field spec_tag ; # list of all tag specs | |
844c3f6f | 19 | field tip_data ; # array of tip commit info by refname |
becafaac | 20 | field log_last ; # array of reflog date by refname |
79a060e4 | 21 | |
844c3f6f SP |
22 | field tooltip_wm {} ; # Current tooltip toplevel, if open |
23 | field tooltip_t {} ; # Text widget in $tooltip_wm | |
24 | field tooltip_timer {} ; # Current timer event for our tooltip | |
25 | ||
26 | proc new {path {title {}}} { | |
27 | return [_new $path 0 $title] | |
28 | } | |
29 | ||
30 | proc new_unmerged {path {title {}}} { | |
31 | return [_new $path 1 $title] | |
32 | } | |
33 | ||
34 | constructor _new {path unmerged_only title} { | |
c80d7be5 | 35 | global current_branch is_detached use_ttk NS |
b1fa2bff | 36 | |
95af4d8d SP |
37 | if {![info exists ::all_remotes]} { |
38 | load_all_remotes | |
39 | } | |
40 | ||
b1fa2bff SP |
41 | set w $path |
42 | ||
43 | if {$title ne {}} { | |
c80d7be5 | 44 | ${NS}::labelframe $w -text $title |
b1fa2bff | 45 | } else { |
c80d7be5 | 46 | ${NS}::frame $w |
b1fa2bff SP |
47 | } |
48 | bind $w <Destroy> [cb _delete %W] | |
49 | ||
d41b43eb | 50 | if {$is_detached} { |
c80d7be5 | 51 | ${NS}::radiobutton $w.detachedhead_r \ |
1ac17950 | 52 | -text [mc "This Detached Checkout"] \ |
d41b43eb SP |
53 | -value HEAD \ |
54 | -variable @revtype | |
c80d7be5 | 55 | if {!$use_ttk} {$w.detachedhead_r configure -anchor w} |
d41b43eb SP |
56 | grid $w.detachedhead_r -sticky we -padx {0 5} -columnspan 2 |
57 | } | |
58 | ||
c80d7be5 | 59 | ${NS}::radiobutton $w.expr_r \ |
1ac17950 | 60 | -text [mc "Revision Expression:"] \ |
b1fa2bff SP |
61 | -value expr \ |
62 | -variable @revtype | |
c80d7be5 | 63 | ${NS}::entry $w.expr_t \ |
b1fa2bff SP |
64 | -width 50 \ |
65 | -textvariable @c_expr \ | |
66 | -validate key \ | |
67 | -validatecommand [cb _validate %d %S] | |
68 | grid $w.expr_r $w.expr_t -sticky we -padx {0 5} | |
7618e6b1 | 69 | |
c80d7be5 PT |
70 | ${NS}::frame $w.types |
71 | ${NS}::radiobutton $w.types.head_r \ | |
1ac17950 | 72 | -text [mc "Local Branch"] \ |
7618e6b1 SP |
73 | -value head \ |
74 | -variable @revtype | |
75 | pack $w.types.head_r -side left | |
c80d7be5 | 76 | ${NS}::radiobutton $w.types.trck_r \ |
1ac17950 | 77 | -text [mc "Tracking Branch"] \ |
7618e6b1 SP |
78 | -value trck \ |
79 | -variable @revtype | |
80 | pack $w.types.trck_r -side left | |
c80d7be5 | 81 | ${NS}::radiobutton $w.types.tag_r \ |
1ac17950 | 82 | -text [mc "Tag"] \ |
7618e6b1 SP |
83 | -value tag \ |
84 | -variable @revtype | |
85 | pack $w.types.tag_r -side left | |
86 | set w_filter $w.types.filter | |
c80d7be5 | 87 | ${NS}::entry $w_filter \ |
7618e6b1 SP |
88 | -width 12 \ |
89 | -textvariable @filter \ | |
90 | -validate key \ | |
91 | -validatecommand [cb _filter %P] | |
92 | pack $w_filter -side right | |
c80d7be5 | 93 | pack [${NS}::label $w.types.filter_icon \ |
7618e6b1 SP |
94 | -image ::choose_rev::img_find \ |
95 | ] -side right | |
96 | grid $w.types -sticky we -padx {0 5} -columnspan 2 | |
97 | ||
c80d7be5 PT |
98 | if {$use_ttk} { |
99 | ttk::frame $w.list -style SListbox.TFrame -padding 2 | |
100 | } else { | |
101 | frame $w.list | |
102 | } | |
7618e6b1 SP |
103 | set w_list $w.list.l |
104 | listbox $w_list \ | |
105 | -font font_diff \ | |
106 | -width 50 \ | |
46a2df3a | 107 | -height 10 \ |
7618e6b1 SP |
108 | -selectmode browse \ |
109 | -exportselection false \ | |
110 | -xscrollcommand [cb _sb_set $w.list.sbx h] \ | |
111 | -yscrollcommand [cb _sb_set $w.list.sby v] | |
c80d7be5 PT |
112 | if {$use_ttk} { |
113 | $w_list configure -relief flat -highlightthickness 0 -borderwidth 0 | |
114 | } | |
7618e6b1 SP |
115 | pack $w_list -fill both -expand 1 |
116 | grid $w.list -sticky nswe -padx {20 5} -columnspan 2 | |
844c3f6f SP |
117 | bind $w_list <Any-Motion> [cb _show_tooltip @%x,%y] |
118 | bind $w_list <Any-Enter> [cb _hide_tooltip] | |
119 | bind $w_list <Any-Leave> [cb _hide_tooltip] | |
120 | bind $w_list <Destroy> [cb _hide_tooltip] | |
b1fa2bff SP |
121 | |
122 | grid columnconfigure $w 1 -weight 1 | |
d41b43eb SP |
123 | if {$is_detached} { |
124 | grid rowconfigure $w 3 -weight 1 | |
125 | } else { | |
126 | grid rowconfigure $w 2 -weight 1 | |
127 | } | |
7618e6b1 SP |
128 | |
129 | trace add variable @revtype write [cb _select] | |
130 | bind $w_filter <Key-Return> [list focus $w_list]\;break | |
131 | bind $w_filter <Key-Down> [list focus $w_list] | |
132 | ||
844c3f6f SP |
133 | set fmt list |
134 | append fmt { %(refname)} | |
135 | append fmt { [list} | |
136 | append fmt { %(objecttype)} | |
137 | append fmt { %(objectname)} | |
138 | append fmt { [concat %(taggername) %(authorname)]} | |
66c75a5c | 139 | append fmt { [reformat_date [concat %(taggerdate) %(authordate)]]} |
844c3f6f SP |
140 | append fmt { %(subject)} |
141 | append fmt {] [list} | |
142 | append fmt { %(*objecttype)} | |
143 | append fmt { %(*objectname)} | |
144 | append fmt { %(*authorname)} | |
66c75a5c | 145 | append fmt { [reformat_date %(*authordate)]} |
844c3f6f SP |
146 | append fmt { %(*subject)} |
147 | append fmt {]} | |
148 | set all_refn [list] | |
149 | set fr_fd [git_read for-each-ref \ | |
150 | --tcl \ | |
151 | --sort=-taggerdate \ | |
152 | --format=$fmt \ | |
153 | refs/heads \ | |
154 | refs/remotes \ | |
155 | refs/tags \ | |
156 | ] | |
157 | fconfigure $fr_fd -translation lf -encoding utf-8 | |
158 | while {[gets $fr_fd line] > 0} { | |
159 | set line [eval $line] | |
160 | if {[lindex $line 1 0] eq {tag}} { | |
161 | if {[lindex $line 2 0] eq {commit}} { | |
162 | set sha1 [lindex $line 2 1] | |
163 | } else { | |
164 | continue | |
165 | } | |
166 | } elseif {[lindex $line 1 0] eq {commit}} { | |
167 | set sha1 [lindex $line 1 1] | |
168 | } else { | |
169 | continue | |
170 | } | |
171 | set refn [lindex $line 0] | |
172 | set tip_data($refn) [lrange $line 1 end] | |
173 | lappend cmt_refn($sha1) $refn | |
174 | lappend all_refn $refn | |
175 | } | |
176 | close $fr_fd | |
177 | ||
178 | if {$unmerged_only} { | |
179 | set fr_fd [git_read rev-list --all ^$::HEAD] | |
180 | while {[gets $fr_fd sha1] > 0} { | |
181 | if {[catch {set rlst $cmt_refn($sha1)}]} continue | |
182 | foreach refn $rlst { | |
183 | set inc($refn) 1 | |
184 | } | |
185 | } | |
186 | close $fr_fd | |
187 | } else { | |
188 | foreach refn $all_refn { | |
189 | set inc($refn) 1 | |
190 | } | |
191 | } | |
192 | ||
7618e6b1 | 193 | set spec_head [list] |
d41b43eb | 194 | foreach name [load_all_heads] { |
844c3f6f SP |
195 | set refn refs/heads/$name |
196 | if {[info exists inc($refn)]} { | |
197 | lappend spec_head [list $name $refn] | |
198 | } | |
7618e6b1 SP |
199 | } |
200 | ||
201 | set spec_trck [list] | |
202 | foreach spec [all_tracking_branches] { | |
844c3f6f SP |
203 | set refn [lindex $spec 0] |
204 | if {[info exists inc($refn)]} { | |
205 | regsub ^refs/(heads|remotes)/ $refn {} name | |
206 | lappend spec_trck [concat $name $spec] | |
207 | } | |
7618e6b1 SP |
208 | } |
209 | ||
210 | set spec_tag [list] | |
211 | foreach name [load_all_tags] { | |
844c3f6f SP |
212 | set refn refs/tags/$name |
213 | if {[info exists inc($refn)]} { | |
214 | lappend spec_tag [list $name $refn] | |
215 | } | |
7618e6b1 SP |
216 | } |
217 | ||
d41b43eb SP |
218 | if {$is_detached} { set revtype HEAD |
219 | } elseif {[llength $spec_head] > 0} { set revtype head | |
7618e6b1 SP |
220 | } elseif {[llength $spec_trck] > 0} { set revtype trck |
221 | } elseif {[llength $spec_tag ] > 0} { set revtype tag | |
222 | } else { set revtype expr | |
223 | } | |
224 | ||
225 | if {$revtype eq {head} && $current_branch ne {}} { | |
226 | set i 0 | |
227 | foreach spec $spec_head { | |
228 | if {[lindex $spec 0] eq $current_branch} { | |
84d3d7b8 | 229 | $w_list selection clear 0 end |
7618e6b1 SP |
230 | $w_list selection set $i |
231 | break | |
232 | } | |
233 | incr i | |
234 | } | |
235 | } | |
236 | ||
b1fa2bff SP |
237 | return $this |
238 | } | |
239 | ||
3206c63d | 240 | method none {text} { |
c80d7be5 | 241 | global NS use_ttk |
7618e6b1 | 242 | if {![winfo exists $w.none_r]} { |
c80d7be5 | 243 | ${NS}::radiobutton $w.none_r \ |
7618e6b1 SP |
244 | -value none \ |
245 | -variable @revtype | |
c80d7be5 | 246 | if {!$use_ttk} {$w.none_r configure -anchor w} |
7618e6b1 | 247 | grid $w.none_r -sticky we -padx {0 5} -columnspan 2 |
3206c63d | 248 | } |
7618e6b1 | 249 | $w.none_r configure -text $text |
3206c63d SP |
250 | } |
251 | ||
b1fa2bff SP |
252 | method get {} { |
253 | switch -- $revtype { | |
7618e6b1 SP |
254 | head - |
255 | trck - | |
256 | tag { | |
257 | set i [$w_list curselection] | |
258 | if {$i ne {}} { | |
259 | return [lindex $cur_specs $i 0] | |
260 | } else { | |
261 | return {} | |
262 | } | |
263 | } | |
264 | ||
d41b43eb | 265 | HEAD { return HEAD } |
7618e6b1 SP |
266 | expr { return $c_expr } |
267 | none { return {} } | |
b1fa2bff SP |
268 | default { error "unknown type of revision" } |
269 | } | |
270 | } | |
271 | ||
7cf04426 SP |
272 | method pick_tracking_branch {} { |
273 | set revtype trck | |
274 | } | |
275 | ||
d41b43eb SP |
276 | method focus_filter {} { |
277 | if {[$w_filter cget -state] eq {normal}} { | |
278 | focus $w_filter | |
279 | } | |
280 | } | |
281 | ||
827c7119 SP |
282 | method bind_listbox {event script} { |
283 | bind $w_list $event $script | |
284 | } | |
285 | ||
d41b43eb SP |
286 | method get_local_branch {} { |
287 | if {$revtype eq {head}} { | |
288 | return [_expr $this] | |
289 | } else { | |
290 | return {} | |
291 | } | |
292 | } | |
293 | ||
dd87efc8 | 294 | method get_tracking_branch {} { |
7618e6b1 SP |
295 | set i [$w_list curselection] |
296 | if {$i eq {} || $revtype ne {trck}} { | |
dd87efc8 SP |
297 | return {} |
298 | } | |
7618e6b1 | 299 | return [lrange [lindex $cur_specs $i] 1 end] |
dd87efc8 SP |
300 | } |
301 | ||
7618e6b1 SP |
302 | method get_commit {} { |
303 | set e [_expr $this] | |
304 | if {$e eq {}} { | |
305 | return {} | |
79a060e4 | 306 | } |
7618e6b1 | 307 | return [git rev-parse --verify "$e^0"] |
79a060e4 SP |
308 | } |
309 | ||
7618e6b1 SP |
310 | method commit_or_die {} { |
311 | if {[catch {set new [get_commit $this]} err]} { | |
312 | ||
313 | # Cleanup the not-so-friendly error from rev-parse. | |
314 | # | |
315 | regsub {^fatal:\s*} $err {} err | |
316 | if {$err eq {Needed a single revision}} { | |
317 | set err {} | |
318 | } | |
319 | ||
320 | set top [winfo toplevel $w] | |
31bb1d1b | 321 | set msg [strcat [mc "Invalid revision: %s" [get $this]] "\n\n$err"] |
7618e6b1 SP |
322 | tk_messageBox \ |
323 | -icon error \ | |
324 | -type ok \ | |
325 | -title [wm title $top] \ | |
326 | -parent $top \ | |
327 | -message $msg | |
328 | error $msg | |
329 | } | |
330 | return $new | |
331 | } | |
332 | ||
333 | method _expr {} { | |
334 | switch -- $revtype { | |
335 | head - | |
336 | trck - | |
337 | tag { | |
338 | set i [$w_list curselection] | |
339 | if {$i ne {}} { | |
340 | return [lindex $cur_specs $i 1] | |
341 | } else { | |
1ac17950 | 342 | error [mc "No revision selected."] |
7618e6b1 SP |
343 | } |
344 | } | |
345 | ||
346 | expr { | |
347 | if {$c_expr ne {}} { | |
348 | return $c_expr | |
349 | } else { | |
1ac17950 | 350 | error [mc "Revision expression is empty."] |
7618e6b1 SP |
351 | } |
352 | } | |
d41b43eb | 353 | HEAD { return HEAD } |
7618e6b1 SP |
354 | none { return {} } |
355 | default { error "unknown type of revision" } | |
3206c63d | 356 | } |
b1fa2bff SP |
357 | } |
358 | ||
359 | method _validate {d S} { | |
360 | if {$d == 1} { | |
361 | if {[regexp {\s} $S]} { | |
362 | return 0 | |
363 | } | |
364 | if {[string length $S] > 0} { | |
365 | set revtype expr | |
366 | } | |
367 | } | |
368 | return 1 | |
369 | } | |
370 | ||
7618e6b1 SP |
371 | method _filter {P} { |
372 | if {[regexp {\s} $P]} { | |
373 | return 0 | |
374 | } | |
375 | _rebuild $this $P | |
376 | return 1 | |
377 | } | |
378 | ||
379 | method _select {args} { | |
380 | _rebuild $this $filter | |
d41b43eb | 381 | focus_filter $this |
7618e6b1 SP |
382 | } |
383 | ||
384 | method _rebuild {pat} { | |
385 | set ste normal | |
386 | switch -- $revtype { | |
387 | head { set new $spec_head } | |
388 | trck { set new $spec_trck } | |
389 | tag { set new $spec_tag } | |
390 | expr - | |
d41b43eb | 391 | HEAD - |
7618e6b1 SP |
392 | none { |
393 | set new [list] | |
394 | set ste disabled | |
395 | } | |
396 | } | |
397 | ||
398 | if {[$w_list cget -state] eq {disabled}} { | |
399 | $w_list configure -state normal | |
400 | } | |
401 | $w_list delete 0 end | |
402 | ||
403 | if {$pat ne {}} { | |
404 | set pat *${pat}* | |
405 | } | |
406 | set cur_specs [list] | |
407 | foreach spec $new { | |
408 | set txt [lindex $spec 0] | |
409 | if {$pat eq {} || [string match $pat $txt]} { | |
410 | lappend cur_specs $spec | |
411 | $w_list insert end $txt | |
412 | } | |
413 | } | |
84d3d7b8 SP |
414 | if {$cur_specs ne {}} { |
415 | $w_list selection clear 0 end | |
416 | $w_list selection set 0 | |
417 | } | |
7618e6b1 SP |
418 | |
419 | if {[$w_filter cget -state] ne $ste} { | |
420 | $w_list configure -state $ste | |
421 | $w_filter configure -state $ste | |
422 | } | |
b1fa2bff SP |
423 | } |
424 | ||
425 | method _delete {current} { | |
426 | if {$current eq $w} { | |
427 | delete_this | |
428 | } | |
429 | } | |
430 | ||
7618e6b1 | 431 | method _sb_set {sb orient first last} { |
c80d7be5 | 432 | global NS |
7618e6b1 SP |
433 | set old_focus [focus -lastfor $w] |
434 | ||
435 | if {$first == 0 && $last == 1} { | |
436 | if {[winfo exists $sb]} { | |
437 | destroy $sb | |
438 | if {$old_focus ne {}} { | |
439 | update | |
440 | focus $old_focus | |
441 | } | |
442 | } | |
443 | return | |
444 | } | |
445 | ||
446 | if {![winfo exists $sb]} { | |
447 | if {$orient eq {h}} { | |
c80d7be5 | 448 | ${NS}::scrollbar $sb -orient h -command [list $w_list xview] |
7618e6b1 SP |
449 | pack $sb -fill x -side bottom -before $w_list |
450 | } else { | |
c80d7be5 | 451 | ${NS}::scrollbar $sb -orient v -command [list $w_list yview] |
7618e6b1 SP |
452 | pack $sb -fill y -side right -before $w_list |
453 | } | |
454 | if {$old_focus ne {}} { | |
455 | update | |
456 | focus $old_focus | |
457 | } | |
458 | } | |
3ddff72e SP |
459 | |
460 | catch {$sb set $first $last} | |
7618e6b1 SP |
461 | } |
462 | ||
844c3f6f SP |
463 | method _show_tooltip {pos} { |
464 | if {$tooltip_wm ne {}} { | |
465 | _open_tooltip $this | |
466 | } elseif {$tooltip_timer eq {}} { | |
467 | set tooltip_timer [after 1000 [cb _open_tooltip]] | |
468 | } | |
469 | } | |
470 | ||
471 | method _open_tooltip {} { | |
472 | global remote_url | |
473 | ||
474 | set tooltip_timer {} | |
475 | set pos_x [winfo pointerx $w_list] | |
476 | set pos_y [winfo pointery $w_list] | |
477 | if {[winfo containing $pos_x $pos_y] ne $w_list} { | |
478 | _hide_tooltip $this | |
479 | return | |
480 | } | |
481 | ||
482 | set pos @[join [list \ | |
483 | [expr {$pos_x - [winfo rootx $w_list]}] \ | |
484 | [expr {$pos_y - [winfo rooty $w_list]}]] ,] | |
485 | set lno [$w_list index $pos] | |
486 | if {$lno eq {}} { | |
487 | _hide_tooltip $this | |
488 | return | |
489 | } | |
490 | ||
491 | set spec [lindex $cur_specs $lno] | |
492 | set refn [lindex $spec 1] | |
493 | if {$refn eq {}} { | |
494 | _hide_tooltip $this | |
495 | return | |
496 | } | |
497 | ||
498 | if {$tooltip_wm eq {}} { | |
499 | set tooltip_wm [toplevel $w_list.tooltip -borderwidth 1] | |
500 | wm overrideredirect $tooltip_wm 1 | |
501 | wm transient $tooltip_wm [winfo toplevel $w_list] | |
502 | set tooltip_t $tooltip_wm.label | |
503 | text $tooltip_t \ | |
504 | -takefocus 0 \ | |
505 | -highlightthickness 0 \ | |
506 | -relief flat \ | |
507 | -borderwidth 0 \ | |
508 | -wrap none \ | |
509 | -background lightyellow \ | |
510 | -foreground black | |
511 | $tooltip_t tag conf section_header -font font_uibold | |
512 | bind $tooltip_wm <Escape> [cb _hide_tooltip] | |
513 | pack $tooltip_t | |
514 | } else { | |
515 | $tooltip_t conf -state normal | |
516 | $tooltip_t delete 0.0 end | |
517 | } | |
518 | ||
519 | set data $tip_data($refn) | |
520 | if {[lindex $data 0 0] eq {tag}} { | |
521 | set tag [lindex $data 0] | |
522 | if {[lindex $data 1 0] eq {commit}} { | |
523 | set cmit [lindex $data 1] | |
524 | } else { | |
525 | set cmit {} | |
526 | } | |
527 | } elseif {[lindex $data 0 0] eq {commit}} { | |
528 | set tag {} | |
529 | set cmit [lindex $data 0] | |
530 | } | |
531 | ||
becafaac SP |
532 | $tooltip_t insert end [lindex $spec 0] |
533 | set last [_reflog_last $this [lindex $spec 1]] | |
534 | if {$last ne {}} { | |
535 | $tooltip_t insert end "\n" | |
93716a62 | 536 | $tooltip_t insert end [mc "Updated"] |
becafaac SP |
537 | $tooltip_t insert end " $last" |
538 | } | |
539 | $tooltip_t insert end "\n" | |
844c3f6f SP |
540 | |
541 | if {$tag ne {}} { | |
542 | $tooltip_t insert end "\n" | |
93716a62 | 543 | $tooltip_t insert end [mc "Tag"] section_header |
844c3f6f SP |
544 | $tooltip_t insert end " [lindex $tag 1]\n" |
545 | $tooltip_t insert end [lindex $tag 2] | |
546 | $tooltip_t insert end " ([lindex $tag 3])\n" | |
547 | $tooltip_t insert end [lindex $tag 4] | |
548 | $tooltip_t insert end "\n" | |
549 | } | |
550 | ||
551 | if {$cmit ne {}} { | |
552 | $tooltip_t insert end "\n" | |
a9813cb5 | 553 | $tooltip_t insert end [mc "Commit@@noun"] section_header |
844c3f6f SP |
554 | $tooltip_t insert end " [lindex $cmit 1]\n" |
555 | $tooltip_t insert end [lindex $cmit 2] | |
556 | $tooltip_t insert end " ([lindex $cmit 3])\n" | |
557 | $tooltip_t insert end [lindex $cmit 4] | |
558 | } | |
559 | ||
560 | if {[llength $spec] > 2} { | |
561 | $tooltip_t insert end "\n" | |
93716a62 | 562 | $tooltip_t insert end [mc "Remote"] section_header |
844c3f6f | 563 | $tooltip_t insert end " [lindex $spec 2]\n" |
93716a62 | 564 | $tooltip_t insert end [mc "URL"] |
844c3f6f | 565 | $tooltip_t insert end " $remote_url([lindex $spec 2])\n" |
93716a62 | 566 | $tooltip_t insert end [mc "Branch"] |
844c3f6f SP |
567 | $tooltip_t insert end " [lindex $spec 3]" |
568 | } | |
569 | ||
570 | $tooltip_t conf -state disabled | |
571 | _position_tooltip $this | |
572 | } | |
573 | ||
becafaac SP |
574 | method _reflog_last {name} { |
575 | if {[info exists reflog_last($name)]} { | |
576 | return reflog_last($name) | |
577 | } | |
578 | ||
579 | set last {} | |
580 | if {[catch {set last [file mtime [gitdir $name]]}] | |
581 | && ![catch {set g [open [gitdir logs $name] r]}]} { | |
582 | fconfigure $g -translation binary | |
583 | while {[gets $g line] >= 0} { | |
584 | if {[regexp {> ([1-9][0-9]*) } $line line when]} { | |
585 | set last $when | |
586 | } | |
587 | } | |
588 | close $g | |
589 | } | |
590 | ||
591 | if {$last ne {}} { | |
66c75a5c | 592 | set last [format_date $last] |
becafaac SP |
593 | } |
594 | set reflog_last($name) $last | |
595 | return $last | |
596 | } | |
597 | ||
844c3f6f SP |
598 | method _position_tooltip {} { |
599 | set max_h [lindex [split [$tooltip_t index end] .] 0] | |
600 | set max_w 0 | |
601 | for {set i 1} {$i <= $max_h} {incr i} { | |
602 | set c [lindex [split [$tooltip_t index "$i.0 lineend"] .] 1] | |
603 | if {$c > $max_w} {set max_w $c} | |
604 | } | |
605 | $tooltip_t conf -width $max_w -height $max_h | |
606 | ||
607 | set req_w [winfo reqwidth $tooltip_t] | |
608 | set req_h [winfo reqheight $tooltip_t] | |
609 | set pos_x [expr {[winfo pointerx .] + 5}] | |
610 | set pos_y [expr {[winfo pointery .] + 10}] | |
611 | ||
612 | set g "${req_w}x${req_h}" | |
613 | if {$pos_x >= 0} {append g +} | |
614 | append g $pos_x | |
615 | if {$pos_y >= 0} {append g +} | |
616 | append g $pos_y | |
617 | ||
618 | wm geometry $tooltip_wm $g | |
619 | raise $tooltip_wm | |
620 | } | |
621 | ||
622 | method _hide_tooltip {} { | |
623 | if {$tooltip_wm ne {}} { | |
624 | destroy $tooltip_wm | |
625 | set tooltip_wm {} | |
626 | } | |
627 | if {$tooltip_timer ne {}} { | |
628 | after cancel $tooltip_timer | |
629 | set tooltip_timer {} | |
630 | } | |
631 | } | |
632 | ||
b1fa2bff | 633 | } |