equal
deleted
inserted
replaced
104 self selectedClass browse ] |
104 self selectedClass browse ] |
105 on: $b entitled: 'Browse (b)' |
105 on: $b entitled: 'Browse (b)' |
106 ! |
106 ! |
107 |
107 |
108 browseDynamicOn: aBrowser |
108 browseDynamicOn: aBrowser |
109 | tabulator | |
109 | tabulator | |
110 aBrowser useExplicitNotNil. |
110 aBrowser useExplicitNotNil. |
111 |
111 |
112 tabulator := aBrowser tabulator. |
112 tabulator := aBrowser tabulator. |
113 tabulator |
113 tabulator |
114 title: 'Dynamic'; |
114 title: 'Dynamic'; |
115 useExplicitNotNil; |
115 useExplicitNotNil; |
116 row: #input; row: #output. |
116 row: #input; row: #output. |
117 tabulator transmit |
117 tabulator transmit |
118 to: #input; |
118 to: #input; |
119 andShow: [ :a | self browseInputOn: a ]. |
119 andShow: [ :a | self browseInputOn: a ]. |
120 tabulator transmit |
120 tabulator transmit |
121 to: #output; |
121 to: #output; |
122 from: #input; |
122 from: #input; |
123 andShow: [ :a | self browseOutputOn: a ]. |
123 andShow: [ :a | self browseOutputOn: a ]. |
124 |
124 |
125 tabulator transmit |
125 tabulator transmit |
126 from: #output; |
126 from: #output; |
127 to: #input->#selectionInterval; |
127 to: #input -> #selectionInterval; |
128 when: [ :selection | selection notNil ]; |
128 when: [ :selection | selection notNil ]; |
129 transformed: [ :selection | selection second to: selection third ] |
129 transformed: [ :selection | selection second to: selection third ] |
130 ! |
130 ! |
131 |
131 |
132 browseOn: aComposite |
132 browseOn: aComposite |
133 aComposite title: PPBrowser label; color: Color yellow muchDarker. |
133 aComposite title: PPBrowser label; color: Color yellow muchDarker. |
134 aComposite row: [ :row | row column: #class; column: #selector ]. |
134 aComposite row: [ :row | row column: #class; column: #selector ]. |
372 ! ! |
372 ! ! |
373 |
373 |
374 !PPDrabBrowser class methodsFor:'documentation'! |
374 !PPDrabBrowser class methodsFor:'documentation'! |
375 |
375 |
376 version |
376 version |
377 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.1 2014-03-04 21:14:22 cg Exp $' |
377 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.2 2014-03-04 21:19:25 cg Exp $' |
378 ! |
378 ! |
379 |
379 |
380 version_CVS |
380 version_CVS |
381 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.1 2014-03-04 21:14:22 cg Exp $' |
381 ^ '$Header: /cvs/stx/stx/goodies/petitparser/gui/PPDrabBrowser.st,v 1.2 2014-03-04 21:19:25 cg Exp $' |
382 ! ! |
382 ! ! |
383 |
383 |