DictionaryInspectorView.st
changeset 12834 daf3c6ecec6d
parent 12624 fd12279a7888
child 13170 c9b815af5777
child 13576 3fd34524bbb9
equal deleted inserted replaced
12833:eaceca8a5fb0 12834:daf3c6ecec6d
   206                        ('Add Key...'           doAddKey       )
   206                        ('Add Key...'           doAddKey       )
   207                        ('Remove Key'           doRemoveKey    )
   207                        ('Remove Key'           doRemoveKey    )
   208                    ).
   208                    ).
   209     ].
   209     ].
   210 
   210 
       
   211     (hasMore) ifTrue:[
       
   212         items := items , #(                                  
       
   213                       ('-')
       
   214                       ('Show More'                   showMore               )
       
   215                    ).
       
   216         (inspectedObject size > (nShown * 2)) ifTrue:[
       
   217             items := items , #(
       
   218                         ('Show All'                     #showAll                )
       
   219                           )
       
   220         ].
       
   221     ].
   211     monitorProcess isNil ifTrue:[
   222     monitorProcess isNil ifTrue:[
   212         items := items , #(
   223         items := items , #(
   213                        ('-')
   224                        ('-')
   214                        ('Start Monitor'    doStartMonitor )
   225                        ('Start Monitor'    doStartMonitor )
   215                           ).
   226                           ).
   645         ^ OrderedCollection new
   656         ^ OrderedCollection new
   646     ].
   657     ].
   647     ^ super namedFieldList
   658     ^ super namedFieldList
   648 !
   659 !
   649 
   660 
       
   661 numIndexedFields
       
   662     ^ inspectedObject size
       
   663 !
       
   664 
   650 release 
   665 release 
   651     "release inspected object"
   666     "release inspected object"
   652 
   667 
   653     keys := nil.
   668     keys := nil.
   654     super release
   669     super release
   720 ! !
   735 ! !
   721 
   736 
   722 !DictionaryInspectorView class methodsFor:'documentation'!
   737 !DictionaryInspectorView class methodsFor:'documentation'!
   723 
   738 
   724 version
   739 version
   725     ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.80 2013-04-02 20:48:35 cg Exp $'
   740     ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.81 2013-06-04 13:02:55 cg Exp $'
   726 !
   741 !
   727 
   742 
   728 version_CVS
   743 version_CVS
   729     ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.80 2013-04-02 20:48:35 cg Exp $'
   744     ^ '$Header: /cvs/stx/stx/libtool/DictionaryInspectorView.st,v 1.81 2013-06-04 13:02:55 cg Exp $'
   730 ! !
   745 ! !
   731 
   746