| changeset 1934 | f10eff0533d0 |
| parent 1918 | 9beb5abaa3a5 |
| child 1936 | 1698a6c2a38f |
| 1933:ee09e254fe18 | 1934:f10eff0533d0 |
|---|---|
11953 ! |
11953 ! |
11954 |
11954 |
11955 varInspect |
11955 varInspect |
11956 "open an inspector on the value of a classVar / classInstVar" |
11956 "open an inspector on the value of a classVar / classInstVar" |
11957 |
11957 |
11958 |name searchClass | |
11958 |name searchClass dict| |
11959 |
11959 |
11960 name := variableListView selectionValue. |
11960 name := variableListView selectionValue. |
11961 name isNil ifTrue:[^ self]. |
11961 name isNil ifTrue:[^ self]. |
11962 |
11962 |
11963 (classInstVarsInVarList) ifFalse:[ |
11963 showInstance ifTrue:[ |
11964 searchClass := currentClass whichClassDefinesClassVar:name. |
11964 "/ inspect an instVar |
11965 (searchClass classVarAt:(name asSymbol)) inspect |
11965 "/ create a dictionary of all instances with their current value there |
11966 ] ifTrue:[ |
11966 dict := IdentityDictionary new. |
11967 (currentClass instVarNamed:name) inspect. |
11967 currentClass allInstancesDo:[:i | |
11968 ]. |
11968 dict at:i put:(i instVarNamed:name). |
11969 |
11969 ]. |
11970 "Modified: / 16.6.1998 / 09:42:40 / cg" |
11970 dict inspect |
11971 ] ifFalse:[ |
|
11972 (classInstVarsInVarList) ifFalse:[ |
|
11973 "/ inspect a classVar |
|
11974 searchClass := currentClass whichClassDefinesClassVar:name. |
|
11975 (searchClass classVarAt:(name asSymbol)) inspect |
|
11976 ] ifTrue:[ |
|
11977 "/ inspect a classInstVar |
|
11978 (currentClass instVarNamed:name) inspect. |
|
11979 ]. |
|
11980 ]. |
|
11981 |
|
11982 "Modified: / 15.10.1998 / 10:54:03 / cg" |
|
11971 ! |
11983 ! |
11972 |
11984 |
11973 varRefsOrModsTitle:title access:accessor mods:mods |
11985 varRefsOrModsTitle:title access:accessor mods:mods |
11974 "show an enterbox for instvar to search for" |
11986 "show an enterbox for instvar to search for" |
11975 |
11987 |
12173 ('-' ) |
12185 ('-' ) |
12174 ('type information' varTypeInfo) |
12186 ('type information' varTypeInfo) |
12175 ). |
12187 ). |
12176 ]. |
12188 ]. |
12177 |
12189 |
12178 (showInstance not and:[variableListView hasSelection]) ifTrue:[ |
12190 ("showInstance not and:["variableListView hasSelection"]") ifTrue:[ |
12179 items := items , #( |
12191 items := items , #( |
12180 ('inspect' varInspect) |
12192 ('inspect' varInspect) |
12181 ). |
12193 ). |
12182 ]. |
12194 ]. |
12183 |
12195 |
12193 currentClass isLoaded ifFalse:[ |
12205 currentClass isLoaded ifFalse:[ |
12194 m disableAll |
12206 m disableAll |
12195 ]. |
12207 ]. |
12196 ^ m |
12208 ^ m |
12197 |
12209 |
12198 "Modified: / 7.8.1998 / 17:14:48 / cg" |
12210 "Modified: / 15.10.1998 / 10:51:17 / cg" |
12199 ! |
12211 ! |
12200 |
12212 |
12201 variableSelection:lineNr |
12213 variableSelection:lineNr |
12202 "variable selection changed" |
12214 "variable selection changed" |
12203 |
12215 |
12541 ! ! |
12553 ! ! |
12542 |
12554 |
12543 !BrowserView class methodsFor:'documentation'! |
12555 !BrowserView class methodsFor:'documentation'! |
12544 |
12556 |
12545 version |
12557 version |
12546 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.455 1998-10-09 14:15:46 cg Exp $' |
12558 ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.456 1998-10-15 13:00:38 cg Exp $' |
12547 ! ! |
12559 ! ! |
12548 BrowserView initialize! |
12560 BrowserView initialize! |