Skip to content
This repository
Newer
Older
100644 385 lines (344 sloc) 16.031 kb
9eb4739f »
2011-11-09 Implemented seesaw.swingx/hyperlink.
1 ; Copyright (c) Dave Ray, 2011. All rights reserved.
2
3 ; The use and distribution terms for this software are covered by the
4 ; Eclipse Public License 1.0 (http://opensource.org/licenses/eclipse-1.0.php)
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
5 ; which can be found in the file epl-v10.html at the root of this
9eb4739f »
2011-11-09 Implemented seesaw.swingx/hyperlink.
6 ; distribution.
7 ; By using this software in any fashion, you are agreeing to be bound by
8 ; the terms of this license.
9 ; You must not remove this notice, or any other, from this software.
10
11 (ns seesaw.test.swingx
16a0c237 »
2011-11-09 Implemented task-pane and task-pane-container
12 (:require [seesaw.core :as core])
13 (:require [seesaw.icon :as icon])
14 (:require [seesaw.graphics :as graphics])
9eb4739f »
2011-11-09 Implemented seesaw.swingx/hyperlink.
15 (:use seesaw.swingx)
16 (:use [lazytest.describe :only (describe it testing)]
17 [lazytest.expect :only (expect)]))
18
bfcc6b3a »
2011-11-13 Highlighter predicate stuff
19 (describe p-built-in
20 (it "returns built-in predicates by key"
21 (= org.jdesktop.swingx.decorator.HighlightPredicate/ROLLOVER_ROW (p-built-in :rollover-row))))
22
23 (describe p-and
24 (it "creates an AndHighlightPredicate with the given parts"
25 (let [expected-parts [:always :never :even :odd]
26 a (apply p-and expected-parts)
27 actual-parts (seq (.getHighlightPredicates a))]
28 (expect (= actual-parts (map p-built-in expected-parts)))))
29 (it "auto-converts regex to pattern predicate"
30 (let [pat #"yum"
31 p (p-and pat)]
32 (expect (= pat (.getPattern (first (.getHighlightPredicates p))))))))
33
34 (describe p-or
35 (it "creates an OrHighlightPredicate with the given parts"
36 (let [expected-parts [:rollover-row :always :even :odd]
37 a (apply p-or expected-parts)
38 actual-parts (seq (.getHighlightPredicates a))]
39 (expect (= actual-parts (map p-built-in expected-parts))))))
40
41 (describe p-not
42 (it "creates a NotHighlightPredicate with the given target"
43 (= (p-built-in :even) (.getHighlightPredicate (p-not :even)))))
44
45 (describe p-type
46 (it "creates a TypeHighlightPredicate with the given class"
47 (= String (.getType (p-type String)))))
48
49 (describe p-eq
50 (it "creates a EqualsHighlightPredicate with the given value"
51 (= "HOWDY" (.getCompareValue (p-eq "HOWDY")))))
52
53 (describe p-column-names
54 (it "creates a IdentifierHighlighPredicate with the given column ids"
55 (= ["a" :b 3] (->> (p-column-names "a" :b 3) .getIdentifiers seq))))
56
57 (describe p-column-indexes
58 (it "creates a ColumnHighlighPredicate with the given column indexes"
59 (= [1 2 4] (->> (p-column-indexes 1 2 4) .getColumns seq))))
60
61 (describe p-row-group
62 (it "creates a RowGroupHighlightPredicate with the given count"
63 (= 6 (.getLinesPerGroup (p-row-group 6)))))
64
65 (describe p-depths
66 (it "creates a DepthHighlighPredicate with the given depths"
67 (= [1 2 4] (->> (p-depths 1 2 4) .getDepths seq))))
68
69 (describe p-pattern
70 (it "creates a PatternHighlighPredicate with the given pattern"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
71 (let [pat #"hi"]
bfcc6b3a »
2011-11-13 Highlighter predicate stuff
72 (expect (= pat (.getPattern (p-pattern pat))))))
73
74 (it "creates a PatternHighlighPredicate with the given pattern and columns"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
75 (let [pat (p-pattern #"hi" :test-column 123 :highlight-column 456)]
bfcc6b3a »
2011-11-13 Highlighter predicate stuff
76 (expect (= 123 (.getTestColumn pat)))
77 (expect (= 456 (.getHighlightColumn pat))))))
78
34ae67c8 »
2011-11-15 Arbitrary highlighter predicates with fn
79 (describe p-fn
80 (it "creates a Highlighter that calls a two-arg function"
81 (let [called (atom false)
82 p (p-fn (fn [_ _] (reset! called true)))]
83 (expect (instance? org.jdesktop.swingx.decorator.HighlightPredicate p))
84 (.isHighlighted p nil nil)
85 (expect @called))))
86
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
87 (describe hl-color
a36f2a12 »
2011-11-13 icon and color highlighters
88 (it "returns a function that creates a highlighter with always predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
89 (let [f (hl-color)
a36f2a12 »
2011-11-13 icon and color highlighters
90 h1 (f) ]
91 (expect (instance? org.jdesktop.swingx.decorator.ColorHighlighter h1))
92 (expect (= (p-built-in :always) (.getHighlightPredicate h1)))))
93
94 (it "returns a function that creates a highlight with given predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
95 (let [f (hl-color)
a36f2a12 »
2011-11-13 icon and color highlighters
96 h1 (f :never) ]
97 (expect (instance? org.jdesktop.swingx.decorator.ColorHighlighter h1))
98 (expect (= (p-built-in :never) (.getHighlightPredicate h1)))))
99 (it "can control the color of the highlighter"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
100 (let [f (hl-color :background java.awt.Color/RED
a36f2a12 »
2011-11-13 icon and color highlighters
101 :foreground java.awt.Color/ORANGE
102 :selected-background java.awt.Color/GREEN
103 :selected-foreground java.awt.Color/BLUE)
104 h (f)]
105 (expect (= java.awt.Color/RED (.getBackground h)))
106 (expect (= java.awt.Color/ORANGE (.getForeground h)))
107 (expect (= java.awt.Color/GREEN (.getSelectedBackground h)))
108 (expect (= java.awt.Color/BLUE (.getSelectedForeground h))))))
109
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
110 (describe hl-icon
a36f2a12 »
2011-11-13 icon and color highlighters
111 (it "returns a function that creates a highlighter with always predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
112 (let [f (hl-icon nil)
a36f2a12 »
2011-11-13 icon and color highlighters
113 h1 (f) ]
114 (expect (instance? org.jdesktop.swingx.decorator.IconHighlighter h1))
115 (expect (= (p-built-in :always) (.getHighlightPredicate h1)))))
116
117 (it "returns a function that creates a highlight with given predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
118 (let [f (hl-icon nil)
a36f2a12 »
2011-11-13 icon and color highlighters
119 h1 (f :never) ]
120 (expect (instance? org.jdesktop.swingx.decorator.IconHighlighter h1))
121 (expect (= (p-built-in :never) (.getHighlightPredicate h1)))))
122 (it "can control the icon of the highlighter"
123 (let [i (icon/icon (graphics/buffered-image 16 16))
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
124 f (hl-icon i)
a36f2a12 »
2011-11-13 icon and color highlighters
125 h (f)]
126 (expect (= i (.getIcon h))))))
127
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
128 (describe hl-shade
239c7c1e »
2011-11-13 shade highlighter
129 (it "returns a function that creates a highlighter with always predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
130 (let [f (hl-shade)
239c7c1e »
2011-11-13 shade highlighter
131 h1 (f) ]
132 (expect (instance? org.jdesktop.swingx.decorator.ShadingColorHighlighter h1))
133 (expect (= (p-built-in :always) (.getHighlightPredicate h1)))))
134
135 (it "returns a function that creates a highlight with given predicate"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
136 (let [f (hl-shade)
239c7c1e »
2011-11-13 shade highlighter
137 h1 (f :never) ]
138 (expect (instance? org.jdesktop.swingx.decorator.ShadingColorHighlighter h1))
139 (expect (= (p-built-in :never) (.getHighlightPredicate h1))))))
140
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
141 (describe hl-simple-striping
cd22c0dc »
2011-11-15 simple striping highlighter
142 (it "returns an simple striping"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
143 (let [h (hl-simple-striping)]
cd22c0dc »
2011-11-15 simple striping highlighter
144 (expect (instance? org.jdesktop.swingx.decorator.Highlighter h))))
145 (it "returns an simple striping with color"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
146 (let [h (hl-simple-striping :background :red)]
cd22c0dc »
2011-11-15 simple striping highlighter
147 (expect (instance? org.jdesktop.swingx.decorator.Highlighter h))))
148 (it "returns an simple striping with lines-per-stripe"
48ba3f49 »
2011-11-16 Highlighter functions prefixed with hl- instead of just h-.
149 (let [h (hl-simple-striping :lines-per-stripe 6)]
cd22c0dc »
2011-11-15 simple striping highlighter
150 (expect (instance? org.jdesktop.swingx.decorator.Highlighter h)))))
151
e8e8a876 »
2011-11-15 Abstraction for things that can have highlighters
152 (defmacro verify-highlighter-host [widget]
153 `(let [w# ~widget
154 hl# (org.jdesktop.swingx.decorator.HighlighterFactory/createSimpleStriping)]
155 (set-highlighters w# [hl#])
156 (expect (= [hl#] (get-highlighters w#)))
157 (set-highlighters w# [])
158 (expect (= nil (get-highlighters w#)))
159 (add-highlighter w# hl#)
160 (expect (= [hl#] (get-highlighters w#)))
161 (remove-highlighter w# hl#)
162 (expect (= nil (get-highlighters w#)))
163 (core/config! w# :highlighters [hl#])
164 (expect (= [hl#] (core/config w# :highlighters)))
165 true))
166
3f0e8726 »
2011-11-16 JXButton and painters.
167 (describe button-x
168 (it "creates a JXButton"
169 (instance? org.jdesktop.swingx.JXButton (button-x)))
170 (it "can set text"
171 (= "HI" (core/text (button-x :text "HI"))))
172 (it "can set painters"
173 (let [p (org.jdesktop.swingx.painter.BusyPainter.)]
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
174 (expect (= p (core/config
175 (button-x :background-painter p)
3f0e8726 »
2011-11-16 JXButton and painters.
176 :background-painter)))
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
177 (expect (= p (core/config
178 (button-x :foreground-painter p)
3f0e8726 »
2011-11-16 JXButton and painters.
179 :foreground-painter))))))
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
180 (describe label-x
92bb6094 »
2011-11-09 Implemented xlabel
181 (it "creates a JXLabel"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
182 (instance? org.jdesktop.swingx.JXLabel (label-x)))
92bb6094 »
2011-11-09 Implemented xlabel
183 (it "can set text"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
184 (= "HI" (core/text (label-x :text "HI"))))
92bb6094 »
2011-11-09 Implemented xlabel
185 (it "does not wrap lines by default"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
186 (not (core/config (label-x :text "HI") :wrap-lines?)))
92bb6094 »
2011-11-09 Implemented xlabel
187 (it "can set wrap-lines? option"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
188 (core/config (label-x :wrap-lines? true) :wrap-lines?))
92bb6094 »
2011-11-09 Implemented xlabel
189 (it "can set rotation option"
3f0e8726 »
2011-11-16 JXButton and painters.
190 (= (Math/toRadians 60.0) (core/config (label-x :text-rotation (Math/toRadians 60.0)) :text-rotation)))
191 (it "can set painters"
192 (let [p (org.jdesktop.swingx.painter.BusyPainter.)]
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
193 (expect (= p (core/config
194 (label-x :background-painter p)
3f0e8726 »
2011-11-16 JXButton and painters.
195 :background-painter)))
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
196 (expect (= p (core/config
197 (label-x :foreground-painter p)
3f0e8726 »
2011-11-16 JXButton and painters.
198 :foreground-painter))))))
92bb6094 »
2011-11-09 Implemented xlabel
199
bd03f08f »
2011-11-09 Implemented busy-label
200 (describe busy-label
201 (it "creates a JXBusyLabel"
202 (instance? org.jdesktop.swingx.JXBusyLabel (busy-label)))
203 (it ":busy? defaults to false"
204 (not (core/config (busy-label) :busy?)))
205 (it "can set :busy?"
206 (core/config (busy-label :busy? true) :busy?))
207 (it "can set the text of the label"
208 (= "Processing" (core/text (busy-label :text "Processing")))))
209
d012f1b5 »
2012-02-27 disable hyperlink tests with desktop integration isn't available, e.g…
210 ; hyperlink gets grouchy when run on travis with no desktop.
211 (when (java.awt.Desktop/isDesktopSupported)
212 (describe hyperlink
213 (it "creates a JXHyperlink with a URI"
214 (let [hl (hyperlink :uri (java.net.URI. "http://google.com"))]
215 (expect (instance? org.jdesktop.swingx.JXHyperlink hl))))
216 (it "creates a JXHyperlink with a string URI"
217 (let [hl (hyperlink :uri "http://google.com")]
218 (expect (instance? org.jdesktop.swingx.JXHyperlink hl))))))
9eb4739f »
2011-11-09 Implemented seesaw.swingx/hyperlink.
219
16a0c237 »
2011-11-09 Implemented task-pane and task-pane-container
220 (describe task-pane
221 (it "creates a JXTaskPane with a title and icon"
222 (let [i (icon/icon (graphics/buffered-image 16 16))
223 tp (task-pane :title "HI" :icon i)]
224 (expect (instance? org.jdesktop.swingx.JXTaskPane tp))
225 (expect (= "HI" (core/config tp :title)))
226 (expect (= i (core/config tp :icon)))))
227 (it "create a JXTaskPane with actions"
228 (let [a (core/action :name "A")
229 b (core/action :name "B")
230 tp (task-pane :actions [a b] )]
231 (expect (= 2 (.getComponentCount (.getContentPane tp)))))))
232
233 (describe task-pane-container
234 (it "creates a JXTaskPaneContainer with some items"
235 (let [tpc (task-pane-container)]
236 (expect (instance? org.jdesktop.swingx.JXTaskPaneContainer tpc)))))
237
309842fd »
2011-11-10 Implemented SwingX color-selection-button. Since selection is changed…
238 (describe color-selection-button
239 (it "creates a JXColorSelectionButton"
240 (instance? org.jdesktop.swingx.JXColorSelectionButton (color-selection-button)))
241 (it "can set the initial color"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
242 (expect (= java.awt.Color/RED
243 (core/config
309842fd »
2011-11-10 Implemented SwingX color-selection-button. Since selection is changed…
244 (color-selection-button :selection java.awt.Color/RED)
245 :selection))))
246 (it "can retrieve the current selection with (seesaw.core/selection)"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
247 (expect (= java.awt.Color/RED
248 (core/selection
309842fd »
2011-11-10 Implemented SwingX color-selection-button. Since selection is changed…
249 (color-selection-button :selection java.awt.Color/RED)))))
250 (it "can set the current selection with (seesaw.core/selection!)"
251 (let [csb (color-selection-button)]
252 (core/selection! csb java.awt.Color/BLACK)
253 (expect (= java.awt.Color/BLACK (core/selection csb)))))
254 (it "fires :selection event when selection changes"
255 (let [called (atom nil)
256 csb (color-selection-button :listen [:selection (fn [e] (reset! called e))])]
257 (core/selection! csb java.awt.Color/YELLOW)
258 (expect @called)
3de9d746 »
2011-11-11 Added a helper for listening to property change events. Added test to…
259 (expect (= csb (core/to-widget @called)))))
260 (it "can remove selection event listener"
261 (let [called (atom nil)
262 csb (color-selection-button)
263 remove-fn (core/listen csb :selection (fn [e] (reset! called e)))]
264 (remove-fn)
265 (core/selection! csb java.awt.Color/YELLOW)
266 (expect (nil? @called)))))
309842fd »
2011-11-10 Implemented SwingX color-selection-button. Since selection is changed…
267
1360fca5 »
2011-11-11 JXHeader support
268 (describe header
269 (it "creates a JXHeader"
270 (instance? org.jdesktop.swingx.JXHeader (header)))
271 (it "can set a title"
272 (= "The title" (core/config (header :title "The title") :title)))
273 (it "can set a description"
274 (= "The description" (core/config (header :description "The description") :description)))
275 (it "can set an icon"
276 (let [i (icon/icon (graphics/buffered-image 16 16))
277 h (header :icon i)]
278 (expect (= i (core/config h :icon))))))
279
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
280 (describe listbox-x
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
281 (it "creates a JXList"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
282 (instance? org.jdesktop.swingx.JXList (listbox-x)))
9cad4cc5 »
2011-11-13 Enable rollover on xlistbox.
283 (it "creates a JXList with rollover enabled"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
284 (.isRolloverEnabled (listbox-x)))
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
285 (it "creates a JXList with a default model"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
286 (let [lb (listbox-x :model [1 2 3])]
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
287 (expect (= 3 (.getSize (core/config lb :model))))))
288 (it "takes a comparator to auto-sort the view"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
289 (let [lb (listbox-x :sort-with < :model [2 1 3 0])]
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
290 (expect (= 3 (.convertIndexToModel lb 0)))))
291 (it "does not sort by default"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
292 (let [lb (listbox-x :model [2 1 3 0])]
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
293 (expect (= 0 (.convertIndexToModel lb 0)))))
294 (it "can set the sort order"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
295 (let [lb (listbox-x :sort-order :ascending)]
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
296 (expect (= javax.swing.SortOrder/ASCENDING (.getSortOrder lb)))
297 (core/config! lb :sort-order :descending)
298 (expect (= javax.swing.SortOrder/DESCENDING (.getSortOrder lb)))))
299 (it "can get the selection when sorted"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
300 (let [lb (listbox-x :sort-with < :model [2 1 3 0])]
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
301 (core/selection! lb 2)
e8e8a876 »
2011-11-15 Abstraction for things that can have highlighters
302 (expect (= 2 (core/selection lb)))))
303 (it "is a highlighter host"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
304 (verify-highlighter-host (listbox-x))))
5e884a6b »
2011-11-12 Implemented xlistbox. Had to extend the selection system a bit to avo…
305
24569be6 »
2011-11-13 Implemented titled-panel.
306 (describe titled-panel
307 (it "creates a JXTitledPanel"
308 (instance? org.jdesktop.swingx.JXTitledPanel (titled-panel)))
309 (it "sets the :title of the panel"
310 (= "HI" (.getTitle (titled-panel :title "HI"))))
311 (it "sets the :title-color of the panel"
312 (= java.awt.Color/RED (.getTitleForeground (titled-panel :title-color :red))))
313 (it "sets the :content of the panel"
314 (let [c (core/label "HI")
315 tp (titled-panel :content c)]
316 (expect (= c (.getContentContainer tp)))))
3a75b22e »
2011-12-03 Fixed widget conversion on titled-panel content.
317 (it "passes :content through make-widget"
318 (let [tp (titled-panel :content "HI")]
319 (expect (instance? javax.swing.JLabel (.getContentContainer tp)))))
24569be6 »
2011-11-13 Implemented titled-panel.
320 (it "sets the left and right decorations of the panel"
321 (let [left (core/label "HI")
322 right (core/button :text "BYE")
323 tp (titled-panel :left-decoration left :right-decoration right)]
324 (expect (= left (.getLeftDecoration tp)))
325 (expect (= right (.getRightDecoration tp))))))
326
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
327 (describe tree-x
e62d8ece »
2011-11-13 implemented xtree
328 (it "creates a JXTree"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
329 (instance? org.jdesktop.swingx.JXTree (tree-x)))
fc9d8396 »
2011-11-13 Implemented xtable
330 (it "creates a JXTree with rollover enabled"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
331 (.isRolloverEnabled (tree-x)))
e8e8a876 »
2011-11-15 Abstraction for things that can have highlighters
332 (it "is a highlighter host"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
333 (verify-highlighter-host (tree-x))))
fc9d8396 »
2011-11-13 Implemented xtable
334
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
335 (describe table-x
fc9d8396 »
2011-11-13 Implemented xtable
336 (it "creates a JTable"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
337 (instance? org.jdesktop.swingx.JXTable (table-x)))
fc9d8396 »
2011-11-13 Implemented xtable
338 (it "creates a JXTable with rollover enabled"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
339 (.isRolloverEnabled (table-x)))
fc9d8396 »
2011-11-13 Implemented xtable
340 (it "creates a JXTable with column control visible"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
341 (.isColumnControlVisible (table-x)))
fc9d8396 »
2011-11-13 Implemented xtable
342 (it "creates a sortable JXTable"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
343 (.isSortable (table-x)))
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
344 (it "can enable horizontal scrollbar"
345 (core/config (table-x :horizontal-scroll-enabled? true) :horizontal-scroll-enabled?))
fc9d8396 »
2011-11-13 Implemented xtable
346 (it "can show the column control"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
347 (not (core/config (table-x :column-control-visible? false) :column-control-visible?)))
fc9d8396 »
2011-11-13 Implemented xtable
348 (it "can set the column margin"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
349 (= 99 (core/config (table-x :column-margin 99) :column-margin)))
e8e8a876 »
2011-11-15 Abstraction for things that can have highlighters
350 (it "is a highlighter host"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
351 (verify-highlighter-host (table-x))))
e62d8ece »
2011-11-13 implemented xtree
352
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
353 (describe border-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
354 (it "creates a JXPanel with border-panel"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
355 (expect (instance? java.awt.BorderLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
356 (.getLayout (border-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
357
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
358 (describe flow-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
359 (it "creates a JXPanel with flow-panel"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
360 (expect (instance? java.awt.FlowLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
361 (.getLayout (flow-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
362
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
363 (describe horizontal-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
364 (it "creates a JXPanel with horizontal-panel"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
365 (expect (instance? javax.swing.BoxLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
366 (.getLayout (horizontal-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
367
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
368 (describe vertical-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
369 (it "creates a JXPanel with vertical-panel"
acb2f9f2 »
2012-02-08 Added :horizontal-scroll-enabled? to table-x. Added a table-x demo to…
370 (expect (instance? javax.swing.BoxLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
371 (.getLayout (vertical-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
372
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
373 (describe grid-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
374 (it "creates a JXPanel with grid-panel"
375 (expect (instance? java.awt.GridLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
376 (.getLayout (grid-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
377
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
378 (describe xyz-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
379 (it "creates a JXPanel with xyz-panel"
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
380 (expect (nil? (.getLayout (xyz-panel-x :alpha 0.5))))))
4c26b9b4 »
2011-11-15 JXPanel support
381
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
382 (describe card-panel-x
4c26b9b4 »
2011-11-15 JXPanel support
383 (it "creates a JXPanel with card-panel"
384 (expect (instance? java.awt.CardLayout
248ecc16 »
2011-11-16 Change naming from xwidget to widget-x. Cleaner.
385 (.getLayout (card-panel-x :alpha 0.5))))))
Something went wrong with that request. Please try again.