ruby-iup 0.0.1

data/examples/elem/iupzbox.rb

@@ -0,0 +1,60 @@
+require 'rubygems'
+require 'iup'
+
+
+  fill = Iup.Fill() 
+
+  text = Iup.Text()
+
+  text.attr = "EXPAND = YES, VALUE = \"Enter your text here\""
+  
+  # Creates a label 
+  lbl = Iup.Label("This element is a label") 
+
+  # Creatas a button 
+  btn = Iup.Button("This button does nothing") 
+
+	
+  # Creates zbox with four elements 
+  zbox = Iup.Zbox([fill, text, lbl, btn]) 
+
+  # Creates handles for manipulating the zbox VALUE 
+  zbox.fill = fill
+  zbox.text = text
+  zbox.lbl = lbl
+  zbox.btn = btn
+
+list_cb = lambda do |h,t, o, selected|
+  if(selected == 1)
+    zbox.value = zbox[t]
+  end
+  Iup::DEFAULT 
+end
+
+  # Sets zbox alignment 
+  zbox.alignment = "ACENTER" 
+
+  # Creates frame 
+  frm = Iup.Frame(
+    Iup.Hbox([
+      Iup.Fill(),
+      list = Iup.List(),
+      Iup.Fill()])
+  )
+
+  # Creates dialog 
+  dlg = Iup.Dialog(
+    Iup.Vbox([
+      frm,
+      zbox])
+  ) 
+
+  list.attr = "1 = fill, 2 = text, 3 = lbl, 4 = btn"
+  frm.title = "Select an element" 
+  dlg.attr = "SIZE = QUARTER, TITLE = \"Iup.Zbox Example\"" 
+  list.action = list_cb 
+
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER ) 
+  Iup.MainLoop() 
+  dlg.Destroy()
+  

data/examples/elem/mdisample.rb

@@ -0,0 +1,376 @@
+require 'rubygems'
+require 'iup'
+
+class MidTest
+
+	def createImages()
+		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"
+	end
+	
+	def set_callbacks(ctrl)  
+	
+		action = lambda do |ih|
+		  printf("%2d-action(%s#%s) Value=%s\n", @line, ih.GetClassName(), ih.cindex, ih.value) 
+		  @line+=1
+		  Iup::DEFAULT
+		end
+	
+		getfocus_cb = lambda do |ih|
+		  printf("%2d-getfocus(%s#%s)\n", @line, ih.GetClassName(), ih.cindex)
+		  @line += 1
+		  Iup::DEFAULT
+		end
+		
+		killfocus_cb = lambda do |ih|
+		  printf("%2d-killfocus(%s#%s)\n", @line, ih.GetClassName(), ih.cindex)
+		  @line+=1
+		  Iup::DEFAULT
+		end
+	
+	  ctrl.getfocus_cb = getfocus_cb
+	  ctrl.killfocus_cb = killfocus_cb
+	#  ctrl.action = action
+	  
+	  child = Iup.GetNextChild(ctrl, nil)
+	  while (child)   
+	    set_callbacks(child)  
+	    child = Iup.GetNextChild(ctrl, child)
+	  end
+	end
+	
+	def createDialog()
+	
+	  _frm_1 = Iup.Frame(
+	    Iup.Vbox([
+	      Iup.Button(:title=>"Button Text",:attr=>"CINDEX=1"),
+	      Iup.Button(:attr=> "CINDEX=2, BGCOLOR=\"255 128 0\", RASTERSIZE=30x30"),
+	      Iup.Button(:image=>@img1,:attr=> "CINDEX=3"),
+	      Iup.Button(:image=>@img1,:attr=> "CINDEX=4, FLAT=YES"),
+	      Iup.Button(:image=>@img1,:impress=>@img2,:attr=> "CINDEX=5")
+	      ]),:title=>"IupButton")
+	
+	  _frm_2 = Iup.Frame(
+	    Iup.Vbox([
+	      Iup.Label(:title=>"Label Text\nLine 2\nLine 3",:attr=> "CINDEX=1"),
+	      Iup.Label(:title=>"",:attr => "SEPARATOR=HORIZONTAL,CINDEX=2"),
+	      Iup.Label(:title=>"",:image=>@img1,:attr => "CINDEX=3")
+	      ]),:title=>"IupLabel")
+	
+	  _frm_3 = Iup.Frame(
+	    Iup.Vbox([
+	      Iup.Toggle(:title=>"Toggle Text",:attr=>"VALUE=ON,CINDEX=1"),
+	      Iup.Toggle(:title=>"3State Text",:attr=>"VALUE=NOTDEF,CINDEX=2,3STATE=YES"),
+	      Iup.Toggle(:title=>"",:image=>@img1,:impress=>@img2,:attr=> "CINDEX=3"),
+	      Iup.Frame(Iup.Radio(Iup.Vbox([
+	        Iup.Toggle(:title=>"Toggle Text",:cindex=>4),
+	        Iup.Toggle(:title=>"Toggle Text",:cindex=>5)
+	        ])), :title=>"IupRadio")
+	      ]),:title=>"IupToggle")
+	
+	  _text_1 = Iup.Text( )
+	  _text_1.value = "IupText Text"
+	# _text_1.size = "80x"
+	  _text_1.cindex = 1
+	
+	  _ml_1 = Iup.MultiLine( )
+	  _ml_1.value = "IupMultiline Text\nSecond line\nThird line"
+	#  _ml_1.size = "50x30"
+	#  _ml_1.expand = "YES"
+	#  _ml_1.size = "80x60"
+	  _ml_1.cindex = 1
+	
+	  _frm_4 = Iup.Frame(Iup.Vbox([
+	    _text_1,
+	    _ml_1,
+	    ]),:title=>"IupText/IupMultiline")
+	
+	  _list_1 = Iup.List()
+	  _list_1.expand = "YES"
+	# _list_1.size =  "50x40"
+	  _list_1.value = 1
+	  _list_1.multiple = "YES"  
+	  _list_1["1"] = "Item 1 Text"
+	  _list_1["2"] = "Item 2 Text"
+	  _list_1["3"] = "Item 3 Text Big Item"
+	  _list_1["4"] = "Item 4 Text"
+	  _list_1["5"] = "Item 5 Text"
+	  _list_1["6"] = "Item 6 Text"
+	  _list_1.cindex = 1        
+	
+	  _list_2 = Iup.List( )
+	  _list_2.dropdown="YES"
+	  _list_2.expand="YES"
+	  _list_2.visible_items= 3
+	# _list_2.size= "50x"
+	  _list_2.value=2
+	  _list_2["1"]="Item 1 Text"
+	  _list_2["2"]="Item 2 Text Big Item"
+	  _list_2["3"]="Item 3 Text"
+	  _list_2["4"]="Item 4 Text"
+	  _list_2["5"]="Item 5 Text"
+	  _list_2["6"]="Item 6 Text"
+	  _list_2.cindex=2
+	
+	  _list_3 = Iup.List( )
+	  _list_3.editbox="YES"
+	  _list_3.xpand="YES"
+	# _list_3.size="50x40"
+	  _list_3.value="Test Value"
+	  _list_3["1"]="Item 1 Text"
+	  _list_3["2"]="Item 2 Text Big Item"
+	  _list_3["3"]="Item 3 Text"
+	  _list_3["4"]="Item 4 Text"
+	  _list_3["5"]="Item 5 Text"
+	  _list_3["6"]="Item 6 Text"
+	  _list_3.cindex = 3
+	
+	  _list_4 = Iup.List( )
+	  _list_4.editbox = "YES"
+	  _list_4.dropdown="YES"
+	  _list_4.expand="YES"
+	  _list_4.visible_items = 3
+	# _list_4.size = "50x10"
+	  _list_4.value = "Test Value"
+	  _list_4["1"] = "Item 1 Text"
+	  _list_4["2"] = "Item 2 Text Big Item"
+	  _list_4["3"] = "Item 3 Text"
+	  _list_4["4"] = "Item 4 Text"
+	  _list_4["5"] = "Item 5 Text"
+	  _list_4["6"] = "Item 6 Text"
+	  _list_4.cindex="4"
+	
+	  _frm_5 =  Iup.Frame(Iup.Vbox([
+	      _list_1,
+	      _list_2,
+	      _list_3,
+	      _list_4
+	      ]))
+	  _frm_5.title = "IupList"
+	
+	  _hbox_1 = Iup.Hbox([
+	    _frm_1,
+	    _frm_2,
+	    _frm_3,
+	    _frm_4,
+	    _frm_5
+	    ])
+	
+	  _cnv_1 = Iup.Canvas( "do_nothing")
+	  _cnv_1.bgcolor = "128 255 0"
+	
+	  _vbox_1 = Iup.Vbox([
+	#    Iup.Tabs(_hbox_1, NULL),
+	    _hbox_1,
+	    _cnv_1
+	    ])
+	  _vbox_1.margin = "5x5"
+	  _vbox_1.alignment = "ARIGHT"
+	  _vbox_1.gap = "5"            
+	
+	  set_callbacks(_vbox_1)  
+	
+	  dlg = Iup.Dialog(_vbox_1)
+	  dlg.title = "IupDialog Title"
+	#  dlg.shrink = "YES"
+	#  dlg.size = "500x200"
+	
+	#  dlg.bgcolor = "255 0 255"
+	#  dlg.font","Times New Roman:ITALIC:10"
+	#  dlg.font = "TIMES_BOLD_14"
+	#  _vbox_1.active = "NO"
+	
+	  #dlg.composited = "YES"
+	  #dlg.layered = "YES"
+	  #dlg.layeralpha = 192
+	
+	#  dlg.Map()
+	#  dlg.size = nil
+	
+	  return dlg
+	end
+	
+	
+	def createMenu()
+	
+		mdi_tilehoriz = lambda do |ih|
+		  ih.mdiarrange = "TILEHORIZONTAL"
+		  Iup::DEFAULT
+		end
+		
+		mdi_tilevert = lambda do |ih|
+		  ih.mdiarrange= "TILEVERTICAL"
+		  Iup::DEFAULT
+		end
+		
+		mdi_cascade = lambda do |ih|
+		  ih.mdiarrange= "CASCADE"
+		  Iup::DEFAULT
+		end
+		
+		mdi_icon = lambda do |ih|
+		  ih.mdiarrange = "ICON"
+		  Iup::DEFAULT
+		end
+		
+		mdi_next = lambda do |ih|
+		  ih.mdiactivate = "NEXT"
+		  Iup::DEFAULT
+		end
+		
+		mdi_previous = lambda do |ih|
+		  ih.mdiactivate = "PREVIOUS"
+		  return Iup::DEFAULT
+		end
+		
+		mdi_closeall = lambda do |ih|
+		  ih.mdicloseall = nil
+		  Iup::DEFAULT
+		end
+		
+		mdi_activate = lambda do |ih|
+		p "mdi_activate"
+		  printf("%2d-mdi_activate(%s)\n", @line, Iup.GetName(ih))
+		  @line+=1
+		  Iup::DEFAULT
+		end
+		
+		mdi_new = lambda do |ih|
+		  dlg = createDialog()
+		  dlg.mdichild = "YES"
+		  dlg.mdiclient = @mdiClient
+		# dlg.mdiactivate_cb = mdi_activate
+		# dlg.placement =  "MAXIMIZED"
+		
+		  dlg.Show()
+		
+		  Iup::DEFAULT
+		end
+	
+	  mnu = Iup.Menu([
+	  	Iup.Submenu("MDI",Iup.Menu([
+	      		Iup.Item("New",mdi_new)])),
+	      winmenu = Iup.Submenu("Window", 
+	        Iup.Menu([
+		      Iup.Item("Tile Horizontal", mdi_tilehoriz), 
+		      Iup.Item("Tile Vertical", mdi_tilevert), 
+		      Iup.Item("Cascade", mdi_cascade), 
+		      Iup.Item("Icon Arrange", mdi_icon), 
+		      Iup.Item("Close All", mdi_closeall), 
+		      Iup.Separator(),
+		      Iup.Item("Next", mdi_next), 
+		      Iup.Item("Previous", mdi_previous) 
+	      ]))
+	    ])
+	  @mdiMenu = winmenu
+	  @mnu = mnu
+	end
+	
+	def createFrame()
+	  cnv = Iup.Canvas( "do_nothing")
+	  cnv.mdiclient = "YES"
+	  @mdiClient = cnv
+	
+	  dlg = Iup.Dialog(cnv)
+	  dlg.title = "MDI Frame"
+	  dlg.mdimenu = @mdiMenu
+	  dlg.rastersize = "800x600"
+	
+	  dlg
+	end
+
+	def initialize	
+	  @line = 0
+	  createImages()
+	  createMenu()
+	  dlg = createFrame() 
+	# dlg.placement = "MAXIMIZED"
+	  dlg.menu = @mnu
+	  dlg.ShowXY(Iup::CENTER,Iup::CENTER)
+	  Iup.MainLoop()
+	  @img1.Destroy
+	  @img2.Destroy
+	  dlg.Destroy
+	end
+	
+end
+
+test = MidTest.new

data/examples/elem/progressbar.rb

@@ -0,0 +1,294 @@
+require 'rubygems'
+require 'iupruby'
+
+exit
+
+$increment = 0.01
+
+$pixmap_play = [
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,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,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,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,1,1,1,1,1,1,1,1,1,1,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,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,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,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,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+ 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+$pixmap_restart = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,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,2,2,2,2,2,2,2,2,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,1,1,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,1,1,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,1,1,2,2,2,2,2,2,2,2,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,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+$pixmap_rewind = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,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,2,2,2,2,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,1,2,2,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,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+$pixmap_forward = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,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,2,2,2,2,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,1,2,1,1,1,1,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,1,2,2,1,1,1,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,2,1,1,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,2,2,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,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+$pixmap_pause = [
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,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,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,1,1,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,1,1,2,2,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,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,
+2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2]
+
+def createimg_s()
+  img_restart = Iup.Image(22,22, $pixmap_restart)
+  img_play = Iup.Image(22,22, $pixmap_play)
+  img_forward = Iup.Image(22,22, $pixmap_forward)
+  img_rewind = Iup.Image(22,22, $pixmap_rewind)
+  img_pause = Iup.Image(22,22, $pixmap_pause)
+  
+  Iup.SetHandle("img_restart", img_restart) 
+  Iup.SetHandle("img_play", img_play)
+  Iup.SetHandle("img_forward", img_forward) 
+  Iup.SetHandle("img_rewind", img_rewind)
+  Iup.SetHandle("img_pause", img_pause)
+  
+  Iup.SetAttribute(img_restart, "1", "0 0 0") 
+  Iup.SetAttribute(img_restart, "2", "BGCOLOR")
+  Iup.SetAttribute(img_play, "1", "0 0 0") 
+  Iup.SetAttribute(img_play, "2", "BGCOLOR") 
+  Iup.SetAttribute(img_forward, "1", "0 0 0") 
+  Iup.SetAttribute(img_forward, "2", "BGCOLOR")
+  Iup.SetAttribute(img_rewind, "1", "0 0 0") 
+  Iup.SetAttribute(img_rewind, "2", "BGCOLOR") 
+  Iup.SetAttribute(img_pause, "1", "0 0 0") 
+  Iup.SetAttribute(img_pause, "2", "BGCOLOR")
+end
+
+def time_cb(ih)
+  value = Iup.GetFloat($progressbar1, "VALUE")
+  value += $increment
+  if(value > 1) 
+  	value = 0 # start over */
+  end
+  Iup.SetAttribute($progressbar1, "VALUE", "%f" % value)
+
+  value = Iup.GetFloat($progressbar2, "VALUE")
+  value += $increment*50
+  if(value > 50) 
+  	value = 0 # start over */
+  end
+  Iup.SetAttribute($progressbar2, "VALUE", "%f" % value)
+  return Iup::DEFAULT
+end
+
+def btn_pause_cb(ih)
+  if(Iup.GetInt($timer, "RUN")==0)
+    Iup.SetAttribute($timer, "RUN", "YES")
+    Iup.SetAttribute($btn_pause, "IMAGE", "img_pause")
+  else
+    Iup.SetAttribute($timer, "RUN", "NO")
+    Iup.SetAttribute($btn_pause, "IMAGE", "img_play")
+  end
+  
+  return Iup::DEFAULT
+end
+
+def btn_restart_cb(ih)
+  Iup.SetAttribute($progressbar1, "VALUE", "0")
+  Iup.SetAttribute($progressbar2, "VALUE", "0")
+  return Iup::DEFAULT
+end
+
+def btn_accelerate_cb(ih)
+  $increment *= 2
+  return Iup::DEFAULT
+end
+
+def btn_decelerate_cb(ih)
+  $increment /= 2
+  return Iup::DEFAULT
+end
+
+def btn_show1_cb(ih)
+  if(Iup.GetInt($progressbar1, "DASHED")==0)
+    Iup.SetAttribute($progressbar1, "DASHED", "YES")
+  else
+    Iup.SetAttribute($progressbar1, "DASHED", "NO")
+  end
+  return Iup::DEFAULT
+end
+
+def btn_show2_cb(ih)
+  if(Iup.GetInt($progressbar1, "MARQUEE")==0)
+    Iup.SetAttribute($progressbar1, "MARQUEE", "YES")
+  else
+    Iup.SetAttribute($progressbar1, "MARQUEE", "NO")
+  end
+  return Iup::DEFAULT
+end
+
+  Iup.Open                  # IUP initialization */
+
+  $timer = Iup.Timer()
+  Iup.SetCallback($timer, "ACTION_CB",'time_cb')
+  Iup.SetAttribute($timer, "TIME", "100")
+  
+  $progressbar1 = Iup.ProgressBar()
+  $progressbar2 = Iup.ProgressBar()
+ 
+  Iup.SetAttribute($progressbar1, "EXPAND", "YES")
+  Iup.SetAttribute($progressbar1, "DASHED", "YES")
+
+  Iup.SetAttribute($progressbar2, "ORIENTATION", "VERTICAL")
+  Iup.SetAttribute($progressbar2, "BGCOLOR", "255 0 128")
+  Iup.SetAttribute($progressbar2, "FGCOLOR", "0 128 0")
+  Iup.SetAttribute($progressbar2, "RASTERSIZE", "30x100")
+  Iup.SetAttribute($progressbar2, "MAX", "50")
+  Iup.SetAttribute($progressbar2, "VALUE", "25")
+
+  btn_restart = Iup.Button(NULL, NULL)
+  $btn_pause = Iup.Button(NULL, NULL)
+  btn_accelerate = Iup.Button(NULL, NULL)
+  btn_decelerate = Iup.Button(NULL, NULL)
+  btn_show1 = Iup.Button("Dashed", NULL)
+  btn_show2 = Iup.Button("Marquee", NULL)
+
+  createimg_s()
+
+  Iup.SetAttribute(btn_restart, "IMAGE", "img_restart")
+  Iup.SetAttribute(btn_restart, "TIP", "Restart" )
+  Iup.SetAttribute($btn_pause, "IMAGE", "img_pause")
+  Iup.SetAttribute($btn_pause, "TIP", "Play/Pause")
+  Iup.SetAttribute(btn_accelerate, "IMAGE", "img_forward")
+  Iup.SetAttribute(btn_accelerate, "TIP", "Accelerate")
+  Iup.SetAttribute(btn_decelerate, "IMAGE", "img_rewind")
+  Iup.SetAttribute(btn_decelerate, "TIP", "Decelerate")
+  Iup.SetAttribute(btn_show1, "TIP", "Dashed or Continuous")
+  Iup.SetAttribute(btn_show2, "TIP", "Marquee or Defined")
+
+  hbox = Iup.Hbox([
+           Iup.Fill(), 
+           $btn_pause,
+           btn_restart,
+           btn_decelerate,
+           btn_accelerate,
+           btn_show1,
+           btn_show2,
+           Iup.Fill()])
+
+  vbox = Iup.Hbox([Iup.Vbox([$progressbar1, hbox]), $progressbar2])
+  Iup.SetAttribute(vbox, "MARGIN", "10x10")
+  Iup.SetAttribute(vbox, "GAP", "5")
+
+  dlg = Iup.Dialog(vbox)
+  
+  Iup.SetAttribute(dlg, "TITLE", "Iup.ProgressBar Test")
+
+  Iup.SetCallback($btn_pause, "ACTION",'$btn_pause_cb')
+  Iup.SetCallback(btn_restart, "ACTION",'btn_restart_cb')
+  Iup.SetCallback(btn_accelerate, "ACTION",'btn_accelerate_cb')
+  Iup.SetCallback(btn_decelerate, "ACTION",'btn_decelerate_cb')
+  Iup.SetCallback(btn_show1, "ACTION",'btn_show1_cb')
+  Iup.SetCallback(btn_show2, "ACTION",'btn_show2_cb')
+  
+  Iup.ShowXY(dlg, Iup::CENTER, Iup::CENTER)
+
+  Iup.SetAttribute($timer, "RUN", "YES")
+
+  Iup.MainLoop()
+  
+  Iup.Destroy(dlg)
+  Iup.Destroy(Iup.GetHandle("img_restart")) 
+  Iup.Destroy(Iup.GetHandle("img_play"))
+  Iup.Destroy(Iup.GetHandle("img_forward")) 
+  Iup.Destroy(Iup.GetHandle("img_rewind"))
+  Iup.Destroy(Iup.GetHandle("img_pause"))
+
+  Iup.Close()
+