From 77a4608ee1f828ed70ec58588f0229cd57758148 Mon Sep 17 00:00:00 2001
From: scuri <scuri>
Date: Tue, 18 Aug 2009 02:21:01 +0000
Subject: *** empty log message ***

---
 test/lua/view_image.lua | 76 -------------------------------------------------
 1 file changed, 76 deletions(-)
 delete mode 100644 test/lua/view_image.lua

(limited to 'test/lua/view_image.lua')

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
-- 
cgit v1.2.3