Why do you want to disable pane-splitters?
On Thu, Jun 13, 2013 at 5:54 PM, <[hidden email]> wrote: > Eliot Miranda uploaded a new version of Morphic to project The Trunk: > http://source.squeak.org/trunk/Morphic-eem.658.mcz > > ==================== Summary ==================== > > Name: Morphic-eem.658 > Author: eem > Time: 13 June 2013, 3:54:13.852 pm > UUID: faf57af4-504d-42f3-b7fa-afd6fed1608d > Ancestors: Morphic-eem.657 > > Allow creartion of windows without pane splitters via an > #allowPaneSplitters property that defaults to true. i.e. to > disable pane splitters use > win setProperty: #allowPaneSplitters toValue: false > Get PluggableTextMorph>>doIt to answer its result. > > =============== Diff against Morphic-eem.657 =============== > > Item was changed: > ----- Method: PluggableTextMorph>>doIt (in category 'menu commands') ----- > doIt > + ^self handleEdit: [textMorph editor evaluateSelection]! > - self handleEdit: [textMorph editor evaluateSelection]! > > Item was changed: > ----- Method: SystemWindow>>addMorph:fullFrame: (in category 'panes') ----- > addMorph: aMorph fullFrame: aLayoutFrame > + "Add aMorph according to aLayoutFrame." > + | windowBorderWidth | > - > - | left right bottom top windowBorderWidth | > windowBorderWidth := self class borderWidth. > + "If the property #allowPaneSplitters is set to false, do *not* inset morphs by the borderWidth > + to make room for splitters. This allows windows with non-traditional contents to avoid their > + component morphs from being clipped. Do *NOT* remove this code please!! Just because > + there may be no setters of allowPaneSplitters to false in the image doesn't mean they're not > + out there. Thanks!! eem 6/13/2013" > + (self valueOfProperty: #allowPaneSplitters ifAbsent: [true]) ifTrue: > + [| left right bottom top | > > + left := aLayoutFrame leftOffset ifNil: [0]. > + right := aLayoutFrame rightOffset ifNil: [0]. > - left := aLayoutFrame leftOffset ifNil: [0]. > - right := aLayoutFrame rightOffset ifNil: [0]. > > + bottom := aLayoutFrame bottomOffset ifNil: [0]. > + top := aLayoutFrame topOffset ifNil: [0]. > + > + aLayoutFrame rightFraction = 1 ifTrue: [aLayoutFrame rightOffset: right - windowBorderWidth]. > + aLayoutFrame leftFraction = 0 > + ifTrue: [aLayoutFrame leftOffset: left + windowBorderWidth] > + ifFalse: [aLayoutFrame leftOffset: left + ProportionalSplitterMorph splitterWidth]. > - bottom := aLayoutFrame bottomOffset ifNil: [0]. > - top := aLayoutFrame topOffset ifNil: [0]. > - > - aLayoutFrame rightFraction = 1 ifTrue: [aLayoutFrame rightOffset: right - windowBorderWidth]. > - aLayoutFrame leftFraction = 0 > - ifTrue: [aLayoutFrame leftOffset: left + windowBorderWidth] > - ifFalse: [aLayoutFrame leftOffset: left + ProportionalSplitterMorph splitterWidth]. > > + aLayoutFrame bottomFraction = 1 ifTrue: [aLayoutFrame bottomOffset: bottom - windowBorderWidth]. > + aLayoutFrame topFraction = 0 > + ifTrue: [aLayoutFrame topOffset: top + windowBorderWidth] > + ifFalse: [aLayoutFrame topOffset: top + ProportionalSplitterMorph splitterWidth]]. > + > + "this code should not be here!!!! As of 6/13/2013 there aren't even any users of BrowserCommentTextMorph." > - aLayoutFrame bottomFraction = 1 ifTrue: [aLayoutFrame bottomOffset: bottom - windowBorderWidth]. > - aLayoutFrame topFraction = 0 > - ifTrue: [aLayoutFrame topOffset: top + windowBorderWidth] > - ifFalse: [aLayoutFrame topOffset: top + ProportionalSplitterMorph splitterWidth]. > - > (aMorph class name = #BrowserCommentTextMorph) ifTrue: > [aLayoutFrame rightOffset: windowBorderWidth negated. > aLayoutFrame leftOffset: windowBorderWidth. > aLayoutFrame bottomOffset: windowBorderWidth negated. > aLayoutFrame topOffset: (windowBorderWidth negated) + 4]. > > super addMorph: aMorph fullFrame: aLayoutFrame. > > paneMorphs := paneMorphs copyReplaceFrom: 1 to: 0 with: (Array with: aMorph). > aMorph isImageMorph ifFalse: > [aMorph adoptPaneColor: self paneColor. > aMorph borderWidth: 1; borderColor: Color lightGray; color: Color white]. > Preferences scrollBarsOnRight ifTrue:"reorder panes so flop-out right-side scrollbar is visible" > [self addMorphBack: aMorph]. > > self addPaneSplitters! > > |
Free forum by Nabble | Edit this page |