No existe el menu de ver versiones en Denotative Object Browser

[mcsee]

se corrige agregando el menu

[mcsee]

!DenotativeObjectBrowserWindow methodsFor: 'menu building' stamp: 'MC 9/13/2018 17:56:29'! messageListMenu "Answer the message-list menu" "Changed by emm to include menu-item for breakpoints"

| aMenu |
aMenu _ MenuMorph new defaultTarget: self.
aMenu addTitle: 'Message List'.
aMenu
    addItemsFromDictionaries: `{
        {
            #label          ->      'fileOut (o)'.
            #object             ->      #model.
            #selector       ->      #fileOutMessage.
            #icon           ->      #fileOutIcon
        } asDictionary.
        nil.
        {
            #label          ->      'senders of... (n)'.
            #selector       ->      #browseSendersOfSelectedSelector.
            #icon           ->      #mailForwardIcon
        } asDictionary.
        {
            #label          ->      'implementors of... (m)'.
            #selector       ->      #browseImplementorsOfSelectedSelector.
            #icon           ->      #developmentIcon
        } asDictionary.
        nil.
        {
            #label          ->      'rename'.
            #selector       ->      #renameSelector.
            #icon           ->      #saveAsIcon
        } asDictionary.
        nil.
        {
            #label          ->      'remove (x)'.
            #selector       ->      #removeMessage.
            #icon           ->      #deleteIcon
        } asDictionary.
        nil.
        {
            #label          ->      'change category...'.
            #object             ->      #model.
            #selector       ->      #changeCategory.
            #icon           ->      #editFindReplaceIcon
        } asDictionary.
        {
            #label          ->      'show category'.
            #object             ->      #model.
            #selector       ->      #showHomeCategory.
            #icon           ->      #helpIcon
        } asDictionary.
        nil.
        {                
            #label          ->      'versions (v)'.
            #selector       ->      #browseVersions.
            #icon           ->      #clockIcon
        } asDictionary.

        {
            #label          ->      'send (t)'.
            #object             ->      #model.
            #selector       ->      #runMethodTest.
            #icon           ->      #weatherFewCloudsIcon
        } asDictionary.
        {
            #label          ->      'send and inspect (e)'.
            #object             ->      #model.
            #selector       ->      #sendAndInspect.
            #icon           ->      #inspectIcon
        } asDictionary.
        {
            #label          ->      'debug (r)'.
            #object             ->      #model.
            #selector       ->      #debugMethodTest.
            #icon           ->      #debugIcon
        } asDictionary.
        {
            #label          ->      'debug and inspect (q)'.
            #object             ->      #model.
            #selector       ->      #debugAndInspect.
            #icon           ->      #debugIcon
        } asDictionary.
    }`.
^ aMenu! !