60 lines
1.8 KiB
Lua
60 lines
1.8 KiB
Lua
|
------------------
|
||
|
|
-- MINI TOOLBAR --
|
||
|
|
------------------
|
||
|
|
|
||
|
|
|
||
|
|
r2.MiniToolbar = r2.newToolbar()
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
-------------------------------------------------------------------
|
||
|
|
-- PRIVATE :IMPLEMENT METHODS REQUIRED BY r2_ui_toolbar_base.lua --
|
||
|
|
-------------------------------------------------------------------
|
||
|
|
|
||
|
|
-- return a reference on the toolbar
|
||
|
|
function r2.MiniToolbar:getToolbar()
|
||
|
|
return getUI("ui:interface:r2ed_main_menu_button:mini_toolbar")
|
||
|
|
end
|
||
|
|
|
||
|
|
-- return the max number of command that the toolbar may contains
|
||
|
|
function r2.MiniToolbar:getMaxNumCommands()
|
||
|
|
return tonumber(getDefine("r2ed_max_num_mini_buttons"))
|
||
|
|
end
|
||
|
|
|
||
|
|
-- get a button from its index in the toolbar
|
||
|
|
function r2.MiniToolbar:getButton(buttonIndex)
|
||
|
|
if self.ButtonList == nil then
|
||
|
|
self.ButtonList = self:getToolbar():find("buttons")
|
||
|
|
end
|
||
|
|
return self.ButtonList["b" .. tostring(buttonIndex)]
|
||
|
|
end
|
||
|
|
|
||
|
|
-- setup a button from a command in the toolbar
|
||
|
|
function r2.MiniToolbar:setupButton(button, commandDesc, buttonIndex)
|
||
|
|
assert(button)
|
||
|
|
button.active = true
|
||
|
|
-- buld filenames for the 'normal', 'over' & 'pushed" textures
|
||
|
|
local icon = commandDesc.ButtonBitmap
|
||
|
|
local iconOver = nlfile.getFilenameWithoutExtension(icon) ..
|
||
|
|
"_over." .. nlfile.getExtension(icon)
|
||
|
|
local iconPushed = nlfile.getFilenameWithoutExtension(icon) ..
|
||
|
|
"_pushed." .. nlfile.getExtension(icon)
|
||
|
|
|
||
|
|
button.b.texture = icon
|
||
|
|
button.b.texture_over = iconOver
|
||
|
|
button.b.texture_pushed = iconPushed
|
||
|
|
button.b.tooltip = i18n.get(commandDesc.TextId)
|
||
|
|
button.Env.Toolbar = self
|
||
|
|
|
||
|
|
button.b.onclick_l = "lua"
|
||
|
|
button.b.params_l = "r2.runBaseToolbarCommand(getUICaller().parent.Env.Toolbar, " .. tostring(buttonIndex) .. ")"
|
||
|
|
end
|
||
|
|
|
||
|
|
-- retrieve a command list for the given instance
|
||
|
|
function r2.MiniToolbar:getAvailableCommands(instance, dest)
|
||
|
|
-- OBSOLETE
|
||
|
|
instance:getAvailableMiniCommands(dest)
|
||
|
|
end
|
||
|
|
|