equal
deleted
inserted
replaced
522 "Return a description of exported aspects; |
522 "Return a description of exported aspects; |
523 these can be connected to aspects of an embedding application |
523 these can be connected to aspects of an embedding application |
524 (if this app is embedded in a subCanvas)." |
524 (if this app is embedded in a subCanvas)." |
525 |
525 |
526 ^ #( |
526 ^ #( |
|
527 environmentHolder |
527 #packageFilter |
528 #packageFilter |
528 #profilerStatistics |
529 #profilerStatistics |
529 #selectedMethods |
530 #selectedMethods |
530 ). |
531 ). |
531 |
532 |
532 "Modified: / 01-12-2007 / 23:57:41 / janfrog" |
533 "Modified: / 01-12-2007 / 23:57:41 / janfrog" |
|
534 "Modified: / 24-02-2014 / 10:37:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
533 ! ! |
535 ! ! |
534 |
536 |
535 !VisualProfilerCanvas class methodsFor:'tableColumns specs'! |
537 !VisualProfilerCanvas class methodsFor:'tableColumns specs'! |
536 |
538 |
537 methodListColumns |
539 methodListColumns |
589 ! ! |
591 ! ! |
590 |
592 |
591 !VisualProfilerCanvas methodsFor:'aspects'! |
593 !VisualProfilerCanvas methodsFor:'aspects'! |
592 |
594 |
593 callTreeHolder |
595 callTreeHolder |
594 "automatically generated by UIPainter ..." |
|
595 |
|
596 "*** the code below creates a default model when invoked." |
|
597 "*** (which may not be the one you wanted)" |
|
598 "*** Please change as required and accept it in the browser." |
|
599 "*** (and replace this comment by something more useful ;-)" |
|
600 |
|
601 callTreeHolder isNil ifTrue:[ |
596 callTreeHolder isNil ifTrue:[ |
602 callTreeHolder := HierarchicalList new. |
597 callTreeHolder := HierarchicalList new. |
603 callTreeHolder application: self. |
598 callTreeHolder application: self. |
604 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
605 "/ callTreeHolder addDependent:self. |
|
606 "/ callTreeHolder onChangeSend:#callTreeHolderChanged to:self. |
|
607 ]. |
599 ]. |
608 ^ callTreeHolder. |
600 ^ callTreeHolder. |
609 |
601 |
610 "Created: / 10-10-2007 / 08:34:26 / janfrog" |
602 "Created: / 10-10-2007 / 08:34:26 / janfrog" |
611 "Modified: / 10-10-2007 / 12:48:20 / janfrog" |
603 "Modified: / 10-10-2007 / 12:48:20 / janfrog" |
677 |
669 |
678 "Created: / 10-10-2007 / 10:10:07 / janfrog" |
670 "Created: / 10-10-2007 / 10:10:07 / janfrog" |
679 ! |
671 ! |
680 |
672 |
681 perspectiveSpecHolder |
673 perspectiveSpecHolder |
682 "automatically generated by UIPainter ..." |
|
683 |
|
684 "*** the code below creates a default model when invoked." |
|
685 "*** (which may not be the one you wanted)" |
|
686 "*** Please change as required and accept it in the browser." |
|
687 "*** (and replace this comment by something more useful ;-)" |
|
688 |
|
689 perspectiveSpecHolder isNil ifTrue:[ |
674 perspectiveSpecHolder isNil ifTrue:[ |
690 perspectiveSpecHolder := #callTreeSpec asValue. |
675 perspectiveSpecHolder := #callTreeSpec asValue. |
691 "/ if your app needs to be notified of changes, uncomment one of the lines below: |
|
692 "/ perspectiveSpecHolder addDependent:self. |
|
693 "/ perspectiveSpecHolder onChangeSend:#perspectiveSpecHolderChanged to:self. |
|
694 ]. |
676 ]. |
695 ^ perspectiveSpecHolder. |
677 ^ perspectiveSpecHolder. |
696 |
678 |
697 "Created: / 10-10-2007 / 08:31:35 / janfrog" |
679 "Created: / 10-10-2007 / 08:31:35 / janfrog" |
698 ! |
680 ! |
718 "Created: / 09-10-2007 / 21:53:38 / janfrog" |
700 "Created: / 09-10-2007 / 21:53:38 / janfrog" |
719 "Modified: / 10-10-2007 / 08:46:46 / janfrog" |
701 "Modified: / 10-10-2007 / 08:46:46 / janfrog" |
720 ! |
702 ! |
721 |
703 |
722 selectedCallTreeItemHolder |
704 selectedCallTreeItemHolder |
723 "automatically generated by UIPainter ..." |
|
724 |
|
725 "*** the code below creates a default model when invoked." |
|
726 "*** (which may not be the one you wanted)" |
|
727 "*** Please change as required and accept it in the browser." |
|
728 "*** (and replace this comment by something more useful ;-)" |
|
729 |
|
730 selectedCallTreeItemHolder isNil ifTrue:[ |
705 selectedCallTreeItemHolder isNil ifTrue:[ |
731 selectedCallTreeItemHolder := ValueHolder new. |
706 selectedCallTreeItemHolder := ValueHolder new. |
732 selectedCallTreeItemHolder onChangeSend:#selectedCallTreeItemChanged to:self. |
707 selectedCallTreeItemHolder onChangeSend:#selectedCallTreeItemChanged to:self. |
733 ]. |
708 ]. |
734 ^ selectedCallTreeItemHolder. |
709 ^ selectedCallTreeItemHolder. |
906 ! ! |
881 ! ! |
907 |
882 |
908 !VisualProfilerCanvas::CallTreeItem class methodsFor:'documentation'! |
883 !VisualProfilerCanvas::CallTreeItem class methodsFor:'documentation'! |
909 |
884 |
910 version |
885 version |
911 ^'$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $' |
886 ^'$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.10 2014-11-10 22:34:53 cg Exp $' |
912 ! ! |
887 ! ! |
913 |
888 |
914 !VisualProfilerCanvas::CallTreeItem class methodsFor:'instance creation'! |
889 !VisualProfilerCanvas::CallTreeItem class methodsFor:'instance creation'! |
915 |
890 |
916 subject: subject parent: parent |
891 subject: subject parent: parent |
1074 mergeChildren: rawChildren |
1049 mergeChildren: rawChildren |
1075 |
1050 |
1076 |mergedChildren| |
1051 |mergedChildren| |
1077 |
1052 |
1078 mergedChildren := OrderedCollection new. |
1053 mergedChildren := OrderedCollection new. |
1079 [rawChildren isEmpty] whileFalse: |
1054 [rawChildren isEmpty] whileFalse:[ |
1080 [|childToMerge childrenToMerge| |
1055 | childToMerge childrenToMerge | |
|
1056 |
1081 childToMerge := mergedChildren add:(rawChildren removeFirst). |
1057 childToMerge := mergedChildren add:(rawChildren removeFirst). |
1082 childrenToMerge := rawChildren select:[:e|e shouldBeMergedWith:childToMerge]. |
1058 childrenToMerge := rawChildren select:[:e|e shouldBeMergedWith:childToMerge] as: OrderedCollection. |
1083 rawChildren removeAll: childrenToMerge. |
1059 rawChildren removeAll: childrenToMerge. |
1084 childrenToMerge do:[:e|childToMerge subjects addAll:e subjects]. |
1060 childrenToMerge do:[:e|childToMerge subjects addAll:e subjects]. |
1085 ]. |
1061 ]. |
1086 ^mergedChildren |
1062 ^mergedChildren |
1087 |
1063 |
1088 "Created: / 24-11-2007 / 09:20:07 / janfrog" |
1064 "Created: / 24-11-2007 / 09:20:07 / janfrog" |
|
1065 "Modified: / 21-05-2014 / 15:49:42 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1089 ! ! |
1066 ! ! |
1090 |
1067 |
1091 !VisualProfilerCanvas::CallTreeItem methodsFor:'testing'! |
1068 !VisualProfilerCanvas::CallTreeItem methodsFor:'testing'! |
1092 |
1069 |
1093 isFiltered |
1070 isFiltered |
1102 ! ! |
1079 ! ! |
1103 |
1080 |
1104 !VisualProfilerCanvas class methodsFor:'documentation'! |
1081 !VisualProfilerCanvas class methodsFor:'documentation'! |
1105 |
1082 |
1106 version |
1083 version |
1107 ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $' |
1084 ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.10 2014-11-10 22:34:53 cg Exp $' |
1108 ! |
1085 ! |
1109 |
1086 |
1110 version_CVS |
1087 version_CVS |
1111 ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.7 2012-11-04 21:42:49 cg Exp $' |
1088 ^ '$Header: /cvs/stx/stx/libtool/Tools__VisualProfilerCanvas.st,v 1.10 2014-11-10 22:34:53 cg Exp $' |
1112 ! |
|
1113 |
|
1114 version_HG |
|
1115 |
|
1116 ^ '$Changeset: <not expanded> $' |
|
1117 ! |
1089 ! |
1118 |
1090 |
1119 version_SVN |
1091 version_SVN |
1120 ^ '§Id: Tools__VisualProfilerCanvas.st 7486 2009-10-26 22:06:24Z vranyj1 §' |
1092 ^ '$Id: Tools__VisualProfilerCanvas.st,v 1.10 2014-11-10 22:34:53 cg Exp $' |
1121 ! ! |
1093 ! ! |
1122 |
1094 |