Add a treenode example

tatut · Jan 13, 2024 · c144d66 · c144d66
1 parent 4a392c5
commit c144d66
Showing 1 changed file with 16 additions and 0 deletions.
diff --git a/src/LiveWeb-Examples/LWTreeNode.class.st b/src/LiveWeb-Examples/LWTreeNode.class.st
@@ -10,6 +10,16 @@ Class {
 	#category : #'LiveWeb-Examples'
 }
 
+{ #category : #'as yet unclassified' }
+LWTreeNode class >> exampleSimpleTree [
+ <lwExample: 'Simple tree few items'>
+ ^ self new beBranch 
+     label: 'root';
+     child: 'My Documents' do: [ :d | d beBranch; child: 'Music'; child: 'Pictures' ];
+     child: 'Secret stuff (don''t look)' do: [ :d | d beBranch; child: 'Passwords & codes' do: [ :p | p beBranch; child: 'Nuclear launch codes' ] ];
+     yourself
+]
+
 { #category : #'as yet unclassified' }
 LWTreeNode >> beBranch [ 
   leaf := false
@@ -38,6 +48,12 @@ LWTreeNode >> child: childLabel [
 	 ]
 ]
 
+{ #category : #'as yet unclassified' }
+LWTreeNode >> child: aLabel do: block [ 
+  block value: (self child: aLabel).
+  ^ self
+]
+
 { #category : #accessing }
 LWTreeNode >> children [ 
  ^ReadStream on: children