--- a/ListSelectionBox.st	Fri Aug 30 10:44:04 2019 +0200
+++ b/ListSelectionBox.st	Fri Aug 30 10:46:32 2019 +0200
@@ -70,6 +70,7 @@
         |box|
 
         box := ListSelectionBox new.
+        box label:'bla bla'.
         box title:'select something:'.
         box list:#('foo' 'bar' 'baz').
         box useIndex:true.