The Trunk: Tools-nice.157.mcz

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

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

Name: Tools-nice.157
Author: nice
Time: 3 January 2010, 4:50:33 am
UUID: a0f72a87-e864-4407-9d50-c5946a6fa92c
Ancestors: Tools-ar.156

remove some #or:or: #and:and: sends

=============== Diff against Tools-ar.156 ===============

Item was changed:
+ ----- Method: CodeHolder>>addModelItemsToWindowMenu: (in category 'misc') -----
- ----- Method: CodeHolder>>addModelItemsToWindowMenu: (in category 'tiles') -----
  addModelItemsToWindowMenu: aMenu
  "Add model-related item to the window menu"
 
  super addModelItemsToWindowMenu: aMenu.
  Smalltalk isMorphic ifTrue:
  [aMenu addLine.
  aMenu add: 'what to show...' translated target: self action: #offerWhatToShowMenu]!

Item was changed:
  ----- Method: BrowserCommentTextMorph>>noteNewOwner: (in category 'updating') -----
  noteNewOwner: win
  super noteNewOwner: win.
  self setProperty: #browserWindow toValue: win.
  win ifNil: [ ^self ].
  win setProperty: #browserClassCommentPane toValue: self.
  self setProperty: #browserLowerPane
  toValue: (win submorphThat: [ :m |
  m isAlignmentMorph
+ and: [ m layoutFrame bottomFraction notNil
+ and: [ m layoutFrame bottomFraction >= self layoutFrame topFraction ]]]
- and: [ m layoutFrame bottomFraction notNil]
- and: [ m layoutFrame bottomFraction >= self layoutFrame topFraction ]]
  ifNone: [])!

Item was changed:
+ ----- Method: CodeHolder>>installTextualCodingPane (in category 'misc') -----
- ----- Method: CodeHolder>>installTextualCodingPane (in category 'tiles') -----
  installTextualCodingPane
  "Install text into the code pane"
 
  | aWindow codePane aPane boundsToUse |
  (aWindow := self containingWindow) ifNil: [self error: 'where''s that window?'].
  codePane := aWindow findDeepSubmorphThat:  
  [:m | ((m isKindOf: PluggableTextMorph) and: [m getTextSelector == #contents]) or:
  [m isKindOf: PluggableTileScriptorMorph]] ifAbsent: [self error: 'no code pane'].
  aPane := self buildMorphicCodePaneWith: nil.
  boundsToUse := (codePane bounds origin- (1@1)) corner: (codePane owner bounds corner " (1@1").
  aWindow replacePane: codePane with: aPane.
  aPane vResizing: #spaceFill; hResizing: #spaceFill; borderWidth: 0.
  aPane bounds: boundsToUse.
  aPane owner clipSubmorphs: false.
 
  self contentsChanged!