equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 2000 by eXept Software AG |
2 COPYRIGHT (c) 2000 by eXept Software AG |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
846 label := (label , ' ' , (type displayString withColor: Color brown)) |
844 label := (label , ' ' , (type displayString withColor: Color brown)) |
847 ] ifFalse:[ |
845 ] ifFalse:[ |
848 "/ Hack for Java classes to display field type |
846 "/ Hack for Java classes to display field type |
849 class theNonMetaclass isJavaClass ifTrue:[ |
847 class theNonMetaclass isJavaClass ifTrue:[ |
850 | field | |
848 | field | |
851 field := class theNonMetaclass lookupFieldFor:name static: (class isMetaclass) onlyPublic: false. |
849 field := class theNonMetaclass lookupFieldFor:name static: (class isMetaclass). |
852 field notNil ifTrue:[ |
850 field notNil ifTrue:[ |
853 label := label asText , |
851 label := label asText , |
854 ' ' , |
852 ' ' , |
855 (('< ' , (JavaMethod fieldTypeFromStream: (field descriptor readStream) in: class theNonMetaclass javaPackage) , ' >') |
853 (('< ' , (JavaMethod fieldTypeFromStream: (field descriptor readStream) in: class theNonMetaclass javaPackage) , ' >') |
856 withColor: Color brown). |
854 withColor: Color brown). |
859 ]. |
857 ]. |
860 ]. |
858 ]. |
861 ^label |
859 ^label |
862 |
860 |
863 "Created: / 16-12-2011 / 00:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
861 "Created: / 16-12-2011 / 00:54:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
864 "Modified: / 07-10-2013 / 08:29:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
862 "Modified: / 29-07-2016 / 21:29:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
865 ! |
863 ! |
866 |
864 |
867 labelWithClass |
865 labelWithClass |
868 |l| |
866 |l| |
869 |
867 |
941 |
939 |
942 !VariableList class methodsFor:'documentation'! |
940 !VariableList class methodsFor:'documentation'! |
943 |
941 |
944 version_CVS |
942 version_CVS |
945 ^ '$Header$' |
943 ^ '$Header$' |
946 ! ! |
944 ! |
947 |
945 |
|
946 version_HG |
|
947 |
|
948 ^ '$Changeset: <not expanded> $' |
|
949 ! ! |
|
950 |