equal
deleted
inserted
replaced
926 self canUnloadSelectedModulesPackage value:canUnloadPackage. |
926 self canUnloadSelectedModulesPackage value:canUnloadPackage. |
927 |
927 |
928 |
928 |
929 classNamesShown := self shownClassNamesFor:info. |
929 classNamesShown := self shownClassNamesFor:info. |
930 rows := classNamesShown collect:[:eachClassName | |
930 rows := classNamesShown collect:[:eachClassName | |
931 |cls entry rev listEntry revisionInfo versionString dateString| |
931 |cls entry rev binRev listEntry revisionInfo versionString dateString| |
932 |
932 |
933 listEntry := InfoRow new. |
933 listEntry := InfoRow new. |
934 listEntry name:eachClassName. |
934 listEntry name:eachClassName. |
935 |
935 |
936 cls := Smalltalk classNamed:eachClassName. |
936 cls := Smalltalk classNamed:eachClassName. |
945 ]. |
945 ]. |
946 ] ifFalse:[ |
946 ] ifFalse:[ |
947 versionString := '(class removed)'. |
947 versionString := '(class removed)'. |
948 ]. |
948 ]. |
949 ] ifFalse:[ |
949 ] ifFalse:[ |
950 rev := cls binaryRevision. |
950 binRev := cls binaryRevision. |
951 rev notNil ifTrue:[ |
951 binRev notNil ifTrue:[ |
952 cls isLoaded ifTrue:[ |
952 cls isLoaded ifTrue:[ |
953 entry :='(bin: ' , rev. |
953 entry :='(bin: ' , binRev. |
954 ] ifFalse:[ |
954 ] ifFalse:[ |
955 entry := '(stub for: ' , rev. |
955 entry := '(stub for: ' , binRev. |
956 ]. |
956 ]. |
957 cls revision ~= rev ifTrue:[ |
957 (rev := cls revision) ~= binRev ifTrue:[ |
958 entry := entry , ' / src: ' , (cls revision printString) |
958 entry := entry , ' / src: ' , (rev printString) |
959 ]. |
959 ]. |
960 entry := entry , ')'. |
960 entry := entry , ')'. |
961 versionString := entry |
961 versionString := entry |
962 ] ifFalse:[ |
962 ] ifFalse:[ |
963 cls revision notNil ifTrue:[ |
963 cls revision notNil ifTrue:[ |
977 |
977 |
978 self infoTable1ListHolder value:rows. |
978 self infoTable1ListHolder value:rows. |
979 self table1VisibleHolder value:true. |
979 self table1VisibleHolder value:true. |
980 self table2VisibleHolder value:false. |
980 self table2VisibleHolder value:false. |
981 |
981 |
982 "Modified: / 05-10-2007 / 13:03:56 / cg" |
982 "Modified: / 29-09-2011 / 15:40:42 / cg" |
983 ! |
983 ! |
984 |
984 |
985 showInfoForNonClassLib:sel |
985 showInfoForNonClassLib:sel |
986 "selected a method, cObject or unknown" |
986 "selected a method, cObject or unknown" |
987 |
987 |