v := RTView new.
cls := RTLayout withAllSubclasses.
s := RTSparkline new
width: 50; height: 30;
values: [ :cls | (cls methods collect: #numberOfLinesOfCode) sorted ].
es := s elementsOn: cls.
v addAll: es.
es @ RTPopup @ RTDraggable.
RTFlowLayout on: es.
v
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
This is still early work, but I still wanted to share it with you.
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.