--- 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 $'
! !