Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

37 lines (32 sloc) 1.614 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 (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.forms
(:use [seesaw [core :exclude (separator)]])
(:use seesaw.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
"pref,4dlu,80dlu,8dlu,pref,4dlu,80dlu"
: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)
(next-line)
(separator "Propeller")
"PTI/kW" (text :columns 10) "Power/kW" (text :columns 10)
"R/mm" (text :columns 10) "D/mm" (text :columns 10)
(separator)]
:default-dialog-border? true)]
(expect (instance? javax.swing.JPanel p)))))
Jump to Line
Something went wrong with that request. Please try again.