The Trunk: EToys-tfel.215.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.215.mcz

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

Name: EToys-tfel.215
Author: tfel
Time: 30 August 2016, 5:12:02.14204 pm
UUID: a6ef1339-ed42-d14d-9046-7c8dded0b72d
Ancestors: EToys-tfel.214

- fix deprecation warnings
- Components and their subclasses are not uniclasses
- sugarnavbar should re-initialize when the theme changes

=============== Diff against EToys-tfel.214 ===============

Item was added:
+ ----- Method: Component class>>isUniClass (in category 'other') -----
+ isUniClass
+ "UnscriptedPlayer reimplements to false"
+
+ ^ false!

Item was changed:
  ----- Method: EtoysTheme class>>create (in category 'instance creation') -----
  create
+ "doIt: [self create apply.]"
- "doIt: [self createDark apply.]"
 
  | themeName |
  themeName := 'Etoys'.
  ^ (self named: themeName) in: [:theme |
  theme merge: (self named: 'Squeak') overwrite: true.
  theme name: themeName.
 
  theme set: #background for: #MorphicProject to: (SolidFillStyle color: (Color r: 0.9 g: 0.9 b: 1)).
 
-
  theme
  set: #standardListFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #standardFlapFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: TextEmphasis bold emphasisCode);
 
  set: #eToysButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #eToysFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: TextEmphasis bold emphasisCode);
  set: #eToysCodeFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #eToysTitleFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 32 emphasis: 0);
+ set: #paintBoxButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 12 emphasis: 0);
- set: #paintBoxButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 9 emphasis: 0);
  set: #standardMenuFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
+ set: #standardButtonFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #windowTitleFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #balloonHelpFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #connectorsLabelFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #standardCodeFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
+ set: #standardDefaultTextFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0);
  set: #standardSystemFont to: (TTCFont familyName: 'BitstreamVeraSans' pointSize: 15 emphasis: 0).
  theme]!

Item was changed:
  ----- Method: KedamaMorph>>makePrototypeOfExampler:color: (in category 'turtles') -----
  makePrototypeOfExampler: examplerPlayer color: cPixel
 
  | array inst info ind |
  array := examplerPlayer turtles.
  info := array info.
  array size > 0 ifTrue: [
  inst := array makePrototypeFromFirstInstance.
  cPixel ifNotNil: [inst at: (info at: #color) put: cPixel].
  ^ inst.
  ].
 
  inst := Array new: array instSize.
  info associationsDo: [:assoc |
  ind := assoc value.
  (examplerPlayer turtles types at: ind) = #Boolean ifTrue: [
  ind = 7
  ifTrue: [inst at: ind put: 1]
  ifFalse: [
+ inst at: ind put: ((examplerPlayer perform: (assoc key asString asGetterSelector)) ifTrue: [1] ifFalse: [0]).
- inst at: ind put: ((examplerPlayer perform: (Utilities getterSelectorFor: assoc key)) ifTrue: [1] ifFalse: [0]).
  ]
  ] ifFalse: [
+ inst at: ind put: (examplerPlayer perform: (assoc key asString asGetterSelector)).
- inst at: ind put: (examplerPlayer perform: (Utilities getterSelectorFor: assoc key)).
  ].
  ].
  cPixel ifNotNil: [inst at: (info at: #color) put: cPixel] ifNil: [inst at: (info at: #color) put: ((examplerPlayer getColor pixelValueForDepth: 32) bitAnd: 16rFFFFFF)].
  ^ inst.
  !

Item was added:
+ ----- Method: Morph>>isButton (in category '*Etoys-Squeakland-testing') -----
+ isButton
+
+ ^ false!

Item was changed:
  ----- Method: PreferencesPanel>>findPreferencesMatching: (in category 'initialization') -----
  findPreferencesMatching: incomingTextOrString
  "find all preferences matching incomingTextOrString"
 
  | result aList aPalette controlPage |
  result := incomingTextOrString asString asLowercase.
  result := result asLowercase withBlanksTrimmed.
  result isEmptyOrNil ifTrue: [^ self].
 
+ aList := Preferences allPreferences select:
- aList := Preferences allPreferenceObjects select:
  [:aPreference |
  (aPreference name includesSubstring: result caseSensitive: false) or:
  [aPreference helpString includesSubstring: result caseSensitive: false]].
  aPalette := (self containingWindow ifNil: [^ self]) findDeeplyA: TabbedPalette.
  aPalette ifNil: [^ self].
  aPalette selectTabNamed:  'search results'.
  aPalette currentPage ifNil: [^ self].  "bkwd compat"
  controlPage := aPalette currentPage.
  controlPage removeAllMorphs.
  controlPage addMorph: (StringMorph contents: ('Preferences matching "', self searchString, '"') font: Preferences standardEToysButtonFont).
  aList := aList asSortedCollection:
  [:a :b | a name < b name].
  aList do:
  [:aPreference | | button |
  button := aPreference representativeButtonWithColor: Color white inPanel: self.
  button ifNotNil: [controlPage addMorphBack: button]].
  aPalette world startSteppingSubmorphsOf: aPalette!

Item was changed:
  ----- Method: ReleaseBuilderSqueakland class>>prepareEnvironment (in category 'preparing') -----
  prepareEnvironment
  | directory entries projectNames |
  super prepareEnvironment.
  projectNames := #('Gallery' 'Tutorials' 'Home').
  directory := FileDirectory on: Smalltalk imagePath.
  entries := FileList2 projectOnlySelectionMethod: directory entries.
  projectNames
  do: [:projectName | (entries
  anySatisfy: [:each | (Project parseProjectFileName: each first) first = projectName])
+ ifFalse: [self inform: projectName , ' is not found']].
- ifFalse: [^ self error: projectName , ' is not found']].
  DeferredTask := [ProjectLoading openFromImagePath: 'Home'].!

Item was changed:
  ----- Method: ReleaseBuilderSqueakland class>>setPreferences (in category 'scripts') -----
  setPreferences
 
  super setPreferences.
  Preferences cambridge.
+ Preferences allPreferences do: [:each |
- Preferences allPreferenceObjects do: [:each |
  each defaultValue: each preferenceValue].
 
  Preferences
  disable: #alternativeWindowBoxesLook;
  enable: #magicHalos;
  enable: #mouseOverHalos;
  enable: #roundedScrollBarLook;
  enable: #roundedWindowCorners;
  enable: #showAdvancedNavigatorButtons;
  disable: #honorDesktopCmdKeys;
  disable: #warnIfNoChangesFile;
  disable: #warnIfNoSourcesFile;
  enable: #unlimitedPaintArea;
  enable: #fastDragWindowForMorphic;
  enable: #noviceMode;
  disable: #generalizedYellowButtonMenu;
  disable: #showAdvancedNavigatorButtons;
  disable: #signProjectFiles;
  disable: #warnIfNoChangesFile;
  disable: #warnIfChangesFileReadOnly;
  disable: #warnIfNoSourcesFile.
  Morph preferredCornerRadius: 8.
  PluggableButtonMorph roundedButtonCorners: true.
  FillInTheBlankMorph roundedDialogCorners: true.
  SystemWindow roundedWindowCorners: true.
- Preferences restoreDefaultFontsForSqueakland.
  Cursor useBiggerCursors: true.
  TrashCanMorph
  slideDismissalsToTrash: true;
  preserveTrash: true.
  SugarNavigatorBar
  showHideButton: false;
  showSugarNavigator: true.!

Item was added:
+ ----- Method: SimpleButtonMorph>>isButton (in category '*Etoys-Squeakland-testing') -----
+ isButton
+
+ ^ true!

Item was added:
+ ----- Method: SugarNavigatorBar class>>themeProperties (in category 'nil') -----
+ themeProperties
+
+ ^ {}!

Item was added:
+ ----- Method: SugarNavigatorBar>>applyUserInterfaceTheme (in category 'updating') -----
+ applyUserInterfaceTheme
+
+ self class showSugarNavigator: self class showSugarNavigator.!

Item was added:
+ ----- Method: SugarNavigatorBar>>canApplyUserInterfaceTheme (in category 'nil') -----
+ canApplyUserInterfaceTheme
+
+ ^ true!

Item was removed:
- ----- Method: SystemDictionary>>makeSqueaklandReleasePhaseFinalSettings (in category '*Etoys-Squeakland-squeakland') -----
- makeSqueaklandReleasePhaseFinalSettings
- "Smalltalk makeSqueaklandReleasePhaseFinalSettings"
-
- | serverName serverURL serverDir updateServer highestUpdate newVersion |
-
- ProjectLauncher splashMorph: ((FileDirectory default directoryNamed: 'scripts' )readOnlyFileNamed: 'SqueaklandSplash.morph') fileInObjectAndCode.
-
- "Dump all morphs so we don't hold onto anything"
- World submorphsDo:[:m| m delete].
-
- #(
- (honorDesktopCmdKeys false)
- (warnIfNoChangesFile false)
- (warnIfNoSourcesFile false)
- (showDirectionForSketches true)
- (menuColorFromWorld false)
- (unlimitedPaintArea true)
- (useGlobalFlaps false)
- (mvcProjectsAllowed false)
- (projectViewsInWindows false)
- (automaticKeyGeneration true)
- (securityChecksEnabled true)
- (showSecurityStatus false)
- (startInUntrustedDirectory true)
- (warnAboutInsecureContent false)
- (promptForUpdateServer false)
- (fastDragWindowForMorphic false)
-
- (externalServerDefsOnly true)
- (expandedFormat false)
- (allowCelesteTell false)
- (eToyFriendly true)
- (eToyLoginEnabled true)
- (magicHalos true)
- (mouseOverHalos true)
- (biggerHandles false)
- (selectiveHalos true)
- (includeSoundControlInNavigator true)
- (readDocumentAtStartup true)
- (preserveTrash true)
- (slideDismissalsToTrash true)
-
- ) do:[:spec|
- Preferences setPreference: spec first toValue: spec last].
- "Workaround for bug"
- Preferences enable: #readDocumentAtStartup.
-
- World color: (Color r: 0.9 g: 0.9 b: 1.0).
-
- "Clear all server entries"
- ServerDirectory serverNames do: [:each | ServerDirectory removeServerNamed: each].
- SystemVersion current resetHighestUpdate.
-
- "Add the squeakalpha update stream"
- serverName := 'Squeakalpha'.
- serverURL := 'squeakalpha.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'updates/';
- altUrl: serverDir;
- user: 'sqland';
- password: nil.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- "Add the squeakland update stream"
- serverName := 'Squeakland'.
- serverURL := 'squeakland.org'.
- serverDir := serverURL , '/'.
-
- updateServer := ServerDirectory new.
- updateServer
- server: serverURL;
- directory: 'public_html/updates/';
- altUrl: serverDir.
- Utilities updateUrlLists addFirst: {serverName. {serverDir. }.}.
-
- highestUpdate := SystemVersion current highestUpdate.
- (self confirm: 'Reset highest update (' , highestUpdate printString , ')?')
- ifTrue: [SystemVersion current highestUpdate: 0].
-
- newVersion := FillInTheBlank request: 'New version designation:' initialAnswer: 'Squeakland 3.8.' , highestUpdate printString.
- SystemVersion newVersion: newVersion.
- (self confirm: self version , '
- Is this the correct version designation?
- If not, choose no, and fix it.') ifFalse: [^ self].
- !