.. highlight:: ruby

==========
VisualRuby
==========


install
=======
* http://arton.hp.infoseek.co.jp/indexj.html

に同梱されているのを使うべし。

Referecne
=========
* http://www.osk.3web.ne.jp/~nyasu/vruby/referer/index.html
* http://www.osk.3web.ne.jp/~nyasu/vruby/referer/vr/index.html

sample
======
* http://vruby.sourceforge.net/samples.html

basic
-----
::

  require 'vr/vruby'
  
  # Windowを作る(VForm)
  frm=VRLocalScreen.newform
  # frmはVRForm型
  p frm
  # fromを弄る
  frm.move 100,100,300,300
  frm.caption="sample1"
  frm.create.show
  # main loop開始
  # VRLocalScreenはVRScreen型の定数
  VRLocalScreen.messageloop

* http://www.osk.3web.ne.jp/~nyasu/vruby/referer/vr/VRForm.html
* http://www.osk.3web.ne.jp/~nyasu/vruby/referer/vr/VRScreen.html 

moduleを拡張する書き方
----------------------
::

  require 'vr/vruby'
  
  module MyForm
    def construct
      caption="sample1"
    end
  end
  
  frm=VRLocalScreen.newform
  frm.extend MyForm
  frm.move 100,100,300,300
  frm.create.show
  VRLocalScreen.messageloop

最後の部分は次の書き方ができる
::

  frm=VRLocalScreen.showForm(MyForm, 100, 100, 300, 300)
  VRLocalScreen.messageloop

さらに
::

  VRLocalScreen.start(MyForm)

とできる


VRFormを継承する書き方
----------------------
こっちの方がわかりやすい？
::

  require 'vr/vruby'
  
  class MyForm < VRForm
    def construct
      caption="sample1"
    end
  end
  
  VRLocalScreen.start(MyForm, 100, 100, 300, 300)

layout
------
::

  require "vr/vrcontrol"
  require "vr/vrlayout"

  class MyForm < VRForm
    include VRVertLayoutManager
    def construct
      addControl(VRButton,"btn1","これ")
      addControl(VRButton,"btn2","これも",  0)
      addControl(VRButton,"btn3","あれ")
      addControl(VRButton,"btn4","あれも",  0)
    end
  end

  VRLocalScreen.start(MyForm, 100, 100, 300, 300)

listview
--------
::

  require "vr/vrcontrol"
  require "vr/vrlayout"
  require "vr/vrcomctl"
  require "pathname"
  
  class BaseListView < VRListview
    def on_dblclick
      item=focusedItem 
      if focused? item then
        dblclick_action item
      end
    end
  end
  
  class DirListview < BaseListView
    HERE=Pathname.new(".")
    PARENT=Pathname.new("..")
  
    def vrinit
      super
      addColumn("name",120)
      addColumn("ext",50)
      addColumn("size",80)
      addColumn("atime",120)
      set_path(Pathname.new Dir.pwd)
    end
  
    def set_path(path)
      @current=path.realpath
      
      clearItems
      @files=[]
        
      @current.entries.each { |e|
        case e
        when HERE
        when PARENT
          e=@current+e
          @files.push e
          addItem(["..", "", e.size, e.atime])
        else
          e=@current+e
          @files.push e
          case e.ftype
          when "file"
            addItem([e.basename(".*"), e.extname, e.size, e.atime])
          when "directory"
            addItem([e.basename, "", e.size, e.atime])
          else 
            puts "UNKNOWN TYPE: "+e.ftype
          end
        end
      }
    end
  
    def get_path
      @current
    end
  
    def dblclick_action(index)
      e=@files[index]
      case e.ftype
      when "file"
      when "directory"
        set_path e
      end
    end
  end
  
  class MyForm < VRForm
    include VRVertLayoutManager
    def construct
      addControl(DirListview, "list", "LIST")
    end
  
    def list_dblclicked
      @list.on_dblclick
      self.caption=@list.get_path
    end
  end
  
  VRLocalScreen.start(MyForm, 100, 100, 300, 300)