The Trunk: Morphic-mt.846.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Morphic-mt.846.mcz

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

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

Name: Morphic-mt.846
Author: mt
Time: 9 April 2015, 11:21:46.32 am
UUID: b8e09540-d880-284d-ac5d-d1271d871caf
Ancestors: Morphic-mt.845

Fixed postscript.

=============== Diff against Morphic-mt.845 ===============

Item was changed:
+ (PackageInfo named: 'Morphic') postscript: '"Update existing scrollbars."
+ ScrollBar allSubInstances do: [:sb |
+ sb removeAllMorphs; initializeSlider].
+ ScrollPane allSubInstances do: [:sc |
+ sc vScrollBar
+ setValueSelector: #vScrollBarValue:;
+ menuSelector: #vScrollBarMenuButtonPressed:.
+ sc hScrollBar
+ setValueSelector: #hScrollBarValue:;
+ menuSelector: #hScrollBarMenuButtonPressed:.
+ sc vSetScrollDelta; hSetScrollDelta].
+
+ (Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
- (PackageInfo named: 'Morphic') postscript: '(Preferences dictionaryOfPreferences at: #alternativeWindowBoxesLook) defaultValue: false.
  "Force SystemProgressMorph to be reset"
  SystemProgressMorph initialize; reset.
 
  "Initialize the key bindings and menus"
  Editor initialize.
 
  "Retain scrollBar look now that the pref actually does something"
  Preferences enable: #gradientScrollBars.
 
  "apply the new icons"
  MenuIcons initializeIcons.
  TheWorldMainDockingBar updateInstances.
 
  "Cleanup old-style preferences here. Remove before new release."
  Preferences removePreference: #gradientMenu. "Now in MenuMorph."
  Preferences removePreference: #roundedMenuCorners. "Now in MenuMorph."
 
  "Fix clipping bug of open windows. New ones are not affected."
  TransformMorph allInstances do: [:ea | ea clipSubmorphs: true].
 
- "Update existing scrollbars."
- ScrollBar allSubInstances do: [:sb |
- sb removeAllMorphs; initializeSlider].
- ScrollPane allSubInstances do: [:sc |
- sc vScrollBar
- setValueSelector: #vScrollBarValue:;
- menuSelector: #vScrollBarMenuButtonPressed:.
- sc hScrollBar
- setValueSelector: #hScrollBarValue:;
- menuSelector: #hScrollBarMenuButtonPressed:.
- sc vSetScrollDelta; hSetScrollDelta].
-
  "Now in ScrollBar."
  Preferences removePreference: #scrollBarsWithoutMenuButton. '!