Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

46 lines (39 sloc) 1.699 kB
; Copyright (c) Dave Ray, 2012. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
; which can be found in the file epl-v10.html at the root of this
; distribution.
; By using this software in any fashion, you are agreeing to be bound by
; the terms of this license.
; You must not remove this notice, or any other, from this software.
(ns seesaw.test.mouse
(:require [seesaw.mouse :as mouse])
(:use [lazytest.describe :only (describe it testing)]
[lazytest.expect :only (expect)]))
(defn- fake-event [[x y] modex btn]
(java.awt.event.MouseEvent.
(javax.swing.JLabel.) ,
0, 0 , modex,
x, y, 1, false,
btn))
(describe mouse/location
(testing "with no arguments"
(it "returns the [x y] mouse location on the whole screen"
(let [[x y] (mouse/location)
p (.getLocation (java.awt.MouseInfo/getPointerInfo))]
(expect (= (.x p) x))
(expect (= (.y p) y)))))
(testing "with a MouseEvent argument"
(it "returns the [x y] of the event"
(let [e (fake-event [123 456] 0 0)]
(expect (= [123 456] (mouse/location e)))))))
(describe mouse/button-down?
(testing "with a MouseEvent"
(it "returns true if the button is down"
(let [e (fake-event [0 0] java.awt.event.InputEvent/BUTTON2_DOWN_MASK 0)]
(expect (mouse/button-down? e :center))))))
(describe mouse/button
(testing "with a MouseEvent"
(it "returns the button whose state changed"
(let [e (fake-event [0 0] 0 java.awt.event.MouseEvent/BUTTON3)]
(expect (= :right (mouse/button e)))))))
Jump to Line
Something went wrong with that request. Please try again.