(emacs-pid)

(set-frame-parameter (selected-frame) 'tab-bar-lines 3)

(custom-set-faces
 '(current-tab ((t ( :background "green"  :foreground "lightblue"))))
 '(odd-tabs    ((t ( :background "red"    :foreground "white" ))))
 '(even-tabs   ((t ( :background "green"  :foreground "black")))))

(setq init-tab
      '( (+ 1 2)
	 (setq fr (make-terminal-frame '((tab . t)))) ) )

(setq act-tab
      '( (message "activate")
	 (select-frame fr) ) )

(setq desact-tab
      '( (message "hide tab") ) )

(make-tab (list (cons 'tab-code:init init-tab )
		(cons 'tab-code:activate act-tab )
		(cons 'tab-code:desactivate desact-tab )
		) )

(activate-tab 0)

'(assoc 'tab-bar-lines (frame-parameters))

'(setq fr (make-terminal-frame '((tab . t))))

'(select-frame fr)

'(selected-frame)

'(delete-frame fr)

'(let ((f (car (frame-list))))
  (select-frame f))

'(frame-list)