--- a/NoteBookView.st Thu Feb 20 09:47:55 2020 +0100
+++ b/NoteBookView.st Thu Feb 20 09:52:59 2020 +0100
@@ -88,12 +88,12 @@
top := StandardSystemView extent:300@100.
tab1 := NoteBookView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.
- tab1 direction:#top.
- tab1 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab1 tabsPosition:#top.
+ tab1 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
tab2 := NoteBookView origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:top.
- tab2 direction:#bottom.
- tab2 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab2 tabsPosition:#bottom.
+ tab2 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
top open.
[exEnd]
@@ -104,12 +104,12 @@
top := StandardSystemView extent:100@300.
tab1 := NoteBookView origin:0.0 @ 0.0 corner:0.5 @ 01.0 in:top.
- tab1 direction:#left.
- tab1 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab1 tabsPosition:#left.
+ tab1 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
tab2 := NoteBookView origin:0.5 @ 0.0 corner:1.0 @ 1.0 in:top.
- tab2 direction:#right.
- tab2 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab2 tabsPosition:#right.
+ tab2 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
top open.
[exEnd]
@@ -120,13 +120,13 @@
top := StandardSystemView extent:300@100.
tab1 := NoteBookView origin:0.0 @ 0.0 corner:1.0 @ 0.5 in:top.
tab1 addTabAction:[ self halt ].
- tab1 direction:#top.
- tab1 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab1 tabsPosition:#top.
+ tab1 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
tab2 := NoteBookView origin:0.0 @ 0.5 corner:1.0 @ 1.0 in:top.
tab2 addTabAction:[ self halt ].
- tab2 direction:#bottom.
- tab2 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab2 tabsPosition:#bottom.
+ tab2 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
top open.
[exEnd]
@@ -137,13 +137,13 @@
top := StandardSystemView extent:100@300.
tab1 := NoteBookView origin:0.0 @ 0.0 corner:0.5 @ 01.0 in:top.
tab1 addTabAction:[ self halt ].
- tab1 direction:#left.
- tab1 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab1 tabsPosition:#left.
+ tab1 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
tab2 := NoteBookView origin:0.5 @ 0.0 corner:1.0 @ 1.0 in:top.
tab2 addTabAction:[ self halt ].
- tab2 direction:#right.
- tab2 list:#( 'Foo' 'Bagr' 'Baz' 'Bgar' 'Baqz' ).
+ tab2 tabsPosition:#right.
+ tab2 list:#( 'Foo' 'Bar' 'Baz' 'Bla' 'BlaBla' ).
top open.
[exEnd]