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