+2001-12-21 Keith Seitz <keiths@redhat.com>
+
+ * library/bpwin.ith (_select_and_popup): New private method.
+ * library/bpwin.itb (bp_select): Don't bind to Button-3.
+ (build_win): Bind Button-3 to _select_and_popup.
+ (_select_and_popup): New private method.
+
2001-12-18 Keith Seitz <keiths@redhat.com>
* library/memwin.itb (incr_addr): Fix typo.
foreach thing $zz {
bind $twin.${thing}${i} <1> "$this bp_select $i"
bind $twin.${thing}${i} <Double-1> "$this goto_bp $i"
+ bind $twin.${thing}${i} <3> [code $this _select_and_popup $i %X %Y]
}
}
foreach thing $zz {
$twin.${thing}${i} configure -fg [pref get gdb/font/select_fg] -bg $bg1
- bind $twin.${thing}${i} <3> break
}
}
$itk_interior.m.bp entryconfigure "Disabled" -state disabled
$itk_interior.m.bp entryconfigure "Remove" -state disabled
- foreach thing $zz {
- bind $twin.${thing}${r} <3> break
- }
-
return
}
foreach thing $zz {
$twin.${thing}${r} configure -fg [pref get gdb/font/select_fg] \
-bg [pref get gdb/font/select_bg]
- bind $twin.${thing}${r} <3> "tk_popup $Menu %X %Y"
}
if {$tracepoints == 0} {
}
# ------------------------------------------------------------------
+# NAME: private method BpWin::_select_and_popup
+# DESCRIPTION: Select the given breakpoint and popup the options
+# menu at the given location.
+#
+# ARGUMENTS: None
+# RETURNS: Nothing
+# ------------------------------------------------------------------
+body BpWin::_select_and_popup {bp X Y} {
+ if {$selected != $bp} {
+ bp_select $bp
+ }
+ tk_popup $Menu $X $Y
+}
+
+# ------------------------------------------------------------------
# METHOD: bp_modify - modify a breakpoint entry
# ------------------------------------------------------------------
body BpWin::bp_modify {bp_event {tracepoint 0}} {