ruby-iup 0.0.1-i386-mswin32

data/examples/dlg/iupalarm.rb

@@ -0,0 +1,14 @@
+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
+
+Iup.MainLoop()
+

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,197 @@
+require 'rubygems'
+#*****************************************************************************
+#*                             Iup.Button example                             *
+#*        Author : Claudio Coutinho de Biasi                                 *
+#*   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 '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"
+
+  # Associates img_release with handle "img_release" */
+  Iup.SetHandle( "img_release", img_release )
+
+  # 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"
+
+  # Associates img_press with handle "img_press" */
+  Iup.SetHandle( "img_press", img_press )
+
+  # 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"
+
+  # Associates img_inactive with handle "img_inactive" */
+  Iup.SetHandle("img_inactive", img_inactive )
+
+  # 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([
+              Iup.Fill(),
+              btn_image,
+              btn_on_off,
+              btn_exit,
+              Iup.Fill()]
+            ),
+            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()
+  img_release.Destroy()
+  img_inactive.Destroy()
+  img_press.Destroy()
+

data/examples/elem/iupcanvas.rb

@@ -0,0 +1,27 @@
+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 )
+  
+  # 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/iupcanvas2.rb

@@ -0,0 +1,113 @@
+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()
+
+  # Initializes IUP main loop */
+  Iup.MainLoop()
+  dlg.Destroy()