[squeak-dev] The Trunk: Morphic-mt.846.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Apr 9 09:22:24 UTC 2015


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. '!



More information about the Squeak-dev mailing list