# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1393967965 -3600
# Node ID 54014cb9809216a5fa937fc8d1f066ba9485c104
# Parent  f561de4b2087cb5338b7af5ceba09a5fe2ebba4e
class: PPDrabBrowser
comment/format in: #browseDynamicOn:

diff -r f561de4b2087 -r 54014cb98092 gui/PPDrabBrowser.st
--- a/gui/PPDrabBrowser.st	Tue Mar 04 22:18:39 2014 +0100
+++ b/gui/PPDrabBrowser.st	Tue Mar 04 22:19:25 2014 +0100
@@ -106,27 +106,27 @@
 !
 
 browseDynamicOn: aBrowser
-	| tabulator |
-	aBrowser useExplicitNotNil.
-	
-	tabulator := aBrowser tabulator.
-	tabulator
-		title: 'Dynamic';
-		useExplicitNotNil;
-		row: #input; row: #output.
-	tabulator transmit
-		to: #input;
-		andShow: [ :a | self browseInputOn: a ].
-	tabulator transmit
-		to: #output;
-		from: #input;
-		andShow: [ :a | self browseOutputOn: a ].
-		
-	tabulator transmit
-		from: #output;
-		to: #input->#selectionInterval;
-		when: [ :selection | selection notNil ];
-		transformed: [ :selection | selection second to: selection third ]
+        | tabulator |
+        aBrowser useExplicitNotNil.
+        
+        tabulator := aBrowser tabulator.
+        tabulator
+                title: 'Dynamic';
+                useExplicitNotNil;
+                row: #input; row: #output.
+        tabulator transmit
+                to: #input;
+                andShow: [ :a | self browseInputOn: a ].
+        tabulator transmit
+                to: #output;
+                from: #input;
+                andShow: [ :a | self browseOutputOn: a ].
+                
+        tabulator transmit
+                from: #output;
+                to: #input -> #selectionInterval;
+                when: [ :selection | selection notNil ];
+                transformed: [ :selection | selection second to: selection third ]
 !
 
 browseOn: aComposite
@@ -374,10 +374,10 @@
 !PPDrabBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.1 2014-03-04 21:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.2 2014-03-04 21:19:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.1 2014-03-04 21:14:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.2 2014-03-04 21:19:25 cg Exp $'
 ! !