Function: idlwave-shell-mouse-active-bp

idlwave-shell-mouse-active-bp is an interactive and byte-compiled function defined in idlw-shell.el.gz.

Signature

(idlwave-shell-mouse-active-bp EV)

Documentation

Does right-click mouse action on breakpoint lines.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/idlw-shell.el.gz
(defun idlwave-shell-mouse-active-bp (ev)
  "Does right-click mouse action on breakpoint lines."
  (interactive "e")
  (if ev (mouse-set-point ev))
  (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame)))
	index condition count select cmd disabled)
    (unless bp
      (error "Breakpoint not found"))
    (setq index (int-to-string (idlwave-shell-bp-get bp))
	  condition (idlwave-shell-bp-get bp 'condition)
	  cmd (idlwave-shell-bp-get bp 'cmd)
	  count (idlwave-shell-bp-get bp 'count)
	  disabled (idlwave-shell-bp-get bp 'disabled))
    (setq select (idlwave-popup-select
		  ev
		  (delq nil
			(list (if disabled "Enable" "Disable")
			      "Clear"
			      "Clear All"
			      (if condition "Remove Condition" "Add Condition")
			      (if condition "Change Condition")
			      (if count "Remove Repeat Count"
				"Add Repeat Count")
			      (if count "Change Repeat Count")))
		  (concat "BreakPoint " index)))
    (if select
	(cond
	 ((string-equal select "Clear All")
	  (idlwave-shell-clear-all-bp))
	 ((string-equal select "Clear")
	  (idlwave-shell-clear-current-bp))
	 ((string-match "Condition" select)
	  (idlwave-shell-break-here count cmd
				    (if (or (not condition)
					    (string-match "Change" select))
				      (read-string "Break Condition: "))
				    disabled))
	 ((string-match "Count" select)
	  (idlwave-shell-break-here (if (or (not count)
					    (string-match "Change" select))
					(string-to-number
					 (read-string "Break After Count: ")))
				    cmd condition disabled))
	 ((string-match "able$" select)
	  (idlwave-shell-toggle-enable-current-bp))
	 (t
	  (message "Unimplemented: %s" select))))))