Show More
@@ -73,6 +73,15 b' bind all <MouseWheel> [list ::tk::MouseW' | |||||
73 | } |
|
73 | } | |
74 |
|
74 | |||
75 |
|
75 | |||
|
76 | # Unify right mouse button handling. | |||
|
77 | # See "mouse buttons on macintosh" thread on comp.lang.tcl | |||
|
78 | if {[tk windowingsystem] eq "aqua"} { | |||
|
79 | event add <<B3>> <Control-ButtonPress-1> | |||
|
80 | event add <<B3>> <Button-2> | |||
|
81 | } else { | |||
|
82 | event add <<B3>> <Button-3> | |||
|
83 | } | |||
|
84 | ||||
76 | proc gitdir {} { |
|
85 | proc gitdir {} { | |
77 | global env |
|
86 | global env | |
78 | if {[info exists env(GIT_DIR)]} { |
|
87 | if {[info exists env(GIT_DIR)]} { | |
@@ -937,7 +946,7 b' proc drawcommitline {level} {' | |||||
937 | set date [lindex $commitinfo($id) 2] |
|
946 | set date [lindex $commitinfo($id) 2] | |
938 | set linehtag($lineno) [$canv create text $xt $y1 -anchor w \ |
|
947 | set linehtag($lineno) [$canv create text $xt $y1 -anchor w \ | |
939 | -text $headline -font $mainfont ] |
|
948 | -text $headline -font $mainfont ] | |
940 |
$canv bind $linehtag($lineno) <B |
|
949 | $canv bind $linehtag($lineno) <<B3>> "rowmenu %X %Y $id" | |
941 | set linentag($lineno) [$canv2 create text 3 $y1 -anchor w \ |
|
950 | set linentag($lineno) [$canv2 create text 3 $y1 -anchor w \ | |
942 | -text $name -font $namefont] |
|
951 | -text $name -font $namefont] | |
943 | set linedtag($lineno) [$canv3 create text 3 $y1 -anchor w \ |
|
952 | set linedtag($lineno) [$canv3 create text 3 $y1 -anchor w \ |
General Comments 0
You need to be logged in to leave comments.
Login now