--- a/ListView.st Sat Apr 27 20:21:37 1996 +0200
+++ b/ListView.st Sat Apr 27 20:25:18 1996 +0200
@@ -166,7 +166,7 @@
anyway, here are a few examples:
basic simple setup:
-
+ [exBegin]
|top l|
top := StandardSystemView new.
@@ -176,11 +176,12 @@
l list:#('one' 'two' 'three').
top open
+ [exEnd]
specifying textMargins (these have NOTHING to do with the viewInset):
-
+ [exBegin]
|top l|
top := StandardSystemView new.
@@ -192,11 +193,12 @@
l leftMargin:20.
top open
+ [exEnd]
globally set the fg/bg colors:
-
+ [exBegin]
|top l|
top := StandardSystemView new.
@@ -208,11 +210,12 @@
l backgroundColor:(Color blue).
top open
+ [exEnd]
non-string entries:
-
+ [exBegin]
|top list l|
top := StandardSystemView new.
@@ -225,11 +228,12 @@
l list:list.
top open
+ [exEnd]
using a model (default listMessage is aspectMessage):
-
+ [exBegin]
|top model l theModelsText|
model := Plug new.
@@ -248,12 +252,13 @@
Delay waitForSeconds:3.
theModelsText := #('foo' 'bar' 'baz').
model changed:#modelsAspect.
+ [exEnd]
using a model with different aspects
for two listViews:
-
+ [exBegin]
|top model l1 l2 plainText|
plainText := #('').
@@ -283,7 +288,8 @@
Delay waitForSeconds:3.
plainText := #('foo' 'bar' 'baz').
model changed:#modelsAspect.
-
+ [exEnd]
+
"
! !
@@ -3054,5 +3060,5 @@
!ListView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.78 1996-04-26 13:55:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.79 1996-04-27 18:23:33 cg Exp $'
! !