1#
2#  StickyResizeCornerView.rb
3#  Stickies
4#
5#  Created by Laurent Sansonetti on 1/4/07.
6#  Copyright (c) 2007 Apple Computer. All rights reserved.
7#
8
9class StickyResizeCornerView <  NSView
10  
11  def drawRect(rect)
12    r = bounds
13    NSColor.brownColor.set
14    NSBezierPath.strokeLineFromPoint_toPoint(
15        NSZeroPoint, NSPoint.new(r.origin.x + r.size.width, r.origin.y + r.size.height))
16  end
17
18  def acceptsFirstMouse(theEvent); true; end
19
20  def mouseDragged(theEvent)
21    f = window.frame
22    w, h = f.size.width, f.size.height
23    newWidth = w + theEvent.deltaX
24    newHeight = h + theEvent.deltaY
25    minSize = window.minSize
26    if newHeight >= minSize.height then
27      f.size.height = newHeight
28      f.origin.y -= theEvent.deltaY    
29    end
30    if newWidth >= minSize.width then
31      f.size.width = newWidth
32    end
33    window.setFrame_display(f, true)
34  end
35
36end
37