Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

- added accordion panel test

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

0 comments on commit e17d04e

Please sign in to comment.
Something went wrong with that request. Please try again.