The Trunk: System-fbs.518.mcz

> 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 ))!
>
>

> Nicolas
>
> 2013/3/5  <[hidden email]>:
>> 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 ))!
>>
>>
>

> On 11 March 2013 21:24, Nicolas Cellier
> <[hidden email]> 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
>

>> Nicolas
>>
>> 2013/3/5  <[hidden email]>:
>>> 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 ))!
>>>
>>>
>>
>

> 2013/3/11 Frank Shearar <[hidden email]>:
>> On 11 March 2013 21:24, Nicolas Cellier
>> <[hidden email]> 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

> Nicolas
>
>>> Nicolas
>>>
>>> 2013/3/5  <[hidden email]>:
>>>> 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 ))!
>>>>
>>>>
>>>
>>
>

> On 11 March 2013 21:58, Nicolas Cellier
> <[hidden email]> wrote:
>> 2013/3/11 Frank Shearar <[hidden email]>:
>>> On 11 March 2013 21:24, Nicolas Cellier
>>> <[hidden email]> 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
>

>> Nicolas
>>
>>>> Nicolas
>>>>
>>>> 2013/3/5  <[hidden email]>:
>>>>> 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 ))!
>>>>>
>>>>>
>>>>
>>>
>>
>

> 2013/3/11 Frank Shearar <[hidden email]>:
>> On 11 March 2013 21:58, Nicolas Cellier
>> <[hidden email]> wrote:
>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>> On 11 March 2013 21:24, Nicolas Cellier
>>>> <[hidden email]> 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
>

>>> Nicolas
>>>
>>>>> Nicolas
>>>>>
>>>>> 2013/3/5  <[hidden email]>:
>>>>>> 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 ))!
>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>

> 2013/3/11 Nicolas Cellier <[hidden email]>:
>> 2013/3/11 Frank Shearar <[hidden email]>:
>>> On 11 March 2013 21:58, Nicolas Cellier
>>> <[hidden email]> wrote:
>>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>>> On 11 March 2013 21:24, Nicolas Cellier
>>>>> <[hidden email]> 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)

> You then load package B which has no conflict because the class is
> already removed, so done.
>
> Nicolas
>
>>>> Nicolas
>>>>
>>>>>> Nicolas
>>>>>>
>>>>>> 2013/3/5  <[hidden email]>:
>>>>>>> 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 ))!
>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>

> 2013/3/11 Nicolas Cellier <[hidden email]>:
>> 2013/3/11 Nicolas Cellier <[hidden email]>:
>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>> On 11 March 2013 21:58, Nicolas Cellier
>>>> <[hidden email]> wrote:
>>>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>>>> On 11 March 2013 21:24, Nicolas Cellier
>>>>>> <[hidden email]> 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)

> On 11 March 2013 22:17, Nicolas Cellier
> <[hidden email]> wrote:
>> 2013/3/11 Nicolas Cellier <[hidden email]>:
>>> 2013/3/11 Nicolas Cellier <[hidden email]>:
>>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>>> On 11 March 2013 21:58, Nicolas Cellier
>>>>> <[hidden email]> wrote:
>>>>>> 2013/3/11 Frank Shearar <[hidden email]>:
>>>>>>> On 11 March 2013 21:24, Nicolas Cellier
>>>>>>> <[hidden email]> 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)
>
> So in this case the map should
> * add the SmallLand-ColorTheme package (which will move the classes,
> rather than remove-then-adding them)
> * update the System package.
>
> Right?
>
> frank
>