Some simple architecture decision options for shoes 4

shoes_tk.rb

require 'tk'

class Shoes
  module Tk
    class App
      def initialize
        @root = TkRoot.new
      end

      def button(title, &blk)
        b = TkButton.new(@root) do
          text title
          command &blk
          pack
        end
      end

      def alert(text)
        ::Tk::messageBox :message => text
      end
    end
  end
end

class Shoes
  def self.app(&blk)
    App.new.instance_eval(&blk)
  end

  include Shoes::Tk
end

Shoes.app do
  button "hello" do
    alert "hi"
  end
end

Tk.mainloop