15 Dec
2009
15 Dec
'09
6:15 p.m.
Sotty, I forgot to detail that I already tried that variant. It does
not make a difference :-(
On 15 Dec 2009, at 13:54, Simon Denier wrote:
Please try something like:
browser sendToOutside: #selCheight from: #cheight->#selection.
but normally your version should work
On 15 déc. 2009, at 15:36, Johan Fabry wrote:
--
Johan Fabry
jfabry(a)dcc.uchile.cl - http://dcc.uchile.cl/~jfabry
PLEIAD Lab - Computer Science Department (DCC) - University of Chile
Hi Doru,
below is the code, thanks!
propertiesSelector2
| browser mprops cprops aprops |
cprops := {'Classes LOC'. 'Num Methods'. 'Num Attributes' .
'Num
JoinPoints' . 'Num Aspects'}.
aprops := {'Aspects LOC' . 'Num Pointcuts' . 'Num Advice' .
'Num
JoinPoints'}.
mprops := {'Methods LOC' . 'Num JoinPoints' . 'Num Aspects'}.
browser := GLMTabulator new.
browser column: [: c | c row: #cheight; row: #aheight; row:
#mheight];
column: [: c | c row: #cwidth; row: #awidth; row: #mwidth].
browser showOn: #cheight; using: [
browser tree title: 'Classes Height'; display: cprops.].
browser showOn: #cwidth; using: [
browser tree title: 'Classes Width'; display: cprops].
browser showOn: #aheight; using: [
browser tree title: 'Aspects Height'; display: aprops.].
browser showOn: #awidth; using: [
browser tree title: 'Aspects Width'; display: aprops.].
browser showOn: #mheight; using: [
browser tree title: 'Methods Height'; display: mprops.].
browser showOn: #mwidth; using: [
browser tree title: 'Methods Width'; display: mprops.].
browser sendToOutside: #selCheight from: #cheight.
browser sendToOutside: #selCwidth from: #cwidth.
browser sendToOutside: #selAheight from: #aheight.
browser sendToOutside: #selAwidth from: #awidth.
browser sendToOutside: #selMheight from: #mheight.
browser sendToOutside: #selMwidth from: #mwidth.
^ browser