--- a/BrowserView.st Thu Jan 31 21:04:45 2002 +0100
+++ b/BrowserView.st Fri Feb 01 13:09:49 2002 +0100
@@ -14493,72 +14493,72 @@
|items m|
currentClass isNil ifTrue:[
- variableListView flash.
- ^ nil
+ variableListView flash.
+ ^ nil
].
showInstance ifFalse:[
- items := #(
- ('class instvar refs...' classInstVarRefs )
- ('class instvar mods...' classInstVarMods )
- ('classvar refs...' classVarRefs )
- ('classvar mods...' classVarMods )
- ('-' nil )
- ('all class instvar refs...' allClassInstVarRefs )
- ('all class instvar mods...' allClassInstVarMods )
- ('all classvar refs...' allClassVarRefs )
- ('all classvar mods...' allClassVarMods )
- ).
+ items := #(
+ ('Class instvar refs...' classInstVarRefs )
+ ('Class instvar mods...' classInstVarMods )
+ ('Classvar refs...' classVarRefs )
+ ('Classvar mods...' classVarMods )
+ ('-' nil )
+ ('All class instvar refs...' allClassInstVarRefs )
+ ('All class instvar mods...' allClassInstVarMods )
+ ('All classvar refs...' allClassVarRefs )
+ ('All classvar mods...' allClassVarMods )
+ ).
] ifTrue:[
- items := #(
- ('instvar refs...' instVarRefs )
- ('instvar mods...' instVarMods )
- ('classvar refs...' classVarRefs )
- ('classvar mods...' classVarMods )
- ('-' nil )
- ('all instvar refs...' allInstVarRefs )
- ('all classvar refs...' allClassVarRefs )
- ('all instvar mods...' allInstVarMods )
- ('all classvar mods...' allClassVarMods )
- ).
+ items := #(
+ ('Instvar refs...' instVarRefs )
+ ('Instvar mods...' instVarMods )
+ ('Classvar refs...' classVarRefs )
+ ('Classvar mods...' classVarMods )
+ ('-' nil )
+ ('All instvar refs...' allInstVarRefs )
+ ('All classvar refs...' allClassVarRefs )
+ ('All instvar mods...' allInstVarMods )
+ ('All classvar mods...' allClassVarMods )
+ ).
].
showInstance ifFalse:[
- classInstVarsInVarList == true ifTrue:[
- items := items , #(('-') ('show classVars' showClassVars)).
- ] ifFalse:[
- items := items , #(('-') ('show classInstVars' showClassInstVars)).
- ].
+ classInstVarsInVarList == true ifTrue:[
+ items := items , #(('-') ('Show classVars' showClassVars)).
+ ] ifFalse:[
+ items := items , #(('-') ('Show classInstVars' showClassInstVars)).
+ ].
].
("showInstance and:[" variableListView hasSelection "]" ) ifTrue:[
- items := items , #(
- ('-' )
- ('type information' varTypeInfo)
- ).
+ items := items , #(
+ ('-' )
+ ('Type information' varTypeInfo)
+ ).
].
("showInstance not and:["variableListView hasSelection"]") ifTrue:[
- items := items , #(
- ('inspect' varInspect)
- ).
+ items := items , #(
+ ('Inspect' varInspect)
+ ).
].
m := PopUpMenu itemList:items resources:resources.
currentClass instSize == 0 ifTrue:[
- m disableAll:#(instVarRefs instVarMods).
- currentClass subclasses size == 0 ifTrue:[
- m disableAll:#(allInstVarRefs allInstVarMods).
- ]
+ m disableAll:#(instVarRefs instVarMods).
+ currentClass subclasses size == 0 ifTrue:[
+ m disableAll:#(allInstVarRefs allInstVarMods).
+ ]
].
currentClass isLoaded ifFalse:[
- m disableAll
+ m disableAll
].
^ m
- "Modified: / 15.10.1998 / 10:51:17 / cg"
+ "Modified: / 1.2.2002 / 13:02:36 / cg"
!
variableSelection:lineNr
@@ -14908,6 +14908,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.707 2002-01-24 18:29:48 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.708 2002-02-01 12:09:49 cg Exp $'
! !
BrowserView initialize!