The Trunk: Morphic-mt.954.mcz

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.954.mcz

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

Name: Morphic-mt.954
Author: mt
Time: 1 May 2015, 2:30:32.642 pm
UUID: 45cdee2d-1fbe-fd42-8990-b204902bdd56
Ancestors: Morphic-mt.953

Deprecations updated and some dependencies to MorphicExtras removed.

=============== Diff against Morphic-mt.953 ===============

Item was removed:
- ----- Method: Morph>>nextOwnerPage (in category 'geometry') -----
- nextOwnerPage
- "Tell my container to advance to the next page"
- | targ |
- targ := self ownerThatIsA: BookMorph.
- targ ifNotNil: [targ nextPage]!

Item was removed:
- ----- Method: Morph>>previousOwnerPage (in category 'geometry') -----
- previousOwnerPage
- "Tell my container to advance to the previous page"
- | targ |
- targ := self ownerThatIsA: BookMorph.
- targ ifNotNil: [targ previousPage]!

Item was removed:
- ----- Method: MorphicProject>>exportSegmentWithCatagories:classes:fileName:directory: (in category 'file in/out') -----
- exportSegmentWithCatagories: catList classes: classList fileName: aFileName directory: aDirectory
- "Store my project out on the disk as an *exported* ImageSegment.  All outPointers will be in a form that can be resolved in the target image.  Name it <project name>.extSeg.  What do we do about subProjects, especially if they are out as local image segments?  Force them to come in?
- Player classes are included automatically."
-
- | is str ans revertSeg roots holder |
- self flag: #toRemove.
- self halt.  "unused"
- "world == World ifTrue: [^ false]."
- "self inform: 'Can''t send the current world out'."
- world ifNil: [^ false].  world presenter ifNil: [^ false].
-
- ScrapBook default emptyScrapBook.
- world currentHand pasteBuffer: nil.  "don't write the paste buffer."
- world currentHand mouseOverHandler initialize.  "forget about any references here"
- "Display checkCurrentHandForObjectToPaste."
- Command initialize.
- world clearCommandHistory.
- world fullReleaseCachedState; releaseViewers.
- world cleanseStepList.
- world localFlapTabs size = world flapTabs size ifFalse: [
- self error: 'Still holding onto Global flaps'].
- world releaseSqueakPages.
- holder := Project allProjects. "force them in to outPointers, where DiskProxys are made"
-
- "Just export me, not my previous version"
- revertSeg := self parameterAt: #revertToMe.
- self projectParameters removeKey: #revertToMe ifAbsent: [].
-
- roots := OrderedCollection new.
- roots add: self; add: world; add: transcript; add: changeSet; add: thumbnail.
- roots add: world activeHand; addAll: classList; addAll: (classList collect: [:cls | cls class]).
-
- roots := roots reject: [ :x | x isNil]. "early saves may not have active hand or thumbnail"
-
- catList do: [:sysCat |
- (SystemOrganization listAtCategoryNamed: sysCat asSymbol) do: [:symb |
- roots add: (Smalltalk at: symb); add: (Smalltalk at: symb) class]].
-
- is := ImageSegment new copySmartRootsExport: roots asArray.
- "old way was (is := ImageSegment new copyFromRootsForExport: roots asArray)"
-
- is state = #tooBig ifTrue: [^ false].
-
- str := ''.
- "considered legal to save a project that has never been entered"
- (is outPointers includes: world) ifTrue: [
- str := str, '\Project''s own world is not in the segment.' withCRs].
- str isEmpty ifFalse: [
- ans := (UIManager default
- chooseFrom: #('Do not write file' 'Write file anyway' 'Debug')
- title: str).
- ans = 1 ifTrue: [
- revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg].
- ^ false].
- ans = 3 ifTrue: [self halt: 'Segment not written']].
-
- is writeForExportWithSources: aFileName inDirectory: aDirectory.
- revertSeg ifNotNil: [self projectParameterAt: #revertToMe put: revertSeg].
- holder.
- world flapTabs do: [:ft |
- (ft respondsTo: #unhibernate) ifTrue: [ft unhibernate]].
- is arrayOfRoots do: [:obj |
- obj isScriptEditorMorph ifTrue: [obj unhibernate]].
- ^ true
- !

Item was removed:
- ----- Method: ScrollPane>>alwaysShowHScrollBar: (in category 'DEPRECATED') -----
- alwaysShowHScrollBar: bool
- self flag: #deprecated.
- self setProperty: #hScrollBarAlways toValue: bool.
-
- bool
- ifTrue: [self hScrollBarPolicy: #always]
- ifFalse: [self hScrollBarPolicy: #whenNeeded].
-
- self hHideOrShowScrollBar.
- !

Item was removed:
- ----- Method: ScrollPane>>alwaysShowScrollBars: (in category 'DEPRECATED') -----
- alwaysShowScrollBars: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self
- alwaysShowHScrollBar: bool;
- alwaysShowVScrollBar: bool.
- !

Item was removed:
- ----- Method: ScrollPane>>alwaysShowVScrollBar: (in category 'DEPRECATED') -----
- alwaysShowVScrollBar: bool
-
- self flag: #deprecated.
-
- self setProperty: #vScrollBarAlways toValue: bool.
-
- bool
- ifTrue: [self vScrollBarPolicy: #always]
- ifFalse: [self vScrollBarPolicy: #whenNeeded].
-
- self vHideOrShowScrollBar.
- !

Item was removed:
- ----- Method: ScrollPane>>hInitScrollBarTEMPORARY (in category 'DEPRECATED') -----
- hInitScrollBarTEMPORARY
- "This is called lazily before the hScrollBar is accessed in a couple of places. It is provided to transition old ScrollPanes lying around that do not have an hScrollBar. Once it has been in the image for awhile, and all ScrollPanes have an hScrollBar, this method and it's references can be removed. "
-
- "Temporary method for filein of changeset"
- hScrollBar ifNil:
- [hScrollBar := ScrollBar new model: self slotName: 'hScrollBar'.
- hScrollBar borderWidth: 1; borderColor: Color black.
- self
- resizeScrollBars;
- setScrollDeltas;
- hideOrShowScrollBars].
- !

Item was removed:
- ----- Method: ScrollPane>>hideHScrollBarIndefinitely: (in category 'DEPRECATED') -----
- hideHScrollBarIndefinitely: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self setProperty: #noHScrollBarPlease toValue: bool.
-
- bool
- ifTrue: [self hScrollBarPolicy: #never]
- ifFalse: [self hScrollBarPolicy: #whenNeeded].
-
- self hHideOrShowScrollBar.
- !

Item was removed:
- ----- Method: ScrollPane>>hideScrollBarsIndefinitely: (in category 'DEPRECATED') -----
- hideScrollBarsIndefinitely: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self hideVScrollBarIndefinitely: bool.
- self hideHScrollBarIndefinitely: bool.
- !

Item was removed:
- ----- Method: ScrollPane>>hideVScrollBarIndefinitely: (in category 'DEPRECATED') -----
- hideVScrollBarIndefinitely: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self setProperty: #noVScrollBarPlease toValue: bool.
-
- bool
- ifTrue: [self vScrollBarPolicy: #never]
- ifFalse: [self vScrollBarPolicy: #whenNeeded].
-
- self vHideOrShowScrollBar.
- !

Item was removed:
- ----- Method: ScrollPane>>isAScrollbarShowing (in category 'DEPRECATED') -----
- isAScrollbarShowing
- "Return true if a either retractable scroll bar is currently showing"
-
- self flag: #deprectaed. "mt: Use #isAnyScrollbarShowing"
- retractableScrollBar ifFalse:[^true].
- ^self hIsScrollbarShowing or: [self vIsScrollbarShowing]
- !

Item was removed:
- ----- Method: ScrollPane>>showHScrollBarOnlyWhenNeeded: (in category 'DEPRECATED') -----
- showHScrollBarOnlyWhenNeeded: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self setProperty: #noHScrollBarPlease toValue: bool not.
- self setProperty: #hScrollBarAlways toValue: bool not.
-
- bool
- ifTrue: [self hScrollBarPolicy: #whenNeeded]
- ifFalse: [self hScrollBarPolicy: #never].
-
- self hHideOrShowScrollBar.
- !

Item was removed:
- ----- Method: ScrollPane>>showScrollBarsOnlyWhenNeeded: (in category 'DEPRECATED') -----
- showScrollBarsOnlyWhenNeeded: bool
-
- self flag: #deprecated.
-
- self showHScrollBarOnlyWhenNeeded: bool.
- self showVScrollBarOnlyWhenNeeded: bool.
- !

Item was removed:
- ----- Method: ScrollPane>>showVScrollBarOnlyWhenNeeded: (in category 'DEPRECATED') -----
- showVScrollBarOnlyWhenNeeded: bool
- "Get rid of scroll bar for short panes that don't want it shown."
-
- self flag: #deprecated.
-
- self setProperty: #noVScrollBarPlease toValue: bool not.
- self setProperty: #vScrollBarAlways toValue: bool not.
-
- bool
- ifTrue: [self vScrollBarPolicy: #whenNeeded]
- ifFalse: [self vScrollBarPolicy: #never].
-
- self vHideOrShowScrollBar.
- !