ruby-iup 0.0.1-i386-mswin32 → 0.0.2-i386-mswin32

data/examples/elem/progressbar.rb

@@ -1,11 +1,9 @@
 require 'rubygems'
-require 'iupruby'
+require 'iup'
 
-exit
+@increment = 0.01
 
-$increment = 0.01
-
-$pixmap_play = [
+@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,
@@ -29,7 +27,7 @@ $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]
 
-$pixmap_restart = [
+@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,
@@ -53,7 +51,7 @@ $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]
 
-$pixmap_rewind = [
+@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,
@@ -77,7 +75,7 @@ $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]
 
-$pixmap_forward = [
+@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,
@@ -101,7 +99,7 @@ $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]
 
-$pixmap_pause = [
+@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,
@@ -126,169 +124,157 @@ $pixmap_pause = [
 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")
+  @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)
+   
+  @img_restart["1"]= "0 0 0" 
+  @img_restart["2"]= "BGCOLOR"
+  @img_play["1"]= "0 0 0" 
+  @img_play["2"]= "BGCOLOR" 
+  @img_forward["1"]= "0 0 0" 
+  @img_forward["2"]= "BGCOLOR"
+  @img_rewind["1"]= "0 0 0" 
+  @img_rewind["2"]= "BGCOLOR" 
+  @img_pause["1"]= "0 0 0" 
+  @img_pause["2"]= "BGCOLOR"
 end
 
-def time_cb(ih)
-  value = Iup.GetFloat($progressbar1, "VALUE")
-  value += $increment
+@time_cb = lambda do |ih|
+  value = @progressbar1.value.to_f
+  value += @increment
   if(value > 1) 
   	value = 0 # start over */
   end
-  Iup.SetAttribute($progressbar1, "VALUE", "%f" % value)
+  @progressbar1.value = value
 
-  value = Iup.GetFloat($progressbar2, "VALUE")
-  value += $increment*50
+  value = @progressbar2.value.to_f
+  value += @increment*50
   if(value > 50) 
   	value = 0 # start over */
   end
-  Iup.SetAttribute($progressbar2, "VALUE", "%f" % value)
+  @progressbar2.value = 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")
+@btn_pause_cb = lambda do |ih|
+  if(@timer.run == "NO")
+    @timer.run = "YES"
+    @btn_pause.image = @img_pause
   else
-    Iup.SetAttribute($timer, "RUN", "NO")
-    Iup.SetAttribute($btn_pause, "IMAGE", "img_play")
+    @timer.run = "NO"
+    @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")
+@btn_restart_cb = lambda do |ih|
+  @progressbar1.value = 0
+  @progressbar2.value = 0
   return Iup::DEFAULT
 end
 
-def btn_accelerate_cb(ih)
-  $increment *= 2
+@btn_accelerate_cb = lambda do |ih|
+  @increment *= 2
   return Iup::DEFAULT
 end
 
-def btn_decelerate_cb(ih)
-  $increment /= 2
+@btn_decelerate_cb = lambda do |ih|
+  @increment /= 2
   return Iup::DEFAULT
 end
 
-def btn_show1_cb(ih)
-  if(Iup.GetInt($progressbar1, "DASHED")==0)
-    Iup.SetAttribute($progressbar1, "DASHED", "YES")
+@btn_show1_cb = lambda do |ih|
+  if(@progressbar1.dashed=="NO")
+    @progressbar1.dashed = "YES"
   else
-    Iup.SetAttribute($progressbar1, "DASHED", "NO")
+    @progressbar1.dashed = "NO"
   end
   return Iup::DEFAULT
 end
 
-def btn_show2_cb(ih)
-  if(Iup.GetInt($progressbar1, "MARQUEE")==0)
-    Iup.SetAttribute($progressbar1, "MARQUEE", "YES")
+@btn_show2_cb = lambda do |ih|
+  if(@progressbar1.marquee=="NO")
+    @progressbar1.marquee = "YES"
   else
-    Iup.SetAttribute($progressbar1, "MARQUEE", "NO")
+    @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")
+  @timer = Iup.Timer()
+  @timer.action_cb = @time_cb
+  @timer.time = 100
   
-  $progressbar1 = Iup.ProgressBar()
-  $progressbar2 = Iup.ProgressBar()
+  @progressbar1 = Iup.ProgressBar()
+  @progressbar2 = Iup.ProgressBar()
  
-  Iup.SetAttribute($progressbar1, "EXPAND", "YES")
-  Iup.SetAttribute($progressbar1, "DASHED", "YES")
+  @progressbar1.expand =  "YES"
+  @progressbar1.dashed =  "YES"
+               
+  @progressbar2.orientation = "VERTICAL"
+  @progressbar2.bgcolor = "255 0 128"
+  @progressbar2.fgcolor = "0 128 0"
+  @progressbar2.rastersize = "30x100"
+  @progressbar2.max = 50
+  @progressbar2.value = 25
 
-  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)
+  @btn_restart = Iup.Button('')
+  @btn_pause = Iup.Button('')
+  @btn_accelerate = Iup.Button('')
+  @btn_decelerate = Iup.Button('')
+  @btn_show1 = Iup.Button("Dashed")
+  @btn_show2 = Iup.Button("Marquee")
 
   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")
+  @btn_restart.image = @img_restart
+  @btn_restart.tip = "Restart"
+  @btn_pause.image = @img_pause
+  @btn_pause.tip = "Play/Pause"
+  @btn_accelerate.image = @img_forward
+  @btn_accelerate.tip = "Accelerate"
+  @btn_decelerate.image = @img_rewind
+  @btn_decelerate.tip = "Decelerate"
+  @btn_show1.tip = "Dashed or Continuous"
+  @btn_show2.tip = "Marquee or Defined"
+
+  @progressbar1.dashed =  "NO"
 
-  hbox = Iup.Hbox([
+  @hbox = Iup.Hbox([
            Iup.Fill(), 
-           $btn_pause,
-           btn_restart,
-           btn_decelerate,
-           btn_accelerate,
-           btn_show1,
-           btn_show2,
+           @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")
+  vbox = Iup.Hbox([Iup.Vbox([@progressbar1, @hbox]), @progressbar2])
+  vbox.margin = "10x10"
+  vbox.gap = "5"
 
   dlg = Iup.Dialog(vbox)
   
-  Iup.SetAttribute(dlg, "TITLE", "Iup.ProgressBar Test")
+  dlg.title = "IupProgressBar 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')
+  @btn_pause.action = @btn_pause_cb
+  @btn_restart.action = @btn_restart_cb
+  @btn_accelerate.action = @btn_accelerate_cb
+  @btn_decelerate.action = @btn_decelerate_cb
+  @btn_show1.action = @btn_show1_cb
+  @btn_show2.action = @btn_show2_cb
   
-  Iup.ShowXY(dlg, Iup::CENTER, Iup::CENTER)
+  dlg.ShowXY(Iup::CENTER, Iup::CENTER)
 
-  Iup.SetAttribute($timer, "RUN", "YES")
+  @timer.run = "YES"
 
-  Iup.MainLoop()
+  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()
+  dlg.Destroy