Lines Matching +defs:default +defs:frame +defs:alist
144 "*Non-nil means, never replace the shell frame with another buffer."
148 (defcustom idlwave-shell-use-dedicated-frame nil
149 "*Non-nil means, IDLWAVE should use a special frame to display shell buffer."
153 (defcustom idlwave-shell-frame-parameters
155 "The frame parameters for a dedicated idlwave-shell frame.
156 See also `idlwave-shell-use-dedicated-frame'.
157 The default makes the frame splittable, so that completion works correctly."
162 (defcustom idlwave-shell-raise-frame t
163 "*Non-nil means, `idlwave-shell' raises the frame showing the shell window."
217 So by default setting a breakpoint will be on C-c C-d C-b."
328 (defcustom idlwave-shell-examine-alist
410 strings. Here is some example code which makes use of the default spells.
490 We use a single character by default, since the main block of IDL procedures
505 "*The color for the default face or overlay arrow when stopped."
660 (defvar idlwave-shell-default-directory nil
661 "The default directory in the idlwave-shell buffer, of outside use.")
788 (defvar idlwave-shell-halt-frame nil
789 "The frame associated with halt/breakpoint messages.")
791 (defvar idlwave-shell-step-frame nil
792 "The frame associated with step messages.")
794 (defvar idlwave-shell-trace-frame nil
795 "The frame associated with trace messages.")
867 (defvar idlwave-shell-bp-alist)
869 (defvar idlwave-shell-sources-alist)
895 editing are available via the comint-mode key bindings, by default
997 minor-mode-alist
1006 ;; (make-local-variable 'idlwave-shell-bp-alist)
1007 (setq idlwave-shell-halt-frame nil
1008 idlwave-shell-trace-frame nil
1010 idlwave-shell-step-frame nil)
1028 (setq idlwave-shell-bp-alist nil)
1031 idlwave-shell-sources-alist nil)
1032 (setq idlwave-shell-default-directory default-directory)
1052 (default-value 'comint-output-filter-functions))
1068 ;; adds this function to the global default hook. It interferes
1113 (old-path-alist idlwave-path-alist)
1122 (setq idlwave-path-alist
1124 (let ((old-entry (assoc x old-path-alist)))
1129 (if (setq path-changed (not (equal idlwave-path-alist old-path-alist)))
1130 (put 'idlwave-path-alist 'from-shell t))
1131 (if idlwave-path-alist
1138 (setq idlwave-path-alist old-path-alist))))
1151 (defun idlwave-shell-source-frame ()
1152 "Return the frame to be used for source display."
1153 (if idlwave-shell-use-dedicated-frame
1155 (if (frame-live-p idlwave-shell-display-wframe)
1156 ;; The frame exists, so we use it.
1158 ;; The frame does not exist. We use the current frame.
1159 ;; However, if the current is the shell frame, we make a new frame,
1160 ;; or recycle the first existing visible frame
1162 (if (eq (selected-frame) idlwave-shell-idl-wframe)
1164 (let ((flist (visible-frame-list))
1165 (frame (selected-frame)))
1172 (make-frame))
1173 (selected-frame))))))
1175 (defun idlwave-shell-shell-frame ()
1176 "Return the frame to be used for the shell buffer."
1177 (if idlwave-shell-use-dedicated-frame
1178 ;; We want a dedicated frame
1179 (if (frame-live-p idlwave-shell-idl-wframe)
1182 ;; It does not exist. Check if we have a source frame.
1183 (if (not (frame-live-p idlwave-shell-display-wframe))
1184 ;; We do not have a source frame, so we use this one.
1185 (setq idlwave-shell-display-wframe (selected-frame)))
1186 ;; Return a new frame
1188 (make-frame idlwave-shell-frame-parameters)))))
1196 When called with a prefix ARG, or when `idlwave-shell-use-dedicated-frame'
1211 (let ((idlwave-shell-use-dedicated-frame nil))
1214 (and idlwave-shell-use-dedicated-frame
1215 (setq idlwave-shell-idl-wframe (selected-frame)))
1219 ;; A non-nil arg means, we want a dedicated frame. This will last
1221 (if arg (setq idlwave-shell-use-dedicated-frame t))
1222 (if (equal arg '(16)) (setq idlwave-shell-use-dedicated-frame nil))
1240 (idlwave-shell-shell-frame)))
1248 (raise-frame (window-frame window)))
1249 (if (eq (selected-frame) (window-frame window))
1256 idlwave-path-alist
1258 (get 'idlwave-path-alist 'from-shell))
1620 ;; Reset to default state for next command.
1647 (when (and (> (length (frame-list)) 1)
1648 (frame-live-p idlwave-shell-idl-wframe))
1649 (delete-frame idlwave-shell-idl-wframe)
1748 (setq idlwave-shell-halt-frame
1753 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1763 (setq idlwave-shell-halt-frame
1769 (idlwave-shell-pc-frame) nil
1777 (setq idlwave-shell-halt-frame
1786 (nth 0 idlwave-shell-halt-frame)
1787 (nth 1 idlwave-shell-halt-frame))
1788 idlwave-shell-bp-alist)))
1798 (idlwave-shell-display-line (idlwave-shell-pc-frame)))
1846 ;; If we have a file, return the frame list
1886 (setq idlwave-shell-step-frame nil
1887 idlwave-shell-halt-frame nil
1890 idlwave-shell-bp-alist nil
2105 Change the default directory for the process buffer to concur."
2113 (setq idlwave-shell-default-directory dir)
2114 (setq default-directory (file-name-as-directory dir))))))
2143 (idlwave-class-alist) t)))
2180 idlwave-executive-commands-alist nil
2205 (entry (assoc-string word idlwave-executive-commands-alist t)))
2217 ;; CWD might have changed, resync, to set default directory
2266 (idlwave-shell-pc-frame))
2277 ;; parse the stack and visit the selected frame
2305 ;; force edebug for this frame if we're in that mode already
2325 (defun idlwave-shell-goto-frame (&optional frame)
2326 "Set buffer to FRAME with point at the frame line.
2327 If the optional argument FRAME is nil then idlwave-shell-pc-frame is
2328 used. Does nothing if the resulting frame is nil."
2329 (if frame ()
2330 (setq frame (idlwave-shell-pc-frame)))
2332 (frame
2333 (set-buffer (idlwave-find-file-noselect (car frame) 'shell))
2335 (goto-line (nth 1 frame)))))
2337 (defun idlwave-shell-pc-frame ()
2338 "Returns the frame for IDL execution."
2339 (and idlwave-shell-halt-frame
2340 (list (nth 0 idlwave-shell-halt-frame)
2341 (nth 1 idlwave-shell-halt-frame)
2342 (nth 2 idlwave-shell-halt-frame))))
2344 (defun idlwave-shell-valid-frame (frame)
2345 "Check that frame is for an existing file."
2346 (file-readable-p (car frame)))
2357 (defun idlwave-shell-display-line (frame &optional col debug)
2358 "display frame file in other window with overlay arrow.
2360 frame is a list of file name, line number, and subroutine name. if
2361 frame is nil then remove overlay. if col is set, move point to that
2366 (if (not frame)
2376 (if (not (idlwave-shell-valid-frame frame))
2379 (error (concat "invalid frame - unable to access file: " (car frame)))
2385 (if (nth 2 frame)
2388 (nth 2 frame))))
2389 (let* ((buffer (idlwave-find-file-noselect (car frame) 'shell))
2395 nil (idlwave-shell-shell-frame))
2399 nil (idlwave-shell-source-frame)))
2406 (goto-line (nth 1 frame))
2506 (idlwave-shell-bp (idlwave-shell-current-frame)
2592 Clears in IDL and in `idlwave-shell-bp-alist'."
2601 (defun idlwave-shell-current-frame ()
2603 If in the IDL shell buffer, returns `idlwave-shell-pc-frame'."
2606 (idlwave-shell-pc-frame)
2620 (nth 2 idlwave-shell-halt-frame)
2663 (let ((bpl (or bpl idlwave-shell-bp-alist)) disabled modified)
2709 "Set breakpoint in module. Assumes that `idlwave-shell-sources-alist'
2716 idlwave-shell-sources-alist)
2749 (if (idlwave-shell-pc-frame)
2751 (idlwave-shell-goto-frame)
2791 (let* ((frame (idlwave-shell-current-frame))
2792 (file (car frame))
2793 (orig-bp-line (nth 1 frame))
2794 (bp-alist idlwave-shell-bp-alist)
2798 (while (setq bp (pop bp-alist))
2826 'default-mouse-track-event-is-with-button)
2839 (defun idlwave-default-mouse-track-event-is-with-button (event n)
2845 'default-mouse-track-event-is-with-button)))
2848 (fset 'default-mouse-track-event-is-with-button
2849 'idlwave-default-mouse-track-event-is-with-button)
2851 (fset 'default-mouse-track-event-is-with-button oldfunc)))))
2906 idlw-shell-examine-alist from which to select the help command text.
2908 idlw-shell-examine-alist via mini-buffer shortcut key."
2984 (and ev idlwave-shell-examine-alist)
2991 (idlwave-one-key-select 'idlwave-shell-examine-alist
2995 ;; idlwave-shell-examine-alist nil nil nil
3000 (mapcar 'car idlwave-shell-examine-alist)
3002 idlwave-shell-examine-alist))))
3031 (defvar idlwave-shell-examine-window-alist nil
3085 ;; found in a frame all by itself, use that, otherwise, switch
3086 ;; to or create an examine window in this frame, and resize if
3098 (throw 'exit (window-frame thiswin)))))))))
3102 (let ((elt (assoc win idlwave-shell-examine-window-alist)))
3107 (enlarge-window (- (/ (frame-height) 2)
3111 (setq idlwave-shell-examine-window-alist
3114 idlwave-shell-examine-window-alist)))
3116 (if (setq elt (assoc win idlwave-shell-examine-window-alist))
3118 (add-to-list 'idlwave-shell-examine-window-alist
3131 (delete-frame (window-frame win))
3248 nil (idlwave-shell-shell-frame))
3255 (eq this-command 'handle-switch-frame))
3264 (eq this-command 'handle-switch-frame))
3271 (defvar idlwave-shell-bp-alist nil
3275 The car is the `frame' for the breakpoint:
3288 the breakpoint is cleared and removed from the alist.
3329 nil (idlwave-shell-shell-frame))))
3340 nil (idlwave-shell-shell-frame))))
3357 (defun idlwave-display-buffer (buf not-this-window-p &optional frame)
3359 ;; The XEmacs version enforces the frame
3360 (display-buffer buf not-this-window-p frame)
3361 ;; For Emacs, we need to force the frame ourselves.
3362 (let ((this-frame (selected-frame)))
3364 (if (frame-live-p frame)
3365 (select-frame frame))
3366 (if (eq this-frame (selected-frame))
3367 ;; same frame: use display buffer, to make sure the current
3370 ;; different frame
3378 ; (if (not (frame-live-p frame)) (setq frame nil))
3379 ; (display-buffer buf not-this-window-p frame))
3395 idlwave-shell-bp-alist. Optional second arg ITEM is the
3417 ;; index - default
3422 `idlwave-shell-bp-alist' updating breakpoint count and command data
3430 (let ((old-bp-alist idlwave-shell-bp-alist)
3448 (setq idlwave-shell-bp-alist (list nil))
3472 (nconc idlwave-shell-bp-alist
3478 (setq idlwave-shell-bp-alist (cdr idlwave-shell-bp-alist))
3481 (mapcar 'idlwave-shell-update-bp old-bp-alist)
3482 (mapcar 'idlwave-shell-update-bp-command-only old-bp-alist))))
3486 idlwave-shell-bp-alist)
3493 If BP frame is in `idlwave-shell-bp-alist' updates the breakpoint data."
3494 (let ((match (assoc (car bp) idlwave-shell-bp-alist)))
3504 (defun idlwave-shell-bp (frame &optional data module)
3507 of the format used in `idlwave-shell-bp-alist'. Can be used in commands
3508 attempting match a breakpoint in `idlwave-shell-bp-alist'."
3509 (cons frame ;; (file line)
3517 "Check `idlwave-shell-sources-alist' for source of breakpoint using BP.
3525 (cdr (assoc bp-module idlwave-shell-sources-alist)))))
3543 (setq idlwave-shell-old-bp idlwave-shell-bp-alist))
3591 (defun idlwave-shell-find-bp (frame)
3592 "Return breakpoint from `idlwave-shell-bp-alist' for frame.
3593 Returns nil if frame not found."
3594 (assoc frame idlwave-shell-bp-alist))
3598 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3602 (idlwave-shell-goto-frame)
3604 (setq bp (idlwave-shell-find-bp (idlwave-shell-current-frame))))
3615 considered the new breakpoint if the file name of frame matches."
3617 (bpl idlwave-shell-bp-alist))
3624 (setq bpl (assoc (car bp) idlwave-shell-bp-alist)))
3630 ;; This updates `idlwave-shell-bp-alist' because a deep copy was
3649 (let ((ov-alist (copy-alist idlwave-shell-bp-overlays))
3650 (bp-list idlwave-shell-bp-alist)
3656 (if ov-alist
3657 (while (setq ov-list (pop ov-alist))
3662 (setq ov-alist idlwave-shell-bp-overlays
3669 (idlwave-shell-goto-frame (car bp))
3708 (ov-existing (assq full-type ov-alist))
3816 (let ((bp (idlwave-shell-find-bp (idlwave-shell-current-frame)))
3860 (defun idlwave-shell-edit-default-command-line (arg)
3866 (defun idlwave-shell-execute-default-command-line (arg)
3869 `idlwave-shell-edit-default-command-line' to edit the line."
3964 (defvar idlwave-shell-sources-alist nil
3966 Elements of the alist have the form:
3981 "Get module source, and update idlwave-shell-sources-alist."
3982 (let ((old (assoc (upcase module) idlwave-shell-sources-alist))
3990 (setq idlwave-shell-sources-alist
3991 (append idlwave-shell-sources-alist
4006 Create `idlwave-shell-sources-alist' consisting of
4022 (setq idlwave-shell-sources-alist
4065 idlwave-shell-bp-alist)
4081 (let (frame col)
4089 (setq frame
4105 (if frame
4107 (idlwave-shell-display-line frame col 'disable))
4115 default-directory
4116 idlwave-shell-default-directory)))
4223 ([(control ?y)] ?y idlwave-shell-execute-default-command-line)
4343 (selected-frame)))))
4357 (set-face-foreground 'fringe (face-foreground 'default))))))
4422 ["Execute Default Cmd" idlwave-shell-execute-default-command-line t]
4423 ["Edit Default Cmd" idlwave-shell-edit-default-command-line t])
4465 idlwave-shell-examine-alist))
4469 idlwave-shell-examine-alist)))
4554 (let ((image-alist
4688 (while (setq im-cons (pop image-alist))