#   NSButtonTest: test of Rigs::NSButton
#
#    Copyright (C) 2000 Free Software Foundation, Inc.
#
#    Author:  Laurent Julliard <laurent@julliard-online.org>
#             (inspired from Nicola Pero's JIGS test file)
#    Date: September 2001
#  
#    This file is part of GNUstep.
#  
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#  
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#  
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

require 'rigs'
Rigs.import("NSApplication")
Rigs.import("NSGraphicsContext")
Rigs.import("NSWindow")
Rigs.import("NSButton")
Rigs.import("NSProcessInfo")
Rigs.import("NSSelector")
Rigs.import("NSString")

class NSButtonTest

    def initialize 
	@window = NSWindow.alloc
    end

    def applicationWillFinishLaunching (notification)

	button = NSButton.new
	button.setTarget(self)
	button.setAction( selector("buttonPress:"))
	button.setTitle("Print Quote")
	button.sizeToFit()

	rect = button.frame()
	styleMask = NSTitledWindowMask | NSClosableWindowMask |
	    NSMiniaturizableWindowMask | NSResizableWindowMask

	@window.initWithContentRect_styleMask_backing_defer \
	                 (rect, styleMask, NSBackingStoreRetained, false)
	@window.setTitle("GNUstep")
	@window.setContentView (button)
    end
  
    def buttonPress (sender)
	puts "Ca vous chatouille ou ca vous gratouille ?"
    end

    def applicationDidFinishLaunching (notification)
	@window.center()
	@window.makeKeyAndOrderFront(self)
    end

    def applicationShouldTerminateAfterLastWindowClosed (application)
	true
    end
    
end

  
# main
NSProcessInfo.processInfo.setProcessName("NSButtonTest")

application = NSApplication.sharedApplication
buttonTest = NSButtonTest.new

application.setDelegate(buttonTest)

application.run