Tools__ClassList.st
branchjv
changeset 16571 cf319f2e56d0
parent 16445 6bc184e74f9c
parent 16494 8d0f36e954ca
child 16869 2ecababdd4c0
equal deleted inserted replaced
16570:dc5e958a20dc 16571:cf319f2e56d0
  1572                                         and:[JavaVM systemClassLoader isNil 
  1572                                         and:[JavaVM systemClassLoader isNil 
  1573                                                 or:[cl ~~ JavaVM systemClassLoader 
  1573                                                 or:[cl ~~ JavaVM systemClassLoader 
  1574                                                         and:[cl ~~ (JavaVM systemClassLoader instVarNamed:#parent)]]]) 
  1574                                                         and:[cl ~~ (JavaVM systemClassLoader instVarNamed:#parent)]]]) 
  1575                                             ifTrue:[
  1575                                             ifTrue:[
  1576                                             clstring := ' [', cl displayString , ']'.
  1576                                             clstring := ' [', cl displayString , ']'.
  1577                                             nm := nm , (clstring asText colorizeAllWith: Color gray)
  1577                                             nm := nm , (clstring withColor: Color gray)
  1578                                     ]
  1578                                     ]
  1579                                 ]
  1579                                 ]
  1580                             ].
  1580                             ].
  1581 
  1581 
  1582 
  1582 
  1990         nm := aClass nameInBrowser.
  1990         nm := aClass nameInBrowser.
  1991     ].
  1991     ].
  1992 
  1992 
  1993     aClass isLoaded ifFalse:[
  1993     aClass isLoaded ifFalse:[
  1994         unloadedClassesColor notNil ifTrue:[
  1994         unloadedClassesColor notNil ifTrue:[
  1995             nm := nm colorizeAllWith:unloadedClassesColor
  1995             nm := nm withColor:unloadedClassesColor
  1996         ]
  1996         ]
  1997     ].
  1997     ].
  1998 
  1998 
  1999     aClass isLoaded ifFalse:[
  1999     aClass isLoaded ifFalse:[
  2000         "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
  2000         "/ nm := nm,(' (?) ' colorizeAllWith:Color grey).
  2005         instMethodCount := aClass methodsCount.
  2005         instMethodCount := aClass methodsCount.
  2006         classMethodCount := aClass class methodsCount.
  2006         classMethodCount := aClass class methodsCount.
  2007 
  2007 
  2008         (instMethodCount notNil or:[ classMethodCount notNil ]) ifTrue:[ 
  2008         (instMethodCount notNil or:[ classMethodCount notNil ]) ifTrue:[ 
  2009             nm := nm,((' (%1+%2) ' bindWith:(instMethodCount ? '?') with:(classMethodCount ? '?')) 
  2009             nm := nm,((' (%1+%2) ' bindWith:(instMethodCount ? '?') with:(classMethodCount ? '?')) 
  2010                         colorizeAllWith:self class pseudoEntryForegroundColor).
  2010                         withColor:self class pseudoEntryForegroundColor).
  2011         ]
  2011         ]
  2012     ].
  2012     ].
  2013 
  2013 
  2014     orgMode := organizerMode value.
  2014     orgMode := organizerMode value.
  2015     orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[
  2015     orgMode == OrganizerCanvas organizerModeHierarchy ifTrue:[