[FIX][BUG] InternalThreadNavigationMorph-moreCommands.
Lic. Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Mon Mar 15 14:06:11 UTC 2004
Squeak3.7a-5816.image
When selected InternalThreadNavigationMorph and select "all" you have a
walkback.
I atach a fix for this.
Edgar
-------------- next part --------------
'From Squeak3.7alpha of 11 September 2003 [latest update: #5816] on 15 March 2004 at 10:19:24 am'!
!InternalThreadNavigationMorph methodsFor: 'navigation' stamp: 'sw 3/3/2004 17:21'!
moreCommands
"Put up a menu of options"
| allThreads aMenu others target |
allThreads _ self class knownThreads.
aMenu _ MenuMorph new defaultTarget: self.
aMenu addTitle: 'navigation' translated.
aMenu addStayUpItem.
self flag: #deferred. "Probably don't want that stay-up item, not least because the navigation-keystroke stuff is not dynamically handled"
others _ (allThreads keys reject: [ :each | each = threadName]) asSortedCollection.
others do: [ :each |
aMenu add: ('switch to <{1}>' translated format:{each}) selector: #switchToThread: argument: each].
aMenu addList: {
{'switch to recent projects' translated. #getRecentThread}.
#-.
{'create a new thread' translated. #threadOfNoProjects}.
{'edit this thread' translated. #editThisThread}.
{'create thread of all projects' translated. #threadOfAllProjects}.
#-.
{'First project in thread' translated. #firstPage}.
{'Last project in thread' translated. #lastPage}}.
(target _ self currentIndex + 2) > listOfPages size ifFalse:
[aMenu
add: ('skip over next project ({1})' translated format:{(listOfPages at: target - 1) first})
action: #skipOverNext].
aMenu addList: {
{'jump within this thread' translated. #jumpWithinThread}.
{'insert new project' translated. #insertNewProject}.
#-.
{'simply close this navigator' translated. #delete}.
{'destroy this thread' destroyThread}.
#-}.
(ActiveWorld keyboardNavigationHandler == self)
ifFalse:
[aMenu add: 'start keyboard navigation with this thread' translated action: #startKeyboardNavigation]
ifTrue:
[aMenu add: 'stop keyboard navigation with this thread' translated action: #stopKeyboardNavigation].
aMenu popUpInWorld! !
More information about the Squeak-dev
mailing list
|