The Trunk: MorphicExtras-nice.53.mcz

Nicolas Cellier uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-nice.53.mcz

==================== Summary ====================

Name: MorphicExtras-nice.53
Author: nice
Time: 21 October 2009, 12:45:14 pm
UUID: 10a61fe2-1806-47b2-84ea-91ba7d347145
Ancestors: MorphicExtras-nice.52

Use #keys rather than #fasterKeys
Note that pattern (x keys asArray sort) could as well be written (x keys sort) now that keys returns an Array...
This #asArray is here solely for cross-dialect/fork compatibility.

=============== Diff against MorphicExtras-nice.52 ===============

Item was changed:
  ----- Method: ZoomAndScrollControllerMorph>>runAScript (in category 'as yet unclassified') -----
  runAScript
 
  | d names reply |
  d := self targetScriptDictionary.
+ names := d keys asArray sort.
- names := d fasterKeys sort.
  reply := UIManager default chooseFrom: names values: names title: 'Script to run?'.
  reply ifNil: [^ self].
  programmedMoves := (d at: reply) veryDeepCopy.!

Item was changed:
  ----- Method: ZoomAndScrollControllerMorph>>editAScript (in category 'as yet unclassified') -----
  editAScript
 
  | d names reply s |
  d := self targetScriptDictionary.
+ names := d keys asArray sort.
- names := d fasterKeys sort.
  reply := UIManager default chooseFrom: names values: names title: 'Script to edit?'.
  reply ifNil: [^ self].
  (s := ZASMScriptMorph new)
  decompileScript: (d at: reply) named: reply for: self;
  fullBounds;
  align: s center with: self center;
  openInWorld
  !

Item was changed:
  ----- Method: PostscriptCanvas class>>postscriptFontInfoForFont: (in category 'font mapping') -----
  postscriptFontInfoForFont: font
 
  | fontName decoded desired mask decodedName keys match |
 
  fontName := font textStyleName asString.
  decoded := TextStyle decodeStyleName: fontName.
  decodedName := decoded second.
+ keys := self fontMap keys asArray sort: [ :a :b | a size > b size ].
- keys := self fontMap fasterKeys sort: [ :a :b | a size > b size ].
 
  match := keys select: [ :k | decoded first = k or: [ fontName = k ] ].
  match do: [ :key | | subD |
  subD := self fontMap at: key.
  desired := font emphasis.
  mask := 31.
  [
  desired := desired bitAnd: mask.
  subD at: desired ifPresent: [ :answer | ^answer].
  mask := mask bitShift: -1.
  desired > 0
  ] whileTrue.
  ].
 
  "No explicit lookup found; try to convert the style name into the canonical Postscript name.
  This name will probably still be wrong."
 
  fontName := String streamContents: [ :s |
  s nextPutAll: decodedName.
  decoded third do: [ :nm | s nextPut: $-; nextPutAll: nm ].
 
  (font emphasis == 0 and: [ (decoded last includes: 0) not ])
  ifTrue: [ s nextPutAll:  '-Regular' ].
 
  (font emphasis == 1 and: [ (decoded first anyMask: 1) not ])
  ifTrue: [ s nextPutAll:  '-Bold' ].
 
  (font emphasis == 2 and: [ (decoded first anyMask: 2) not ])
  ifTrue: [ s nextPutAll:  '-Italic' ].
 
  (font emphasis == 3 and: [ (decoded first anyMask: 3) not ])
  ifTrue: [ s nextPutAll:  '-BoldItalic' ].
  ].
 
  ^ {fontName. 1.0}
  !

Item was changed:
  ----- Method: GraphicalDictionaryMenu>>baseDictionary: (in category 'initialization') -----
  baseDictionary: aDictionary
  baseDictionary := aDictionary.
+ entryNames := aDictionary keys asArray sort.
- entryNames := aDictionary fasterKeys sort.
  formChoices := entryNames collect: [:n | aDictionary at: n].
  currentIndex := 1!

Item was changed:
  ----- Method: InternalThreadNavigationMorph>>moreCommands (in category 'navigation') -----
  moreCommands
  "Put up a menu of options"
 
  | allThreads aMenu others target |
  allThreads := self class knownThreads.
  aMenu := MenuMorph new defaultTarget: self.
  aMenu addTitle: 'navigation' translated.
 
  Preferences noviceMode ifFalse:[
  self flag: #deferred.  "Probably don't want that stay-up item, not least because the navigation-keystroke stuff is not dynamically handled"
  aMenu addStayUpItem
  ].
 
+ others := (allThreads keys reject: [ :each | each = threadName]) asArray sort.
- others := (allThreads fasterKeys reject: [ :each | each = threadName]) sort.
  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' translated. #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.
  !