local setmetatable = setmetatable
local context   = require( "radical.context" )
local base      = require( "radical.base"    )
local shape     = require( "gears.shape"     )
local placement = require( "awful.placement" )

local function new(args)
  local args = args or {}
  args.internal = args.internal or {}
  args.arrow_type = base.arrow_type.NONE

  local ret = context(args)

  local w = ret.wibox

  w:set_shape (shape.rounded_rect, 10)

  local function f() placement.centered(w) end

  w:connect_signal("property::width" ,f)
  w:connect_signal("property::height",f)
  f()

  return ret
end

return setmetatable({}, { __call = function(_, ...) return new(...) end })
-- kate: space-indent on; indent-width 2; replace-tabs on;