'From Squeak3.3alpha of 18 January 2002 [latest update: #4889] on 24 June 2002 at 4:50:12 pm'! "Change Set: fcbInfoPane-sw Date: 24 June 2002 Author: Scott Wallace Two fixes regarding the 'info' pane of a file contents browser: (1) Don't show green 'diffs' feedback in the info pane of the file-contents-browser. (2) Don't bother prompting for save-changes-before-closing if a file-contents-browser is dismissed when there unaccepted edits in the info pane."! !FileContentsBrowser methodsFor: 'creation' stamp: 'sw 6/24/2002 16:46'! addLowerPanesTo: window at: nominalFractions with: editString | verticalOffset row innerFractions codePane infoPane infoHeight divider | row _ AlignmentMorph newColumn hResizing: #spaceFill; vResizing: #spaceFill; layoutInset: 0; borderWidth: 1; borderColor: Color black; layoutPolicy: ProportionalLayout new. codePane _ PluggableTextMorph on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. infoPane _ PluggableTextMorph on: self text: #infoViewContents accept: nil readSelection: nil menu: nil. infoPane askBeforeDiscardingEdits: false. verticalOffset _ 0. innerFractions _ 0@0 corner: 1@0. ">>not with this browser--- at least not yet --- verticalOffset _ self addOptionalAnnotationsTo: row at: innerFractions plus: verticalOffset. verticalOffset _ self addOptionalButtonsTo: row at: innerFractions plus: verticalOffset. <<<<" infoHeight _ 20. row addMorph: (codePane borderWidth: 0) fullFrame: ( LayoutFrame fractions: (0@0 corner: 1@1) offsets: (0@verticalOffset corner: 0@infoHeight negated) ). divider _ BorderedSubpaneDividerMorph forTopEdge. Preferences alternativeWindowLook ifTrue:[ divider extent: 4@4; color: Color transparent; borderColor: #raised; borderWidth: 2. ]. row addMorph: divider fullFrame: ( LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@infoHeight negated corner: 0@(1-infoHeight)) ). row addMorph: (infoPane borderWidth: 0; hideScrollBarIndefinitely) fullFrame: ( LayoutFrame fractions: (0@1 corner: 1@1) offsets: (0@(1-infoHeight) corner: 0@0) ). window addMorph: row frame: nominalFractions. row on: #mouseEnter send: #paneTransition: to: window. row on: #mouseLeave send: #paneTransition: to: window. ! ! !PluggableTextMorph methodsFor: 'drawing' stamp: 'sw 6/24/2002 16:39'! wantsFrameAdornments "Answer whether the receiver wishes to have red borders, etc., used to show editing state" "A 'long-term temporary workaround': a nonmodular, unsavory, but expedient way to get the desired effect, sorry. Clean up someday." ^ (#(annotation searchString infoViewContents) includes: getTextSelector) not! !