
  '==================
  'METHOD OVERLOADOMG
  '==================

  '---------------
  class color_rgba
  '===============
  ' 
  private
  '  
  byte r,g,b,a
  =
  rgba as dword
  '
  public
  '
  method set(string s)
  '===================
  '
  rgba=val("&h"+s)
  end method
  '
  method set(dword c)
  '==================
  rgba=c
  end method
  '
  method set(byte rr,gg,bb,aa)
  ============================
  '
  r=rr : g=gg :b=bb : a=aa
  end method

    
  method get() as dword
  =====================
  '
  method=rgba
  end method

  method show() as string
  =======================
  '
  return "colors:" cr cr +
    "Red" tab str(r) cr +
    "Green" tab str(g) cr +
    "Blue"  tab str(b) cr +
    "Alpha" tab str(a)
  end method

  end class

  dim c as color_rgba

  '====
  'TEST
  '====
  '
  'print structureof color_rgba 
  '
  'different ways of entering data:
  ' 
  c.set &h08060402  : print c.show
  c.set 2,4,6,8     : print c.show
  c.set "08060402"  : print c.show

