[Pkg] The Trunk: Tools-nice.157.mcz

commits at source.squeak.org commits at source.squeak.org
Sun Jan 3 15:50:49 UTC 2010

Nicolas Cellier uploaded a new version of Tools to project The Trunk:

==================== 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') -----
  	"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 at 1)) corner: (codePane owner bounds corner " (1 at 1").
  	aWindow replacePane: codePane with: aPane.
  	aPane vResizing: #spaceFill; hResizing: #spaceFill; borderWidth: 0.
  	aPane bounds: boundsToUse.
  	aPane owner clipSubmorphs: false.
  	self contentsChanged!

More information about the Packages mailing list