The Trunk: Morphic-mt.1000.mcz

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

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

Name: Morphic-mt.1000
Author: mt
Time: 27 August 2015, 10:57:54.273 am
UUID: 168d2e1e-3ae0-6545-8dac-da4b99ad092d
Ancestors: Morphic-mt.999

Some adjustments for cleaned-up preferences interface.

=============== Diff against Morphic-mt.999 ===============

Item was changed:
  ----- Method: PasteUpMorph>>toggleClassicNavigatorIfAppropriate (in category 'world menu') -----
  toggleClassicNavigatorIfAppropriate
  "If appropriate, toggle the presence of classic navigator"
 
+ Preferences classicNavigatorEnabled ifTrue: [^ Preferences toggle: #showProjectNavigator]!
- Preferences classicNavigatorEnabled ifTrue: [^ Preferences togglePreference: #showProjectNavigator]!

Item was changed:
  ----- Method: StandardScriptingSystem>>customizeForEToyUsers: (in category 'utilities') -----
  customizeForEToyUsers: aBoolean
  "If aBoolean is true, set things up for etoy users.  If it's false, unset some of those things.  Some things are set when switching into etoy mode but not reversed when switching out of etoy mode."
   
  #(
  (allowEtoyUserCustomEvents no reverse)
  (balloonHelpEnabled yes dontReverse)
  (debugHaloHandle no reverse)
  (modalColorPickers yes dontReverse)
  (oliveHandleForScriptedObjects no dontReverse)
  (uniqueNamesInHalos yes reverse)
  (useUndo yes dontReverse)
  (infiniteUndo no dontReverse)
  (warnIfNoChangesFile no reverse)
  (warnIfNoSourcesFile no reverse)) do:
  [:trip |
  (aBoolean or: [trip third == #reverse]) ifTrue:
+ [Preferences setFlag: trip first toValue:
- [Preferences enableOrDisable: trip first asPer:
  ((trip second == #yes) & aBoolean) | ((trip second == #no) & aBoolean not)]]!

Item was changed:
  ----- Method: TheWorldMenu>>appearanceMenu (in category 'construction') -----
  appearanceMenu
  "Build the appearance menu for the world."
 
  ^self fillIn: (self menu: 'appearance...') from: {
 
  {'preferences...' . { self . #openPreferencesBrowser} . 'Opens a "Preferences Browser" which allows you to alter many settings' } .
  {'choose theme...' . { Preferences . #offerThemesMenu} . 'Presents you with a menu of themes; each item''s balloon-help will tell you about the theme.  If you choose a theme, many different preferences that come along with that theme are set at the same time; you can subsequently change any settings by using a Preferences Panel'} .
  nil .
  {'system fonts...' . { self . #standardFontDo} . 'Choose the standard fonts to use for code, lists, menus, window titles, etc.'}.
  {'text highlight color...' . { Preferences . #chooseTextHighlightColor} . 'Choose which color should be used for text highlighting in Morphic.'}.
  {'insertion point color...' . { Preferences . #chooseInsertionPointColor} . 'Choose which color to use for the text insertion point in Morphic.'}.
  {'keyboard focus color' . { Preferences . #chooseKeyboardFocusColor} . 'Choose which color to use for highlighting which pane has the keyboard focus'}.
  nil.
+ {#menuColorString . { self . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}.
+ {#roundedCornersString . { self . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}.
- {#menuColorString . { Preferences . #toggleMenuColorPolicy} . 'Governs whether menu colors should be derived from the desktop color.'}.
- {#roundedCornersString . { Preferences . #toggleRoundedCorners} . 'Governs whether morphic windows and menus should have rounded corners.'}.
  nil.
  {'full screen on' . { Project current . #fullScreenOn} . 'puts you in full-screen mode, if not already there.'}.
  {'full screen off' . { Project current . #fullScreenOff} . 'if in full-screen mode, takes you out of it.'}.
  nil.
  {'set display depth...' . {self. #setDisplayDepth} . 'choose how many bits per pixel.'}.
  {'set desktop color...' . {self. #changeBackgroundColor} . 'choose a uniform color to use as desktop background.'}.
  {'set gradient color...' . {self. #setGradientColor} . 'choose second color to use as gradient for desktop background.'}.
  {'use texture background' . { #myWorld . #setStandardTexture} . 'apply a graph-paper-like texture background to the desktop.'}.
  nil.
  {'clear turtle trails from desktop' . { #myWorld . #clearTurtleTrails} . 'remove any pigment laid down on the desktop by objects moving with their pens down.'}.
  {'pen-trail arrowhead size...' . { Preferences. #setArrowheads} . 'choose the shape to be used in arrowheads on pen trails.'}.
 
  }!

Item was added:
+ ----- Method: TheWorldMenu>>toggleMenuColorPolicy (in category 'action') -----
+ toggleMenuColorPolicy
+
+ Preferences toggle: #menuColorFromWorld.!

Item was added:
+ ----- Method: TheWorldMenu>>toggleRoundedCorners (in category 'action') -----
+ toggleRoundedCorners
+
+ Preferences toggle: #roundedWindowCorners.!

Item was changed:
  ----- Method: TheWorldMenu>>toggleWindowPolicy (in category 'action') -----
  toggleWindowPolicy
 
+ Preferences toggle: #reverseWindowStagger.!
- Preferences toggleWindowPolicy!