Permalink
Browse files

- added accordion panel test

- minor comment clean up of some tests
  • Loading branch information...
1 parent 9eafa06 commit e17d04ee9314fc6fce2a28bb6a9797189f47dd56 @henrikmk committed Aug 23, 2011
Showing with 43 additions and 6 deletions.
  1. +0 −3 tests/balancers/balancer.r
  2. +1 −2 tests/draw/draw-body.r
  3. +42 −0 tests/panels/accordion-panel.r
  4. +0 −1 tests/popup/popup.r
@@ -22,9 +22,6 @@ REBOL [
]
do %../../build/include.r
-;do %../../../eat.r
-
-;eat/forever [offset move]
clear ctx-vid-debug/debug
View
@@ -15,7 +15,7 @@ REBOL [
Use at your own risk.
}
Purpose: {
- Test the DRAW-BODY context with a derivative BUTTON
+ Test the DRAW-BODY context
}
History: []
Keywords: []
@@ -37,7 +37,6 @@ m: make-window [
; [ ] - scroller does not clamp, after resizing, when it's scrolled to the end
; [ ] - scroller does not allow clamping, when clicked
; [ ] - scroller does not resize down after resizing up, when it has been scrolled to the end
- ; [ ] - so when you scroll to the end, you need to do things to get it going
]
view m
@@ -0,0 +1,42 @@
+REBOL [
+ Title: "Accordion Panel Test"
+ Short: "Accordion Panel Test"
+ Author: ["Henrik Mikael Kristensen"]
+ Copyright: "2011 - HMK Design"
+ Filename: %fold-panel.r
+ Version: 0.0.1
+ Type: 'script
+ Maturity: 'unstable
+ Release: 'internal
+ Created: 06-Jun-2011
+ Date: 06-Jun-2011
+ License: {
+ BSD (www.opensource.org/licenses/bsd-license.php)
+ Use at your own risk.
+ }
+ Purpose: {
+ Test basic ACCORDION.
+ }
+ History: []
+ Keywords: []
+]
+
+do %../../build/include.r
+
+clear ctx-vid-debug/debug
+
+view make-window [
+ h3 "ACCORDION Panel"
+ bar
+ a: accordion 300x300 setup [
+ page1 "Page 1" [
+ field
+ ]
+ page2 "Page 2" [
+ button
+ ]
+ page3 "Page 3" [ ; this panel does not resize or show properly
+ image help.gif
+ ]
+ ]
+]
View
@@ -28,6 +28,5 @@ insert insert insert clear ctx-vid-debug/debug 'face 'resize 'align
view make-window [
h3 "Popup Face Test"
bar 300
- ; produce face outside this window
button on-click [show-menu-face face [data-list 200x200 data [1 2 3]]]
]

0 comments on commit e17d04e

Please sign in to comment.