1#
2#  MyView.rb
3#  SimpleApp
4#
5#  Created by FUJIMOTO Hisakuni on Sat Sep 07 2002.
6#  Copyright (c) 2001 __MyCompanyName__. All rights reserved.
7#
8
9require 'osx/cocoa'
10
11class MyView <  OSX::NSView
12  include OSX
13
14  attr_reader :color, :alpha
15
16  def initWithFrame (frame)
17    super_initWithFrame(frame)
18    @alpha = 0.5
19    @color = NSColor.blueColor.colorWithAlphaComponent(@alpha)
20    return self
21  end
22
23  def drawRect (rect)
24    @color.set
25    NSRectFill(rect)
26  end
27
28  def set_color (color)
29    @color = color.colorWithAlphaComponent(@alpha)
30    setNeedsDisplay(true)
31  end
32
33  def set_alpha (alpha)
34    @alpha = alpha
35    @color = @color.colorWithAlphaComponent(@alpha)
36    setNeedsDisplay(true)
37  end
38
39end
40