[squeak-dev] The Trunk: System-fbs.518.mcz
Nicolas Cellier
nicolas.cellier.aka.nice at gmail.com
Mon Mar 11 21:58:44 UTC 2013
2013/3/11 Frank Shearar <frank.shearar at gmail.com>:
> On 11 March 2013 21:24, Nicolas Cellier
> <nicolas.cellier.aka.nice at gmail.com> wrote:
>> It seems that this change created some obsolete instances because
>> SmallLandColorThemes were deleted.
>> When you perform such a change, you must prepare an update with
>> SmallLand-ColorTheme packaged placed above System
>> I will try and fix (update-cwp.225 to update-cwp.227) to correct future build...
>
> Ah. My apologies for adding to your workload. I thought that since it
> was a "simple" move of classes from one package to another that it
> would be fine. I forgot that these commits are _migrations_ from one
> state to another (just like a database migration), and so require
> constant thinking about imperative effects like these.
>
> Is the process of preparing such a map documented somewhere?
>
> frank
>
Probably, but I'll do it again: it's from Monticello Configuration Browser:
1) open MC browser
2) select the trunk repository and browse it
3) the bottom package is called update, select it
4) select the top update (update-cwp.227) and click 'browse' button
5) The MC configuration browser that opens lets you
- update one (the selected item via pop up menu) or all packages (with
update button)
* eother from image version or repository version
- remove a package from or add a package to the configuration (pop up
add new dependency...)
- reorder packages
6) once done, post a new update (post button) to squeak trunk
Nicolas
>> Nicolas
>>
>> 2013/3/5 <commits at source.squeak.org>:
>>> Frank Shearar uploaded a new version of System to project The Trunk:
>>> http://source.squeak.org/trunk/System-fbs.518.mcz
>>>
>>> ==================== Summary ====================
>>>
>>> Name: System-fbs.518
>>> Author: fbs
>>> Time: 5 March 2013, 9:37:27.65 am
>>> UUID: 1a7fc936-536a-48da-b154-4ad4ba13d341
>>> Ancestors: System-fbs.517
>>>
>>> Put all the SmallLand colour themes in a separate package.
>>>
>>> =============== Diff against System-fbs.517 ===============
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #BlueSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: BlueSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - BlueSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.2 0.3 0.9 ))
>>> - with: (Color fromArray: #(0.6 0.7 1.0 ))
>>> - with: (Color fromArray: #(0.85 0.9 1.0 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #GraySmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: GraySmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - GraySmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.4 0.4 0.4 ))
>>> - with: (Color fromArray: #(0.8 0.8 0.8 ))
>>> - with: (Color fromArray: #(0.97 0.97 0.97 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #GreenSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: GreenSmallLandColorTheme>>baseColors (in category 'initialize-release') -----
>>> - baseColors
>>> - "
>>> - GreenSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.1 0.5 0.3 ))
>>> - with: (Color fromArray: #(0.2 0.9 0.6 ))
>>> - with: (Color fromArray: #(0.85 1.0 0.98 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #MagentaSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: MagentaSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - MagentaSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.8 0.1 0.7 ))
>>> - with: (Color fromArray: #(1.0 0.3 0.9 ))
>>> - with: (Color fromArray: #(1.0 0.9 0.8 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #OrangeSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: OrangeSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - OrangeSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.8 0.4 0.0 ))
>>> - with: (Color fromArray: #(1.0 0.8 0.0 ))
>>> - with: (Color fromArray: #(1.0 1.0 0.8 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #RedSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: RedSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - RedSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.8 0.0 0.2 ))
>>> - with: (Color fromArray: #(0.97 0.13 0.3 ))
>>> - with: (Color fromArray: #(1.0 0.88 0.97 ))!
>>>
>>> Item was removed:
>>> - ColorTheme subclass: #SmallLandColorTheme
>>> - instanceVariableNames: 'darks normals lights'
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme class>>allThemes (in category 'accessing') -----
>>> - allThemes
>>> - "
>>> - SmallLandColorTheme allThemes.
>>> - "
>>> - ^ self withAllSubclasses
>>> - reject: [:each | each == self]!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme class>>chooseTheme (in category 'accessing') -----
>>> - chooseTheme
>>> - "
>>> - SmallLandColorTheme chooseTheme.
>>> - "
>>> - | themes menu |
>>> - menu := MenuMorph new defaultTarget: self.
>>> - menu addTitle: 'choose color theme' translated.
>>> - Preferences noviceMode
>>> - ifFalse: [menu addStayUpItem].
>>> - ""
>>> - themes := self allThemes
>>> - asSortedCollection: [:x :y | x themeName translated <= y themeName translated].
>>> - themes
>>> - do: [:each | ""menu
>>> - addUpdating: #stringForTheme:
>>> - target: each
>>> - selector: #applyTheme:
>>> - argumentList: {each}].
>>> - ""
>>> - menu popUpInWorld!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme class>>stringForTheme: (in category 'accessing') -----
>>> - stringForTheme: aTheme
>>> -
>>> - ^ (aTheme == ColorTheme current class
>>> - ifTrue: ['<on>']
>>> - ifFalse: ['<off>'])
>>> - , aTheme themeName translated.!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme class>>themeName (in category 'accessing') -----
>>> - themeName
>>> - "
>>> - self themeName.
>>> -
>>> - BlueSmallLandColorTheme themeName.
>>> - GreenSmallLandColorTheme themeName.
>>> - "
>>> - ^ self name allButLast: 'SmallLandColorTheme' size.
>>> - !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>apply (in category 'applying') -----
>>> - apply
>>> - Preferences installBrightWindowColors.
>>> - ""
>>> - super apply.
>>> - ""
>>> - self updateTopProject.
>>> - self updateFlaps.
>>> - self updateWorldMainDockingBar!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>balloonColor (in category 'theme') -----
>>> - balloonColor
>>> - ^ (self light: 1) twiceLighter alpha: 0.95"Color white alpha: 0.95"!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "Answer a collection of the 3 base colors"
>>> - ^ self subclassResponsibility!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>cancelColor (in category 'theme') -----
>>> - cancelColor
>>> - ^ super cancelColor"self normal: 8"!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dark: (in category 'private - colors') -----
>>> - dark: index
>>> - ^ darks at: index!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>defaultWorldColor (in category 'theme') -----
>>> - defaultWorldColor
>>> - ^ (self light: 1) twiceLighter twiceLighter !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialog3DTitles (in category 'theme - dialogs') -----
>>> - dialog3DTitles
>>> - ^ false!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogBorderColor (in category 'theme - dialogs') -----
>>> - dialogBorderColor
>>> - ^ (self dark: 5) !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogBorderWidth (in category 'theme - dialogs') -----
>>> - dialogBorderWidth
>>> - ^ 2!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogButtonBorderWidth (in category 'theme - dialogs') -----
>>> - dialogButtonBorderWidth
>>> - ^ 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogColor (in category 'theme - dialogs') -----
>>> - dialogColor
>>> - ^ self light: 3!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogPaneBorderColor (in category 'theme - dialogs') -----
>>> - dialogPaneBorderColor
>>> - ^ self dialogTextBoxBorderColor !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogPaneBorderWidth (in category 'theme - dialogs') -----
>>> - dialogPaneBorderWidth
>>> - ^ 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogPaneRampOrColor (in category 'theme - dialogs') -----
>>> - dialogPaneRampOrColor
>>> - ^ self dialogTextBoxColor!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogRampOrColor (in category 'theme - dialogs') -----
>>> - dialogRampOrColor
>>> - ^ self dialogColor!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogTextBoxBorderColor (in category 'theme - dialogs') -----
>>> - dialogTextBoxBorderColor
>>> - ^ self normal: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dialogTextBoxColor (in category 'theme - dialogs') -----
>>> - dialogTextBoxColor
>>> - ^ self light: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dockingBarAutoGradient (in category 'theme - dockingbar') -----
>>> - dockingBarAutoGradient
>>> - ^ true!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dockingBarColor (in category 'theme - dockingbar') -----
>>> - dockingBarColor
>>> - ^self normal:1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>dockingBarGradientRamp (in category 'theme - dockingbar') -----
>>> - dockingBarGradientRamp
>>> - ^ {0.0 -> Color white. 1.0
>>> - -> (self normal:1)}!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>helpColor (in category 'theme') -----
>>> - helpColor
>>> - ^ self okColor!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>initialize (in category 'initialization') -----
>>> - initialize
>>> - "Initialize the receiver"
>>> - | baseColors |
>>> - super initialize.
>>> - ""
>>> - baseColors := self baseColors.
>>> - ""
>>> - darks := baseColors first wheel: 8.
>>> - normals := baseColors second wheel: 8.
>>> - lights := baseColors third wheel: 8!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>insertionPointColor (in category 'theme') -----
>>> - insertionPointColor
>>> - ^ self normal: 7!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>keyboardFocusColor (in category 'theme') -----
>>> - keyboardFocusColor
>>> - ^ self normal: 8!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>labelForColor: (in category 'private - colors') -----
>>> - labelForColor: aColor
>>> - ^ (aColor red roundTo: 0.01) asString , ' ' , (aColor green roundTo: 0.01) asString , ' ' , (aColor blue roundTo: 0.01) asString!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>light: (in category 'private - colors') -----
>>> - light: index
>>> - ^ lights at: index!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuBorderColor (in category 'theme - menus') -----
>>> - menuBorderColor
>>> - ^self dark: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuBorderWidth (in category 'theme - menus') -----
>>> - menuBorderWidth ^ 2.!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuColor (in category 'theme - menus') -----
>>> - menuColor
>>> - ^ self light: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuLineColor (in category 'theme - menus') -----
>>> - menuLineColor
>>> - ^ self normal: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuSelectionColor (in category 'theme - menus') -----
>>> - menuSelectionColor
>>> - ^ self dark: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuTitleBorderColor (in category 'theme - menus') -----
>>> - menuTitleBorderColor
>>> - ^ self menuTitleColor !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuTitleBorderWidth (in category 'theme - menus') -----
>>> - menuTitleBorderWidth
>>> - ^ 6!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>menuTitleColor (in category 'theme - menus') -----
>>> - menuTitleColor
>>> - ^ self normal: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>normal: (in category 'private - colors') -----
>>> - normal: index
>>> - ^ normals at: index!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>okColor (in category 'theme') -----
>>> - okColor
>>> - ^ super okColor "self normal: 2"!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>printOn: (in category 'printing') -----
>>> - printOn: aStream
>>> - aStream nextPutAll: 'Small-Land Color Theme: ', self class themeName!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>rowOf: (in category 'private - colors') -----
>>> - rowOf: colors
>>> - | row |
>>> - row := AlignmentMorph newRow.
>>> - row cellInset: 5.
>>> - row color: Color white.
>>> - ""
>>> - colors
>>> - do: [:each |
>>> - | box label |
>>> - box := RectangleMorph new.
>>> - box extent: 100 @ 60.
>>> - box color: each.
>>> - box borderWidth: 2.
>>> - box borderColor: box color muchDarker.
>>> - ""
>>> - label := StringMorph
>>> - contents: (self labelForColor: each).
>>> - label color: each negated.
>>> - box addMorphCentered: label.
>>> - ""
>>> - row addMorphBack: box].
>>> - ""
>>> - ^ row !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>showColors (in category 'private - colors') -----
>>> - showColors
>>> - "
>>> - BlueSmallLandColorTheme new showColors.
>>> - "
>>> - | col |
>>> - col := AlignmentMorph newColumn.
>>> - col color: Color white.
>>> - col
>>> - addMorphBack: (self rowOf: darks).
>>> - col
>>> - addMorphBack: (self rowOf: normals).
>>> - col
>>> - addMorphBack: (self rowOf: lights).
>>> - ""
>>> - col openInWorld!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>textHighlightColor (in category 'theme') -----
>>> - textHighlightColor
>>> - ^self normal: 1!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>updateFlaps (in category 'applying') -----
>>> - updateFlaps
>>> - Flaps globalFlapTabs
>>> - select: [:each | each flapID = 'Supplies' translated]
>>> - thenDo: [:each |
>>> - each
>>> - color: (self normal: 1);
>>> -
>>> - borderColor: (self normal: 1);
>>> - borderWidth: (self menuBorderWidth).
>>> - ""
>>> - each referent
>>> - color: (self light: 1);
>>> - borderWidth: (self menuBorderWidth);
>>> -
>>> - borderColor: (self normal: 1)]!
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>updateTopProject (in category 'applying') -----
>>> - updateTopProject
>>> - Project current == Project topProject
>>> - ifFalse:[^ self].
>>> -
>>> - ""
>>> - World color: Preferences defaultWorldColor.
>>> - World submorphs
>>> - select: [:each | ""
>>> - (each isKindOf: StringMorph)
>>> - and: [each contents = 'Squeak']]
>>> - thenDo: [:each | each
>>> - color: (self dark: 1)].
>>> - !
>>>
>>> Item was removed:
>>> - ----- Method: SmallLandColorTheme>>updateWorldMainDockingBar (in category 'applying') -----
>>> - updateWorldMainDockingBar
>>> - | oldPreference |
>>> - oldPreference := Project current showWorldMainDockingBar.
>>> - ""
>>> - Project current showWorldMainDockingBar: false.
>>> - Project current showWorldMainDockingBar: oldPreference.
>>> - TheWorldMainDockingBar updateInstances!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #VioletSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: VioletSmallLandColorTheme>>baseColors (in category 'as yet unclassified') -----
>>> - baseColors
>>> - "
>>> - VioletSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.6 0.0 1.0 ))
>>> - with: (Color fromArray: #(0.8 0.4 1.0 ))
>>> - with: (Color fromArray: #(0.95 0.95 1.0 ))!
>>>
>>> Item was removed:
>>> - SmallLandColorTheme subclass: #YellowSmallLandColorTheme
>>> - instanceVariableNames: ''
>>> - classVariableNames: ''
>>> - poolDictionaries: ''
>>> - category: 'System-Support'!
>>>
>>> Item was removed:
>>> - ----- Method: YellowSmallLandColorTheme>>baseColors (in category 'initialization') -----
>>> - baseColors
>>> - "
>>> - YellowSmallLandColorTheme apply.
>>> - "
>>> - ^ Array
>>> - with: (Color fromArray: #(0.6 0.6 0.0 ))
>>> - with: (Color fromArray: #(0.9 0.9 0.3 ))
>>> - with: (Color fromArray: #(1.0 1.0 0.9 ))!
>>>
>>>
>>
>
More information about the Squeak-dev
mailing list
|