diff options
Diffstat (limited to 'test/lua/view_image.lua')
-rw-r--r-- | test/lua/view_image.lua | 76 |
1 files changed, 0 insertions, 76 deletions
diff --git a/test/lua/view_image.lua b/test/lua/view_image.lua deleted file mode 100644 index c156bd3..0000000 --- a/test/lua/view_image.lua +++ /dev/null @@ -1,76 +0,0 @@ -require"imlua" -require"cdlua" -require"cdluaim" -require"iuplua" -require"iupluacd" - -iup.key_open() - -function View_Image(image, title) - ret = false - - cnv = iup.canvas{} - - function cnv:action() - local canvas = dlg.canvas - local image = dlg.image - - if (not canvas) then return end - - canvas:Activate() - cw, ch = canvas:GetSize() - iw = image:Width() - ih = image:Height() - - if (iw > ih) then - h = iw/iw * ch - y = (ch-h)/2 - x = 0 - w = cw - else - w = iw/ih * ch - x = (cw-w)/2 - y = 0 - h = ch - end - - canvas:Clear() - image:cdCanvasPutImageRect(canvas, x, y, w, h, 0, 0, 0, 0) - end - - function cnv:button_cb() - dlg:close_cb() - ret = true - return iup.CLOSE - end - - dlg = iup.dialog{iup.vbox{cnv, iup.label{title="Click to accept or press Esc to abort."}}} - dlg.placement="maximized" - dlg.title = title - dlg.cnv = cnv - dlg.image = image - - function dlg:k_any(c) - print("K_any("..c..")") - if (c == iup.K_ESC) then - dlg:close_cb() - return iup.CLOSE - end - end - - function dlg:close_cb() - local canvas = self.canvas - if canvas then canvas:Kill() end - end - - function dlg:map_cb() - canvas = cd.CreateCanvas(cd.IUP, self.cnv) - self.canvas = canvas - end - - dlg:show() - iup.MainLoop() - dlg:destroy() - - return ret -end |