yast/yast-yast2

require "cwm/page"
require "cwm/pager"

module CWM
  # Compatibility alias.
  # (Tab and Tabs were here first, later Page and Pager
  # were abstracted to allow for TreePager)
  Tab = Page

  # @see examples/object_api_tabs.rb
  class Tabs < Pager
    # {Tabs} does not have instances:
    # `Tabs.new` overrides `Class.new` and calls
    # either {DumbTabPager}.new or {PushButtonTabPager}.new.
    def self.new(*args)
      if Yast::UI.HasSpecialWidget(:DumbTab)
        DumbTabPager.new(*args)
      else
        PushButtonTabPager.new(*args)
      end
    end
  end

  # A {Pager} for the GUI, using the DumbTab widget.
  # Do not instantiate directly, use {Tabs}.
  class DumbTabPager < Pager
    # visually mark currently active tab
    # @param page [Page]
    def mark_page(page)
      Yast::UI.ChangeWidget(Id(widget_id), :CurrentItem, page.widget_id)
    end

    def contents
      panes = page_order.map do |page_id|
        page = page_for_id(page_id)
        Item(Id(page.widget_id), page.label, page == initial_page)
      end
      DumbTab(Id(widget_id), panes, replace_point)
    end
  end

  # A {Pager} for ncurses, using PushButtons to simulate the tabs.
  # Do not instantiate directly, use {Tabs}.
  class PushButtonTabPager < Pager
    # visually mark currently active tab
    # @param page [Page]
    def mark_page(page)
      if @current_page
        Yast::UI.ChangeWidget(
          Id(@current_page.widget_id),
          :Label,
          @current_page.label
        )
      end
      Yast::UI.ChangeWidget(
        Id(page.widget_id),
        :Label,
        "#{Yast::UI.Glyph(:BulletArrowRight)}  #{page.label}"
      )
    end

    def contents
      tabbar = page_order.each_with_object(HBox()) do |page, res|
        page = page_for_id(page)
        res << PushButton(Id(page.widget_id), page.label)
      end
      VBox(Left(tabbar), Frame("", replace_point))
    end
  end
end