[Moose-dev] Re: RTCompositeShape - Bugs found

Hi, here somes bugs I have found on the RTCompositeShape - RTNest does not work with the RTCompositeShape | view shape element els | view := RTView new. shape := (RTVerticalCompositeShape new shape1: RTBox new; shape2: RTLabel new; yourself). element := shape elementOn: 'Container'. els := (RTEllipse new size: 10; color: (Color blue alpha: 0.5)) elementsOn: (1 to: 16). view add: element; addAll: els. element @ RTDraggable. RTNest new layout: RTGridLayout; on: element nest: els. view open - on some layouts there is a "lag" when you re-apply a layout | view shape elements | view := RTView new. shape := (RTHorizontalCompositeShape new shape1: (RTBox new width: 40; height: 30); shape2: (RTEllipse new size: 15; color: Color red); yourself). elements := shape elementsOn: (1 to: 30). view addAll: elements. RTEdge buildEdgesFromObjects: (1 to: 30) from: [ :v | v // 2 ] to: #yourself inView: view. RTHorizontalTreeLayout on: elements. view canvas addMenu: 'Layout' callback: [ RTHorizontalTreeLayout new translator: RTSmoothLayoutTranslator new; on: elements ]. view open This example does not have any sense but in my project the graph is generate dynamicly so I have to apply a layout anytime there is a new element ans this "lag" is strange - RTHorizontalAttachPoint does not work | view shape elements | view := RTView new. shape := (RTHorizontalCompositeShape new shape1: (RTBox new width: 40; height: 30); shape2: (RTEllipse new size: 15; color: Color red); yourself). elements := shape elementsOn: (1 to: 30). view addAll: elements. RTEdge buildEdgesFromObjects: (1 to: 30) from: [ :v | v // 2 ] to: #yourself using: (RTLine new attachPoint: RTHorizontalAttachPoint new; color: Color blue) inView: view. RTHorizontalTreeLayout on: elements. view canvas addMenu: 'Layout' callback: [ RTHorizontalTreeLayout new translator: RTSmoothLayoutTranslator new; on: elements ]. view open For now I have found this bugs. If I find more, I will report them here ;-) -- Cheers, Leo Perard University of Lille 1 _______________________________________________ Moose-dev mailing list Moose-dev(a)iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev