ruby-iup 0.0.1

data/examples/elem/iuplabel.rb

@@ -0,0 +1,57 @@
+require 'rubygems'
+require "iup"
+
+# Global variables */
+pixmap_star = [
+  1,1,1,1,1,1,2,1,1,1,1,1,1,
+  1,1,1,1,1,1,2,1,1,1,1,1,1,
+  1,1,1,1,1,2,2,2,1,1,1,1,1,
+  1,1,1,1,1,2,2,2,1,1,1,1,1,
+  1,1,2,2,2,2,2,2,2,2,2,1,1,
+  2,2,2,2,2,2,2,2,2,2,2,2,2,
+  1,1,1,2,2,2,2,2,2,2,1,1,1,
+  1,1,1,1,2,2,2,2,2,1,1,1,1,
+  1,1,1,1,2,2,2,2,2,1,1,1,1,
+  1,1,1,2,2,1,1,2,2,2,1,1,1,
+  1,1,2,2,1,1,1,1,1,2,2,1,1,
+  1,2,2,1,1,1,1,1,1,1,2,2,1,
+  2,2,1,1,1,1,1,1,1,1,1,2,2
+]
+  # Creates the star image */
+  img_star = Iup.Image( 13, 13, pixmap_star ) 
+
+  # Sets star image colors */
+  img_star["1"] = "0 0 0" 
+  img_star["2"] = "0 198 0" 
+
+  # Creates a label */
+  lbl = Iup.Label( "This label has the following attributes set:\nBGCOLOR = 255 255 0\nFGCOLOR = 0 0 255\nFONT = COURIER_NORMAL_14\nSIZE = HALFxQUARTER\nTITLE = All text contained here\nALIGNMENT = ACENTER\n" )
+  
+  # Sets all the attributes of label lbl, except for IMAGE */
+  lbl.attr = "BGCOLOR = \"255 255 0\", FGCOLOR = \"0 0 255\", FONT = COURIER_NORMAL_14, SIZE = HALFxQUARTER, ALIGNMENT = ACENTER"
+
+  # Creates a label to explain that the label on the right has an image */
+  lbl_explain = Iup.Label( "The label on the right has the image of a star" ) 
+
+  # Creates a label whose title is not important, cause it will have an image */
+  lbl_star = Iup.Label( "Does not matter" ) 
+
+  # Associates image "img_star" with label lbl_star */
+  lbl_star.image = img_star
+  
+  # Creates dialog with the label */
+  dlg = Iup.Dialog(Iup.Vbox([ lbl, Iup.Hbox([ lbl_explain, lbl_star])])) 
+
+  # Sets title of the dialog */
+  dlg.title = "IupLabel Example"  
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER ) 
+
+  # Initializes IUP main loop */
+  Iup.MainLoop( ) 
+
+  dlg.Destroy()
+  img_star.Destroy()
+
+

data/examples/elem/iuplist.rb

@@ -0,0 +1,41 @@
+require 'rubygems'
+require "iup"
+
+list_multiple_cb = lambda do |hi,t,i,v|
+  message =  "Item #{i} - #{t} - #{v == 0 ? 'deselected' : 'selected'}" 
+  Iup.Message("Competed in", message)
+
+  Iup::DEFAULT
+end
+
+  list = Iup.List("list_act")
+  list.attr = "1=Gold, 2=Silver, 3=Bronze, 4=None,"+
+                          "VALUE=4, SIZE=EIGHTHxEIGHTH"
+
+  frm_medal = Iup.Frame(list)
+  frm_medal.title = "Best medal"
+  
+  list_multiple = Iup.List()
+  
+  list_multiple.attr = "1=\"100m dash\", 2=\"Long jump\", 3=\"Javelin throw\", 4=\"110m hurdlers\", 5=\"Hammer throw\",6=\"High jump\","+
+                                   "MULTIPLE=YES, VALUE=\"+--+--\", SIZE=EIGHTHxEIGHTH"
+
+  list_multiple.action = list_multiple_cb
+  
+  frm_sport = Iup.Frame(list_multiple)  
+  frm_sport.title = "Competed in"
+
+  list_dropdown = Iup.List()
+  list_dropdown.attr = "1=\"Less than US$ 1000\", 2=\"US$ 2000\", 3=\"US$ 5000\", 4=\"US$ 10000\", 5=\"US$ 20000\", 6=\"US$ 50000\", 7=\"More than US$ 100000\","+
+                                   "DROPDOWN=YES, VISIBLE_ITEMS=5"
+  
+  frm_prize = Iup.Frame(list_dropdown)
+  frm_prize.title = "Prizes won"
+
+  dlg = Iup.Dialog(Iup.Hbox([frm_medal, frm_sport, frm_prize]))
+  dlg.title = "IupList Example"
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  Iup.MainLoop()
+  dlg.Destroy()
+  

data/examples/elem/iuplist2.rb

@@ -0,0 +1,125 @@
+require 'rubygems'
+
+require 'iup'
+
+list_cb = lambda do |ih, t, i, v|
+  lbl = ih._label
+  lbl.title = t
+  Iup::DEFAULT
+end
+
+edit_cb = lambda do |ih, c, after|
+  lbl = ih._label
+  if(Iup.isxkey(c) && c != Iup::K_DEL) 
+  	return Iup::DEFAULT
+  end
+  lbl.title = after
+  Iup::DEFAULT
+end
+
+btclose_cb = lambda do |ih|
+  return Iup::CLOSE
+end
+
+bt_cb = lambda do |ih|
+  list = ih._list
+  Iup.Message("List", "Value=#{list.value}")
+  Iup::DEFAULT
+end
+
+getfocus_cb = lambda do |ih|
+  bt = ih._button
+  bt.bgcolor = "255 0 128"
+  Iup::DEFAULT
+end
+
+killfocus_cb = lambda do |ih|
+  bt = ih._button
+  bt.bgcolor = nil
+  Iup::DEFAULT
+end
+
+  bt1 = Iup.Button("Drop+Edit")
+  bt1.action = bt_cb
+  bt2 = Iup.Button("Drop")
+  bt2.action = bt_cb
+  bt3 = Iup.Button("List+Edit")
+  bt3.action = bt_cb 
+  bt4 = Iup.Button("List")
+  bt4.action = bt_cb
+  
+  list1 = Iup.List()
+  list1.action = list_cb
+  list2 = Iup.List()
+  list2.action = list_cb
+  list3 = Iup.List()
+  list3.action = list_cb
+  list4 = Iup.List()
+  list4.action = list_cb
+  
+  list1.attr = "1=\"US$ 1000\", 2=\"US$ 2000\", 3=\"US$ 30000000\", 4=\"US$ 4000\", 5=\"US$ 5000\", 6=\"US$ 6000\", 7=\"US$ 7000\","+
+       		"EXPAND=HORIZONTAL, EDITBOX=YES, DROPDOWN=YES, VISIBLE_ITEMS=5"
+  list2.attr = "1=\"R$ 1000\", 2=\"R$ 2000\", 3=\"R$ 3000\", 4=\"R$ 4000\", 5=\"R$ 5000\", 6=\"R$ 6000\", 7=\"R$ 7000\","+
+       		"EXPAND=HORIZONTAL, DROPDOWN=YES, VISIBLE_ITEMS=5"
+  list3.attr = "1=\"Char A\", 2=\"Char B\", 3=\"Char CCCCC\", 4=\"Char D\", 5=\"Char F\", 6=\"Char G\", 7=\"Char H\","+
+       		"EXPAND=YES, EDITBOX=YES"
+  list4.attr = "1=\"Number 1\", 2=\"Number 2\", 3=\"Number 3\", 4=\"Number 4\", 5=\"Number 5\", 6=\"Number 6\", 7=\"Number 7\","+
+                "EXPAND=YES"
+
+  bt1._list = list1
+  bt2._list = list2
+  bt3._list = list3
+  bt4._list = list4
+
+  list1._button = bt1
+  list2._button = bt2
+  list3._button = bt3
+  list4._button = bt4
+
+  bt1.bgcolor = "192 192 192"
+  bt2.bgcolor = "192 192 192"
+  bt3.bgcolor = "192 192 192"
+  bt4.bgcolor = "192 192 192"
+
+  list1.getfocus_cb = getfocus_cb
+  list1.killfocus_cb = killfocus_cb
+  list2.getfocus_cb = getfocus_cb
+  list2.killfocus_cb = killfocus_cb
+  list3.getfocus_cb = getfocus_cb
+  list3.killfocus_cb = killfocus_cb
+  list4.getfocus_cb = getfocus_cb
+  list4.killfocus_cb = killfocus_cb
+
+  list1.list_edit_cb = edit_cb
+  list3.list_edit_cb = edit_cb
+
+# list3.readonly = "YES"
+
+  box1 = Iup.Vbox([list1, bt1])
+  box2 = Iup.Vbox([list2, bt2])
+  box3 = Iup.Vbox([list3, bt3])
+  box4 = Iup.Vbox([list4, bt4])
+
+  lbl = Iup.Label("")
+  lbl.expand = "HORIZONTAL"
+
+  btok = Iup.Button(:title=>"OK",:action=>btclose_cb)
+  
+  btcancel = Iup.Button(:title=>"Cancel",:action=>btclose_cb)
+
+  btok._list1 = list1
+  btok._list2 = list2
+  btok._list3 = list3
+  btok._list4 = list4
+           
+  dlg = Iup.Dialog(Iup.Vbox([Iup.Hbox([box1, box2, box3, box4]), lbl, btok, btcancel]),:attr=>"MARGIN=10x10, GAP=10")
+  dlg.title = "IupList Example"
+  dlg._label = lbl
+  dlg.defaultenter = btok
+  dlg.defaultesc = btcancel
+
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
+
+  Iup.MainLoop()
+  dlg.Destroy()
+

data/examples/elem/iupmenu.rb

@@ -0,0 +1,32 @@
+require 'rubygems'
+require 'iup'
+
+exit_cb = lambda do |ih|
+  Iup::CLOSE
+end
+
+  item_open = Iup.Item("&Open")
+
+  item_save = Iup.Item("&Save")
+
+  item_undo = Iup.Item("&Undo")
+  item_undo.active = "NO"
+
+  item_exit = Iup.Item("E&xit")
+  item_exit.action = exit_cb
+
+  file_menu = Iup.Menu([item_open, 
+                      item_save, 
+                      Iup.Separator(),
+                      item_undo,
+                      item_exit])
+
+  sub1_menu = Iup.Submenu("&File", file_menu)
+
+  menu = Iup.Menu([sub1_menu])
+  dg = Iup.Dialog(Iup.Canvas(""))
+  dg.menu = menu
+
+  dg.Show()
+  Iup.MainLoop()
+  dg.Destroy()

data/examples/elem/iupmultiline.rb

@@ -0,0 +1,24 @@
+require 'rubygems'
+
+require 'iup'
+
+mlaction = lambda do |ih,c,after|
+  if(c==Iup::K_DEL)
+    return Iup::IGNORE
+  else
+    return Iup::DEFAULT
+  end
+end
+
+  ml = Iup.MultiLine(:action=>mlaction)
+  ml.expand = "YES"
+  ml.value = "I ignore the DEL key!"
+  ml.border = "YES"
+
+  dlg = Iup.Dialog(ml)
+  dlg.title = "IupMultiline"
+  dlg.size = "QUARTERxQUARTER"
+
+  dlg.Show()
+  Iup.MainLoop()
+  dlg.Destroy()

data/examples/elem/iupmultiline2.rb

@@ -0,0 +1,156 @@
+require 'rubygems'
+
+require 'iup'
+
+
+
+  # Creates a multiline, a text and a list*/ 
+  mltline = Iup.MultiLine()   
+  text = Iup.Text() 
+  list = Iup.List() 
+
+  # Turns on multiline expand ans text horizontal expand */
+  mltline.expand = "YES" 
+  text.expand = "HORIZONTAL" 
+
+  # Sets list items and dropdown */
+  list.attr = "1 = SET, 2 = GET, DROPDOWN = YES"
+
+
+	set_attribute = lambda do |attribute|
+	  mltline[attribute] = text.value
+	
+	  string_message = "Attribute #{attribute} set with value #{text.value}"
+	  Iup.Message("Set attribute", string_message) 
+	  Iup::DEFAULT 
+	end
+	
+	get_attribute = lambda do |attribute|
+	  text.value = mltline[attribute]
+	
+	  string_message = "Attribute #{attribute} get with value #{text.value}"
+	  Iup.Message("Get attribute", string_message) 
+	  Iup::DEFAULT 
+	end
+
+	btn_append_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::APPEND)  
+	  else 
+	  	get_attribute.call(Iup::APPEND) 
+	  end
+	
+	  Iup::DEFAULT 
+	end
+	
+	btn_insert_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::INSERT)  
+	  else 
+	  	get_attribute.call(Iup::INSERT) 
+	  end
+	  
+	  Iup::DEFAULT 
+	end
+	
+	btn_border_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::BORDER)  
+	  else 
+	  	get_attribute.call(Iup::BORDER) 
+	  end
+	  Iup::DEFAULT 
+	end
+	
+	btn_caret_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::CARET)  
+	  else 
+	  	get_attribute.call(Iup::CARET) 
+	  end
+	  Iup::DEFAULT 
+	end
+	
+	btn_readonly_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::READONLY)  
+	  else 
+	  	get_attribute.call(Iup::READONLY) 
+	  end
+	  Iup::DEFAULT 
+	end
+	
+	btn_selection_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::SELECTION)  
+	  else 
+	  	get_attribute.call(Iup::SELECTION) 
+	  end  
+	  Iup::DEFAULT 
+	end
+	
+	btn_selectedtext_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::SELECTEDTEXT)  
+	  else 
+	  	get_attribute.call(Iup::SELECTEDTEXT) 
+	  end
+	  Iup::DEFAULT 
+	end
+	
+	btn_nc_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::NC)  
+	  else 
+	  	get_attribute.call(Iup::NC) 
+	  end
+	  Iup::DEFAULT 
+	end
+	
+	btn_value_cb = lambda do |ih|
+	  if(list.value == '1') 
+	  	set_attribute.call(Iup::VALUE)  
+	  else 
+	  	get_attribute.call(Iup::VALUE) 
+	  end  
+	  Iup::DEFAULT 
+	end
+
+  # Creates buttons */
+  btn_append = Iup.Button("Append") 
+  btn_insert = Iup.Button("Insert") 
+  btn_border = Iup.Button("Border") 
+  btn_caret = Iup.Button("Caret") 
+  btn_readonly = Iup.Button("Read only") 
+  btn_selection = Iup.Button("Selection") 
+  btn_selectedtext = Iup.Button("Selected Text") 
+  btn_nc = Iup.Button("Number of characters") 
+  btn_value = Iup.Button("Value") 
+
+  # Registers callbacks */
+  btn_append.action = btn_append_cb 
+  btn_insert.action = btn_insert_cb 
+  btn_border.action = btn_border_cb 
+  btn_caret.action = btn_caret_cb 
+  btn_readonly.action = btn_readonly_cb 
+  btn_selection.action = btn_selection_cb 
+  btn_selectedtext.action = btn_selectedtext_cb 
+  btn_nc.action = btn_nc_cb 
+  btn_value.action = btn_value_cb 
+
+  # Creates dialog */
+  dlg = Iup.Dialog(Iup.Vbox([mltline, 
+                   Iup.Hbox([text, list]),
+                   Iup.Hbox([btn_append, btn_insert, btn_border, btn_caret, btn_readonly, btn_selection]),
+                   Iup.Hbox([btn_selectedtext, btn_nc, btn_value])])) 
+
+  # Sets title and size of the dialog */
+  dlg.attr = "TITLE=\"Iup.MultiLine Example\", SIZE=HALFxQUARTER"
+
+  # Shows dialog in the center of the screen */
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER) 
+
+  # Initializes IUP main loop */
+  Iup.MainLoop() 
+
+  dlg.Destroy()

data/examples/elem/iupradio.rb

@@ -0,0 +1,32 @@
+require 'rubygems'
+
+require 'iup'
+
+  male	= Iup.Toggle("Male")
+  female = Iup.Toggle("Female")
+
+  exclusive = Iup.Radio(
+    Iup.Vbox([
+      male,
+      female])
+  )
+  exclusive.value = female
+  exclusive.tip = "Two state button - Exclusive - RADIO"
+
+  frame = Iup.Frame(
+    exclusive
+  )
+  frame.title = "Gender"
+
+  dialog = Iup.Dialog(
+    Iup.Hbox([
+      Iup.Fill(),
+      frame,
+      Iup.Fill()])
+  )
+
+  dialog.attr = "SIZE=140, TITLE=IupRadio, RESIZE=NO, MINBOX=NO, MAXBOX=NO"
+
+  dialog.Show()
+  Iup.MainLoop()
+  dialog.Destroy()