<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Extras > Rebuild Menus<div><br></div><div><img src="cid:1e67ebf7-39ec-4060-98f8-567dea3189b0" width="auto"></img></div><div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class="history_container" type="cite" style="border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 25.09.2019 12:35:26 schrieb H. Hirzel <hannes.hirzel@gmail.com>:</p><div style="font-family:Arial,Helvetica,sans-serif">Hello Marcel<br><br>I have updated my image to Image Squeak5.3alpha latest update: #18984<br><br>I have<br> Project current name 'Top'<br> Project current isTopProject true<br><br> Project current parent a MorphicProject (Top) in a<br>PasteUpMorph(2434915) [world]<br><br>I do not see this label for an MVC parent project.<br>Under which conditions will this appear?<br><br>Regards<br>Hannes<br><br>On Wed, 25 Sep 2019 09:25:49 0000, commits@source.squeak.org<br><commits@source.squeak.org> wrote:<br>> Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>> http://source.squeak.org/trunk/Morphic-mt.1542.mcz<br>><br>> ==================== Summary ====================<br>><br>> Name: Morphic-mt.1542<br>> Author: mt<br>> Time: 25 September 2019, 11:25:42.543838 am<br>> UUID: 7ef7fdda-3074-144f-8ff7-a728dbfc50a2<br>> Ancestors: Morphic-mt.1541<br>><br>> Now that we have an MVC parent project and the project name is visible in<br>> the main docking bar, make that label clickable to open the change sorter.<br>> :-)<br>><br>> =============== Diff against Morphic-mt.1541 ===============<br>><br>> Item was added:<br>> + ----- Method: DockingBarMorph>>addUpdatingItem: (in category<br>> 'construction') -----<br>> + addUpdatingItem: aBlock<br>> + | item |<br>> + item := DockingBarUpdatingItemMorph new.<br>> + aBlock value: item.<br>> + self addMorphBack: item!<br>><br>> Item was added:<br>> + ----- Method: DockingBarMorph>>items (in category 'accessing') -----<br>> + items<br>> +<br>> + ^ submorphs select: [:m | m isKindOf: MenuItemMorph]!<br>><br>> Item was added:<br>> + UpdatingMenuItemMorph subclass: #DockingBarUpdatingItemMorph<br>> + instanceVariableNames: ''<br>> + classVariableNames: ''<br>> + poolDictionaries: ''<br>> + category: 'Morphic-Menus-DockingBar'!<br>><br>> Item was added:<br>> + ----- Method: DockingBarUpdatingItemMorph>>decorateOwner (in category 'as<br>> yet unclassified') -----<br>> + decorateOwner<br>> +<br>> + "Ignore."!<br>><br>> Item was added:<br>> + ----- Method: DockingBarUpdatingItemMorph>>mouseEnter: (in category 'as<br>> yet unclassified') -----<br>> + mouseEnter: evt<br>> + "Do not hover docking bar items directory. Mouse-down required. But if<br>> you already see a submenu, support hovering."<br>> +<br>> + owner selectedItem ifNotNil: [owner selectItem: self event: evt]!<br>><br>> Item was added:<br>> + ----- Method: TheWorldMainDockingBar>>browseChanges (in category 'right<br>> side') -----<br>> + browseChanges<br>> +<br>> + ChangeSorter open.!<br>><br>> Item was added:<br>> + ----- Method: TheWorldMainDockingBar>>browseChangesLabel (in category<br>> 'right side') -----<br>> + browseChangesLabel<br>> + "The project name is the same as the current change set."<br>> + <br>> + ^ Project current name!<br>><br>> Item was changed:<br>> ----- Method: TheWorldMainDockingBar>>createDockingBar (in category<br>> 'construction') -----<br>> createDockingBar<br>> "Create a docking bar from the receiver's representation"<br>> <br>> | dockingBar |<br>> dockingBar := DockingBarMorph new<br>> adhereToTop;<br>> borderWidth: 0.<br>> self fillDockingBar: dockingBar.<br>> + "self labelIfNeeded: dockingBar."<br>> - self labelIfNeeded: dockingBar.<br>> ^ dockingBar!<br>><br>> Item was removed:<br>> - ----- Method: TheWorldMainDockingBar>>labelIfNeeded: (in category<br>> 'private') -----<br>> - labelIfNeeded: aDockingBar<br>> - "Label the given docking bar with the project name, if needed"<br>> - (aDockingBar submorphWithProperty: #projectNameMorph)<br>> - contents: (Project current isTopProject ifTrue: [''] ifFalse: [Project<br>> current name]);<br>> - fitContents!<br>><br>> Item was changed:<br>> ----- Method: TheWorldMainDockingBar>>projectNameOn: (in category 'right<br>> side') -----<br>> projectNameOn: aDockingBar<br>> + <br>> + aDockingBar addUpdatingItem: [:item |<br>> + item<br>> + help: 'Browse this project''s changes';<br>> + target: self;<br>> + selector: #browseChanges;<br>> + wordingProvider: self<br>> + wordingSelector: #browseChangesLabel].!<br>> - | morph |<br>> - morph := StringMorph contents: ''.<br>> - morph<br>> - color: (self userInterfaceTheme textColor ifNil: [Color black]);<br>> - font: (self userInterfaceTheme font ifNil: [TextStyle defaultFont]).<br>> - morph setProperty: #projectNameMorph toValue: #projectNameMorph.<br>> - aDockingBar addMorphBack: morph.<br>> - self labelIfNeeded: aDockingBar!<br>><br>> Item was changed:<br>> ----- Method: TheWorldMainDockingBar>>updateIfNeeded: (in category<br>> 'private') -----<br>> updateIfNeeded: aDockingBar<br>> "Update the given docking bar if needed"<br>> | timeStamp |<br>> timeStamp := aDockingBar<br>> valueOfProperty: #mainDockingBarTimeStamp<br>> ifAbsent: [].<br>> timeStamp ~= self class timeStamp<br>> ifTrue:<br>> [aDockingBar<br>> release;<br>> removeAllMorphs.<br>> + self fillDockingBar: aDockingBar]!<br>> - self fillDockingBar: aDockingBar]<br>> - ifFalse:<br>> - [self labelIfNeeded: aDockingBar]!<br>><br>> Item was added:<br>> + ----- Method: UpdatingMenuItemMorph>>decorateOwner (in category 'world')<br>> -----<br>> + decorateOwner<br>> +<br>> + MenuIcons decorateMenu: owner.!<br>><br>> Item was changed:<br>> ----- Method: UpdatingMenuItemMorph>>updateContents (in category 'world')<br>> -----<br>> updateContents<br>> "Update the receiver's contents"<br>><br>> | newString enablement nArgs |<br>> ((wordingProvider isNil) or: [wordingSelector isNil]) ifFalse: [<br>> nArgs := wordingSelector numArgs.<br>> newString := nArgs = 0<br>> ifTrue:<br>> [wordingProvider perform: wordingSelector]<br>> ifFalse:<br>> [(nArgs = 1 and: [wordingArgument notNil])<br>> ifTrue:<br>> [wordingProvider perform: wordingSelector with: wordingArgument]<br>> ifFalse:<br>> [nArgs == arguments size ifTrue:<br>> [wordingProvider perform: wordingSelector withArguments:<br>> arguments]]].<br>> newString = (self contentString ifNil: [ contents ])<br>> ifFalse: [self contents: newString.<br>> + self decorateOwner ]].<br>> - MenuIcons decorateMenu: owner ]].<br>> enablementSelector ifNotNil:<br>> [(enablement := self enablement) == isEnabled<br>> ifFalse: [self isEnabled: enablement]]!<br>><br>><br>><br><br></commits@source.squeak.org></div></blockquote>
</div></body>