unofficial mirror of help-gnu-emacs@gnu.org
 help / color / mirror / Atom feed
* tabulated-list-mode: how to activate button?
@ 2020-12-07  0:36 Jean Louis
  2020-12-07  0:44 ` Michael Heerdegen
  0 siblings, 1 reply; 9+ messages in thread
From: Jean Louis @ 2020-12-07  0:36 UTC (permalink / raw)
  To: Help GNU Emacs

I have reported this as bug, but maybe somebody has solution as I need
help to extend Hyperscope dynamic knowledge repository.

Here I am defining new `my-mode' child of `tabulated-list-mode'

(define-derived-mode my-mode tabulated-list-mode "Choice" "Choice Mode"
  (setq tabulated-list-padding 1)
  (setq tabulated-list-format  [("Title" 60 t) ("Button" 20 t)])
  (tabulated-list-init-header))

Then I wish to create a button as described in
{C-h v tabulated-list-entries RET}

Documentation:
Entries displayed in the current Tabulated List buffer.
This should be either a function, or a list.
If a list, each element has the form (ID [DESC1 ... DESCN]),
where:
 - ID is nil, or a Lisp object uniquely identifying this entry,
   which is used to keep the cursor on the "same" entry when
   rearranging the list.  Comparison is done with ‘equal’.

 - Each DESC is a column descriptor, one for each column
   specified in ‘tabulated-list-format’.  A descriptor is either
   a string, which is printed as-is, or a list (LABEL . PROPS),
   which means to use ‘insert-text-button’ to insert a text
   button with label LABEL and button properties PROPS.
   The string, or button label, must not contain any newline.

(defun my-display ()
  (let* ((buffer "Choice")
	 (buffer (get-buffer-create buffer)))
    (switch-to-buffer-other-window buffer)
    (my-mode)
    (setq tabulated-list-entries '((1 ["Something" ("Button" 'action (lambda (b) (message "Hello")) 'font-lock-face 'link 'follow-link t)])))
    (tabulated-list-print t)))
    
When activated this function shows the button, but I cannot activate
the button.

(my-display) ;; This will not activate the button as I cannot see "Hello"

;; while this works fine and I can see "Hello" when button is activated
(insert-text-button "Button" 'action (lambda (b) (message "Hello")))




^ permalink raw reply	[flat|nested] 9+ messages in thread
end of thread, other threads:[~2020-12-07  5:46 UTC | newest]

Thread overview: 9+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-12-07  0:36 tabulated-list-mode: how to activate button? Jean Louis
2020-12-07  0:44 ` Michael Heerdegen
2020-12-07  0:55   ` Jean Louis
2020-12-07  1:07     ` Michael Heerdegen
2020-12-07  1:16       ` Jean Louis
2020-12-07  1:31         ` Michael Heerdegen
2020-12-07  5:44           ` [solved] " Jean Louis
2020-12-07  2:26         ` Drew Adams
2020-12-07  5:46           ` Jean Louis

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).