Squeak-dev July 2013

squeak-dev@lists.squeakfoundation.org

50 participants
342 discussions

The Trunk: Compression-fbs.36.mcz
by commits＠source.squeak.org 05 Jul '13

05 Jul '13

Frank Shearar uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-fbs.36.mcz ==================== Summary ==================== Name: Compression-fbs.36 Author: fbs Time: 5 July 2013, 9:59:01.646 pm UUID: 44283c36-3bbc-5444-bc84-35144b694d12 Ancestors: Compression-fbs.35 Make Compression augment Kernel, and thus break the cyclic Kernel <-> Compression dependency. =============== Diff against Compression-fbs.35 =============== Item was added: + ----- Method: CompiledMethodTrailer>>decodeEmbeddedSourceZip (in category '*Compression-KernelExtensions') ----- + decodeEmbeddedSourceZip + + "data is string with method's source code, compressed using zip compression" + self decodeZip.! Item was added: + ----- Method: CompiledMethodTrailer>>decodeTempsNamesZip (in category '*Compression-KernelExtensions') ----- + decodeTempsNamesZip + + "data is string with method's temporary names, compressed using zip compression" + self decodeZip.! Item was added: + ----- Method: CompiledMethodTrailer>>decodeZip (in category '*Compression-KernelExtensions') ----- + decodeZip + + "data := <trailer> unzip utf8ToSqueak" + | len bytes | + len := self decodeLengthField. + bytes := ByteArray new: len. + 1 to: len do: [ :i | + bytes at: i put: (method at: method size - size + i) ]. + + data := (ZipReadStream on: bytes) contents asString convertFromEncoding: 'utf8'! Item was added: + ----- Method: CompiledMethodTrailer>>encodeEmbeddedSourceZip (in category '*Compression-KernelExtensions') ----- + encodeEmbeddedSourceZip + + "data is string with method's source code, encode it using Zip compression method" + self encodeUsingZip + ! Item was added: + ----- Method: CompiledMethodTrailer>>encodeTempsNamesZip (in category '*Compression-KernelExtensions') ----- + encodeTempsNamesZip + + "data is string with method's temporary names, encode it using zip compression" + self encodeUsingZip + + "data is string with method's source code, encoded using qCompress method" + + + ! Item was added: + ----- Method: CompiledMethodTrailer>>encodeUsingZip (in category '*Compression-KernelExtensions') ----- + encodeUsingZip + + "data is string, encode it using gzip compression" + | utf8str stream length encodedLength | + + self assert: (data isString). + utf8str := data convertToEncoding: 'utf8'. + + stream := ((ZipWriteStream on: (ByteArray new: utf8str size)) + nextPutAll: utf8str asByteArray; + close; + encodedStream). + + length := stream position. + encodedLength := self encodeLengthField: length. + + stream nextPutAll: encodedLength. + "trailing byte" + stream nextPut: (self kindAsByte + encodedLength size - 1). + + encodedData := stream contents + !

1 0

The Trunk: Kernel-fbs.780.mcz
by commits＠source.squeak.org 05 Jul '13

05 Jul '13

Frank Shearar uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-fbs.780.mcz ==================== Summary ==================== Name: Kernel-fbs.780 Author: fbs Time: 5 July 2013, 9:57:39.778 pm UUID: 081159f7-f3d1-a844-b62d-a5e4c784a296 Ancestors: Kernel-fbs.779 Make Compression augment Kernel, and thus break the cyclic Kernel <-> Compression dependency. =============== Diff against Kernel-fbs.779 =============== Item was removed: - ----- Method: CompiledMethodTrailer>>decodeEmbeddedSourceZip (in category 'decoding') ----- - decodeEmbeddedSourceZip - - "data is string with method's source code, compressed using zip compression" - self decodeZip.! Item was removed: - ----- Method: CompiledMethodTrailer>>decodeTempsNamesZip (in category 'decoding') ----- - decodeTempsNamesZip - - "data is string with method's temporary names, compressed using zip compression" - self decodeZip.! Item was removed: - ----- Method: CompiledMethodTrailer>>decodeZip (in category 'private') ----- - decodeZip - - "data := <trailer> unzip utf8ToSqueak" - | len bytes | - len := self decodeLengthField. - bytes := ByteArray new: len. - 1 to: len do: [ :i | - bytes at: i put: (method at: method size - size + i) ]. - - data := (ZipReadStream on: bytes) contents asString convertFromEncoding: 'utf8'! Item was removed: - ----- Method: CompiledMethodTrailer>>encodeEmbeddedSourceZip (in category 'encoding') ----- - encodeEmbeddedSourceZip - - "data is string with method's source code, encode it using Zip compression method" - self encodeUsingZip - ! Item was removed: - ----- Method: CompiledMethodTrailer>>encodeTempsNamesZip (in category 'decoding') ----- - encodeTempsNamesZip - - "data is string with method's temporary names, encode it using zip compression" - self encodeUsingZip - - "data is string with method's source code, encoded using qCompress method" - - - ! Item was removed: - ----- Method: CompiledMethodTrailer>>encodeUsingZip (in category 'private') ----- - encodeUsingZip - - "data is string, encode it using gzip compression" - | utf8str stream length encodedLength | - - self assert: (data isString). - utf8str := data convertToEncoding: 'utf8'. - - stream := ((ZipWriteStream on: (ByteArray new: utf8str size)) - nextPutAll: utf8str asByteArray; - close; - encodedStream). - - length := stream position. - encodedLength := self encodeLengthField: length. - - stream nextPutAll: encodedLength. - "trailing byte" - stream nextPut: (self kindAsByte + encodedLength size - 1). - - encodedData := stream contents - !

1 0

Re: [squeak-dev] The Inbox: Kernel-cmm.761.mcz
by Tobias Pape 05 Jul '13

05 Jul '13

Can’t we name that ‘properties’? I think that ‘attributes’ is too close to the notion of attributes in general OO design as well as UML. These attributes would correspond to our attributes. Magritte and SqueakSource both provide such properties-bearing approach; the implementation is similar but does not (yet) provide the deepcopy stuff; the protocol would be similar but with ‘at’ instead of ‘named’ Fun fact. Magritte supports descriptions that can access either instance variables directly or via accessor, or alternatively, such a properties dictionary, as long as it is named ‘properties’. Best -Tobias Am 05.07.2013 um 07:02 schrieb commits(a)source.squeak.org: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-cmm.761.mcz > > ==================== Summary ==================== > > Name: Kernel-cmm.761 > Author: cmm > Time: 4 July 2013, 9:01:30.236 pm > UUID: b9aaab83-9dfc-4c4f-a4e6-203167954cc1 > Ancestors: Kernel-cmm.760 > > - Introduce AttributableObject, an abstract class whose subclass instances allow a variable number of attributes to be set and accessed at run time. > > =============== Diff against Kernel-cmm.760 =============== > > Item was added: > + Object subclass: #AttributableObject > + instanceVariableNames: 'attributes' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Kernel-Models'! > + > + !AttributableObject commentStamp: 'cmm 10/7/2009 21:03' prior: 0! > + Subclass from this abstract class to inherit an attribute Dictionary.! > > Item was added: > + ----- Method: AttributableObject>>attributeNamed: (in category 'attributes') ----- > + attributeNamed: aString > + ^ attributes ifNotNil: > + [ attributes > + at: aString > + ifAbsent: [ nil ] ]! > > Item was added: > + ----- Method: AttributableObject>>attributeNamed:put: (in category 'attributes') ----- > + attributeNamed: aString put: anObject > + anObject ifNotNil: [ attributes ifNil: [ attributes := Dictionary new ] ]. > + ^ anObject > + ifNil: > + [ self removeAttributeNamed: aString. > + anObject ] > + ifNotNil: > + [ attributes > + at: aString > + put: anObject ]! > > Item was added: > + ----- Method: AttributableObject>>attributesToDeepCopy (in category 'copying') ----- > + attributesToDeepCopy > + "Subclasses override." > + ^ attributes > + ifNil: [ Array empty ] > + ifNotNil: [ attributes keys ]! > > Item was added: > + ----- Method: AttributableObject>>removeAttributeNamed: (in category 'attributes') ----- > + removeAttributeNamed: aString > + ^ attributes ifNotNil: > + [ | answer | > + answer := attributes > + removeKey: aString > + ifAbsent: [ nil ]. > + attributes ifEmpty: [ attributes := nil ]. > + answer ]! > > Item was added: > + ----- Method: AttributableObject>>veryDeepInner: (in category 'copying') ----- > + veryDeepInner: aDeepCopier > + super veryDeepInner: aDeepCopier. > + attributes := attributes copy. > + self attributesToDeepCopy do: > + [ : eachAttribute | attributes > + at: eachAttribute > + ifPresent: > + [ : value | attributes > + at: eachAttribute > + put: (value veryDeepCopyWith: aDeepCopier) ] > + ifAbsent: [ self error: eachAttribute, ' is not an attribute.' ] ]! > >

3 3

Morphic - RolloverBorder, what is it?
by Marcel Taeumel 05 Jul '13

05 Jul '13

Hi! I understand the concept of drop shadows for morphs but what is a rollover border? Best, Marcel -- View this message in context: http://forum.world.st/Morphic-RolloverBorder-what-is-it-tp4697521.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

2 1

removing from a collection while enumerating it
by Chris Muller 05 Jul '13

05 Jul '13

I have a case where I need to remove certain entries from an OrderedCollection that will be called very frequently. I therefore want to avoid copying the collection (to safely remove while enumerating) but it seems #reverseDo: can do what I want. myCollection reverseDo: [ : each | each meetsSomeCriteria ifTrue: [ myCollection remove: each ] ] Does anyone see any problem with doing this?

8 9

We need you for a software integration survey (reminder)
by Martin Dias 05 Jul '13

05 Jul '13

Hi all, Some time ago we sent an email to ask you contributing to a research to improve tools for software integration. If you maintain a project with multiple contributors, we will greatly appreciate your participation. Your answers will be used for research purposes and to support the development of new tools. You can later access the results of this study, make free use of our tools to support the integration of changes, and maybe receive a gift. We found out that the survey was not properly working on Safari (and may be also some other browsers). And we have now corrected this issue. Up to now, we received 36 full answers and 166 incomplete answers. So we decided to give you an extra month, if you started to fill the survey, please consider resuming filling the survey. For this you only need to go back to the same site: https://sondages.inria.fr/index.php/667625/lang-en If you did not yet fill in the survey, please consider doing it now. Best regards, Martin Dias, Nicolas Anquetil, Veronica Isabel Uquillas, Stéphane Ducasse and the RMOD Inria team

1 0

Non-SmallLand colour theme lying around?
by Frank Shearar 05 Jul '13

05 Jul '13

Does anyone have a ColorTheme that does NOT subclass SmallLandColorTheme? I'm looking to set ColorTheme current to something that doesn't reference a SmallLand thing. frank

3 2

New location for OSProcess?
by Stephan Eggermont 05 Jul '13

05 Jul '13

Hi I noticed OSProcess is not on Smalltalkhub or ss3 and still changes regularly. As Squeaksource is going static in 10 days or so, I wondered where it is going to move to? Stephan

3 2

Re: [squeak-dev] The Inbox: System-cmm.524.mcz
by Chris Muller 05 Jul '13

05 Jul '13

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(a)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 ].'! > >

1 0

The Inbox: System-cmm.524.mcz
by commits＠source.squeak.org 05 Jul '13

05 Jul '13

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

1 0

← Newer
1
...
26
27
28
29
30
31
32
...
35
Older →

Jump to page: