Skip to content
Fetching contributors…
Cannot retrieve contributors at this time
36 lines (31 sloc) 1.56 KB
; Copyright (c) Dave Ray, 2011. All rights reserved.
; The use and distribution terms for this software are covered by the
; Eclipse Public License 1.0 (
; 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.forms
(:use [seesaw [core :exclude (separator)] forms])
(:use [lazytest.describe :only (describe it testing)]
[lazytest.expect :only (expect)]))
(describe forms-panel
(it "Creates a JPanel using a JGoodies form builder"
(let [p (forms-panel
:column-groups [[1 5]]
:leading-column-offset 0
:line-gap-size (com.jgoodies.forms.layout.Sizes/pixel 5)
:items [(title "JGoodies forms test")
(separator "General")
"Company" (span (text) 5)
"Contact" (span (text) 5)
"Click here" (next-column) (span (action :name "A button") 5)
(separator "Propeller")
"PTI/kW" (text :columns 10) "Power/kW" (text :columns 10)
"R/mm" (text :columns 10) "D/mm" (text :columns 10)
:default-dialog-border? true)]
(expect (instance? javax.swing.JPanel p)))))
Something went wrong with that request. Please try again.