'From Squeak3.6 of ''6 October 2003'' [latest update: #5424] on 21 November 2003 at 11:35:08 pm'! !TheWorldMenu methodsFor: 'action' stamp: 'sumim 11/21/2003 23:21'! projectThumbnail "Offer the user a menu of project names. Attach to the hand a thumbnail of the project the user selects." | menu projName pr | menu _ CustomMenu new. (Preferences alphabeticalProjectMenu ifTrue: [Project allNamesAndProjects] ifFalse: [Project hierarchyOfNamesAndProjects]) do: [ :aPair | menu add: aPair first, (aPair last isCurrentProject ifTrue: [' (current)'] ifFalse: ['']) action: aPair last name]. projName _ menu startUpWithCaption: 'Select a project'. projName ifNotNil: [(pr _ Project named: projName) ifNotNil: [myHand attachMorph: (ProjectViewMorph on: pr)] ifNil: [self inform: 'can''t seem to find that project']].! !