2013/3/11 Nicolas Cellier <nicolas.cellier.aka.nice at gmail.com>:
> 2013/3/11 Nicolas Cellier <nicolas.cellier.aka.nice at gmail.com>:
>> 2013/3/11 Frank Shearar <frank.shearar at gmail.com>:
>>> On 11 March 2013 21:58, Nicolas Cellier
>>> <nicolas.cellier.aka.nice at gmail.com> wrote:
>>>> 2013/3/11 Frank Shearar <frank.shearar at gmail.com>:
>>>>> On 11 March 2013 21:24, Nicolas Cellier
>>>>> <nicolas.cellier.aka.nice at gmail.com> wrote:
>>>>>> It seems that this change created some obsolete instances because
>>>>>> SmallLandColorThemes were deleted.
>>>>>> When you perform such a change, you must prepare an update with
>>>>>> SmallLand-ColorTheme packaged placed above System
>>>>>> I will try and fix (update-cwp.225 to update-cwp.227) to correct future build...
>>>>>
>>>>> Ah. My apologies for adding to your workload. I thought that since it
>>>>> was a "simple" move of classes from one package to another that it
>>>>> would be fine. I forgot that these commits are _migrations_ from one
>>>>> state to another (just like a database migration), and so require
>>>>> constant thinking about imperative effects like these.
>>>>>
>>>>> Is the process of preparing such a map documented somewhere?
>>>>>
>>>>> frank
>>>>>
>>>>
>>>> Probably, but I'll do it again: it's from Monticello Configuration Browser:
>>>> 1) open MC browser
>>>> 2) select the trunk repository and browse it
>>>> 3) the bottom package is called update, select it
>>>> 4) select the top update (update-cwp.227) and click 'browse' button
>>>> 5) The MC configuration browser that opens lets you
>>>> - update one (the selected item via pop up menu) or all packages (with
>>>> update button)
>>>> * eother from image version or repository version
>>>> - remove a package from or add a package to the configuration (pop up
>>>> add new dependency...)
>>>> - reorder packages
>>>> 6) once done, post a new update (post button) to squeak trunk
>>>
>>> OK, steps 1-4 I knew about. Last time I looked at this guy I didn't
>>> understand what to do. Thanks!
>>>
>>> So in future, any time I move a class from one package to another, I
>>> must remember that I am _removing_ class Foo and then adding a _new_
>>> class that happens to have the name Foo.
>>>
>>> Now that means there might be a bunch of AnObsoleteFoo instances lying
>>> around: should the re-adding of Foo be written such that something
>>> like this happens:
>>>
>>>     AnObsoleteFoo allInstances do: [:inst | Foo adoptInstance: inst]
>>>
>>> or does/can this happen automatically? (I suspect it can't happen
>>> automatically.)
>>>
>>> frank
>>>
>>
>> No, if you first move the class to package A, then remove it from
>> package B, it is not removed from Smalltalk globals, because there is
>> no conflict in B.
>> So the idea is to load new version of pakage A before new version of
>> pakage B, which you can control with update configuration load order.
>>
>> Nicolas
>>
>
> Hem, my first sentence is a bit misleading, i try again
> You first load package A which adds the new class (thus you remove it
> from package B but not from Smalltalk globals)

Shit it's not a new class, I'm really tired, should better stop posting.
You first load package A which adds the already existing class to A
(and remove it from B)

> You then load package B which has no conflict because the class is
> already removed, so done.
>
> Nicolas
>
>>>> Nicolas
>>>>
>>>>>> Nicolas
>>>>>>
>>>>>> 2013/3/5  <commits at source.squeak.org>:
>>>>>>> Frank Shearar uploaded a new version of System to project The Trunk:
>>>>>>> http://source.squeak.org/trunk/System-fbs.518.mcz
>>>>>>>
>>>>>>> ==================== Summary ====================
>>>>>>>
>>>>>>> Name: System-fbs.518
>>>>>>> Author: fbs
>>>>>>> Time: 5 March 2013, 9:37:27.65 am
>>>>>>> UUID: 1a7fc936-536a-48da-b154-4ad4ba13d341
>>>>>>> Ancestors: System-fbs.517
>>>>>>>
>>>>>>> Put all the SmallLand colour themes in a separate package.
>>>>>>>
>>>>>>> =============== Diff against System-fbs.517 ===============
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #BlueSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: BlueSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       BlueSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.2 0.3 0.9 ))
>>>>>>> -               with: (Color fromArray: #(0.6 0.7 1.0 ))
>>>>>>> -               with: (Color fromArray: #(0.85 0.9 1.0 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #GraySmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: GraySmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       GraySmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.4 0.4 0.4 ))
>>>>>>> -               with: (Color fromArray: #(0.8 0.8 0.8 ))
>>>>>>> -               with: (Color fromArray: #(0.97 0.97 0.97 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #GreenSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: GreenSmallLandColorTheme>>baseColors (in category 'initialize-release') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       GreenSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.1 0.5 0.3 ))
>>>>>>> -               with: (Color fromArray: #(0.2 0.9 0.6 ))
>>>>>>> -               with: (Color fromArray: #(0.85 1.0 0.98 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #MagentaSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: MagentaSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       MagentaSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.8 0.1 0.7 ))
>>>>>>> -               with: (Color fromArray: #(1.0 0.3 0.9 ))
>>>>>>> -               with: (Color fromArray: #(1.0 0.9 0.8 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #OrangeSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: OrangeSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> - "
>>>>>>> - OrangeSmallLandColorTheme apply.
>>>>>>> - "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.8 0.4 0.0 ))
>>>>>>> -               with: (Color fromArray: #(1.0 0.8 0.0 ))
>>>>>>> -               with: (Color fromArray: #(1.0 1.0 0.8 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #RedSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: RedSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       RedSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.8 0.0 0.2 ))
>>>>>>> -               with: (Color fromArray: #(0.97 0.13 0.3 ))
>>>>>>> -               with: (Color fromArray: #(1.0 0.88 0.97 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ColorTheme subclass: #SmallLandColorTheme
>>>>>>> -       instanceVariableNames: 'darks normals lights'
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme class>>allThemes (in category 'accessing') -----
>>>>>>> - allThemes
>>>>>>> -       "
>>>>>>> - SmallLandColorTheme allThemes.
>>>>>>> -       "
>>>>>>> -       ^ self withAllSubclasses
>>>>>>> -               reject: [:each | each == self]!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme class>>chooseTheme (in category 'accessing') -----
>>>>>>> - chooseTheme
>>>>>>> -       "
>>>>>>> -       SmallLandColorTheme chooseTheme.
>>>>>>> -       "
>>>>>>> -       | themes menu |
>>>>>>> -       menu := MenuMorph new defaultTarget: self.
>>>>>>> -       menu addTitle: 'choose color theme' translated.
>>>>>>> -       Preferences noviceMode
>>>>>>> -               ifFalse: [menu addStayUpItem].
>>>>>>> -       ""
>>>>>>> -       themes := self allThemes
>>>>>>> -                               asSortedCollection: [:x :y | x themeName translated <= y themeName translated].
>>>>>>> -       themes
>>>>>>> -               do: [:each | ""menu
>>>>>>> -                               addUpdating: #stringForTheme:
>>>>>>> -                               target: each
>>>>>>> -                               selector: #applyTheme:
>>>>>>> -                               argumentList: {each}].
>>>>>>> -       ""
>>>>>>> -       menu popUpInWorld!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme class>>stringForTheme: (in category 'accessing') -----
>>>>>>> - stringForTheme: aTheme
>>>>>>> -
>>>>>>> -       ^ (aTheme == ColorTheme current class
>>>>>>> -               ifTrue: ['<on>']
>>>>>>> -               ifFalse: ['<off>'])
>>>>>>> -               , aTheme themeName translated.!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme class>>themeName (in category 'accessing') -----
>>>>>>> - themeName
>>>>>>> -       "
>>>>>>> -       self themeName.
>>>>>>> -
>>>>>>> -       BlueSmallLandColorTheme themeName.
>>>>>>> -       GreenSmallLandColorTheme themeName.
>>>>>>> -       "
>>>>>>> -       ^ self name allButLast: 'SmallLandColorTheme' size.
>>>>>>> - !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>apply (in category 'applying') -----
>>>>>>> - apply
>>>>>>> -       Preferences installBrightWindowColors.
>>>>>>> -       ""
>>>>>>> -       super apply.
>>>>>>> -       ""
>>>>>>> -       self updateTopProject.
>>>>>>> -       self updateFlaps.
>>>>>>> -       self updateWorldMainDockingBar!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>balloonColor (in category 'theme') -----
>>>>>>> - balloonColor
>>>>>>> -       ^ (self light: 1) twiceLighter alpha: 0.95"Color white alpha: 0.95"!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "Answer a collection of the 3 base colors"
>>>>>>> -       ^ self subclassResponsibility!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>cancelColor (in category 'theme') -----
>>>>>>> - cancelColor
>>>>>>> -       ^ super cancelColor"self normal: 8"!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dark: (in category 'private - colors') -----
>>>>>>> - dark: index
>>>>>>> -       ^ darks at: index!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>defaultWorldColor (in category 'theme') -----
>>>>>>> - defaultWorldColor
>>>>>>> -       ^ (self light: 1) twiceLighter twiceLighter !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialog3DTitles (in category 'theme - dialogs') -----
>>>>>>> - dialog3DTitles
>>>>>>> -       ^ false!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogBorderColor (in category 'theme - dialogs') -----
>>>>>>> - dialogBorderColor
>>>>>>> -       ^ (self dark: 5) !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogBorderWidth (in category 'theme - dialogs') -----
>>>>>>> - dialogBorderWidth
>>>>>>> -       ^ 2!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') -----
>>>>>>> - dialogButtonBorderWidth
>>>>>>> -       ^ 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogColor (in category 'theme - dialogs') -----
>>>>>>> - dialogColor
>>>>>>> -       ^ self light: 3!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') -----
>>>>>>> - dialogPaneBorderColor
>>>>>>> -       ^ self dialogTextBoxBorderColor !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') -----
>>>>>>> - dialogPaneBorderWidth
>>>>>>> -       ^ 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') -----
>>>>>>> - dialogPaneRampOrColor
>>>>>>> -       ^ self dialogTextBoxColor!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogRampOrColor (in category 'theme - dialogs') -----
>>>>>>> - dialogRampOrColor
>>>>>>> -       ^ self dialogColor!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') -----
>>>>>>> - dialogTextBoxBorderColor
>>>>>>> -       ^ self normal: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') -----
>>>>>>> - dialogTextBoxColor
>>>>>>> -       ^ self light: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') -----
>>>>>>> - dockingBarAutoGradient
>>>>>>> -       ^ true!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dockingBarColor (in category 'theme - dockingbar') -----
>>>>>>> - dockingBarColor
>>>>>>> -       ^self normal:1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') -----
>>>>>>> - dockingBarGradientRamp
>>>>>>> -       ^ {0.0 -> Color white. 1.0
>>>>>>> -               -> (self normal:1)}!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>helpColor (in category 'theme') -----
>>>>>>> - helpColor
>>>>>>> - ^ self okColor!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>initialize (in category 'initialization') -----
>>>>>>> - initialize
>>>>>>> -       "Initialize the receiver"
>>>>>>> -       | baseColors |
>>>>>>> -       super initialize.
>>>>>>> -       ""
>>>>>>> -       baseColors := self baseColors.
>>>>>>> -       ""
>>>>>>> -       darks := baseColors first wheel: 8.
>>>>>>> -       normals := baseColors second wheel: 8.
>>>>>>> -       lights := baseColors third wheel: 8!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>insertionPointColor (in category 'theme') -----
>>>>>>> - insertionPointColor
>>>>>>> -       ^ self normal: 7!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>keyboardFocusColor (in category 'theme') -----
>>>>>>> - keyboardFocusColor
>>>>>>> -       ^ self normal: 8!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') -----
>>>>>>> - labelForColor: aColor
>>>>>>> -       ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>light: (in category 'private - colors') -----
>>>>>>> - light: index
>>>>>>> -       ^ lights at: index!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuBorderColor (in category 'theme - menus') -----
>>>>>>> - menuBorderColor
>>>>>>> -       ^self dark: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuBorderWidth (in category 'theme - menus') -----
>>>>>>> - menuBorderWidth ^ 2.!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuColor (in category 'theme - menus') -----
>>>>>>> - menuColor
>>>>>>> -       ^ self light: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuLineColor (in category 'theme - menus') -----
>>>>>>> - menuLineColor
>>>>>>> -       ^ self normal: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuSelectionColor (in category 'theme - menus') -----
>>>>>>> - menuSelectionColor
>>>>>>> -       ^ self dark: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuTitleBorderColor (in category 'theme - menus') -----
>>>>>>> - menuTitleBorderColor
>>>>>>> -       ^ self menuTitleColor !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuTitleBorderWidth (in category 'theme - menus') -----
>>>>>>> - menuTitleBorderWidth
>>>>>>> -       ^ 6!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>menuTitleColor (in category 'theme - menus') -----
>>>>>>> - menuTitleColor
>>>>>>> -       ^ self normal: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>normal: (in category 'private - colors') -----
>>>>>>> - normal: index
>>>>>>> -       ^ normals at: index!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>okColor (in category 'theme') -----
>>>>>>> - okColor
>>>>>>> -       ^ super okColor "self normal: 2"!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>printOn: (in category 'printing') -----
>>>>>>> - printOn: aStream
>>>>>>> -       aStream nextPutAll: 'Small-Land Color Theme: ', self class themeName!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>rowOf: (in category 'private - colors') -----
>>>>>>> - rowOf: colors
>>>>>>> -       | row |
>>>>>>> -       row := AlignmentMorph newRow.
>>>>>>> -       row cellInset: 5.
>>>>>>> -       row color: Color white.
>>>>>>> -       ""
>>>>>>> -       colors
>>>>>>> -               do: [:each |
>>>>>>> -                       | box label |
>>>>>>> -                       box := RectangleMorph new.
>>>>>>> -                       box extent: 100 @ 60.
>>>>>>> -                       box color: each.
>>>>>>> -                       box borderWidth: 2.
>>>>>>> -                       box borderColor: box color muchDarker.
>>>>>>> -                       ""
>>>>>>> -                       label := StringMorph
>>>>>>> -                                               contents: (self labelForColor: each).
>>>>>>> -                       label color: each negated.
>>>>>>> -                       box addMorphCentered: label.
>>>>>>> -                       ""
>>>>>>> -                       row addMorphBack: box].
>>>>>>> -       ""
>>>>>>> -       ^ row !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>showColors (in category 'private - colors') -----
>>>>>>> - showColors
>>>>>>> -       "
>>>>>>> -       BlueSmallLandColorTheme new showColors.
>>>>>>> -       "
>>>>>>> -       | col |
>>>>>>> -       col := AlignmentMorph newColumn.
>>>>>>> -       col color: Color white.
>>>>>>> -       col
>>>>>>> -               addMorphBack: (self rowOf: darks).
>>>>>>> -       col
>>>>>>> -               addMorphBack: (self rowOf: normals).
>>>>>>> -       col
>>>>>>> -               addMorphBack: (self rowOf: lights).
>>>>>>> -       ""
>>>>>>> -       col openInWorld!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>textHighlightColor (in category 'theme') -----
>>>>>>> - textHighlightColor
>>>>>>> -       ^self normal: 1!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>updateFlaps (in category 'applying') -----
>>>>>>> - updateFlaps
>>>>>>> -       Flaps globalFlapTabs
>>>>>>> -               select: [:each | each flapID = 'Supplies' translated]
>>>>>>> -               thenDo: [:each |
>>>>>>> -                       each
>>>>>>> -                               color: (self normal: 1);
>>>>>>> -
>>>>>>> -                               borderColor: (self normal: 1);
>>>>>>> -                                borderWidth: (self menuBorderWidth).
>>>>>>> -                       ""
>>>>>>> -                       each referent
>>>>>>> -                               color: (self light: 1);
>>>>>>> -                                borderWidth: (self menuBorderWidth);
>>>>>>> -
>>>>>>> -                               borderColor: (self normal: 1)]!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>updateTopProject (in category 'applying') -----
>>>>>>> - updateTopProject
>>>>>>> -       Project current == Project topProject
>>>>>>> -       ifFalse:[^ self].
>>>>>>> -
>>>>>>> - ""
>>>>>>> -                       World color: Preferences defaultWorldColor.
>>>>>>> -                       World submorphs
>>>>>>> -                               select: [:each | ""
>>>>>>> -                                       (each isKindOf: StringMorph)
>>>>>>> -                                               and: [each contents = 'Squeak']]
>>>>>>> -                               thenDo: [:each | each
>>>>>>> -                                               color: (self dark: 1)].
>>>>>>> - !
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: SmallLandColorTheme>>updateWorldMainDockingBar (in category 'applying') -----
>>>>>>> - updateWorldMainDockingBar
>>>>>>> -       | oldPreference |
>>>>>>> -       oldPreference := Project current showWorldMainDockingBar.
>>>>>>> -       ""
>>>>>>> -       Project current showWorldMainDockingBar: false.
>>>>>>> -       Project current showWorldMainDockingBar: oldPreference.
>>>>>>> -       TheWorldMainDockingBar updateInstances!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #VioletSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: VioletSmallLandColorTheme>>baseColors (in category 'as yet unclassified') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       VioletSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.6 0.0 1.0 ))
>>>>>>> -               with: (Color fromArray: #(0.8 0.4 1.0 ))
>>>>>>> -               with: (Color fromArray: #(0.95 0.95 1.0 ))!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - SmallLandColorTheme subclass: #YellowSmallLandColorTheme
>>>>>>> -       instanceVariableNames: ''
>>>>>>> -       classVariableNames: ''
>>>>>>> -       poolDictionaries: ''
>>>>>>> -       category: 'System-Support'!
>>>>>>>
>>>>>>> Item was removed:
>>>>>>> - ----- Method: YellowSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>>>>>> - baseColors
>>>>>>> -       "
>>>>>>> -       YellowSmallLandColorTheme apply.
>>>>>>> -       "
>>>>>>> -       ^ Array
>>>>>>> -               with: (Color fromArray: #(0.6 0.6 0.0 ))
>>>>>>> -               with: (Color fromArray: #(0.9 0.9 0.3 ))
>>>>>>> -               with: (Color fromArray: #(1.0 1.0 0.9 ))!
>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>