ruby-iup 0.1.0-x86-mswin32-60

data/examples/dlg/iupalarm.rb

@@ -0,0 +1,16 @@
+#  Shows a dialog similar to the one shown when you exit a program without saving.
+
+require 'rubygems'
+require 'iup'
+
+case(Iup.Alarm("IupAlarm Example","File not saved! Save it now?", "Yes", "No", "Cancel"))
+	when 1
+		Iup.Message("Save file", "File saved sucessfully - leaving program")
+	when 2
+		Iup.Message("Save file", "File not saved - leaving program anyway")
+	when 3
+		Iup.Message("Save file", "Operation canceled")
+end
+
+
+

data/examples/dlg/iupfiledlg.rb

@@ -0,0 +1,19 @@
+require 'rubygems'
+require 'iup'
+
+
+filedlg = Iup.FileDlg(:dialogtype=>"SAVE",:title=>"File Save",:filter=>"*.jpg",:filterinfo=>"JPEG Files") 
+
+filedlg.Popup(Iup::CENTER, Iup::CENTER)
+
+case(filedlg.status)
+	when '1'
+		Iup.Message("New file",filedlg.value)
+	when '0'
+		Iup.Message("File already exists",filedlg.value)
+	when '-1'
+		Iup.Message("IupFileDlg","Operation Canceled")
+end
+
+filedlg.Destroy()
+

data/examples/dlg/iupgetfile.rb

@@ -0,0 +1,19 @@
+require 'rubygems'
+require 'iup'
+
+file = "./*.txt"
+file,err = Iup.GetFile(file)
+case(err)
+	when 1
+		Iup.Message("New file",file)
+	when 0 
+      		Iup.Message("File already exists",file)
+	when -1  
+      		Iup.Message("IupFileDlg","Operation canceled")
+    	when -2  
+      		Iup.Message("IupFileDlg","Allocation error")
+	when -3  
+      		Iup.Message("IupFileDlg","Invalid parameter")
+end
+	
+

data/examples/dlg/iuplistdialog.rb

@@ -0,0 +1,26 @@
+require 'rubygems'
+require 'iup'
+
+marks = [0,0,0,0,1,1,0,0]
+options = ["Blue","Red","Green"  ,"Yellow","Black","White","Gray","Brown"]
+size = options.size
+
+marks,error = Iup.ListDialog(2,"Color Selection",size,options,0,16,5,marks)
+
+if(error == -1)
+	Iup.Message("IupListDialog","Operation canceled");
+else
+	selection = ""
+
+	marks.each_index {|i|
+		selection += options[i]+"\n" if(marks[i]==1)
+	}
+	
+	if(selection!="")
+		Iup.Message("Options selected",selection)	  
+	else
+		Iup.Message("IupListDialog","No option selected")
+	end
+end
+
+

data/examples/dlg/iupmessage.rb

@@ -0,0 +1,5 @@
+require 'rubygems'
+require 'iup'
+
+# Executes IupMessage 
+Iup.Message("IupMessage Example", "Press the button") 

data/examples/dlg/iupscanf.rb

@@ -0,0 +1,17 @@
+require 'rubygems'
+require 'iup'
+
+text = "This is a vector of characters"
+real = 0.0012
+integer = 12
+fmt = "Data entering example\n" +
+   "text = %300.40%s\n" +
+   "real = %20.10%g\n" +
+   "integer = %20.10%d\n"
+text,real,integer = Iup.Scanf(fmt,text,real,integer)
+if text.nil? then
+	Iup.Message("IupScanf","Operation canceled")
+else
+	string = "Text: #{text}\nReal: #{real}\nInteger: #{integer}\n"
+	Iup.Message("IupScanf",string)
+end

data/examples/elem/iupbutton.rb

@@ -0,0 +1,180 @@
+#
+#                             IupButton example                             
+#   Description : Creates four buttons. The first uses images, the second   
+#                 turns the first on and off, the third exits the           
+#                 application and the last does nothing                     
+#
+
+require 'rubygems'
+require 'iup'
+
+#* Defines released button's image 
+
+pixmap_release = [
+       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,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       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
+]
+
+#* Defines pressed button's image 
+pixmap_press = [
+       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,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,4,4,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,4,4,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       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
+]
+
+#* Defines inactive button's image 
+pixmap_inactive = [
+       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,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2,
+       1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2,
+       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
+]
+
+  # Creates a text 
+  text = Iup.Text(:readonly=>"YES")
+
+  # Defines released button's image size 
+  img_release = Iup.Image(16, 16, pixmap_release)
+
+  # Defines released button's image colors 
+  img_release["1"] = "215 215 215"
+  img_release["2"] = "40 40 40"
+  img_release["3"] = "30 50 210"
+  img_release["4"] = "240 0 0"
+
+  # Defines pressed button's image size 
+  img_press = Iup.Image( 16, 16, pixmap_press )
+
+  # Defines pressed button's image colors 
+  img_press["1"] = "40 40 40"
+  img_press["2"] = "215 215 215"
+  img_press["3"] = "0 20 180"
+  img_press["4"] = "210 0 0"
+
+  # Defines inactive button's image size 
+  img_inactive = Iup.Image( 16, 16, pixmap_inactive )
+
+  # Defines inactive button's image colors 
+  img_inactive["1"] = "215 215 215"
+  img_inactive["2"] = "40 40 40"
+  img_inactive["3"] = "100 100 100"
+  img_inactive["4"] = "200 200 200"
+
+  # Creates a button 
+  btn_image = Iup.Button(:title=>"Button with image",:image=>img_release,:impress=>img_press,:iminactive=>img_inactive)
+
+  # Creates a button 
+  btn_big = Iup.Button(:title=>"Big useless button",:size=>"EIGHTHxEIGHTH")
+
+  # Creates a button entitled Exit associated with action exit_act 
+  btn_exit = Iup.Button("Exit")
+
+  # Creates a button entitled on/off associated with action onoff_act 
+  btn_on_off = Iup.Button("on/off")
+
+  # Creates dialog with the four buttons and the text
+  dlg = Iup.Dialog(
+          Iup.Vbox([
+            Iup.Hbox([
+              btn_image,
+              btn_on_off,
+              btn_exit]),
+            text,
+            btn_big]),
+        :expand=>"YES",:title=>"IupButton",:resize=>"NO",
+        :menubox=>"NO",:maxbox=>"NO",:minbox=>"NO")
+
+
+	btn_on_off_cb = lambda do |ih|
+	  # If the button with with image is active...
+	  if(btn_image.active=="YES")
+	    # Deactivates the button with image 
+	    btn_image.active = "NO"
+	  # else it is inactive 
+	  else
+	    # Activates the button with image 
+	    btn_image.active = "YES"
+	  end
+
+	  # Executed function sucessfully 
+	  Iup::DEFAULT
+	end
+
+	btn_image_button_cb = lambda do |ih,b,e,x,y,status|
+	  # If the left button changed its state... 
+	  if b == Iup::BUTTON1 
+	    # If the button was pressed... 
+	    if e == 1
+	      # Sets text's value 
+	      text.value = "Red button pressed"
+	    # else the button was released 
+	    else
+	      # Sets text's value 
+	      text.value = "Red button released"
+	    end
+	  end
+
+	  # Executed function sucessfully 
+	  Iup::DEFAULT
+	end
+
+	btn_exit_cb = lambda do |ih|
+	  # Exits the program 
+	  Iup::CLOSE
+	end
+
+
+  # Registers callbacks 
+  btn_exit.action = btn_exit_cb
+  btn_on_off.action = btn_on_off_cb
+  btn_image.button_cb = btn_image_button_cb
+
+  # Shows dialog on the center of the screen 
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER )
+
+  # Initializes IUP main loop 
+  Iup.MainLoop()
+
+  dlg.Destroy()

data/examples/elem/iupcanvas.rb

@@ -0,0 +1,29 @@
+# IupCanvas example
+# Description : Creates a IUP canvas and uses CD to draw on it
+#      Remark : IUP must be linked to the CD library           
+           
+require 'rubygems'
+require 'iup'
+
+
+cdcanvas = nil
+
+repaint_cb = lambda do |ih,x,y|
+  cdcanvas.CanvasActivate()
+  cdcanvas.CanvasBackground(Cd::BLACK)
+  cdcanvas.CanvasClear()
+  cdcanvas.CanvasForeground(Cd::BLUE)
+  cdcanvas.CanvasBox(0, 100, 0, 100)
+  Iup::DEFAULT
+end
+
+  cnvs = Iup.Canvas(:action=>repaint_cb,:size=>"300x100")  
+  dlg = Iup.Dialog(Iup.Frame(cnvs),:title=>"IupCanvas + Canvas Draw" )
+  dlg.Map
+  
+  cdcanvas = Cd.CreateCanvas( Cd.CD_IUP, cnvs )
+  
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER )
+    
+  Iup.MainLoop()
+  dlg.Destroy()

data/examples/elem/iupcanvas2.rb

@@ -0,0 +1,114 @@
+# Advanced IupCanvas example
+# Description : This example shows how several canvas callbacks are used and how the scrollbar works.
+#      Remark : IUP must be linked to the CD library                      
+
+require 'rubygems'
+require 'iup'
+
+
+  image = []
+  for x in 0...640
+    image[x] = []
+    for y in 0...400
+      image[x][y]=0
+    end
+  end
+
+  label = Iup.Label("IupCanvas")
+
+  iupcanvas = Iup.Canvas()
+  iupcanvas.attr = "CURSOR=CROSS, RASTERSIZE=320x200, EXPAND=NO, SCROLLBAR=YES, DX=0.5, DY=0.5"
+
+repaint_cb = lambda do |ih,x,y|
+  sx = ih.posx.to_f
+  sy = -ih.posy.to_f
+
+  cdcanvas = Cd.ActiveCanvas()
+  return Iup::DEFAULT if cdcanvas == nil
+
+  cdcanvas.CanvasClear()
+
+  for x in 0...320
+    for y in 0...200
+      cdcanvas.CanvasMark(x,y) if(image[(320.0*sx).to_i+x][(200.0*sy).to_i+y]!=0)
+    end
+  end
+  Iup::DEFAULT
+end
+
+button_cb = lambda do |ih, botao, estado, x, y,status|
+  sx = ih.posx.to_f
+  sy = -ih.posy.to_f
+
+  cdcanvas = Cd.ActiveCanvas()
+  y = cdcanvas.CanvasUpdateYAxis(y)
+  if(botao == Iup::BUTTON1 && estado!=0)
+    cdcanvas.CanvasMark(x,y)
+    image[(320.0*sx).to_i+x][(200.0*sy).to_i+y] = 1
+  end
+
+  Iup::DEFAULT
+end
+
+motion_cb = lambda do |ih,  x,  y,status|
+  sx = ih.posx.to_f
+
+  sy = -ih.posy.to_f
+
+  buffer = "(#{(320.0*sx).to_i+x}, #{(200.0*sy).to_i+y})"
+
+  label.title = buffer
+
+  Iup::DEFAULT
+end
+
+scroll_cb = lambda do |ih,op,posx,posy|
+  repaint_cb.call(ih,0.0,0.0)
+
+  Iup::DEFAULT
+end
+
+enter_cb = lambda do |ih|
+  Cd.Background(Cd::WHITE)
+  repaint_cb.call(ih,0.0,0.0)
+
+  Iup::DEFAULT
+end
+
+leave_cb = lambda do |ih|
+  Cd.Background(Cd::GRAY)
+  repaint_cb.call(ih,0.0,0.0)
+  label = Iup.GetHandle("label")
+  label.title = "IupCanvas"
+
+  Iup::DEFAULT
+end
+
+  iupcanvas.action = repaint_cb
+  iupcanvas.button_cb = button_cb
+  iupcanvas.scroll_cb = scroll_cb
+  iupcanvas.motion_cb = motion_cb
+  iupcanvas.enterwindow_cb = enter_cb
+  iupcanvas.leavewindow_cb = leave_cb
+
+  dlg = Iup.Dialog(Iup.Vbox([iupcanvas,Iup.Hbox([Iup.Fill(), label, Iup.Fill()])]))
+  dlg.attr = "TITLE=IupCanvas, RESIZE=NO, MAXBOX=NO"
+
+  dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+
+  cdcanvas = Cd.CreateCanvas(Cd.CD_IUP, iupcanvas)
+  if(cdcanvas==nil)
+    Iup.Message("IupCanvas","Error creating canvas")
+    dlg.Destroy
+    exit
+  end
+
+  if(cdcanvas.Activate() == Cd::ERROR)
+    Iup.Message("IupCanvas","Error creating canvas")
+    dlg.Destroy
+    exit
+  end
+
+  cdcanvas.CanvasClear
+  Iup.MainLoop
+  dlg.Destroy

data/examples/elem/iupcanvas3.rb

@@ -0,0 +1,52 @@
+# IupCanvas Redraw example
+
+require 'rubygems'
+require 'iup'
+
+need_redraw = 0
+redraw_count = 0
+cdcanvas = nil
+
+
+  gauge = Iup.ProgressBar()
+  cv    = Iup.Canvas()
+  bt    = Iup.Button("Start/Stop")
+  bt.size = "50x50"
+  gauge.size = "200x15"
+  cv.size = "200x200"
+  dlg   = Iup.Dialog(Iup.Vbox([cv, Iup.Hbox([gauge, bt])]),:title=>"Redraw test")
+
+toggle_redraw = lambda do |ih|
+  cdcanvas.CanvasActivate() if cdcanvas
+  need_redraw = 1 - need_redraw
+  Iup::DEFAULT
+end
+
+redraw = lambda do
+  if(need_redraw == 1)
+      cdcanvas.CanvasBox(0, 300, 0, redraw_count/100)
+      gauge.value = redraw_count/30000.0
+      redraw_count += 1
+      if(redraw_count==30000)
+        cdcanvas.CanvasClear()
+        redraw_count = 0
+        need_redraw = 0
+      end
+  end      
+  Iup::DEFAULT
+end
+
+
+  Iup.SetIdle(redraw)
+
+  dlg.Map()
+  
+  cdcanvas = Cd.CreateCanvas(Cd.CD_IUP, cv) 
+  cdcanvas.CanvasForeground(Cd::BLUE)
+  cdcanvas.CanvasClear()
+    
+  bt.action = toggle_redraw
+
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+  Iup.MainLoop()
+  dlg.Destroy()