[squeak-dev] The Inbox: System-cmm.524.mczChris Muller asqueaker at gmail.comFri Jul 5 02:15:37 UTC 2013
Hi Frank, oops I based this off an older version of System, so be sure to _merge_ it. This is to move away from the Smallland Themes. Sets the ColorTheme default to a now-concrete instance of ColorTheme. I tried to keep all the colors exactly the same as the default image, but a couple of them seem to have changed a bit. We can tweak them as necessary. On Thu, Jul 4, 2013 at 9:08 PM, <commits at source.squeak.org> wrote: > A new version of System was added to project The Inbox: > http://source.squeak.org/inbox/System-cmm.524.mcz > > ==================== Summary ==================== > > Name: System-cmm.524 > Author: cmm > Time: 4 July 2013, 9:08:05.176 pm > UUID: 4556a090-d1b1-43c9-9db0-1f79ce45d31d > Ancestors: System-bf.523 > > - Use environment bindingOf: rather than associationAt:. > - Fix thoroughSenders preference. > - Make ColorTheme a concrete, attributable object. > - Set the default theme to a new instance of ColorTheme. > - This will help us disengage from SmalllandTheme dependency. > > =============== Diff against System-bf.523 =============== > > Item was changed: > ----- Method: Behavior>>allCallsOn (in category '*System-Support') ----- > allCallsOn > "Answer a SortedCollection of all the methods that refer to me by name or as part of an association in a global dict." > - > | theClass | > theClass := self theNonMetaClass. > + ^ (self systemNavigation allCallsOn: (self environment bindingOf: theClass name)) , > + (Preferences thoroughSenders > + ifTrue: [ self systemNavigation allCallsOn: theClass name ] > + ifFalse: [ OrderedCollection new ]) , > + (self systemNavigation allClasses > + select: > + [ : c | c sharedPools includes: theClass ] > + thenCollect: > + [ : c | ClassReference new > + setClassSymbol: c name > + classIsMeta: false > + stringVersion: c name ])! > - ^(self systemNavigation allCallsOn: (self environment associationAt: theClass name)), > - (Preferences thoroughSenders > - ifTrue: [OrderedCollection new] > - ifFalse: [self systemNavigation allCallsOn: theClass name]), > - (self systemNavigation allClasses > - select: [:c| c sharedPools includes: theClass] > - thenCollect: > - [:c| > - ClassReference new > - setClassSymbol: c name > - classIsMeta: false > - stringVersion: c name])! > > Item was changed: > + AttributableObject subclass: #ColorTheme > - Object subclass: #ColorTheme > instanceVariableNames: '' > classVariableNames: 'Current' > poolDictionaries: '' > category: 'System-Support'! > > Item was changed: > ----- Method: ColorTheme class>>defaultTheme (in category 'accessing') ----- > defaultTheme > + ^ self new! > - Smalltalk > - at: #YellowSmallLandColorTheme > - ifPresent: [:yellowSmallLandColorTheme | ^ yellowSmallLandColorTheme]. > - ^ (self allSubclasses > - select: [:each | each subclasses isEmpty]) anyOne! > > Item was changed: > ----- Method: ColorTheme>>balloonColor (in category 'theme') ----- > balloonColor > + ^ (self attributeNamed: #balloonColor) ifNil: > + [ TranslucentColor > + r: 0.92 > + g: 0.92 > + b: 0.706 > + alpha: 0.75 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>balloonColor: (in category 'theme') ----- > + balloonColor: aColor > + self > + attributeNamed: #balloonColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>cancelColor (in category 'theme') ----- > cancelColor > + ^ (self attributeNamed: #cancelColor) ifNil: [ Color lightRed ]! > - ^ Color lightRed! > > Item was added: > + ----- Method: ColorTheme>>cancelColor: (in category 'theme') ----- > + cancelColor: aColor > + self > + attributeNamed: #cancelColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>defaultWorldColor (in category 'theme') ----- > defaultWorldColor > + ^ (self attributeNamed: #defaultWorldColor) ifNil: [ Color blue muchLighter ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>defaultWorldColor: (in category 'theme') ----- > + defaultWorldColor: aColor > + self > + attributeNamed: #defaultWorldColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>dialog3DTitles (in category 'theme - dialogs') ----- > dialog3DTitles > + ^ (self attributeNamed: #dialog3DTitles) ifNil: [ false ]! > - ^ true! > > Item was added: > + ----- Method: ColorTheme>>dialog3DTitles: (in category 'theme - dialogs') ----- > + dialog3DTitles: aBoolean > + self > + attributeNamed: #dialog3DTitles > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogBorderColor (in category 'theme - dialogs') ----- > dialogBorderColor > + ^ (self attributeNamed: #dialogBorderColor) > + ifNil: [ Color r: 0.9 g: 0.801 b: 0.2 ]! > - ^ Color fromArray: #(0.355 0.516 1.0 )! > > Item was added: > + ----- Method: ColorTheme>>dialogBorderColor: (in category 'theme - dialogs') ----- > + dialogBorderColor: aBoolean > + self > + attributeNamed: #dialogBorderColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogBorderWidth (in category 'theme - dialogs') ----- > dialogBorderWidth > + ^ (self attributeNamed: #dialogBorderWidth) ifNil: [ 2 ]! > - ^ 4! > > Item was added: > + ----- Method: ColorTheme>>dialogBorderWidth: (in category 'theme - dialogs') ----- > + dialogBorderWidth: aBoolean > + self > + attributeNamed: #dialogBorderWidth > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') ----- > dialogButtonBorderWidth > + ^ (self attributeNamed: #dialogButtonBorderWidth) ifNil: [ 1 ]! > - ^ 0! > > Item was added: > + ----- Method: ColorTheme>>dialogButtonBorderWidth: (in category 'theme - dialogs') ----- > + dialogButtonBorderWidth: aBoolean > + self > + attributeNamed: #dialogButtonBorderWidth > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogColor (in category 'theme - dialogs') ----- > dialogColor > + ^ (self attributeNamed: #dialogColor) ifNil: [ Color r: 1 g: 0.85 b: 0.975 ]! > - ^ Color paleYellow! > > Item was added: > + ----- Method: ColorTheme>>dialogColor: (in category 'theme - dialogs') ----- > + dialogColor: aBoolean > + self > + attributeNamed: #dialogColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') ----- > dialogPaneBorderColor > + ^ (self attributeNamed: #dialogPaneBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ Color black > - ! > > Item was added: > + ----- Method: ColorTheme>>dialogPaneBorderColor: (in category 'theme - dialogs') ----- > + dialogPaneBorderColor: aBoolean > + self > + attributeNamed: #dialogPaneBorderColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') ----- > dialogPaneBorderWidth > + ^ (self attributeNamed: #dialogPaneBorderWidth) ifNil: [ 1 ]! > - ^ 0! > > Item was added: > + ----- Method: ColorTheme>>dialogPaneBorderWidth: (in category 'theme - dialogs') ----- > + dialogPaneBorderWidth: aBoolean > + self > + attributeNamed: #dialogPaneBorderWidth > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') ----- > dialogPaneRampOrColor > + ^ (self attributeNamed: #dialogPaneRampOrColor) ifNil: > + [ { 0.0 -> (Color r: 0.742 g: 0.871 b: 1.0). > + 1.0 -> (Color r: 0.516 g: 0.645 b: 1.0) } ]! > - ^ {0.0 -> (Color r: 0.742 g: 0.871 b: 1.0). > - 1.0 -> (Color r: 0.516 g: 0.645 b: 1.0)}! > > Item was added: > + ----- Method: ColorTheme>>dialogPaneRampOrColor: (in category 'theme - dialogs') ----- > + dialogPaneRampOrColor: aBoolean > + self > + attributeNamed: #dialogPaneRampOrColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogRampOrColor (in category 'theme - dialogs') ----- > dialogRampOrColor > + self deprecated: 'Use #dialogColor.'. > + ^ self dialogColor! > - ^ {0.0 -> (Color r: 0.516 g: 0.645 b: 1.0). > - 1.0 -> (Color r: 0.742 g: 0.871 b: 1.0)}! > > Item was changed: > ----- Method: ColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') ----- > dialogTextBoxBorderColor > + ^ (self attributeNamed: #dialogTextBoxBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ Color black! > > Item was added: > + ----- Method: ColorTheme>>dialogTextBoxBorderColor: (in category 'theme - dialogs') ----- > + dialogTextBoxBorderColor: aBoolean > + self > + attributeNamed: #dialogTextBoxBorderColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') ----- > dialogTextBoxColor > + ^ (self attributeNamed: #dialogTextBoxColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]! > - ^ Color white! > > Item was added: > + ----- Method: ColorTheme>>dialogTextBoxColor: (in category 'theme - dialogs') ----- > + dialogTextBoxColor: aBoolean > + self > + attributeNamed: #dialogTextBoxColor > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>disabledColor (in category 'theme') ----- > disabledColor > + ^ (self attributeNamed: #disabledColor) ifNil: [ Color lightGray ]! > - ^ Color lightGray! > > Item was added: > + ----- Method: ColorTheme>>disabledColor: (in category 'theme') ----- > + disabledColor: aColor > + self > + attributeNamed: #disabledColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') ----- > dockingBarAutoGradient > + ^ (self attributeNamed: #dockingBarAutoGradient) ifNil: [ true ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>dockingBarAutoGradient: (in category 'theme - dockingbar') ----- > + dockingBarAutoGradient: aBoolean > + self > + attributeNamed: #dockingBarAutoGradient > + put: aBoolean! > > Item was changed: > ----- Method: ColorTheme>>dockingBarColor (in category 'theme - dockingbar') ----- > dockingBarColor > + ^ (self attributeNamed: #dockingBarColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>dockingBarColor: (in category 'theme - dockingbar') ----- > + dockingBarColor: aColor > + self > + attributeNamed: #dockingBarColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') ----- > dockingBarGradientRamp > + ^ (self attributeNamed: #dockingBarGradientRamp) ifNil: > + [ { 0.0 -> Color white. > + 1.0 -> (Color r: 0.6 g: 0.7 b: 1) } ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>dockingBarGradientRamp: (in category 'theme - dockingbar') ----- > + dockingBarGradientRamp: anArray > + self > + attributeNamed: #dockingBarGradientRamp > + put: anArray! > > Item was changed: > ----- Method: ColorTheme>>helpColor (in category 'theme') ----- > helpColor > + ^ (self attributeNamed: #helpColor) ifNil: [ Color lightGreen ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>helpColor: (in category 'theme') ----- > + helpColor: aColor > + self > + attributeNamed: #helpColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>insertionPointColor (in category 'theme') ----- > insertionPointColor > + ^ (self attributeNamed: #insertionPointColor) ifNil: [ Color red ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>insertionPointColor: (in category 'theme') ----- > + insertionPointColor: aColor > + self > + attributeNamed: #insertionPointColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>keyboardFocusColor (in category 'theme') ----- > keyboardFocusColor > + ^ (self attributeNamed: #keyboardFocusColor) ifNil: [ Color r: 0.6 g: 1 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>keyboardFocusColor: (in category 'theme') ----- > + keyboardFocusColor: aColor > + self > + attributeNamed: #keyboardFocusColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuBorderColor (in category 'theme - menus') ----- > menuBorderColor > + ^ (self attributeNamed: #menuBorderColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuBorderColor: (in category 'theme - menus') ----- > + menuBorderColor: aColor > + self > + attributeNamed: #menuBorderColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuBorderWidth (in category 'theme - menus') ----- > menuBorderWidth > + ^ (self attributeNamed: #menuBorderWidth) ifNil: [ 2 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuBorderWidth: (in category 'theme - menus') ----- > + menuBorderWidth: aColor > + self > + attributeNamed: #menuBorderWidth > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuColor (in category 'theme - menus') ----- > menuColor > + ^ (self attributeNamed: #menuColor) ifNil: [ Color r: 0.85 g: 0.9 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuColor: (in category 'theme - menus') ----- > + menuColor: aColor > + self > + attributeNamed: #menuColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuLineColor (in category 'theme - menus') ----- > menuLineColor > + ^ (self attributeNamed: #menuLineColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuLineColor: (in category 'theme - menus') ----- > + menuLineColor: aColor > + self > + attributeNamed: #menuLineColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuSelectionColor (in category 'theme - menus') ----- > menuSelectionColor > + ^ (self attributeNamed: #menuSelectionColor) ifNil: [ Color r: 0.2 g: 0.3 b: 0.9 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuSelectionColor: (in category 'theme - menus') ----- > + menuSelectionColor: aColor > + self > + attributeNamed: #menuSelectionColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuTitleBorderColor (in category 'theme - menus') ----- > menuTitleBorderColor > + ^ (self attributeNamed: #menuTitleBorderColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuTitleBorderColor: (in category 'theme - menus') ----- > + menuTitleBorderColor: aColor > + self > + attributeNamed: #menuTitleBorderColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuTitleBorderWidth (in category 'theme - menus') ----- > menuTitleBorderWidth > + ^ (self attributeNamed: #menuTitleBorderWidth) ifNil: [ 6 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuTitleBorderWidth: (in category 'theme - menus') ----- > + menuTitleBorderWidth: aColor > + self > + attributeNamed: #menuTitleBorderWidth > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>menuTitleColor (in category 'theme - menus') ----- > menuTitleColor > + ^ (self attributeNamed: #menuTitleColor) ifNil: [ Color r: 0.6 g: 0.7 b: 1 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>menuTitleColor: (in category 'theme - menus') ----- > + menuTitleColor: aColor > + self > + attributeNamed: #menuTitleColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>okColor (in category 'theme') ----- > okColor > + ^ (self attributeNamed: #okColor) ifNil: [ Color lightGreen ]! > - ^ Color lightGreen! > > Item was added: > + ----- Method: ColorTheme>>okColor: (in category 'theme') ----- > + okColor: aColor > + self > + attributeNamed: #okColor > + put: aColor! > > Item was changed: > ----- Method: ColorTheme>>textHighlightColor (in category 'theme') ----- > textHighlightColor > + ^ (self attributeNamed: #textHighlightColor) ifNil: [ Color blue muchLighter alpha: 0.7 ]! > - ^ self subclassResponsibility! > > Item was added: > + ----- Method: ColorTheme>>textHighlightColor: (in category 'theme') ----- > + textHighlightColor: aColor > + self > + attributeNamed: #textHighlightColor > + put: aColor! > > Item was changed: > ----- Method: Preferences class>>Curvier (in category 'standard queries') ----- > Curvier > ^ self > valueOfFlag: #Curvier > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>abbreviatedBrowserButtons (in category 'standard queries') ----- > abbreviatedBrowserButtons > ^ self > valueOfFlag: #abbreviatedBrowserButtons > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alphabeticalProjectMenu (in category 'standard queries') ----- > alphabeticalProjectMenu > ^ self > valueOfFlag: #alphabeticalProjectMenu > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alternateHandlesLook (in category 'standard queries') ----- > alternateHandlesLook > ^ self > valueOfFlag: #alternateHandlesLook > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>alternativeBrowseIt (in category 'standard queries') ----- > alternativeBrowseIt > ^ self > valueOfFlag: #alternativeBrowseIt > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alternativeButtonsInScrollBars (in category 'standard queries') ----- > alternativeButtonsInScrollBars > ^ self > valueOfFlag: #alternativeButtonsInScrollBars > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alwaysHideHScrollbar (in category 'standard queries') ----- > alwaysHideHScrollbar > ^ self > valueOfFlag: #alwaysHideHScrollbar > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was removed: > - ----- Method: Preferences class>>alwaysShowConnectionVocabulary (in category 'standard queries') ----- > - alwaysShowConnectionVocabulary > - ^ self > - valueOfFlag: #alwaysShowConnectionVocabulary > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alwaysShowHScrollbar (in category 'standard queries') ----- > alwaysShowHScrollbar > ^ self > valueOfFlag: #alwaysShowHScrollbar > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>alwaysShowVScrollbar (in category 'standard queries') ----- > alwaysShowVScrollbar > ^ self > valueOfFlag: #alwaysShowVScrollbar > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>areaFillsAreTolerant (in category 'standard queries') ----- > areaFillsAreTolerant > ^ self > valueOfFlag: #areaFillsAreTolerant > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>areaFillsAreVeryTolerant (in category 'standard queries') ----- > areaFillsAreVeryTolerant > ^ self > valueOfFlag: #areaFillsAreVeryTolerant > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>automaticFlapLayout (in category 'standard queries') ----- > automaticFlapLayout > ^ self > valueOfFlag: #automaticFlapLayout > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>automaticKeyGeneration (in category 'standard queries') ----- > automaticKeyGeneration > ^ self > valueOfFlag: #automaticKeyGeneration > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>automaticPlatformSettings (in category 'standard queries') ----- > automaticPlatformSettings > ^ self > valueOfFlag: #automaticPlatformSettings > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>automaticViewerPlacement (in category 'standard queries') ----- > automaticViewerPlacement > ^ self > valueOfFlag: #automaticViewerPlacement > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>balloonHelpEnabled (in category 'standard queries') ----- > balloonHelpEnabled > ^ self > valueOfFlag: #balloonHelpEnabled > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>balloonHelpInMessageLists (in category 'standard queries') ----- > balloonHelpInMessageLists > ^ self > valueOfFlag: #balloonHelpInMessageLists > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>batchPenTrails (in category 'standard queries') ----- > batchPenTrails > ^ self > valueOfFlag: #batchPenTrails > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>bigDisplay (in category 'standard queries') ----- > bigDisplay > ^ self > valueOfFlag: #bigDisplay > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>biggerHandles (in category 'standard queries') ----- > biggerHandles > ^ self > valueOfFlag: #biggerHandles > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>browseWithDragNDrop (in category 'standard queries') ----- > browseWithDragNDrop > ^ self > valueOfFlag: #browseWithDragNDrop > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>browseWithPrettyPrint (in category 'standard queries') ----- > browseWithPrettyPrint > ^ self > valueOfFlag: #browseWithPrettyPrint > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>browserShowsPackagePane (in category 'standard queries') ----- > browserShowsPackagePane > ^ self > valueOfFlag: #browserShowsPackagePane > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>capitalizedReferences (in category 'standard queries') ----- > capitalizedReferences > ^ self > valueOfFlag: #capitalizedReferences > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>caseSensitiveFinds (in category 'standard queries') ----- > caseSensitiveFinds > ^ self > valueOfFlag: #caseSensitiveFinds > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>cautionBeforeClosing (in category 'standard queries') ----- > cautionBeforeClosing > ^ self > valueOfFlag: #cautionBeforeClosing > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>changeSetVersionNumbers (in category 'standard queries') ----- > changeSetVersionNumbers > ^ self > valueOfFlag: #changeSetVersionNumbers > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>checkForSlips (in category 'standard queries') ----- > checkForSlips > ^ self > valueOfFlag: #checkForSlips > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>checkForUnsavedProjects (in category 'standard queries') ----- > checkForUnsavedProjects > ^ self > valueOfFlag: #checkForUnsavedProjects > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>classicNavigatorEnabled (in category 'standard queries') ----- > classicNavigatorEnabled > ^ self > valueOfFlag: #classicNavigatorEnabled > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>cmdDotEnabled (in category 'standard queries') ----- > cmdDotEnabled > ^ self > valueOfFlag: #cmdDotEnabled > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>collapseWindowsInPlace (in category 'standard queries') ----- > collapseWindowsInPlace > ^ self > valueOfFlag: #collapseWindowsInPlace > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>compactViewerFlaps (in category 'standard queries') ----- > compactViewerFlaps > ^ self > valueOfFlag: #compactViewerFlaps > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>compressFlashImages (in category 'standard queries') ----- > compressFlashImages > ^ self > valueOfFlag: #compressFlashImages > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>confirmFirstUseOfStyle (in category 'standard queries') ----- > confirmFirstUseOfStyle > ^ self > valueOfFlag: #confirmFirstUseOfStyle > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>conversionMethodsAtFileOut (in category 'standard queries') ----- > conversionMethodsAtFileOut > ^ self > valueOfFlag: #conversionMethodsAtFileOut > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>cpuWatcherEnabled (in category 'standard queries') ----- > cpuWatcherEnabled > ^ self > valueOfFlag: #cpuWatcherEnabled > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>debugHaloHandle (in category 'standard queries') ----- > debugHaloHandle > ^ self > valueOfFlag: #debugHaloHandle > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>debugPrintSpaceLog (in category 'standard queries') ----- > debugPrintSpaceLog > ^ self > valueOfFlag: #debugPrintSpaceLog > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>debugShowDamage (in category 'standard queries') ----- > debugShowDamage > ^ self > valueOfFlag: #debugShowDamage > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>decorateBrowserButtons (in category 'standard queries') ----- > decorateBrowserButtons > ^ self > valueOfFlag: #decorateBrowserButtons > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>defaultFileOutFormatMacRoman (in category 'standard queries') ----- > defaultFileOutFormatMacRoman > ^ self > valueOfFlag: #defaultFileOutFormatMacRoman > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>diffsInChangeList (in category 'standard queries') ----- > diffsInChangeList > ^ self > valueOfFlag: #diffsInChangeList > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>diffsWithPrettyPrint (in category 'standard queries') ----- > diffsWithPrettyPrint > ^ self > valueOfFlag: #diffsWithPrettyPrint > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>dismissAllOnOptionClose (in category 'standard queries') ----- > dismissAllOnOptionClose > ^ self > valueOfFlag: #dismissAllOnOptionClose > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>dragNDropWithAnimation (in category 'standard queries') ----- > dragNDropWithAnimation > ^ self > valueOfFlag: #dragNDropWithAnimation > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>dropProducesWatcher (in category 'standard queries') ----- > dropProducesWatcher > ^ self > valueOfFlag: #dropProducesWatcher > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>duplicateAllControlAndAltKeys (in category 'standard queries') ----- > duplicateAllControlAndAltKeys > ^ self > valueOfFlag: #duplicateAllControlAndAltKeys > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>duplicateControlAndAltKeys (in category 'standard queries') ----- > duplicateControlAndAltKeys > ^ self > valueOfFlag: #duplicateControlAndAltKeys > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>eToyFriendly (in category 'standard queries') ----- > eToyFriendly > ^ self > valueOfFlag: #eToyFriendly > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>eToyLoginEnabled (in category 'standard queries') ----- > eToyLoginEnabled > ^ self > valueOfFlag: #eToyLoginEnabled > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>easySelection (in category 'standard queries') ----- > easySelection > ^ self > valueOfFlag: #easySelection > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>enableLocalSave (in category 'standard queries') ----- > enableLocalSave > ^ self > valueOfFlag: #enableLocalSave > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>expandedPublishing (in category 'standard queries') ----- > expandedPublishing > ^ self > valueOfFlag: #expandedPublishing > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>extraDebuggerButtons (in category 'standard queries') ----- > extraDebuggerButtons > ^ self > valueOfFlag: #extraDebuggerButtons > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>extractFlashInHighQuality (in category 'standard queries') ----- > extractFlashInHighQuality > ^ self > valueOfFlag: #extractFlashInHighQuality > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>extractFlashInHighestQuality (in category 'standard queries') ----- > extractFlashInHighestQuality > ^ self > valueOfFlag: #extractFlashInHighestQuality > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>fastDragWindowForMorphic (in category 'standard queries') ----- > fastDragWindowForMorphic > ^ self > valueOfFlag: #fastDragWindowForMorphic > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>fenceEnabled (in category 'standard queries') ----- > fenceEnabled > ^ self > valueOfFlag: #fenceEnabled > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>fenceSoundEnabled (in category 'standard queries') ----- > fenceSoundEnabled > ^ self > valueOfFlag: #fenceSoundEnabled > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>fullScreenLeavesDeskMargins (in category 'standard queries') ----- > fullScreenLeavesDeskMargins > ^ self > valueOfFlag: #fullScreenLeavesDeskMargins > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>generalizedYellowButtonMenu (in category 'standard queries') ----- > generalizedYellowButtonMenu > ^ self > valueOfFlag: #generalizedYellowButtonMenu > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>gradientMenu (in category 'standard queries') ----- > gradientMenu > ^ self > valueOfFlag: #gradientMenu > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>gradientScrollBars (in category 'standard queries') ----- > gradientScrollBars > ^ self > valueOfFlag: #gradientScrollBars > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>haloEnclosesFullBounds (in category 'standard queries') ----- > haloEnclosesFullBounds > ^ self > valueOfFlag: #haloEnclosesFullBounds > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>haloTheme (in category 'halos') ----- > haloTheme > ^ self > valueOfFlag: #haloTheme > + ifAbsent: [ #iconicHaloSpecifications ]! > - ifAbsent: [#iconicHaloSpecifications]! > > Item was changed: > ----- Method: Preferences class>>haloTransitions (in category 'standard queries') ----- > haloTransitions > ^ self > valueOfFlag: #haloTransitions > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>higherPerformance (in category 'standard queries') ----- > higherPerformance > ^ self > valueOfFlag: #higherPerformance > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>honorDesktopCmdKeys (in category 'standard queries') ----- > honorDesktopCmdKeys > ^ self > valueOfFlag: #honorDesktopCmdKeys > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>ignoreStyleIfOnlyBold (in category 'standard queries') ----- > ignoreStyleIfOnlyBold > ^ self > valueOfFlag: #ignoreStyleIfOnlyBold > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>includeSoundControlInNavigator (in category 'standard queries') ----- > includeSoundControlInNavigator > ^ self > valueOfFlag: #includeSoundControlInNavigator > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>infiniteUndo (in category 'standard queries') ----- > infiniteUndo > ^ self > valueOfFlag: #infiniteUndo > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>inlineServicesInMenu (in category 'standard queries') ----- > inlineServicesInMenu > ^ self > valueOfFlag: #inlineServicesInMenu > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>keepTickingWhilePainting (in category 'standard queries') ----- > keepTickingWhilePainting > ^ self > valueOfFlag: #keepTickingWhilePainting > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>logDebuggerStackToFile (in category 'standard queries') ----- > logDebuggerStackToFile > ^ self > valueOfFlag: #logDebuggerStackToFile > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>magicHalos (in category 'standard queries') ----- > magicHalos > ^ self > valueOfFlag: #magicHalos > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>maintainHalos (in category 'standard queries') ----- > maintainHalos > ^ self > valueOfFlag: #maintainHalos > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>menuAppearance3d (in category 'standard queries') ----- > menuAppearance3d > ^ self > valueOfFlag: #menuAppearance3d > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>menuButtonInToolPane (in category 'standard queries') ----- > menuButtonInToolPane > ^ self > valueOfFlag: #menuButtonInToolPane > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>menuKeyboardControl (in category 'standard queries') ----- > menuKeyboardControl > ^ self > valueOfFlag: #menuKeyboardControl > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>menuWithIcons (in category 'standard queries') ----- > menuWithIcons > ^ self > valueOfFlag: #menuWithIcons > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>modalColorPickers (in category 'standard queries') ----- > modalColorPickers > ^ self > valueOfFlag: #modalColorPickers > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>mouseOverForKeyboardFocus (in category 'standard queries') ----- > mouseOverForKeyboardFocus > ^ self > valueOfFlag: #mouseOverForKeyboardFocus > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>mouseOverHalos (in category 'standard queries') ----- > mouseOverHalos > ^ self > valueOfFlag: #mouseOverHalos > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>multipleTextUndo (in category 'standard queries') ----- > multipleTextUndo > ^ self > valueOfFlag: #multipleTextUndo > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>mvcProjectsAllowed (in category 'standard queries') ----- > mvcProjectsAllowed > ^ self > valueOfFlag: #mvcProjectsAllowed > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>navigatorOnLeftEdge (in category 'standard queries') ----- > navigatorOnLeftEdge > ^ self > valueOfFlag: #navigatorOnLeftEdge > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>noviceMode (in category 'standard queries') ----- > noviceMode > ^ self > valueOfFlag: #noviceMode > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>okToReinitializeFlaps (in category 'standard queries') ----- > okToReinitializeFlaps > ^ self > valueOfFlag: #okToReinitializeFlaps > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>oliveHandleForScriptedObjects (in category 'standard queries') ----- > oliveHandleForScriptedObjects > ^ self > valueOfFlag: #oliveHandleForScriptedObjects > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>optionalButtons (in category 'standard queries') ----- > optionalButtons > ^ self > valueOfFlag: #optionalButtons > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>passwordsOnPublish (in category 'standard queries') ----- > passwordsOnPublish > ^ self > valueOfFlag: #passwordsOnPublish > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>personalizedWorldMenu (in category 'standard queries') ----- > personalizedWorldMenu > ^ self > valueOfFlag: #personalizedWorldMenu > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>postscriptStoredAsEPS (in category 'standard queries') ----- > postscriptStoredAsEPS > ^ self > valueOfFlag: #postscriptStoredAsEPS > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>preferencesPanelWindowColor (in category 'standard queries') ----- > preferencesPanelWindowColor > ^ self > valueOfFlag: #preferencesPanelWindowColor > + ifAbsent: > + [ Color > - ifAbsent: [Color > r: 0.645 > g: 1.0 > + b: 1.0 ]! > - b: 1.0]! > > Item was changed: > ----- Method: Preferences class>>preserveTrash (in category 'standard queries') ----- > preserveTrash > ^ self > valueOfFlag: #preserveTrash > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>projectViewsInWindows (in category 'standard queries') ----- > projectViewsInWindows > ^ self > valueOfFlag: #projectViewsInWindows > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>projectZoom (in category 'standard queries') ----- > projectZoom > ^ self > valueOfFlag: #projectZoom > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>projectsSentToDisk (in category 'standard queries') ----- > projectsSentToDisk > ^ self > valueOfFlag: #projectsSentToDisk > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>promptForUpdateServer (in category 'standard queries') ----- > promptForUpdateServer > ^ self > valueOfFlag: #promptForUpdateServer > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>propertySheetFromHalo (in category 'standard queries') ----- > propertySheetFromHalo > ^ self > valueOfFlag: #propertySheetFromHalo > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>purgeUndoOnQuit (in category 'standard queries') ----- > purgeUndoOnQuit > ^ self > valueOfFlag: #purgeUndoOnQuit > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>readDocumentAtStartup (in category 'standard queries') ----- > readDocumentAtStartup > ^ self > valueOfFlag: #readDocumentAtStartup > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>readOnlyMode (in category 'standard queries') ----- > readOnlyMode > ^ self > valueOfFlag: #readOnlyMode > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>restartAlsoProceeds (in category 'standard queries') ----- > restartAlsoProceeds > ^ self > valueOfFlag: #restartAlsoProceeds > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>reverseWindowStagger (in category 'standard queries') ----- > reverseWindowStagger > ^ self > valueOfFlag: #reverseWindowStagger > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>roundedMenuCorners (in category 'standard queries') ----- > roundedMenuCorners > ^ self > valueOfFlag: #roundedMenuCorners > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>roundedWindowCorners (in category 'standard queries') ----- > roundedWindowCorners > ^ self > valueOfFlag: #roundedWindowCorners > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>scrollBarsNarrow (in category 'standard queries') ----- > scrollBarsNarrow > ^ self > valueOfFlag: #scrollBarsNarrow > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>scrollBarsOnRight (in category 'standard queries') ----- > scrollBarsOnRight > ^ self > valueOfFlag: #scrollBarsOnRight > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>scrollBarsWithoutMenuButton (in category 'standard queries') ----- > scrollBarsWithoutMenuButton > ^ self > valueOfFlag: #scrollBarsWithoutMenuButton > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>securityChecksEnabled (in category 'standard queries') ----- > securityChecksEnabled > ^ self > valueOfFlag: #securityChecksEnabled > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>selectiveHalos (in category 'standard queries') ----- > selectiveHalos > ^ self > valueOfFlag: #selectiveHalos > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>showAdvancedNavigatorButtons (in category 'standard queries') ----- > showAdvancedNavigatorButtons > ^ self > valueOfFlag: #showAdvancedNavigatorButtons > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>showDeprecationWarnings (in category 'standard queries') ----- > showDeprecationWarnings > ^ self > valueOfFlag: #showDeprecationWarnings > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>showDirectionForSketches (in category 'standard queries') ----- > showDirectionForSketches > ^ self > valueOfFlag: #showDirectionForSketches > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>showDirectionHandles (in category 'standard queries') ----- > showDirectionHandles > ^ self > valueOfFlag: #showDirectionHandles > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>showFlapsWhenPublishing (in category 'standard queries') ----- > showFlapsWhenPublishing > ^ self > valueOfFlag: #showFlapsWhenPublishing > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>showProjectNavigator (in category 'standard queries') ----- > showProjectNavigator > ^ self > valueOfFlag: #showProjectNavigator > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>showSecurityStatus (in category 'standard queries') ----- > showSecurityStatus > ^ self > valueOfFlag: #showSecurityStatus > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>showSharedFlaps (in category 'standard queries') ----- > showSharedFlaps > ^ self > valueOfFlag: #showSharedFlaps > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>signProjectFiles (in category 'standard queries') ----- > signProjectFiles > ^ self > valueOfFlag: #signProjectFiles > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>simpleMenus (in category 'standard queries') ----- > simpleMenus > ^ self > valueOfFlag: #simpleMenus > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>slideDismissalsToTrash (in category 'standard queries') ----- > slideDismissalsToTrash > ^ self > valueOfFlag: #slideDismissalsToTrash > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>smartUpdating (in category 'standard queries') ----- > smartUpdating > ^ self > valueOfFlag: #smartUpdating > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>startInUntrustedDirectory (in category 'standard queries') ----- > startInUntrustedDirectory > ^ self > valueOfFlag: #startInUntrustedDirectory > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>swapControlAndAltKeys (in category 'standard queries') ----- > swapControlAndAltKeys > ^ self > valueOfFlag: #swapControlAndAltKeys > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>swapMouseButtons (in category 'standard queries') ----- > swapMouseButtons > ^ self > valueOfFlag: #swapMouseButtons > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>syntaxHighlightingAsYouType (in category 'standard queries') ----- > syntaxHighlightingAsYouType > ^ self > valueOfFlag: #syntaxHighlightingAsYouType > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>syntaxHighlightingAsYouTypeAnsiAssignment (in category 'standard queries') ----- > syntaxHighlightingAsYouTypeAnsiAssignment > ^ self > valueOfFlag: #syntaxHighlightingAsYouTypeAnsiAssignment > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>syntaxHighlightingAsYouTypeLeftArrowAssignment (in category 'standard queries') ----- > syntaxHighlightingAsYouTypeLeftArrowAssignment > ^ self > valueOfFlag: #syntaxHighlightingAsYouTypeLeftArrowAssignment > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>systemWindowEmbedOK (in category 'standard queries') ----- > systemWindowEmbedOK > ^ self > valueOfFlag: #systemWindowEmbedOK > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>tabAmongFields (in category 'standard queries') ----- > tabAmongFields > ^ self > valueOfFlag: #tabAmongFields > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>thoroughSenders (in category 'standard queries') ----- > thoroughSenders > ^ self > valueOfFlag: #thoroughSenders > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>tileTranslucentDrag (in category 'standard queries') ----- > tileTranslucentDrag > ^ self > valueOfFlag: #tileTranslucentDrag > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>timeStampsInMenuTitles (in category 'standard queries') ----- > timeStampsInMenuTitles > ^ self > valueOfFlag: #timeStampsInMenuTitles > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>tinyDisplay (in category 'standard queries') ----- > tinyDisplay > ^ self > valueOfFlag: #tinyDisplay > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>turnOffPowerManager (in category 'standard queries') ----- > turnOffPowerManager > ^ self > valueOfFlag: #turnOffPowerManager > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>twentyFourHourFileStamps (in category 'standard queries') ----- > twentyFourHourFileStamps > ^ self > valueOfFlag: #twentyFourHourFileStamps > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>typeCheckingInTileScripting (in category 'standard queries') ----- > typeCheckingInTileScripting > ^ self > valueOfFlag: #typeCheckingInTileScripting > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>uniTilesClassic (in category 'standard queries') ----- > uniTilesClassic > ^ self > valueOfFlag: #uniTilesClassic > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>uniqueNamesInHalos (in category 'standard queries') ----- > uniqueNamesInHalos > ^ self > valueOfFlag: #uniqueNamesInHalos > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>unlimitedPaintArea (in category 'standard queries') ----- > unlimitedPaintArea > ^ self > valueOfFlag: #unlimitedPaintArea > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>updateFromServerAtStartup (in category 'standard queries') ----- > updateFromServerAtStartup > ^ self > valueOfFlag: #updateFromServerAtStartup > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>updateSavesFile (in category 'standard queries') ----- > updateSavesFile > ^ self > valueOfFlag: #updateSavesFile > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>upgradeIsMerge (in category 'standard queries') ----- > upgradeIsMerge > ^ self > valueOfFlag: #upgradeIsMerge > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>useButtonProprtiesToFire (in category 'standard queries') ----- > useButtonProprtiesToFire > ^ self > valueOfFlag: #useButtonProprtiesToFire > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>useOnlyServicesInMenu (in category 'standard queries') ----- > useOnlyServicesInMenu > ^ self > valueOfFlag: #useOnlyServicesInMenu > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>useServicesInBrowserButtonBar (in category 'standard queries') ----- > useServicesInBrowserButtonBar > ^ self > valueOfFlag: #useServicesInBrowserButtonBar > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was removed: > - ----- Method: Preferences class>>useSmartLabels (in category 'standard queries') ----- > - useSmartLabels > - ^ self > - valueOfFlag: #useSmartLabels > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>useUndo (in category 'standard queries') ----- > useUndo > ^ self > valueOfFlag: #useUndo > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>useVectorVocabulary (in category 'standard queries') ----- > useVectorVocabulary > ^ self > valueOfFlag: #useVectorVocabulary > + ifAbsent: [ false ]! > - ifAbsent: [false]! > > Item was changed: > ----- Method: Preferences class>>viewersInFlaps (in category 'standard queries') ----- > viewersInFlaps > ^ self > valueOfFlag: #viewersInFlaps > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>visualExplorer (in category 'standard queries') ----- > visualExplorer > ^ self > valueOfFlag: #visualExplorer > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>warnAboutInsecureContent (in category 'standard queries') ----- > warnAboutInsecureContent > ^ self > valueOfFlag: #warnAboutInsecureContent > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>warnIfNoChangesFile (in category 'standard queries') ----- > warnIfNoChangesFile > ^ self > valueOfFlag: #warnIfNoChangesFile > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>warnIfNoSourcesFile (in category 'standard queries') ----- > warnIfNoSourcesFile > ^ self > valueOfFlag: #warnIfNoSourcesFile > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: Preferences class>>wordStyleCursorMovement (in category 'standard queries') ----- > wordStyleCursorMovement > ^ self > valueOfFlag: #wordStyleCursorMovement > + ifAbsent: [ true ]! > - ifAbsent: [true]! > > Item was changed: > ----- Method: SpaceTallyItem>>printOn: (in category 'printing') ----- > printOn: aStream > > analyzedClassName > ifNotNil: [ aStream nextPutAll: analyzedClassName asString]. > aStream nextPutAll: ' ('. > codeSize > ifNotNil: [ aStream nextPutAll: 'code size: ' ; nextPutAll: codeSize asString]. > instanceCount > ifNotNil: [ aStream nextPutAll: ' instance count: ' ; nextPutAll: instanceCount asString]. > spaceForInstances > + ifNotNil: [ aStream nextPutAll: ' space for instances: ' ; nextPutAll: spaceForInstances asBytesDescription]. > - ifNotNil: [ aStream nextPutAll: ' space for instances: ' ; nextPutAll: spaceForInstances asString]. > aStream nextPut: $). > ! > > Item was changed: > (PackageInfo named: 'System') postscript: '"Remove instance of NaturalLanguageTranslator in InternalTranslator, since it breaks its own startup method." > InternalTranslator resetCaches. > "Remove obsolete preferences." > #(allowUnderscoreAssignment allowBlockArgumentAssignment soundsEnabled soundQuickStart soundStopWhenDone canRecordWhilePlaying) > + do: [ :each | Preferences removePreference: each ]. > + ColorTheme current: nil'! > - do: [ :each | Preferences removePreference: each ].'! > >
More information about the Squeak-dev mailing list |