equal
deleted
inserted
replaced
70 bind all <MouseWheel> [list ::tk::MouseWheel %W %X %Y %D 0] |
70 bind all <MouseWheel> [list ::tk::MouseWheel %W %X %Y %D 0] |
71 |
71 |
72 # end of win32 section |
72 # end of win32 section |
73 } |
73 } |
74 |
74 |
|
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 } |
75 |
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)]} { |
79 return $env(GIT_DIR) |
88 return $env(GIT_DIR) |
935 set headline [lindex $commitinfo($id) 0] |
944 set headline [lindex $commitinfo($id) 0] |
936 set name [lindex $commitinfo($id) 1] |
945 set name [lindex $commitinfo($id) 1] |
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) <Button-3> "rowmenu %X %Y $id" |
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 \ |
944 -text $date -font $mainfont] |
953 -text $date -font $mainfont] |
945 |
954 |