ruby-iup 0.0.1

data/Rakefile

@@ -0,0 +1,97 @@
+#-*-ruby-*-
+#
+# Copyright (C) 2008 Park Heesob <phasis@gmail.com>
+#
+# This program is distributed under the terms of the MIT license.
+# See the included MIT-LICENSE file for the terms of this license.
+#
+# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+# OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+# MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+# IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+# CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+# TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+# SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+begin
+    require 'rubygems'
+rescue LoadError
+    nil
+end
+
+require 'rake'
+require 'rake/clean'
+require 'rake/gempackagetask'
+require 'rake/testtask'
+
+require 'mkrf/rakehelper'
+
+# Generate html docs from the markdown source and upload to the site.
+# All doc files that are destined for the website have filenames that
+# end in .txt.
+
+CLEAN.include("ext/Rakefile", "ext/mkrf.log", "ext/*.so", "ext/*.exe",
+              "ext/*.bundle", "lib/*.so", "lib/*.bundle", "ext/*.o{,bj}", 
+              "ext/*.lib", "ext/*.exp", "ext/*.pdb", "ext/*.def", "pkg")
+
+setup_extension('iup', 'iup')
+
+case RUBY_PLATFORM
+when /(:?mswin|mingw)/
+	desc 'Does a full win32 compile'
+	task :default do
+	    Dir.chdir("ext") do
+		sh "ruby mkrf_conf.rb"
+		sh "call rake --nosearch"
+		sh "copy iup.so ..\\lib\\"
+	    end
+	end
+else
+	desc 'Does a full compile'
+	task :default do
+	    Dir.chdir("ext") do
+		sh "ruby mkrf_conf.rb"
+		sh "rake --nosearch"
+		sh "cp iup.so ../lib"
+	    end
+        end 
+end
+
+task :extension => :default
+
+desc 'Runs unit tests.'
+Rake::TestTask.new do |t|
+    t.libs << "test"
+    t.test_files = FileList['test/tc_*.rb']
+    t.verbose = true
+end
+
+desc 'Runs unit tests.'
+task :test_all => [:test]
+
+# Define the files that will go into the gem
+gem_files = FileList["{lib,ext,doc,examples,test}/**/*"]
+gem_files = gem_files.exclude("**/*.a","ext/*.so", "**/*.o{,bj}", "ext/*.log", "ext/Rakefile")
+
+spec = Gem::Specification.new do |s|
+    s.name              = "ruby-iup"
+    s.version           = "0.0.1"
+    s.authors           = [ "Park Heesob" ]
+    s.email             = "phasis@gmail.com"
+    s.rubyforge_project = "ruby-iup"
+    s.homepage          = "http://ruby-iup.rubyforge.org"
+    s.platform          = Gem::Platform::RUBY
+    s.summary           = "IUP Interface for Ruby"
+    s.files             = gem_files
+    s.extensions        << 'Rakefile'
+    s.require_path      = "lib"
+    s.has_rdoc          = false
+    s.add_dependency("mkrf", ">=0.2.0")
+    s.add_dependency("rake")
+end
+
+# Create a task for creating a ruby gem
+Rake::GemPackageTask.new(spec) do |pkg|
+    pkg.gem_spec = spec
+    pkg.need_tar = true
+end

data/doc/README

@@ -0,0 +1,10 @@
+ruby-opengl tests
+=================
+
+This directory contains the unit tests for ruby-opengl. You should be able
+to run the test by calling 'rake test' from installation root directory. 
+
+Note that the tests are meant for purposes of internal development, and depending on
+your system configuration may not run at all - the purpose is to test the
+bindings, not the underlying OpenGL implementation. 
+

data/doc/build_install.txt

@@ -0,0 +1,77 @@
+Building ruby-iup
+====================
+
+Pre-requisites
+--------------
+
+General
+--------------
+* C compiler (not needed for binary install on Windows)
+* ruby 1.8.5+ or ruby 1.9.0+
+* rake
+* mkrf 0.2.0+ (0.2.3+ for ruby 1.9)
+* rubygems 0.9.1+
+* IUP 2.7+ header and library (not needed for binary install on Windows)
+* CD 5.1+ header and library  (not needed for binary install on Windows)
+* IM 3.4+ header and library  (not needed for binary install on Windows)
+  
+
+Linux
+--------------
+On Ubuntu or Debian systems, aside from Ruby you'll need ruby and
+some extra ruby related packages:
+
+* `ruby rdoc ri ruby1.8-dev`
+
+On older Gentoo, Debian and Ubuntu, rubygems 0.9.0 will be installed by default
+in the packages.  This version of rubygems is INCOMPATIBLE with ruby-iup.
+You'll need to install rubygems 0.9.1+ from source.
+
+On some distributions you may need 'xorg-dev' developer package.
+
+
+
+Build and installation
+--------------
+
+Installing from rubygems
+-------------------
+
+Runnig 'gem install -y ruby-iup' and it should pull down the gem
+and try to build the bindings for you automatically.
+
+For windows there is also pre-built binary windows gem available
+(i386-mswin32) which is compatible with the ruby one-click installer and does not need
+compiler or other mentioned tools installed.
+
+Manual Build instructions for all platforms (see above for platform-specific notes)
+------------------
+1. Make sure you have working ruby with rubygems installed
+	 and (if needed) appropriate developer packages (ruby-dev,ruby1.8-dev,...).
+2. Make sure you have working C compiler
+3. Install rake either from package or by running 'gem install rake'
+4. Install mkrf (0.2.0+) either from package or by running 'gem install mkrf'
+5. Run 'rake' at the top level of the project
+
+Installing manually built extensions
+------------------
+1. Run 'rake clean' to clean out the project
+2. Run 'rake gem' to create source gem from project
+3. Run 'gem install pkg/ruby-iup-(version).gem' to compile and install the gem
+4. Done.
+
+Building binary gem (useful only for binary distribution of the project)
+------------------
+1. Run 'gem install gembuilder' to install the gembuilder package
+2. Run 'rake clean' to clean out the project
+3. Run 'rake gem' to build source gem
+4. Run 'gembuilder pkg/ruby-iup-(version).gem' to compile the binary gem
+
+
+
+Running programs and examples
+-----------------
+To run a sample file, make sure the ruby-iup gem is installed then:
+
+    $ cd examples
+    $ ruby sample.rb

data/examples/README

@@ -0,0 +1,16 @@
+Examples
+========
+
+This directory contains OpenGL examples converted to ruby from various sources.
+As such, they are distributed under various terms - see each file for licensing info.
+
+RedBook/
+	Examples from OpenGL Red Book and SGI's example code in general, licensed under
+	SGI open-source license.
+OrangeBook/
+	Examples from OpenGL Orange Book (GLSL), distributed under BSD license
+NeHe/
+  NeHe's opengl tutorials (http://nehe.gamedev.net), licensed under free license.
+Misc/
+	Other examples. If license is not given, MIT is assumed.
+	

data/examples/ctrl/cbox.rb

@@ -0,0 +1,221 @@
+require 'rubygems'
+require 'iup'
+
+class IupCboxTest
+	def create_mat()
+	  mat = Iup.Matrix() 
+	 
+	  mat["numcol"] = 1 
+	  mat["numlin"] = 3 
+	  mat["numcol_visible"] = 1 
+	  mat["numlin_visible"] = 3 
+	  mat["expand"] =  "NO"
+	  mat["scrollbar"] =  "NO"
+	
+	  mat["0:0"] = "Inflation"
+	  mat["1:0"] = "Medicine "
+	  mat["2:0"] = "Food" 
+	  mat["3:0"] = "Energy" 
+	  mat["0:1"] = "January 2000" 
+	  mat["1:1"] = 5.6
+	  mat["2:1"] = 2.2
+	  mat["3:1"] = 7.2
+	
+	  mat["bgcolor"] = "255 255 255"
+	  mat["bgcolor1:0"] = "255 128 0"
+	  mat["bgcolor2:1"] = "255 128 0"
+	  mat["fgcolor2:0"] = "255 0 128"
+	  mat["fgcolor1:1"] = "255 0 128"
+	
+	  mat["cx"] = 600
+	  mat["cy"] = 250
+	  return mat
+	end
+	
+	def createtree()
+	  tree = Iup.Tree(:attr=>"FONT=COURIER_NORMAL_10, "+
+	                          "NAME=Figures, "+
+	                          "ADDBRANCH=3D, "+
+	                          "ADDBRANCH=2D, "+
+	                          "ADDLEAF1=trapeze, "+
+	                          "ADDBRANCH1=parallelogram, "+
+	                          "ADDLEAF2=diamond, "+
+	                          "ADDLEAF2=square, "+
+	                          "ADDBRANCH4=triangle, "+
+	                          "ADDLEAF5=scalenus, "+
+	                          "ADDLEAF5=isoceles, "+
+	                          "ADDLEAF5=equilateral, "+
+	                          "RASTERSIZE=180x180, "+
+	                          "VALUE=6, "+
+	                          "CTRL=ON, "+
+	                          "SHIFT=ON, "+
+	                          "CX=600, "+
+	                          "CY=10, "+
+	                          "ADDEXPANDED=NO")
+	  return tree
+	end
+	
+	def func_1()
+	  
+		@img_bits1 = [
+		1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,
+		1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,
+		1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,
+		1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,
+		1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,
+		1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,
+		1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,
+		1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,0,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,0,2,0,2,0,2,2,0,2,2,2,0,0,0,2,2,2,0,0,2,0,2,2,0,0,0,2,2,2,
+		2,2,2,0,2,0,0,2,0,0,2,0,2,0,2,2,2,0,2,0,2,2,0,0,2,0,2,2,2,0,2,2,
+		2,2,2,0,2,0,2,2,0,2,2,0,2,2,2,2,2,0,2,0,2,2,2,0,2,0,2,2,2,0,2,2,
+		2,2,2,0,2,0,2,2,0,2,2,0,2,2,0,0,0,0,2,0,2,2,2,0,2,0,0,0,0,0,2,2,
+		2,2,2,0,2,0,2,2,0,2,2,0,2,0,2,2,2,0,2,0,2,2,2,0,2,0,2,2,2,2,2,2,
+		2,2,2,0,2,0,2,2,0,2,2,0,2,0,2,2,2,0,2,0,2,2,0,0,2,0,2,2,2,0,2,2,
+		2,2,2,0,2,0,2,2,0,2,2,0,2,2,0,0,0,0,2,2,0,0,2,0,2,2,0,0,0,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,2,2,2,0,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,0,0,0,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1]
+		
+		@img_bits2 = [
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,2,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,2,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,2,2,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		3,3,3,0,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		3,3,3,0,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		3,3,3,0,3,0,3,0,3,3,0,3,3,3,1,1,0,3,3,3,0,0,3,0,3,3,0,0,0,3,3,3,
+		3,3,3,0,3,0,0,3,0,0,3,0,3,0,1,1,3,0,3,0,3,3,0,0,3,0,3,3,3,0,3,3,
+		3,3,3,0,3,0,3,3,0,3,3,0,3,3,1,1,3,0,3,0,3,3,3,0,3,0,3,3,3,0,3,3,
+		1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,
+		3,3,3,0,3,0,3,3,0,3,3,0,3,0,1,1,3,0,3,0,3,3,0,0,3,0,3,3,3,0,3,3,
+		3,3,3,0,3,0,3,3,0,3,3,0,3,3,1,1,0,0,3,3,0,0,3,0,3,3,0,0,0,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,0,3,3,3,3,3,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,0,3,3,3,0,3,3,3,3,3,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,0,0,0,3,3,3,3,3,3,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,1,1,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,3,
+		2,2,2,2,2,2,2,3,3,3,3,3,3,3,1,1,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,2,3,3,3,3,3,3,3,3,1,1,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		2,3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+		3,3,3,3,3,3,3,3,3,3,3,3,3,3,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+	  
+		@img1 = Iup.Image(32,32, @img_bits1)
+		@img1["0"] =  "0 0 0" 
+		@img1["1"] =  "BGCOLOR"
+		@img1["2"] =  "255 0 0"
+		
+		@img2 = Iup.Image(32,32, @img_bits2)
+		@img2["0"] =  "0 0 0" 
+		@img2["1"] =  "0 255 0"
+		@img2["2"] =  "BGCOLOR"
+		@img2["3"] =  "255 0 0"
+		
+		_frm_1 = Iup.Frame(
+			Iup.Vbox([
+			Iup.Button(:title=>"Button Text",:cindex=>"1"),
+			Iup.Button(:title=>"",:image=>@img1,:cindex=>"2"),
+			Iup.Button(:title=>"",:image=>@img2,:cindex=>"3")
+			]),:title=>"IupButton",:cx=>10,:cy=>180)
+		
+		_frm_2 = Iup.Frame(
+			Iup.Vbox([
+			Iup.Label(:title=>"Label Text",:cindex => 1),
+			Iup.Label(:title=>"",:separator => 'HORIZONTAL',:cindex => 2),
+			Iup.Label(:title=>"",:image => @img1,:cindex => 3)
+			]),:title=>"IupLabel",:cx=>200,:cy=>250)
+		
+		_frm_3 = Iup.Frame(
+			Iup.Vbox([
+			Iup.Toggle(:title=>"Toggle Text", :value => 'ON',:cindex => 1),
+			Iup.Toggle(:title=>"",:image => @img1,:impress => @img2,:cindex => 2),
+			Iup.Frame(Iup.Radio(Iup.Vbox([
+			Iup.Toggle(:title=>"Toggle Text",:cindex =>3),
+			Iup.Toggle(:title=>"Toggle Text",:cindex =>4)
+			])),:title => "IupRadio")
+			]),:title=>"IupToggle",:cx=>400,:cy=>250)
+		
+		_text_1 = Iup.Text(:value=>"IupText Text",:size=>'80x',:cindex=>1,:cx=>10,:cy=>100)
+		
+		_ml_1 = Iup.MultiLine(:value=>"IupMultiline Text\nSecond Line\nThird Line",
+				:size=>'80x60',:cindex=>1,:cx=>200,:cy=>100)
+		
+		_list_1 = Iup.List(:value=>1,:cindex=>1,:cx=>10,:cy=>10)
+		_list_1["1"] = "Item 1 Text"
+		_list_1["2"] = "Item 2 Text"
+		_list_1["3"] = "Item 3 Text"
+		
+		_list_2 = Iup.List(:dropdown=>'YES',:value=>2,:cindex=>2,:cx=>200,:cy=>10)
+		_list_2["1"] = "Item 1 Text"
+		_list_2["2"] = "Item 2 Text"
+		_list_2["3"] = "Item 3 Text"
+		
+		_list_3 = Iup.List(:editbox=>'YES',:value=>3,:cindex=>3,:cx=>400,:cy=>10)
+		_list_3["1"] = "Item 1 Text"
+		_list_3["2"] = "Item 2 Text"
+		_list_3["3"] = "Item 3 Text"
+		
+		_cnv_1 = Iup.Canvas(:action=>"do_nothing",:rastersize=>'100x100',:posx=>0.0,:posy=>0.0,
+			:bgcolor=>'128 255 0',:cx=>400,:cy=>100)
+		
+		_ctrl_1 = Iup.Val(:cx=>600,:cy=>200)
+		
+		_cbox = Iup.Cbox([
+		_text_1,
+		_ml_1,
+		_list_1,
+		_list_2,
+		_list_3,
+		_cnv_1,
+		_ctrl_1,
+		createtree(),
+		create_mat(),
+		_frm_1,
+		_frm_2,
+		_frm_3
+		],:size=>"680x250")
+		
+		hbox = Iup.Hbox([Iup.Fill(:size=>10), 
+		 	Iup.Vbox([Iup.Fill(:size=>10), _cbox])])
+		
+		@dlg = Iup.Dialog(hbox,:title=>"Cbox Test")
+	end
+	
+	def initialize
+		func_1()
+		@dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+		Iup.MainLoop
+		@img1.Destroy
+		@img2.Destroy
+		@dlg.Destroy	
+	end
+end  
+
+test = IupCboxTest.new
+
+

data/examples/ctrl/checkboard.rb

@@ -0,0 +1,33 @@
+require 'rubygems'
+require 'iup'
+
+
+def create()
+   cells = Iup.Cells()
+   
+   cells.draw_cb = lambda {|h,i,j,xmin,xmax,ymin,ymax,cnv|
+	  if (((i%2)!=0 && (j%2)!=0) || (((i+1)%2)!=0 && ((j+1)%2)!=0)) 
+		cnv.CanvasSetForeground(Cd::WHITE)
+	  else 
+		cnv.CanvasSetForeground(Cd::BLACK)
+	  end
+	  cnv.CanvasBox(xmin, xmax, ymin, ymax)
+
+	  Iup::DEFAULT
+   }
+   cells.width_cb = lambda {|h,j| 50 }
+   cells.height_cb = lambda {|h,i| 50 }
+   cells.nlines_cb = lambda {|h| 8 }
+   cells.ncols_cb = lambda {|h| 8 }
+
+   return cells
+end
+
+
+   cells = create()
+   dlg = Iup.Dialog(cells,:rastersize=>"400x400",:title=>"IupCells")
+
+   dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+   Iup.MainLoop 
+   dlg.Destroy
+