ruby-iup 0.1.0-x86-mswin32-60

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=>"440x480",:title=>"IupCells")
+
+   dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+   Iup.MainLoop 
+   dlg.Destroy
+

data/examples/ctrl/degrade.rb

@@ -0,0 +1,76 @@
+require 'rubygems'
+require 'iup'
+
+
+def create() 
+  cells = Iup.Cells() 
+  cells.mouseclick_cb = lambda {|h,b,m,i,j,x,y,r|
+  	puts("CLICK: #{b}: (#{i}, #{j})")
+  	Iup::DEFAULT
+  }
+
+  cells.draw_cb = lambda {|h,i,j,xmin,xmax,ymin,ymax,cnv|
+	  xm = (xmax + xmin) / 2
+	  ym = (ymax + ymin) / 2
+	  buffer = 0.chr * 64
+	
+	  return Iup::DEFAULT if (i == 1 && j == 2)
+	  return Iup::DEFAULT if (i == 2 && j == 1)
+	  return Iup::DEFAULT if (i == 2 && j == 2)
+	  return Iup::DEFAULT if (i == 5 && j == 6)
+	  return Iup::DEFAULT if (i == 6 && j == 5)
+	  return Iup::DEFAULT if (i == 6 && j == 6)
+	
+	  if (i == 1 && j == 1) 
+	  	cnv.CanvasSetForeground(Cd::WHITE)
+	  else 
+	    	cnv.CanvasSetForeground(Cd.EncodeColor(
+	    		(i*20),(j*100),(i+100)))
+	  end
+	  cnv.CanvasBox(xmin, xmax, ymin, ymax)
+	  cnv.CanvasTextAlignment(Cd::CENTER)
+	  cnv.CanvasSetForeground(Cd::BLACK)
+	  buffer = "(#{i}, #{j})"
+	  cnv.CanvasText( xm, ym, buffer)
+	
+	  Iup::DEFAULT
+  }
+  
+  cells.width_cb = lambda {|h,j| (50+j*1.5).to_i }
+  cells.height_cb = lambda {|h,i| (30+i*1.5).to_i }
+  cells.nlines_cb = lambda {|h| 7 }
+  cells.ncols_cb = lambda {|h| 7 }
+  cells.hspan_cb = lambda {|h,i,j| 
+	  return 2 if (i == 1 && j == 1) 
+	  return 2 if (i == 5 && j == 5) 
+	  1
+  }
+  cells.vspan_cb = lambda {|h,i,j| 
+	  return 2 if (i == 1 && j == 1)   
+	  return 2 if (i == 5 && j == 5) 
+	  1
+  }  
+  cells.scrolling_cb = lambda {|h,i,j| 
+	  puts("SCROLL: (#{i}, #{j})");
+	  Iup::DEFAULT
+  }
+  cells.boxed = 'NO'
+  cells.rastersize = "395x255"
+
+  return cells
+end
+
+  cells = create()
+  box = Iup.Vbox([cells])
+  box.margin = "10x10"
+
+  dlg = Iup.Dialog(box) 
+  dlg.title = "IupCells"
+  dlg.rastersize = "350x250"
+  dlg.ShowXY(Iup::CENTER,Iup::CENTER) 
+  Iup.MainLoop 
+  dlg.Destroy
+
+
+
+

data/examples/ctrl/example1.rb

@@ -0,0 +1,53 @@
+require 'rubygems'
+require 'iup'
+
+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
+]
+
+
+  bt = Iup.Button(:title=>"Test",:expand=>'YES')
+  box = Iup.Sbox(:elem=>bt,:direction=>'SOUTH',:color=>'0 0 255')
+
+  ml = Iup.MultiLine(:expand=>'YES')
+  vbox = Iup.Vbox([box, ml])
+
+  lb = Iup.Label(:title=>"Label",:expand=>'YES')
+  dg = Iup.Dialog(Iup.Hbox([vbox, lb]))
+
+  dg.Show
+    
+  Iup.MainLoop
+  dg.Destroy
+

data/examples/ctrl/example2.rb

@@ -0,0 +1,39 @@
+require 'rubygems'
+require 'iup'
+
+def createtree()
+  tree = Iup.Tree(:size=>'80x80',:expand=>'YES',:font=>'COURIER_NORMAL_10',:name=>'Figures')
+  tree.addbranch='3D'
+  tree.addbranch='2D'
+  tree.addleaf1='trapeze'
+  tree.addbranch1='parallelogram'
+  tree.addleaf2='diamond'
+  tree.addleaf2='square'
+  tree.addbranch4='triangle'
+  tree.addleaf5='scalenus'
+  tree.addleaf5='isoceles'
+  tree.addleaf5='equilateral'
+  tree.value='6'
+  tree.addexpanded='NO'
+  return tree
+end
+
+
+  tree = createtree()
+  sbox = Iup.Sbox(:elem=>tree,:direction=>'EAST')
+
+  cv = Iup.Canvas(:expand=>'YES')
+  
+  ml = Iup.MultiLine(:expand=>'YES')
+  sbox2 = Iup.Sbox(:elem=>ml,:direction=>'WEST')
+
+  vbox = Iup.Hbox([sbox, cv, sbox2])
+
+  lb = Iup.Label(:title=>"This is a label",:expand=>'NO')
+  sbox3 = Iup.Sbox(:elem=>lb,:direction=>'NORTH')
+  dg = Iup.Dialog(Iup.Vbox([vbox, sbox3]))
+
+  dg.Show    
+  Iup.MainLoop
+  dg.Destroy
+

data/examples/ctrl/iupcolorbar.rb

@@ -0,0 +1,95 @@
+require 'rubygems'
+require 'iup'
+
+
+cdcanvas = nil
+
+  repaint_cb = lambda do |h,posx,posy|
+	return Iup::DEFAULT if cdcanvas==nil
+	
+	cdcanvas.CanvasActivate()
+	cdcanvas.CanvasClear()
+	
+	cdcanvas.CanvasBegin(Cd::FILL)
+	cdcanvas.CanvasVertex(50,50)
+	cdcanvas.CanvasVertex(150,50)
+	cdcanvas.CanvasVertex(100,150)
+	cdcanvas.CanvasEnd()
+	
+	Iup::DEFAULT
+  end
+
+
+  cb = Iup.Colorbar() 
+  cb.rastersize = "70x"
+  cb.expand = "VERTICAL"
+  cb.num_parts = 2
+  cb.show_secondary = "YES"
+  cb.preview_size = 60  
+  cb.squared = "NO"
+  
+  cnvs = Iup.Canvas() 
+  cnvs.action = repaint_cb
+  
+  # Sets size, mininum and maximum values, position and size of the thumb   
+  # of the horizontal scrollbar of the canvas                               
+  cnvs.rastersize = "200x300"
+
+  cb.select_cb = lambda do |h,cell,type|
+	ri,gi,bi = h["CELL#{cell}"].scan(/\d+/)
+	cd_color = Cd.EncodeColor(ri.to_i,gi.to_i,bi.to_i)
+	
+	cdcanvas.CanvasActivate()
+	if (type==Iup::PRIMARY)
+		cdcanvas.CanvasSetForeground(cd_color)
+	else
+		cdcanvas.CanvasSetBackground(cd_color)
+	end
+	repaint_cb.call(nil,0,0)
+	
+	Iup::DEFAULT 
+  end
+
+  cb.cell_cb = lambda do |h,cell|
+	ri,gi,bi = h["CELL#{cell}"].scan(/\d+/)
+	res = Iup.GetColor(Iup::MOUSEPOS, Iup::MOUSEPOS)
+	if res
+		r,g,b = res
+		str = "#{r} #{g} #{b}"
+		cdcanvas.CanvasActivate()
+		cdcanvas.CanvasSetForeground(Cd.EncodeColor(r,g,b))
+		repaint_cb.call(nil,0,0)
+		return str
+	end
+	nil 
+  end
+  
+  cb.switch_cb = lambda do |h,primcell,seccell|
+	cdcanvas.CanvasActivate()
+	fgcolor = cdcanvas.CanvasForeground(Cd::QUERY)
+	cdcanvas.CanvasSetForeground(Cd.CanvasBackground(Cd::QUERY))
+	cdcanvas.CanvasSetBackground(fgcolor)
+	repaint_cb.call(nil,0,0)
+  end
+
+
+  # Creates a dialog with a vbox containing the canvas and the colorbar. 
+  dlg = Iup.Dialog(Iup.Hbox([cnvs,cb]))
+  
+  # Sets the dialog's title, so that it is mapped properly 
+  dlg.title = "IupColorbar"
+  
+  # Maps the dialog. This must be done before the creation of the CD canvas 
+  dlg.Map
+
+  # Creates a CD canvas of type CD_IUP  
+  cdcanvas = Cd.CreateCanvas(Cd.CD_IUP, cnvs)
+
+  # Shows dialog on the center of the screen 
+  dlg.Show
+
+  # Initializes IUP main loop 
+  Iup.MainLoop
+
+  dlg.Destroy
+

data/examples/ctrl/iupcolorbrowser.rb

@@ -0,0 +1,45 @@
+require 'rubygems'
+require 'iup'
+
+
+  text_red = Iup.Text()
+  text_green = Iup.Text()
+  text_blue = Iup.Text()
+
+  clrbrwsr_drag_cb = lambda do |h,r,g,b|
+	text_red.value = r
+	text_green.value = g
+	text_blue.value = b
+	Iup.LoopStep
+	
+	Iup::DEFAULT
+  end
+  
+  clrbrwsr = Iup.ColorBrowser()
+  clrbrwsr.drag_cb = clrbrwsr_drag_cb
+  clrbrwsr.change_cb = clrbrwsr_drag_cb
+  
+  # Creates a vbox */
+  vbox = Iup.Vbox([
+           Iup.Fill(),
+           text_red,
+           Iup.Fill(),
+           text_green,
+           Iup.Fill(),
+           text_blue,
+           Iup.Fill()
+           ])
+
+  # Creates an hbox */
+  hbox_final = Iup.Hbox([clrbrwsr, Iup.Fill(), vbox])
+
+  # Creates a dialog */
+  dlg = Iup.Dialog(hbox_final,:title=>"IupColorBrowser") 
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  # Initializes IUP main loop */
+  Iup.MainLoop
+
+  dlg.Destroy()

data/examples/ctrl/iupdial.rb

@@ -0,0 +1,117 @@
+require 'rubygems'
+require 'iup'
+
+  lbl_h = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  lbl_v = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  lbl_c = Iup.Label(:title=>"0",:alignment=>"ACENTER",:size=>"30x")
+  
+  
+  dial_v = Iup.Dial(:type=>"VERTICAL",:unit=>"DEGREES",:size=>"100x100")
+  dial_h = Iup.Dial(:type=>"HORIZONTAL",:density=>0.1)
+  dial_c = Iup.Dial(:type=>"CIRCULAR")
+  
+  dlg = Iup.Dialog(
+  	Iup.Hbox([
+  		Iup.Fill(),
+  		Iup.Vbox([
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_v,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_v,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill(),
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_h,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_h,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill(),
+			Iup.Frame(
+				Iup.Vbox([
+					Iup.Hbox([
+						Iup.Fill(),
+						dial_c,
+						Iup.Fill()
+					]),
+					Iup.Hbox([
+						Iup.Fill(),
+						lbl_c,
+						Iup.Fill()
+					])
+				])
+			),
+			Iup.Fill()
+		]),
+		Iup.Fill()
+  	])
+  )
+  dlg.title = "IupDial"
+  
+printdial = lambda do |c,a,color|
+  case c['type']
+  when 'VERTICAL'
+    label = lbl_v
+  when 'HORIZONTAL'
+    label = lbl_h
+  when 'CIRCULAR'
+    label = lbl_c
+  end
+
+  if label
+    label.title = "%.3g" % a
+    label.bgcolor = color
+  end
+end
+  
+mousemove = lambda do |c,a|
+  printdial.call(c, a, "0 255 0")
+  Iup::DEFAULT
+end
+
+button_press = lambda do |c,a|
+  printdial.call(c, a, "255 0 0")
+  Iup::DEFAULT
+end 
+
+button_release = lambda do |c,a|
+  printdial.call(c, a,nil)
+  Iup::DEFAULT
+end 
+  
+  dial_v.button_press_cb = button_press
+  dial_c.button_press_cb = button_press
+  dial_h.button_press_cb = button_press
+
+  dial_v.button_release_cb = button_release
+  dial_c.button_release_cb = button_release
+  dial_h.button_release_cb = button_release
+
+  dial_v.mousemove_cb = mousemove
+  dial_c.mousemove_cb = mousemove
+  dial_h.mousemove_cb = mousemove
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  # Initializes IUP main loop */
+  Iup.MainLoop
+
+  dlg.Destroy