equal
deleted
inserted
replaced
617 classTableAdaptor |
617 classTableAdaptor |
618 ^ self |
618 ^ self |
619 ! |
619 ! |
620 |
620 |
621 classTableColumns |
621 classTableColumns |
622 "automatically generated by UIPainter ..." |
622 ^ self class classTableColumns |
623 |
|
624 "*** the code below creates a default model when invoked." |
|
625 "*** (which may not be the one you wanted)" |
|
626 "*** Please change as required and accept in the browser." |
|
627 |
|
628 |holder| |
|
629 |
|
630 (holder := builder bindingAt:#classTableColumns) isNil ifTrue:[ |
|
631 builder aspectAt:#classTableColumns put:(holder := ValueHolder new). |
|
632 ]. |
|
633 ^ holder. |
|
634 ! |
623 ! |
635 |
624 |
636 currentCanvasHolder |
625 currentCanvasHolder |
637 "automatically generated by UIPainter ..." |
626 "automatically generated by UIPainter ..." |
638 |
627 |
859 |
848 |
860 ! ! |
849 ! ! |
861 |
850 |
862 !ProjectBrowser methodsFor:'private - table col access'! |
851 !ProjectBrowser methodsFor:'private - table col access'! |
863 |
852 |
|
853 classFilenameFromClassInfo:cInfo |
|
854 ^ cInfo classFileName |
|
855 ! |
|
856 |
|
857 classIncludeConditionFromClassInfo:cInfo |
|
858 ^ cInfo conditionForInclusion |
|
859 ! |
|
860 |
864 classNameFromClassInfo:cInfo |
861 classNameFromClassInfo:cInfo |
865 Transcript showCR:'xxx'. |
862 ^ cInfo className |
866 self halt. |
|
867 ! ! |
863 ! ! |
868 |
864 |
869 !ProjectBrowser methodsFor:'user actions'! |
865 !ProjectBrowser methodsFor:'user actions'! |
870 |
866 |
871 itemSelected:index |
867 itemSelected:index |
985 |projectItem project classInfo l| |
981 |projectItem project classInfo l| |
986 |
982 |
987 projectItem := anItem parent. |
983 projectItem := anItem parent. |
988 project := projectItem contents. |
984 project := projectItem contents. |
989 |
985 |
990 classInfo := project classInfo. |
986 classInfo := project classInfo asOrderedCollection. |
|
987 classInfo sort:[:a :b | a className < b className]. |
|
988 |
991 l := self classList. |
989 l := self classList. |
992 l removeAll. |
990 l removeAll. |
993 l addAll:classInfo. |
991 l addAll:classInfo. |
994 self halt. |
|
995 |
992 |
996 self currentCanvasHolder value:(self class rightCanvasSpecForClassList). |
993 self currentCanvasHolder value:(self class rightCanvasSpecForClassList). |
997 ! |
994 ! |
998 |
995 |
999 showCommentOf:anItem |
996 showCommentOf:anItem |