Skip to content
This repository
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 37 lines (32 sloc) 1.614 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
; 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)))))

Something went wrong with that request. Please try again.