DebugView.st
changeset 9155 1d6e15954cf8
parent 9151 527efc0af741
child 9235 fdcf1d96cdfe
equal deleted inserted replaced
9154:c690c3d8e367 9155:1d6e15954cf8
   741                   itemValue: browseImplementingClass
   741                   itemValue: browseImplementingClass
   742                   translateLabel: true
   742                   translateLabel: true
   743                 )
   743                 )
   744                (MenuItem
   744                (MenuItem
   745                   enabled: canBrowseReceiversClass
   745                   enabled: canBrowseReceiversClass
   746                   label: 'Browse Receiver''s Class'
   746                   label: 'Browse Receivers Class'
   747                   itemValue: browseReceiversClass
   747                   itemValue: browseReceiversClass
   748                   translateLabel: true
   748                   translateLabel: true
   749                 )
   749                 )
   750                (MenuItem
   750                (MenuItem
   751                   label: '-'
   751                   label: '-'
   752                 )
   752                 )
   753                (MenuItem
   753                (MenuItem
   754                   enabled: canBrowseClassHierarchy
   754                   enabled: canBrowseClassHierarchy
   755                   label: 'Browse Receiver''s Class Hierarchy'
   755                   label: 'Browse Receivers Class Hierarchy'
   756                   itemValue: browseClassHierarchy
   756                   itemValue: browseClassHierarchy
   757                   translateLabel: true
   757                   translateLabel: true
   758                 )
   758                 )
   759                (MenuItem
   759                (MenuItem
   760                   enabled: canBrowseFullClassProtocol
   760                   enabled: canBrowseFullClassProtocol
   761                   label: 'Browse Receiver''s Full Protocol'
   761                   label: 'Browse Receivers Full Protocol'
   762                   itemValue: browseFullClassProtocol
   762                   itemValue: browseFullClassProtocol
   763                   translateLabel: true
   763                   translateLabel: true
   764                 )
   764                 )
   765                )
   765                )
   766               nil
   766               nil
  4246         ].
  4246         ].
  4247 
  4247 
  4248         items := items , #(
  4248         items := items , #(
  4249                     ('-'                                                        )
  4249                     ('-'                                                        )
  4250                     ('Browse Implementing Class'      browseImplementingClass )
  4250                     ('Browse Implementing Class'      browseImplementingClass )
  4251                     ('Browse Receiver''s Class'             browseReceiversClass    )
  4251                     ('Browse Receivers Class'             browseReceiversClass    )
  4252                     ('Browse Receiver''s Class Hierarchy'   browseClassHierarchy    )
  4252                     ('Browse Receivers Class Hierarchy'   browseClassHierarchy    )
  4253                     ('Browse Receiver''s Full Protocol'     browseFullClassProtocol )
  4253                     ('Browse Receivers Full Protocol'     browseFullClassProtocol )
  4254                     ('Implementors'                     browseImplementors      )
  4254                     ('Implementors'                     browseImplementors      )
  4255                     ('Implementors Of...'               browseImplementorsOf    )
  4255                     ('Implementors Of...'               browseImplementorsOf    )
  4256                     ('Senders'                          browseSenders           )
  4256                     ('Senders'                          browseSenders           )
  4257                     ('Senders Of...'                    browseSendersOf         )
  4257                     ('Senders Of...'                    browseSendersOf         )
  4258                     ('-'                                                        )
  4258                     ('-'                                                        )
  6820 ! !
  6820 ! !
  6821 
  6821 
  6822 !DebugView class methodsFor:'documentation'!
  6822 !DebugView class methodsFor:'documentation'!
  6823 
  6823 
  6824 version
  6824 version
  6825     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.486 2009-10-31 12:57:48 cg Exp $'
  6825     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.487 2009-10-31 13:04:35 cg Exp $'
  6826 !
  6826 !
  6827 
  6827 
  6828 version_CVS
  6828 version_CVS
  6829     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.486 2009-10-31 12:57:48 cg Exp $'
  6829     ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.487 2009-10-31 13:04:35 cg Exp $'
  6830 ! !
  6830 ! !
  6831 
  6831 
  6832 DebugView initialize!
  6832 DebugView initialize!