Tools__Inspector2.st
changeset 10392 e4e94b17c0c2
parent 10379 489f71d5711e
child 10423 8215f496b6de
equal deleted inserted replaced
10391:bbde370c877c 10392:e4e94b17c0c2
   427 ! !
   427 ! !
   428 
   428 
   429 !Inspector2::NavigationState class methodsFor:'documentation'!
   429 !Inspector2::NavigationState class methodsFor:'documentation'!
   430 
   430 
   431 version
   431 version
   432     ^'$Id: Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
   432     ^'$Id: Tools__Inspector2.st,v 1.11 2011-07-25 08:51:16 cg Exp $'
   433 !
   433 !
   434 
   434 
   435 version_SVN
   435 version_SVN
   436     ^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'
   436     ^'§Id: Tools__Inspector2.st 115 2009-04-16 12:47:07Z vranyj1 §'
   437 ! !
   437 ! !
   527 
   527 
   528 !Inspector2::NavigationState methodsFor:'displaying'!
   528 !Inspector2::NavigationState methodsFor:'displaying'!
   529 
   529 
   530 displayString
   530 displayString
   531 
   531 
   532     displayString ifNil:
   532     displayString isNil ifTrue:[
   533         [displayString := theObject printString.
   533         displayString := theObject printString contractAtEndTo:15.
   534         displayString size > 15 ifTrue:[displayString := (displayString copyTo:12),  '...'].
   534         displayString := displayString , ' [', theObject class name , ']'
   535         displayString := displayString , ' [', theObject class name , ']'].
   535     ].
   536     ^ displayString
   536     ^ displayString
   537 
   537 
   538     "Created: / 21-02-2008 / 19:53:07 / janfrog"
   538     "Created: / 21-02-2008 / 19:53:07 / janfrog"
       
   539     "Modified: / 25-07-2011 / 10:50:52 / cg"
   539 ! !
   540 ! !
   540 
   541 
   541 !Inspector2::NavigationState methodsFor:'initialization'!
   542 !Inspector2::NavigationState methodsFor:'initialization'!
   542 
   543 
   543 initializeClassBrowserTab
   544 initializeClassBrowserTab
   607 ! !
   608 ! !
   608 
   609 
   609 !Inspector2 class methodsFor:'documentation'!
   610 !Inspector2 class methodsFor:'documentation'!
   610 
   611 
   611 version_CVS
   612 version_CVS
   612     ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.10 2011-07-23 10:41:37 vrany Exp $'
   613     ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.11 2011-07-25 08:51:16 cg Exp $'
   613 !
   614 !
   614 
   615 
   615 version_CVS_jvrany
   616 version_CVS_jvrany
   616     ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §'
   617     ^ '§Header: /opt/data/cvs/stx/goodies/libtool3/Inspector2.st,v 1.6 2008-02-27 13:45:23 vranyj1 Exp §'
   617 !
   618 !