forked from KolibriOS/kolibrios
34 lines
696 B
Lua
34 lines
696 B
Lua
|
-- Test LUA inputbox
|
||
|
|
-- this script tests the inputbox
|
||
|
|
|
||
|
|
w, h = getbrushsize()
|
||
|
|
--[[
|
||
|
|
messagebox(
|
||
|
|
"Forecolor: " .. getforecolor() .. "\n" ..
|
||
|
|
"Backcolor: " .. getbackcolor() .. "\n" ..
|
||
|
|
"Transparent color: " .. gettranscolor() .. "\n" ..
|
||
|
|
"Brush dimensions: " .. w .. "x" .. h
|
||
|
|
)
|
||
|
|
]]
|
||
|
|
|
||
|
|
|
||
|
|
ok, w, h = inputbox("Modify brush",
|
||
|
|
"RGB", 1, 0, 1, -1,
|
||
|
|
"HSV", 0, 0, 1, -1,
|
||
|
|
"HSL", 0, 0, 1, -1,
|
||
|
|
"Width", w, -900.0,900.0, 3,
|
||
|
|
"Height", h, -900.0,900.0, 4,
|
||
|
|
"X Flip", 0, 0, 1, 0,
|
||
|
|
"Y Flip", 0, 0, 1, 0,
|
||
|
|
"Degrees",1, 0, 1, -2,
|
||
|
|
"Radians",0, 0, 1, -2
|
||
|
|
);
|
||
|
|
if ok == true then
|
||
|
|
messagebox(
|
||
|
|
"w: " .. w .. "\n" ..
|
||
|
|
"h: " .. h .. "\n"
|
||
|
|
)
|
||
|
|
end
|
||
|
|
|
||
|
|
|