Squeak-dev July 2016

squeak-dev@lists.squeakfoundation.org

38 participants
224 discussions

The Trunk: Morphic-mt.1207.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1207.mcz ==================== Summary ==================== Name: Morphic-mt.1207 Author: mt Time: 31 July 2016, 10:02:03.29849 am UUID: 1d83c7f8-e88f-8645-9afb-92f8926b7164 Ancestors: Morphic-tfel.1206 *** Widget Refactorings and UI Themes (Part 1 of 11) *** By default, morphs can only apply themes if they are in the world. Prevents prototypes and other invisible/broken stuff from changing too often or causing debuggers. =============== Diff against Morphic-tfel.1206 =============== Item was added: + ----- Method: Morph>>canApplyUserInterfaceTheme (in category 'visual properties') ----- + canApplyUserInterfaceTheme + ^ self isInWorld!

1 0

The Trunk: System-mt.851.mcz
by commits＠source.squeak.org 31 Jul '16

31 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.851.mcz ==================== Summary ==================== Name: System-mt.851 Author: mt Time: 31 July 2016, 10:00:28.58249 am UUID: ce5a9701-16c6-a14a-a457-0e4b46aeb2e7 Ancestors: System-mt.850 *** Widget Refactorings and UI Themes (Part 1 of 11) *** Adds the core theming mechanism =============== Diff against System-mt.850 =============== Item was added: + ----- Method: ClassDescription>>applyThemeToInstances (in category '*System-Support') ----- + applyThemeToInstances + "User interface themes. Manage how to update existing instances. Classes can override this to use a different update schema than iterating over all instances." + + self allInstancesDo: + [ : eachInstance | eachInstance canApplyUserInterfaceTheme ifTrue: [ eachInstance applyUserInterfaceTheme ] ]! Item was added: + ----- Method: ClassDescription>>canApplyThemeToInstances (in category '*System-Support') ----- + canApplyThemeToInstances + "Override this to ignore your instances." + + ^ true! Item was added: + ----- Method: Object class>>themeProperties (in category '*System-Preferences') ----- + themeProperties + "Return a list of triples that describe configurable properties in a theme." + ^ {}! Item was added: + ----- Method: Object>>applyUserInterfaceTheme (in category '*System-Preferences') ----- + applyUserInterfaceTheme + "A new UserInterfaceTheme has been asked to #apply itself onto the current desktop. The receiver should do what is necessary to change its colors on the screen, update its fonts, form images, etc., if the current UserInterfaceTheme specifies overrides for those values. + + Only subclasses which implement new #themeProperties on the class-side should implement this method. + Implementors of this method should not call 'super applyUserInterfaceTheme'. + + The default implementation does nothing."! Item was added: + ----- Method: Object>>canApplyUserInterfaceTheme (in category '*System-Preferences') ----- + canApplyUserInterfaceTheme + "Use this hook to control whether you want to get notified if a new theme gets applied." + + ^ true! Item was added: + ----- Method: Object>>userInterfaceTheme (in category '*System-Preferences') ----- + userInterfaceTheme + "Call this to conveniently access properties from the current user interface theme." + + ^ UserInterfaceTheme current + pushScope: self; + yourself! Item was added: + Object subclass: #UserInterfaceTheme + instanceVariableNames: 'scope properties name next' + classVariableNames: 'All Current Default' + poolDictionaries: '' + category: 'System-Support'! + + !UserInterfaceTheme commentStamp: '<historical>' prior: 0! + A UserInterfaceTheme is a dictionary of preferred visual-properties; colors, borderStyles, borderWidths, fonts, forms, etc. used to color and style the IDE. + + Accessing The Theme + To access the proper UserInterfaceTheme instance for an object, send it #userInterfaceTheme. The default implementation on Object provides the one instance of that is in-use by the IDE at the current time. + + Customizing The Theme + We can ask the userInterfaceTheme for the value of any visual-property, by name: + + mySystemWindow userInterfaceTheme closeBoxImage + + Initially, the above answers nil, which causes the legacy code to use whatever default it's always used. To override various visual-properties of any kind of object, the #set: onAny: to: message can be used. For example, + + myUserInterfaceTheme + set: #closeBoxImage + for: SystemWindow + to: MenuIcons smallCancelIcon + + Alternatively, values may be derived based on other values in the theme, as in: + + myUserInterfaceTheme + set: #color + for: FillInTheBlankMorph + to: { MenuMorph->#color. #twiceDarker } + + Now, the accessing expression, above, will answer will answer MenuIcons' smallCancelIcon instead of nil. SystemWindow's code can be changed to use the expression above to access elements of the theme. + + Upgrading Legacy Code + Following the introduction of this class, various client code all around the system must be modified to access it. This variety of legacy code uses a variety of methods to specify their visual properties: + + 1) a hard-coded values. + 2) a values derived from some other value. + 3) providing local storage for a settable value which can be nil. + 4) providing local storage for a settable value which is expected to always have a particular valid value (never nil). + + The requirement, for each case, is to let the value be overridden. + + The solution for each of the above should be handled respectively to the above list, as follows: + + 1) Check the userInterfaceTheme, if that property returns nil, use the legacy hard-coded value. (see example: SystemWindow>>#createCloseBox). + 2) Nothing to do -- simply perform the same derivation on the result of (1). + 3) Check the local storage, if present, use it. If nil, then check the userInterfaceTheme, if it has this property present, use it, else return nil. + 4) Check the userInterfaceTheme, if the property is not nil, use it, otherwise use the local value. + + Tool Support + If a new access to #userInterfaceTheme is added to the code, be sure to add the property and its description to the #themeSettings for that class. See implementors of #themeSettings for examples.! Item was added: + ----- Method: UserInterfaceTheme class>>allThemeProperties (in category 'tools') ----- + allThemeProperties + "Answer an Array of 3-element Array's. Each inner Array are the information needed to present a Theme editor tool; the property name, category, and description. + + self allThemeProperties" + + ^ Array streamContents: + [ : stream | self allThemePropertiesDo: [ : cls : prop | stream nextPut: {cls}, prop ]]! Item was added: + ----- Method: UserInterfaceTheme class>>allThemePropertiesDo: (in category 'tools') ----- + allThemePropertiesDo: block + "Iterate over all classes that provide theme properties." + + Smalltalk allClassesDo: [:eachClass | + (eachClass respondsTo: #themeProperties) ifTrue: [ + eachClass themeProperties do: [:eachProperty | + block cull: eachClass cull: eachProperty]]].! Item was added: + ----- Method: UserInterfaceTheme class>>allThemes (in category 'accessing') ----- + allThemes + ^ All ifNil: [All := IdentitySet new]! Item was added: + ----- Method: UserInterfaceTheme class>>categories (in category 'tools') ----- + categories + "self categories" + + ^ Set new in: [:result | + self allThemePropertiesDo: [:cls :prop | result add: prop second]. + result]! Item was added: + ----- Method: UserInterfaceTheme class>>clientClasses (in category 'private') ----- + clientClasses + + ^ Set new in: [:result | + self allThemePropertiesDo: [:cls :prop | result add: cls]. + result]! Item was added: + ----- Method: UserInterfaceTheme class>>clientClassesToReapply (in category 'private') ----- + clientClassesToReapply + "All client classes plus their unique subclasses." + + ^ Set new in: [:result | self clientClasses do: [:cc | cc withAllSubclassesDo: [:sc | + result add: sc]]. result] + ! Item was added: + ----- Method: UserInterfaceTheme class>>current (in category 'accessing') ----- + current + + ^ Current ifNil: [Current := Default]! Item was added: + ----- Method: UserInterfaceTheme class>>current: (in category 'accessing') ----- + current: aUserInterfaceTheme + "Replace the current system theme with aUserInterfaceTheme." + Current := aUserInterfaceTheme + "Notify?"! Item was added: + ----- Method: UserInterfaceTheme class>>default (in category 'accessing') ----- + default + ^ Default ifNil: [Default := self new name: 'Autogenerated Default'; yourself]! Item was added: + ----- Method: UserInterfaceTheme class>>default: (in category 'accessing') ----- + default: aUserInterfaceTheme + Default := aUserInterfaceTheme.! Item was added: + ----- Method: UserInterfaceTheme class>>initialize (in category 'initialize-release') ----- + initialize + + self reset.! Item was added: + ----- Method: UserInterfaceTheme class>>named: (in category 'initialize-release') ----- + named: aString + ^ self allThemes + detect: [:ea | ea name = aString] + ifNone: [self new name: aString; register]! Item was added: + ----- Method: UserInterfaceTheme class>>propertiesForCategory: (in category 'tools') ----- + propertiesForCategory: categoryName + ^ self allThemeProperties select: [ : each | each third = categoryName ]! Item was added: + ----- Method: UserInterfaceTheme class>>propertiesForClass: (in category 'tools') ----- + propertiesForClass: aClass + ^ self allThemeProperties select: [ : each | each first = aClass ]! Item was added: + ----- Method: UserInterfaceTheme class>>reset (in category 'initialize-release') ----- + reset + self default apply.! Item was added: + ----- Method: UserInterfaceTheme>>apply (in category 'actions') ----- + apply + "Apply this theme to all affected objects. Let classes decide on how to iterate and call their instances." + + UserInterfaceTheme current: self. + + self class clientClassesToReapply in: [:cc | + cc do: [:eachClass | eachClass applyUserInterfaceTheme]. + cc + select: [:eachClass | eachClass canApplyThemeToInstances] + thenDo: [:eachClass | eachClass applyThemeToInstances]]. + + Project current restoreDisplay.! Item was added: + ----- Method: UserInterfaceTheme>>applyTo: (in category 'actions') ----- + applyTo: someObjects + "Apply this theme to the given objects. Useful if you have to re-theme a specific set of objects. Restore the current theme after that." + + UserInterfaceTheme current in: [:priorTheme | + [ + UserInterfaceTheme current: self. + + someObjects + select: [:ea | ea canApplyUserInterfaceTheme] + thenDo: [:ea | ea applyUserInterfaceTheme]. + + Project current restoreDisplay. + ] ensure: [UserInterfaceTheme current: priorTheme]].! Item was added: + ----- Method: UserInterfaceTheme>>atomicUpdate: (in category 'private') ----- + atomicUpdate: aBlock + "Like our Preferences >> #atomicUpdatePreference" + [ + | original copy returnValue | + original := properties. + copy := properties copy. + returnValue := aBlock value: copy. + original == properties ifTrue: [ + properties := copy. + ^ returnValue] + ] repeat! Item was added: + ----- Method: UserInterfaceTheme>>clear: (in category 'building') ----- + clear: propertySymbol + + ^ self + set: propertySymbol + to: nil! Item was added: + ----- Method: UserInterfaceTheme>>clear:for: (in category 'building') ----- + clear: propertySymbol for: aClass + "No longer override the default visual property specified by propertySymbol for any kinds of aClass. Use the default." + ^ self + set: propertySymbol + for: aClass + to: nil! Item was added: + ----- Method: UserInterfaceTheme>>derive:for:from: (in category 'building') ----- + derive: propertySymbol for: aClassOrSymbol from: anotherClassOrSymbol + + ^ self + derive: propertySymbol + for: aClassOrSymbol + from: anotherClassOrSymbol + at: propertySymbol + ! Item was added: + ----- Method: UserInterfaceTheme>>derive:for:from:at: (in category 'building') ----- + derive: propertySymbol for: aClassOrSymbol from: anotherClassOrSymbol at: anotherPropertySymbol + "Derive this property from another property." + + self + set: propertySymbol + for: aClassOrSymbol + to: (MessageSend + receiver: self + selector: #get:for: + arguments: {anotherPropertySymbol. anotherClassOrSymbol}).! Item was added: + ----- Method: UserInterfaceTheme>>derive:for:from:at:do: (in category 'building') ----- + derive: propertySymbol for: aClassOrSymbol from: anotherClassOrSymbol at: anotherPropertySymbol do: block + + self + set: propertySymbol + for: aClassOrSymbol + to: (MessageSend + receiver: self + selector: #get:for:do: + arguments: {anotherPropertySymbol. anotherClassOrSymbol. block}).! Item was added: + ----- Method: UserInterfaceTheme>>derive:for:from:do: (in category 'building') ----- + derive: propertySymbol for: aClassOrSymbol from: anotherClassOrSymbol do: block + + ^ self + derive: propertySymbol + for: aClassOrSymbol + from: anotherClassOrSymbol + at: propertySymbol + do: block! Item was added: + ----- Method: UserInterfaceTheme>>doesNotUnderstand: (in category 'lookup') ----- + doesNotUnderstand: aMessage + "Answer whether I have, or inherit, a value for the visual-attribute specified by aMessage's #selector." + + aMessage numArgs > 0 ifTrue: [^ super doesNotUnderstand: aMessage]. + scope isEmpty ifTrue: [^ super doesNotUnderstand: aMessage]. + + ^ [self get: scope top class -> aMessage selector] + ensure: [scope pop]! Item was added: + ----- Method: UserInterfaceTheme>>get: (in category 'private') ----- + get: keyObject + "keyObject is intended to be an Association. We have two lookup strategies: 1) along the superclass chain, 2) via a linke theme. Evaluate the result because there can be message sends stored or blocks." + + | k | + properties + at: keyObject + ifPresent: [:prop | ^ prop value]. + + keyObject isVariableBinding "simple key objects" + ifFalse: [^ self getViaLink: keyObject]. + + k := keyObject key. + (self getViaSuperclasses: keyObject) + ifNotNil: [:prop | ^ prop]. + + keyObject key: k. "restore" + ^ self getViaLink: keyObject! Item was added: + ----- Method: UserInterfaceTheme>>get:for: (in category 'private') ----- + get: propertySymbol for: scope + "For convenience. Does support access to non-class keys." + + | aClass | + aClass := (scope isNil or: [scope isBehavior]) + ifTrue: [scope] + ifFalse: [Smalltalk classNamed: scope]. + + aClass ifNotNil: [^ self get: aClass -> propertySymbol]. + + properties + at: scope -> propertySymbol + ifPresent: [:prop | ^ prop value]. + + ^ self getViaLink: scope -> propertySymbol! Item was added: + ----- Method: UserInterfaceTheme>>get:for:do: (in category 'private') ----- + get: propertySymbol for: scope do: block + + ^ block cull: (self get: propertySymbol for: scope)! Item was added: + ----- Method: UserInterfaceTheme>>getViaLink: (in category 'private') ----- + getViaLink: keyObject + "keyObject is intended to be an Association" + + ^ next ifNotNil: [next get: keyObject]! Item was added: + ----- Method: UserInterfaceTheme>>getViaSuperclasses: (in category 'private') ----- + getViaSuperclasses: keyObject + "keyObject is intended to be an Association" + + "We know we're the only referencer of keyObject. Update it rather than create new ones, for performance reasons." + keyObject key: keyObject key superclass. + + keyObject key ifNil: [^ nil]. + + properties + at: keyObject + ifPresent: [:prop | ^ prop value]. + + ^ self getViaSuperclasses: keyObject! Item was added: + ----- Method: UserInterfaceTheme>>initialize (in category 'initialization') ----- + initialize + super initialize. + name := 'unnamed'. + properties := Dictionary new. + scope := Stack new! Item was added: + ----- Method: UserInterfaceTheme>>link: (in category 'building') ----- + link: aUserInterfaceTheme + "When accessing properties by name, if a property is not specified in the receiver, give aUserInterfaceTheme a chance to provide it." + next := aUserInterfaceTheme! Item was added: + ----- Method: UserInterfaceTheme>>merge: (in category 'building') ----- + merge: aUserInterfaceTheme + "Merge aUserInterfaceTheme into my properties. Same as #link:, except merges all the properties of aUserInterfaceTheme into the receiver" + self + merge: aUserInterfaceTheme + overwrite: false! Item was added: + ----- Method: UserInterfaceTheme>>merge:overwrite: (in category 'building') ----- + merge: aUserInterfaceTheme overwrite: aBoolean + "Merge aUserInterfaceTheme into my properties. Only overwrite properties if it sais so." + + self + validateCanMerge: aUserInterfaceTheme ; + preMerge: aUserInterfaceTheme. + + self atomicUpdate: [:props | + aUserInterfaceTheme properties keysAndValuesDo: [:key :value | + (aBoolean or: [(props includesKey: key) not]) + ifTrue: [ | mergedValue | + mergedValue := value copy. + "Update receiver when deriving properties." + mergedValue isMessageSend ifTrue: [mergedValue receiver: self]. + props at: key put: mergedValue. + ]]].! Item was added: + ----- Method: UserInterfaceTheme>>name (in category 'accessing') ----- + name + ^ name! Item was added: + ----- Method: UserInterfaceTheme>>name: (in category 'accessing') ----- + name: aString + name := aString! Item was added: + ----- Method: UserInterfaceTheme>>next (in category 'accessing') ----- + next + "The next theme to look for properties when I don't contain a particular property." + ^ next! Item was added: + ----- Method: UserInterfaceTheme>>postCopy (in category 'copying') ----- + postCopy + "Keep same name and linked next." + super postCopy. + properties := properties copy. + scope := nil! Item was added: + ----- Method: UserInterfaceTheme>>preMerge: (in category 'private') ----- + preMerge: aUserInterfaceTheme + name := name , ' + ' , aUserInterfaceTheme name. + next ifNil: [ next := aUserInterfaceTheme next ]! Item was added: + ----- Method: UserInterfaceTheme>>printOn: (in category 'printing') ----- + printOn: aStream + super printOn: aStream. + aStream space; print: name! Item was added: + ----- Method: UserInterfaceTheme>>properties (in category 'private') ----- + properties + ^ properties! Item was added: + ----- Method: UserInterfaceTheme>>pushScope: (in category 'private') ----- + pushScope: anObject + scope push: anObject! Item was added: + ----- Method: UserInterfaceTheme>>register (in category 'initialization') ----- + register + self class allThemes add: self.! Item was added: + ----- Method: UserInterfaceTheme>>set:for:to: (in category 'building') ----- + set: propertySymbol for: aClassOrSymbol to: valueObject + "Where aClass asks its userInterfaceTheme for propertySymbol, provide valueObject." + + | aClass | + aClass := aClassOrSymbol isBehavior ifTrue: [aClassOrSymbol] ifFalse: [Smalltalk classNamed: aClassOrSymbol]. + aClass ifNil: [^ self]. + ^ self atomicUpdate: + [ : props | | key | + key := aClass -> propertySymbol. + valueObject + ifNil: + [ props + removeKey: key + ifAbsent: [ "already cleared, don't error" ] ] + ifNotNil: + [ props + at: key + put: valueObject ] ]! Item was added: + ----- Method: UserInterfaceTheme>>set:to: (in category 'building') ----- + set: propertySymbol to: valueObject + "For convenience." + + ^ self atomicUpdate: + [ : props | + valueObject + ifNil: + [ props + removeKey: propertySymbol + ifAbsent: [ "already cleared, don't error" ] ] + ifNotNil: + [ props + at: propertySymbol + put: valueObject ] ]! Item was added: + ----- Method: UserInterfaceTheme>>unregister (in category 'initialization') ----- + unregister + self class allThemes remove: self ifAbsent: [].! Item was added: + ----- Method: UserInterfaceTheme>>unsetProperties (in category 'accessing') ----- + unsetProperties + "Answer the property keys which are unset."! Item was added: + ----- Method: UserInterfaceTheme>>validateCanMerge: (in category 'private') ----- + validateCanMerge: aUserInterfaceTheme + (next notNil and: + [ aUserInterfaceTheme next notNil and: [ next ~= aUserInterfaceTheme next ] ]) ifTrue: [ self error: 'Links to different themes. Cannot merge.' ]!

1 0

Daily Commit Log
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-July/068333.html Name: SystemReporter-mt.28 Ancestors: SystemReporter-mt.27 List Squeak Contributors in the System Reporter. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068334.html Name: SystemReporter-mt.29 Ancestors: SystemReporter-mt.28 Order all Squeak Contributors alphabetically. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068335.html Name: System-mt.849 Ancestors: System-mt.848 Adds some convenience methods to get more information about the current system version. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068336.html Name: ReleaseBuilder-mt.138 Ancestors: ReleaseBuilder-mt.137 Improve release building process. Some clean-up. Automate this and that. :-) Add the "alpha" suffix for the current trunk version again. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068337.html Name: System-mt.850 Ancestors: System-mt.849 Adds descriptions for the current starte of the system version. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068338.html Name: ReleaseBuilder-mt.139 Ancestors: ReleaseBuilder-mt.138 Some updates for guided release process. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068339.html Name: MonticelloConfigurations-mt.143 Ancestors: MonticelloConfigurations-dtl.142 A more descriptive information dialog after the update finished. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068340.html Name: Monticello-cmm.638 Ancestors: Monticello-tfel.637 Confirm before discarding unsaved Version notes. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-July/068341.html Name: Monticello-cmm.639 Ancestors: Monticello-cmm.638 Avoid confirmation prompt when clicking Accept. =============================================

1 0

The Trunk: Monticello-cmm.639.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.639.mcz ==================== Summary ==================== Name: Monticello-cmm.639 Author: cmm Time: 29 July 2016, 3:14:55.573436 pm UUID: c40c17b7-6df1-42e2-8542-7769a54f7e08 Ancestors: Monticello-cmm.638 Avoid confirmation prompt when clicking Accept. =============== Diff against Monticello-cmm.638 =============== Item was changed: ----- Method: MCSaveVersionDialog>>accept (in category 'actions') ----- accept + | logMessage logMessageWidget | - | logMessage | self updateItems. + logMessage := (logMessageWidget := self findTextMorph: #logMessage) text asString. + (logMessage isEmpty or: [logMessage beginsWith: 'empty log message']) + ifTrue: + [(UIManager confirm: 'the log message is empty; are you sure you want to commit') ifFalse: [^ self]] + ifFalse: [logMessageWidget accept]. - logMessage := (self findTextMorph: #logMessage) text asString. - (logMessage isEmpty or: [logMessage beginsWith: 'empty log message']) ifTrue: - [(UIManager confirm: 'the log message is empty; are you sure you want to commit') ifFalse: - [^self]]. self answer: (Array with: (self findTextMorph: #versionName) text asString with: logMessage + with: ignore)! - with: ignore) - !

1 0

Re: [squeak-dev] The Trunk: Monticello-cmm.638.mcz
by Chris Muller 29 Jul '16

29 Jul '16

An unintentional commit... I'll delete or fix it. On Fri, Jul 29, 2016 at 3:03 PM, <commits(a)source.squeak.org> wrote: > Chris Muller uploaded a new version of Monticello to project The Trunk: > http://source.squeak.org/trunk/Monticello-cmm.638.mcz > > ==================== Summary ==================== > > Name: Monticello-cmm.638 > Author: cmm > Time: 29 July 2016, 3:03:07.655086 pm > UUID: 809e9283-dcfe-41df-88cb-0e6b9beec1a9 > Ancestors: Monticello-tfel.637 > > Confirm before discarding unsaved Version notes. > > =============== Diff against Monticello-tfel.637 =============== > > Item was added: > + ----- Method: MCSaveVersionDialog>>okToClose (in category 'actions') ----- > + okToClose > + ^ (self findTextMorph: #logMessage) > + ifNil: [true] > + ifNotNil: > + [:widget | widget canDiscardEdits or: [self confirm: 'Version notes are not saved. > + Is it OK to discard those notes?' translated]]! > >

1 0

The Trunk: Monticello-cmm.638.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Chris Muller uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-cmm.638.mcz ==================== Summary ==================== Name: Monticello-cmm.638 Author: cmm Time: 29 July 2016, 3:03:07.655086 pm UUID: 809e9283-dcfe-41df-88cb-0e6b9beec1a9 Ancestors: Monticello-tfel.637 Confirm before discarding unsaved Version notes. =============== Diff against Monticello-tfel.637 =============== Item was added: + ----- Method: MCSaveVersionDialog>>okToClose (in category 'actions') ----- + okToClose + ^ (self findTextMorph: #logMessage) + ifNil: [true] + ifNotNil: + [:widget | widget canDiscardEdits or: [self confirm: 'Version notes are not saved. + Is it OK to discard those notes?' translated]]!

1 0

The Trunk: MonticelloConfigurations-mt.143.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-mt.143.mcz ==================== Summary ==================== Name: MonticelloConfigurations-mt.143 Author: mt Time: 29 July 2016, 5:03:17.048103 pm UUID: 0c21d221-5b25-084d-9a20-df5f67ba0b9e Ancestors: MonticelloConfigurations-dtl.142 A more descriptive information dialog after the update finished. =============== Diff against MonticelloConfigurations-dtl.142 =============== Item was changed: ----- Method: MCMcmUpdater>>doUpdate: (in category 'updating') ----- doUpdate: interactive "Update the image by loading all pending updates from the server. If this is the default updater for the system, update the system version when complete. If interteractive use a modal notifier, otherwise only update the transcript. Flush all caches. If a previous download failed this is often helpful" | config | MCFileBasedRepository flushAllCaches. config := self updateFromRepositories: { self repository }. config ifNil: [ interactive ifTrue: [ ^self inform: 'Unable to retrieve updates from remote repository.' translated ]. Transcript cr; show: '========== Unable to retrieve updates from remote repository. ==========' translated; cr. ^ self ]. MCMcmUpdater default == self ifTrue: [ config setSystemVersion. + interactive ifTrue: [ + self inform: ('Update completed.\\Version: {1}\Update: {2}\\Url: {3}\Map: ''{4}''\\{5}' translated withCRs format: { + SystemVersion current version. + SystemVersion current highestUpdate. + self repository. + MCMcmUpdater updateMapName. + SystemVersion current description})]. - interactive ifTrue: [ self inform: ('Update completed. - Current update number: ' translated, SystemVersion current highestUpdate) ]. Transcript cr; show: '========== Update completed. Current update number ' translated; show: SystemVersion current highestUpdate; show: ' =========='; cr ] ifFalse: [ interactive ifTrue: [ self inform: 'Update completed.' ]. Transcript cr; show: '========== Update completed. ==========' translated; cr ] !

1 0

The Trunk: ReleaseBuilder-mt.139.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.139.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.139 Author: mt Time: 29 July 2016, 5:02:02.533103 pm UUID: cee7fc24-d57e-8a46-a5d7-142aa6e0d44d Ancestors: ReleaseBuilder-mt.138 Some updates for guided release process. =============== Diff against ReleaseBuilder-mt.138 =============== Item was changed: ----- Method: ReleaseBuilder class>>buildConfiguration (in category 'accessing') ----- buildConfiguration | max versionName | max := 0. versionName := ''. + (self buildRepository versionNamesForPackageNamed: MCMcmUpdater updateMapName) do: [:nm | - (self buildRepository versionNamesForPackageNamed: 'update') do: [:nm | ((nm findTokens: $.) atLast: 2) asInteger in: [:versionNumber | versionNumber > max ifTrue: [max := versionNumber. versionName := nm]]]. ^ self buildRepository versionNamed: versionName ! Item was changed: ----- Method: ReleaseBuilder class>>requestNextReleaseVersion (in category 'manual - steps') ----- requestNextReleaseVersion "self requestNextReleaseVersion" | nextMinor nextMajor current | current := { SystemVersion current majorVersionNumber. SystemVersion current minorVersionNumber}. nextMinor := { current first. current second + 1}. nextMajor := { current first + 1. 0}. (UIManager default chooseFrom: { '{1}.{2}' format: {nextMinor first. nextMinor second}. '{1}.{2}' format: {nextMajor first. nextMajor second}} title: 'Please Choose Next Version') in: [:answer | + answer ifNil: [^ self requestNextReleaseVersion]. - answer ifNil: [^ false]. answer = 1 ifTrue: [ NextMinorVersion := nextMinor second]. answer = 2 ifTrue: [ NextMajorVersion := nextMajor first. + NextMinorVersion := 0]].! - NextMinorVersion := 0]]. - - ^ true! Item was changed: ----- Method: ReleaseBuilder class>>setNewSystemVersion: (in category 'manual') ----- setNewSystemVersion: version self class compile: ('initialize Smalltalk addToStartUpList: self. SystemVersion newVersion: ''{1}''.' format: {version}) classified: 'class initialization'. + self initialize. + + SystemVersion current isRelease + ifFalse: [self uploadNewSystemVersion].! - self initialize.! Item was changed: ----- Method: ReleaseBuilder class>>startUp: (in category 'class initialization') ----- startUp: resuming resuming + ifTrue: [NextTask := nil. DeferredTask ifNotNil: [:task | DeferredTask := nil. task value]] + ifFalse: [DeferredTask := nil. NextTask ifNotNil: [:task | NextTask := nil. task value]].! - ifTrue: [DeferredTask ifNotNil: [:task | DeferredTask := nil. task value]. NextTask := nil] - ifFalse: [NextTask ifNotNil: [:task | NextTask := nil. task value]. DeferredTask := nil].! Item was changed: ----- Method: ReleaseBuilder class>>step0AssureAlpha (in category 'manual - steps') ----- step0AssureAlpha + "Re-open the trunk again." + + self requestNextReleaseVersion. - - self requestNextReleaseVersion ifFalse: [^ self]. self setNewSystemVersion: self versionString, 'alpha'.! Item was changed: ----- Method: ReleaseBuilder class>>step1FeatureFreeze (in category 'manual - steps') ----- step1FeatureFreeze (UIManager default confirm: ('Do you really want to feature-freeze the trunk\in preparation for the next release {1}?\Bugfixes only after this.' withCRs format: {self versionString}) title: 'Release Builder Step 1 of 4: Feature Freeze') ifFalse: [^ self]. self setNewSystemVersion: self versionString, 'beta'.! Item was changed: ----- Method: ReleaseBuilder class>>step4Release (in category 'manual - steps') ----- step4Release "Creates the release. New file, clean-ed up." - | fileName | (UIManager default confirm: ('Do you want release {1}{2}?' withCRs format: { self versionString. (self releaseLocally ifTrue: [' locally'] ifFalse: [''])}) title: 'Release Builder Step 4 of 4: The Release') ifFalse: [^ self]. "If you re-open the current trunk image again, it will be an alpha version for the next release." DeferredTask := [self step0AssureAlpha]. - Smalltalk snapshot: true andQuit: false. + "We continue with preparing the release image." + NextTask := [self step5DoRelease]. - "Create new .image and .changes files for the release image." - self setNewSystemVersion: self versionString. - fileName := ('squeak-{1}.{2}{3}' format: { - SystemVersion current majorVersionNumber. - SystemVersion current minorVersionNumber. - self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). - Smalltalk saveAs: fileName. - - "Update the image state." - [ self - setTopProject; - prepareSourceCode; - prepareEnvironment; - switchToNewRepository: self releaseRepository. - ] on: MCEmptyVersion do: [:warning | warning resume]. + "Now save it but do not quit." + Smalltalk snapshot: true andQuit: false.! - NextTask := [self uploadForSmalltalkCI: fileName.]. - - Smalltalk condenseChanges. - Smalltalk snapshot: true "Important!!" andQuit: false.! Item was added: + ----- Method: ReleaseBuilder class>>step5DoRelease (in category 'manual - steps') ----- + step5DoRelease + "Creates the release. New file, clean-ed up." + + | fileName | + + "Create new .image and .changes files for the release image." + self setNewSystemVersion: self versionString. + fileName := ('squeak-{1}.{2}{3}' format: { + SystemVersion current majorVersionNumber. + SystemVersion current minorVersionNumber. + self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). + Smalltalk saveAs: fileName. + + "Update the image state." + [ self + setTopProject; + prepareSourceCode; + prepareEnvironment; + switchToNewRepository: self releaseRepository. + ] on: MCEmptyVersion do: [:warning | warning resume]. + + NextTask := [self uploadForSmalltalkCI: fileName.]. + + Smalltalk condenseChanges. + Smalltalk snapshot: true "Important!!" andQuit: false. + "Finished. See NextTask."! Item was added: + ----- Method: ReleaseBuilder class>>uploadNewSystemVersion (in category 'manual') ----- + uploadNewSystemVersion + "TODO: Just commit changes in the ReleaseBuilder because #initialize will change the system version:" + + UIManager default + confirm: 'Do you want to set the new system version for all?' + title: 'Publish New System Version'. + + + self inform: 'Upload not implemented.'.!

1 0

The Trunk: System-mt.850.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.850.mcz ==================== Summary ==================== Name: System-mt.850 Author: mt Time: 29 July 2016, 5:01:02.699103 pm UUID: 0ab532ec-842f-c947-9d48-f7a2ff444b8d Ancestors: System-mt.849 Adds descriptions for the current starte of the system version. =============== Diff against System-mt.849 =============== Item was added: + ----- Method: SystemVersion>>description (in category 'printing') ----- + description + + self isAlpha ifTrue: [^ 'This is an ALPHA version. It means that new features might be\introduced with each update or that very basic functions might\be quite buggy at the moment.\\Please refrain from using this version for important projects.' translated withCRs]. + + self isFeatureFreeze ifTrue: [^ 'This is a FEATURE FREEZE version. We are in the middle of preparing\a new release. It means that there will be no new features but only bugfixes.\\Please do not contribute new features at the moment. ;-)' translated withCRs]. + + self isCodeFreeze ifTrue: [^ 'This is a RELEASE CANDIDATE version. It means that we are almost\done preparing the new release.\\Please do ONLY contribute URGENT fixes. Thank you. :-)' translated withCRs]. + + self isRelease ifTrue: [^ self inform: 'This is a release version. It means that there will be only\bugfixes but no new features.\\Have fun. :-)' translated withCRs].!

1 0

The Trunk: ReleaseBuilder-mt.138.mcz
by commits＠source.squeak.org 29 Jul '16

29 Jul '16

Marcel Taeumel uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-mt.138.mcz ==================== Summary ==================== Name: ReleaseBuilder-mt.138 Author: mt Time: 29 July 2016, 3:50:05.208103 pm UUID: 3a79fdbe-4a63-c44d-84d2-561de7f32556 Ancestors: ReleaseBuilder-mt.137 Improve release building process. Some clean-up. Automate this and that. :-) Add the "alpha" suffix for the current trunk version again. =============== Diff against ReleaseBuilder-mt.137 =============== Item was changed: Object subclass: #ReleaseBuilder instanceVariableNames: '' + classVariableNames: 'DeferredTask NextMajorVersion NextMinorVersion NextTask' - classVariableNames: '' poolDictionaries: '' category: 'ReleaseBuilder'! + !ReleaseBuilder commentStamp: 'mt 6/22/2016 18:08' prior: 0! + I'm the script that prepares a trunk image for release. - !ReleaseBuilder commentStamp: 'mt 5/12/2016 16:50' prior: 0! - I'm the script that prepares a trunk image for release. For the next release version please update #releaseVersionMajor and #releaseVersionMinor. + Just do "ReleaseBuilder doNextStep" repeatedly until the next release is done. - Prepare and save this image as a release image via "ReleaseBuilder saveAsNewRelease." - If you want to save this image as the next alpha release, do: "ReleaseBuilder saveAsNextVersionAlpha." + For the final release step: + - If you want to try it locally, change #localBuild to return true. + - Most of the code operates (read-only) on the build repository, which is usually the trunk. For releases, there is a release repository, to which some package versions will be copied from trunk.! - If you want to try it locally, change #localBuild to return true. - - Most of the code operates (read-only) on the build repository, which is usually the trunk. For releases, there is a release repository, to which some package versions will be copied from trunk.! Item was added: + ----- Method: ReleaseBuilder class>>assureReleaseRepositoryReadAccess: (in category 'manual') ----- + assureReleaseRepositoryReadAccess: repo + + self releaseLocally ifTrue: [ + (FileDirectory on: repo description) assureExistence. + ^ true]. + + [repo allFileNames] on: NetworkError do: [ + UserDialogBoxMorph + inform: ('Please create the release repository:\{1}\...and ensure that you have global read access to it.' withCRs + format: {repo description}) title: 'Release Builder - Manual Step Required'. + ^ false]. + ^ true! Item was added: + ----- Method: ReleaseBuilder class>>assureReleaseRepositoryWriteAccess: (in category 'manual') ----- + assureReleaseRepositoryWriteAccess: repo + + self releaseLocally ifTrue: [^ self]. + + repo + user: (UIManager default + request: 'Enter user for ', repo description + initialAnswer: (repo user ifEmpty: [Utilities authorInitials])); + password: (UIManager default + requestPassword: 'Enter password for ' , repo description).! Item was changed: ----- Method: ReleaseBuilder class>>configureTools (in category 'scripts') ----- configureTools "Initialize well-known tools and other resources." TTCFont registerAll. + StrikeFont initialize. FileList initialize. "register file reader services" RealEstateAgent standardSize: 600 @ 400. SMLoaderPlus setDefaultFilters: #(filterSafelyAvailable). ! Item was added: + ----- Method: ReleaseBuilder class>>copyPackages (in category 'manual') ----- + copyPackages + "For bootstrapping the contents of the release repository." + + self copyPackagesFrom: self buildRepository to: self releaseRepository depth: 1.! Item was changed: + ----- Method: ReleaseBuilder class>>copyPackagesFrom:to:depth: (in category 'manual') ----- - ----- Method: ReleaseBuilder class>>copyPackagesFrom:to:depth: (in category 'scripts - support') ----- copyPackagesFrom: sourceRepository to: targetRepository depth: historyDepth "Copy the packages currently loaded in the image from the source repository to a target repository. Follow ancestry up to the depth specified." | currentDepth nextVersions currentVersions ignoredVersions | currentDepth := 0. nextVersions := (MCWorkingCopy allManagers gather: [:wc | wc ancestors]) asOrderedCollection. ignoredVersions := OrderedCollection new. [nextVersions notEmpty] whileTrue: [ currentVersions := nextVersions. nextVersions := OrderedCollection new. currentDepth := currentDepth + 1. currentVersions do: [:versionInfo | (targetRepository includesVersionNamed: versionInfo versionName) ifTrue: [Transcript showln: ('[ReleaseBuilder] Version {1} already exists in {2}' format: {versionInfo versionName. targetRepository description})] ifFalse: [(sourceRepository versionWithInfo: versionInfo) ifNil: [ignoredVersions add: versionInfo] ifNotNil: [:version | targetRepository storeVersion: version ] ]. currentDepth < historyDepth ifTrue: [ nextVersions addAll: versionInfo ancestors]]]. ignoredVersions ifNotEmpty: [ ignoredVersions explore. Warning signal: 'There were versions not found in the source repository.'].! Item was added: + ----- Method: ReleaseBuilder class>>copyUpdateMap (in category 'manual') ----- + copyUpdateMap + "For bootstrapping the contents of the release repository." + + self copyUpdateMap: self buildConfiguration to: self releaseRepository.! Item was added: + ----- Method: ReleaseBuilder class>>copyUpdateMap:to: (in category 'manual') ----- + copyUpdateMap: configuration to: targetRepository + + | newConfig | + newConfig := MCConfiguration new. + newConfig repositories add: targetRepository. + newConfig dependencies addAll: configuration dependencies. + newConfig name: configuration name. + + targetRepository storeVersion: newConfig.! Item was removed: - ----- Method: ReleaseBuilder class>>copyUpdateMapTo: (in category 'scripts - support') ----- - copyUpdateMapTo: targetRepository - - self buildConfiguration in: [:config | - | newConfig | - newConfig := MCConfiguration new. - newConfig repositories add: targetRepository. - newConfig dependencies addAll: config dependencies. - newConfig name: config name. - - targetRepository storeVersion: newConfig].! Item was added: + ----- Method: ReleaseBuilder class>>doNextStep (in category 'manual') ----- + doNextStep + "Use this call to perform the manual steps in the release process." + + | versionString | + SystemVersion current isRelease ifTrue: [ + ^ self inform: 'This is a release image. Please use a trunk image to prepare the next release']. + + versionString := SystemVersion current version. + + SystemVersion current isAlpha ifTrue: [^ self step1FeatureFreeze]. + SystemVersion current isFeatureFreeze ifTrue: [^ self step2CodeFreeze]. + SystemVersion current isReleaseCandidate ifTrue: [ + "Still code freeze and another RC? Or do the release?" + (UIManager default + chooseFrom: #('Create next release candidate' 'Create next release' 'Do nothing') lines: #(2) + title: versionString) in: [:answer | + answer = 1 ifTrue: [^ self step3NextReleaseCandidate]. + answer = 2 ifTrue: [^ self step4Release]]. + ^ self].! Item was added: + ----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') ----- + initialize + Smalltalk addToStartUpList: self. + + SystemVersion newVersion: 'Squeak5.1alpha'.! Item was removed: - ----- Method: ReleaseBuilder class>>localBuild (in category 'accessing') ----- - localBuild - "If true, use a local, directory-based repository. Usually in the working directory." - - ^ true! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNewRelease (in category 'preparing') ----- - prepareNewRelease - "This method is run at time of release to transfer the top trunk versions into my releaseRepository, and produce a release image." - - | source target | - source := self buildRepository. - target := self releaseRepository. - - [ self - setTopProject; - prepareSourceCode; - copyPackagesFrom: source to: target depth: 1; - copyUpdateMapTo: target; - prepareEnvironment; - switchToNewRepository: target. - ] on: MCEmptyVersion do: [:warning | warning resume]. - - SystemVersion newVersion: self versionString.! Item was removed: - ----- Method: ReleaseBuilder class>>prepareNextVersionAlpha (in category 'preparing') ----- - prepareNextVersionAlpha - "Prepare the first alpha image for next release." - - self - setTopProject; - prepareSourceCode; - prepareEnvironment; - switchToNewRepository: self buildRepository. - - SystemVersion newVersion: self versionStringAlpha.! Item was added: + ----- Method: ReleaseBuilder class>>releaseLocally (in category 'accessing') ----- + releaseLocally + "If true, use a local, directory-based repository. Usually in the working directory." + + ^ true! Item was changed: ----- Method: ReleaseBuilder class>>releaseRepository (in category 'accessing') ----- releaseRepository + (MCRepositoryGroup default repositories + detect: [:repo | repo description = self releaseRepositoryUrl] + ifNone: [MCRepository location: self releaseRepositoryUrl]) + in: [:repo | + MCRepositoryGroup default addRepository: repo. + (self assureReleaseRepositoryReadAccess: repo) + ifFalse: [ReleaseBuilderFailed signal: 'Could not build the release.']. + ^ repo]! - ^ (MCRepository location: self releaseRepositoryUrl) in: [:repo | - self localBuild ifFalse: [ - repo - user: (UIManager default - request: 'Enter user for ', self releaseRepositoryUrl - initialAnswer: Utilities authorInitials); - password: (UIManager default - requestPassword: 'Enter password for ' , self releaseRepositoryUrl)]. - repo].! Item was added: + ----- Method: ReleaseBuilder class>>releaseRepositoryName (in category 'accessing') ----- + releaseRepositoryName + + ^ (self versionString copyWithout: $.) asLowercase! Item was changed: ----- Method: ReleaseBuilder class>>releaseRepositoryUrl (in category 'accessing') ----- releaseRepositoryUrl + ^ self releaseLocally + ifFalse: [self serverUrl, '/', self releaseRepositoryName] + ifTrue: [(FileDirectory default on: 'repositories', FileDirectory slash, self releaseRepositoryName) fullName]! - ^ self localBuild - ifFalse: [(self serverUrl, '/', (self versionString copyWithout: $.)) asLowercase] - ifTrue: [(FileDirectory default on: 'repositories', FileDirectory slash, (self versionString copyWithout: $.) asLowercase) - assureExistence; - fullName]! Item was changed: ----- Method: ReleaseBuilder class>>releaseVersionMajor (in category 'accessing') ----- releaseVersionMajor + ^ NextMajorVersion ifNil: [5]! - ^ 5! Item was changed: ----- Method: ReleaseBuilder class>>releaseVersionMinor (in category 'accessing') ----- releaseVersionMinor + ^ NextMinorVersion ifNil: [1]! - ^ 1! Item was added: + ----- Method: ReleaseBuilder class>>requestNextReleaseVersion (in category 'manual - steps') ----- + requestNextReleaseVersion + "self requestNextReleaseVersion" + + | nextMinor nextMajor current | + current := { + SystemVersion current majorVersionNumber. + SystemVersion current minorVersionNumber}. + nextMinor := { + current first. + current second + 1}. + nextMajor := { + current first + 1. + 0}. + + (UIManager default + chooseFrom: { + '{1}.{2}' format: {nextMinor first. nextMinor second}. + '{1}.{2}' format: {nextMajor first. nextMajor second}} + title: 'Please Choose Next Version') in: [:answer | + answer ifNil: [^ false]. + answer = 1 ifTrue: [ + NextMinorVersion := nextMinor second]. + answer = 2 ifTrue: [ + NextMajorVersion := nextMajor first. + NextMinorVersion := 0]]. + + ^ true! Item was removed: - ----- Method: ReleaseBuilder class>>saveAsNewRelease (in category 'saving') ----- - saveAsNewRelease - "ReleaseManager saveAsNewRelease" - - (Project current uiManager - confirm: 'About to build new release', (self localBuild ifTrue: [' (locally!!)'] ifFalse: ['']),': ', self versionString, String cr, String cr, 'The VM will quit after that. Continue?' - title: 'Release Builder') ifFalse: [^ self]. - - self prepareNewRelease. - Smalltalk saveAs: self versionString, '-', SystemVersion current highestUpdate asString, (self localBuild ifTrue: ['-offline'] ifFalse: ['']). - Smalltalk condenseChanges. - Smalltalk snapshot: true "Important!!" andQuit: true.! Item was added: + ----- Method: ReleaseBuilder class>>saveAsNewTrunk (in category 'saving') ----- + saveAsNewTrunk + "Use this to create a new trunk image to be used by smalltalkCI." + + | fileName | + fileName := ('squeak-trunk{1}' format: { + self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). + + [ self + setTopProject; + prepareSourceCode; + prepareEnvironment; + switchToNewRepository: self buildRepository. + ] on: MCEmptyVersion do: [:warning | warning resume]. + + Smalltalk saveAs: fileName. + + Smalltalk condenseChanges. + Smalltalk snapshot: true "Important!!" andQuit: true.! Item was removed: - ----- Method: ReleaseBuilder class>>saveAsNextVersionAlpha (in category 'saving') ----- - saveAsNextVersionAlpha - "ReleaseBuilder saveNextVersionAlpha." - - (Project current uiManager - confirm: 'About to build new release', (self localBuild ifTrue: [' (locally!!)'] ifFalse: ['']),': ', self versionStringAlpha, String cr, String cr, 'The VM will quit after that. Continue?' - title: 'Release Builder') ifFalse: [^ self]. - - self prepareNextVersionAlpha. - Smalltalk saveAs: self versionStringAlpha, '-', SystemVersion current highestUpdate asString, (self localBuild ifTrue: ['-offline'] ifFalse: ['']). - Smalltalk condenseChanges. - Smalltalk snapshot: true "Important!!" andQuit: true.! Item was added: + ----- Method: ReleaseBuilder class>>setNewSystemVersion: (in category 'manual') ----- + setNewSystemVersion: version + + self class + compile: ('initialize + Smalltalk addToStartUpList: self. + + SystemVersion newVersion: ''{1}''.' format: {version}) + classified: 'class initialization'. + + self initialize.! Item was changed: ----- Method: ReleaseBuilder class>>setPreferences (in category 'scripts') ----- setPreferences "Preferences class defaultValueTableForCurrentRelease" " Preferences outOfTheBox." "<-- uncomment after #defaultValueTableForCurrentRelease is fixed up." "General User interaction" Preferences enable: #generalizedYellowButtonMenu ; enable: #swapMouseButtons; disable: #mouseOverForKeyboardFocus. Morph indicateKeyboardFocus: true. ToolBuilder openToolsAttachedToMouseCursor: false. SearchBar useScratchPad: false. "Text input." TextEditor autoEnclose: true ; autoIndent: true ; destructiveBackWord: false ; blinkingCursor: true ; dumbbellCursor: false. Preferences insertionPointColor: Color red. PluggableTextMorph simpleFrameAdornments: false. "Windows" - Preferences installUniformWindowColors. SystemWindow reuseWindows: false. SystemWindow windowsActiveOnlyOnTop: true. Model windowActiveOnFirstClick: false. "Not good for 800x600" Preferences disable: #showSplitterHandles; enable: #fastDragWindowForMorphic. CornerGripMorph drawCornerResizeHandles: false. ProportionalSplitterMorph smartHorizontalSplitters: false ; smartVerticalSplitters: false. "Scroll bars." Preferences enable: #scrollBarsNarrow; enable: #scrollBarsOnRight; disable: #alwaysHideHScrollbar; disable: #alwaysShowHScrollbar; disable: #alwaysShowVScrollbar. ScrollBar scrollBarsWithoutArrowButtons: true; scrollBarsWithoutMenuButton: true. ScrollPane useRetractableScrollBars: false. "Rounded corners." Morph preferredCornerRadius: 6. SystemWindow roundedWindowCorners: false. PluggableButtonMorph roundedButtonCorners: false. FillInTheBlankMorph roundedDialogCorners: false. MenuMorph roundedMenuCorners: false. ScrollBar roundedScrollBarLook: false. "Gradients." ScrollBar gradientScrollBar: false. SystemWindow gradientWindow: false. MenuMorph gradientMenu: false. PluggableButtonMorph gradientButton: false. "Shadows" Preferences enable: #menuAppearance3d. - MenuMorph - menuBorderWidth: 1; - menuBorderColor: Color lightGray; - menuLineColor: Color lightGray. Morph useSoftDropShadow: true.. "Lists and Trees" PluggableListMorph filterableLists: true; clearFilterAutomatically: false; highlightHoveredRow: true; menuRequestUpdatesSelection: true. PluggableTreeMorph filterByLabelsOnly: false; maximumSearchDepth: 1. - LazyListMorph - listSelectionTextColor: Color black; - listSelectionColor: (Color r: 0.72 g: 0.72 b: 0.9). "Standard Tools" - BalloonMorph balloonColor: (Color r: 0.92 g: 0.92 b: 0.706). Workspace shouldStyle: false. Browser listClassesHierarchically: true; showClassIcons: true; showMessageIcons: true; sortMessageCategoriesAlphabetically: true. Preferences enable: #annotationPanes; enable: #optionalButtons; enable: #diffsWithPrettyPrint; enable: #traceMessages; enable: #alternativeBrowseIt; enable: #menuWithIcons; enable: #visualExplorer. SystemNavigation thoroughSenders: true. Preferences disable: #debugLogTimestamp. "Halo" Preferences enable: #showBoundsInHalo ; disable: #alternateHandlesLook. "System" NetNameResolver enableIPv6: false. Scanner allowUnderscoreAsAssignment: true; prefAllowUnderscoreSelectors: true. "that's all, folks"! Item was added: + ----- Method: ReleaseBuilder class>>startUp: (in category 'class initialization') ----- + startUp: resuming + resuming + ifTrue: [DeferredTask ifNotNil: [:task | DeferredTask := nil. task value]. NextTask := nil] + ifFalse: [NextTask ifNotNil: [:task | NextTask := nil. task value]. DeferredTask := nil].! Item was added: + ----- Method: ReleaseBuilder class>>step0AssureAlpha (in category 'manual - steps') ----- + step0AssureAlpha + + self requestNextReleaseVersion ifFalse: [^ self]. + self setNewSystemVersion: self versionString, 'alpha'.! Item was added: + ----- Method: ReleaseBuilder class>>step1FeatureFreeze (in category 'manual - steps') ----- + step1FeatureFreeze + + (UIManager default + confirm: ('Do you really want to feature-freeze the trunk\in preparation for the next release {1}?\Bugfixes only after this.' withCRs format: {self versionString}) + title: 'Release Builder Step 1 of 4: Feature Freeze') ifFalse: [^ self]. + + self setNewSystemVersion: self versionString, 'beta'.! Item was added: + ----- Method: ReleaseBuilder class>>step2CodeFreeze (in category 'manual - steps') ----- + step2CodeFreeze + "Creates the first release candidate." + + (UIManager default + confirm: ('Do you really want to code-freeze the trunk\in preparation for the next release {1}?\Urgent fixes only after this.' withCRs format: {self versionString}) + title: 'Release Builder Step 2 of 4: Code Freeze') ifFalse: [^ self]. + + self setNewSystemVersion: self versionString, 'rc', (SystemVersion current releaseCandidateNumber + 1) asString.! Item was added: + ----- Method: ReleaseBuilder class>>step3NextReleaseCandidate (in category 'manual - steps') ----- + step3NextReleaseCandidate + "Creates additional release candidates." + "update version, update post load script, add stuff commit" + + (UIManager default + confirm: ('Do you want create another release candidate\for the next release {1}?\Urgent fixes still possible.' withCRs format: {self versionString}) + title: 'Release Builder Step 3 of 4: Release Candidate') ifFalse: [^ self]. + + self setNewSystemVersion: self versionString, 'rc', (SystemVersion current releaseCandidateNumber + 1) asString.! Item was added: + ----- Method: ReleaseBuilder class>>step4Release (in category 'manual - steps') ----- + step4Release + "Creates the release. New file, clean-ed up." + + | fileName | + (UIManager default + confirm: ('Do you want release {1}{2}?' withCRs format: { + self versionString. + (self releaseLocally ifTrue: [' locally'] ifFalse: [''])}) + title: 'Release Builder Step 4 of 4: The Release') + ifFalse: [^ self]. + + "If you re-open the current trunk image again, it will be an alpha version for the next release." + DeferredTask := [self step0AssureAlpha]. + Smalltalk snapshot: true andQuit: false. + + "Create new .image and .changes files for the release image." + self setNewSystemVersion: self versionString. + fileName := ('squeak-{1}.{2}{3}' format: { + SystemVersion current majorVersionNumber. + SystemVersion current minorVersionNumber. + self releaseLocally ifTrue: ['-offline'] ifFalse: ['']}). + Smalltalk saveAs: fileName. + + "Update the image state." + [ self + setTopProject; + prepareSourceCode; + prepareEnvironment; + switchToNewRepository: self releaseRepository. + ] on: MCEmptyVersion do: [:warning | warning resume]. + + NextTask := [self uploadForSmalltalkCI: fileName.]. + + Smalltalk condenseChanges. + Smalltalk snapshot: true "Important!!" andQuit: false.! Item was added: + ----- Method: ReleaseBuilder class>>uploadForSmalltalkCI: (in category 'manual') ----- + uploadForSmalltalkCI: fileName + "TODO Automate upload." + + self releaseLocally ifTrue: [ + ^ UserDialogBoxMorph + inform: ('Please do never upload images that are meant to be used locally.') + title: 'Release Builder - Local Release Finished'.]. + + UserDialogBoxMorph + inform: ('Please upload {1] and {2} to files.squeak.org/smalltalkCI' format: {fileName, '.image'. fileName, '.changes'}) + title: 'Release Builder - Almost Done'.! Item was added: + Error subclass: #ReleaseBuilderFailed + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'ReleaseBuilder'!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
23
Older →

Jump to page: