Function: eieio-sb-expand

eieio-sb-expand is a byte-compiled function defined in eieio-opt.el.gz.

Signature

(eieio-sb-expand TEXT CLASS INDENT)

Documentation

For button TEXT, expand CLASS at the current location.

Argument INDENT is the depth of indentation.

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/eieio-opt.el.gz
(defun eieio-sb-expand (text class indent)
  "For button TEXT, expand CLASS at the current location.
Argument INDENT is the depth of indentation."
  (cond ((string-search "+" text)	;we have to expand this file
	 (speedbar-change-expand-button-char ?-)
	 (speedbar-with-writable
	   (save-excursion
	     (end-of-line) (forward-char 1)
	     (let ((subclasses (eieio--class-children (cl--find-class class))))
	       (while subclasses
		 (eieio-class-button (car subclasses) (1+ indent))
		 (setq subclasses (cdr subclasses)))))))
	((string-search "-" text)	;we have to contract this node
	 (speedbar-change-expand-button-char ?+)
	 (speedbar-delete-subblock indent))
	(t (error "Ooops...  not sure what to do")))
  (speedbar-center-buffer-smartly))