Subversion Repositories Kolibri OS

Rev

Blame | Last modification | View Log | Download | RSS feed

  1. -- Test LUA inputbox
  2. --  this script tests the inputbox
  3.  
  4. w, h = getbrushsize()
  5. --[[
  6. messagebox(
  7.   "Forecolor: " .. getforecolor() .. "\n" ..
  8.   "Backcolor: " .. getbackcolor() .. "\n" ..
  9.   "Transparent color: " .. gettranscolor() .. "\n" ..
  10.   "Brush dimensions: " .. w .. "x" .. h
  11. )
  12. ]]
  13.  
  14.  
  15. ok, w, h = inputbox("Modify brush",
  16.   "RGB",    1, 0, 1,  -1,
  17.   "HSV",    0, 0, 1,  -1,
  18.   "HSL",    0, 0, 1,  -1,
  19.   "Width",  w, -900.0,900.0, 3,
  20.   "Height", h, -900.0,900.0, 4,
  21.   "X Flip", 0, 0, 1,  0,
  22.   "Y Flip", 0, 0, 1,  0,
  23.   "Degrees",1, 0, 1,  -2,
  24.   "Radians",0, 0, 1,  -2  
  25. );
  26. if ok == true then
  27.   messagebox(
  28.     "w: " .. w .. "\n" ..
  29.     "h: " .. h .. "\n"
  30.   )
  31. end
  32.  
  33.  
  34.