Packages January 2014

packages@lists.squeakfoundation.org

1 participants
312 discussions

The Trunk: ReleaseBuilder-cmm.107.mcz
by commits＠source.squeak.org 19 Jan '14

19 Jan '14

Chris Muller uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-cmm.107.mcz ==================== Summary ==================== Name: ReleaseBuilder-cmm.107 Author: cmm Time: 18 January 2014, 5:20:36.277 pm UUID: 6b317f48-4ad8-4fcf-a8d6-299a8166b54b Ancestors: ReleaseBuilder-cwp.106 prepareNewBuild to clean desktop, ensure clean packages and up-to-date docking bar properties. =============== Diff against ReleaseBuilder-cwp.106 =============== Item was removed: - ----- Method: ReleaseBuilder class>>cleanPackages (in category 'scripts') ----- - cleanPackages - "Force-load the packages to ensure the image has what Trunk says it should." - MCWorkingCopy allManagers do: [:wc | - FileStream stdout nextPutAll: ('Cleaning {1}\' withCRs format: {wc packageName}). - wc ancestors size = 1 ifFalse: [ - self error: 'Package must have single parent: ', wc packageName]. - wc modified: true. "make sure actual diff is performed" - [(MCRepository trunk versionWithInfo: wc ancestors first) load] - on: Warning do: [:w | w resume]].! Item was added: + ----- Method: ReleaseBuilder class>>configureDesktop (in category 'private') ----- + configureDesktop + self deleteAllWindows. + MorphicProject initialize. + "Replace docking bar instance in case its code has changed." + Project current removeMainDockingBar. + TheWorldMainDockingBar updateInstances! Item was added: + ----- Method: ReleaseBuilder class>>deleteAllWindows (in category 'private') ----- + deleteAllWindows + (SystemWindow + windowsIn: ActiveWorld + satisfying: + [ : window | true ]) do: + [ : window | [ window makeClosable; delete ] + on: ProvideAnswerNotification + do: [ : noti | noti resume: true ] ]! Item was removed: - ----- Method: ReleaseBuilder class>>openWelcomeWorkspaces (in category 'private') ----- - openWelcomeWorkspaces - TheWorldMainDockingBar instance - showWelcomeText: #squeakUserInterface - label: 'Squeak User Interface' - in: (40 @ 40 extent: 500 @ 300). - TheWorldMainDockingBar instance - showWelcomeText: #workingWithSqueak - label: 'Working With Squeak' - in: (80 @ 80 extent: 500 @ 300). - TheWorldMainDockingBar instance - showWelcomeText: #licenseInformation - label: 'License Information' - in: (120 @ 120 extent: 500 @ 300). - TheWorldMainDockingBar instance - showWelcomeText: #welcomeFutureDirections - label: 'Future Directions' - in: (160 @ 160 extent: 500 @ 300). - TheWorldMainDockingBar instance - showWelcomeText: #welcomeToSqueak - label: 'Welcome to Squeak 4.5' - in: (200 @ 200 extent: 500 @ 300)! Item was changed: ----- Method: ReleaseBuilder class>>prepareNewBuild: (in category 'scripts') ----- + prepareNewBuild: anMCRepository - prepareNewBuild: anMCRepository "ReleaseBuilderTrunk prepareNewBuild" "Prepare everything that should be done for a new image build" MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. - Workspace allInstances do: [ : each | each topView delete]. - MorphicProject initialize. TTCFont registerAll. + RealEstateAgent standardSize: 600 @ 400. - RealEstateAgent standardSize: 600@400. SystemVersion newVersion: self versionString. + SMLoaderPlus setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). + self + setDisplayExtent: 800 @ 600 ; + setPreferences ; + switchToNewRepository: anMCRepository ; + configureDesktop ; + verifyPackagesClean. - SMLoaderPlus - setDefaultFilters: (OrderedCollection with: #filterSafelyAvailable). - self setDisplayExtent: 800 @ 600; - setPreferences; - switchToNewRepository: anMCRepository; - openWelcomeWorkspaces. - self cleanPackages. Smalltalk cleanUp: true. + Environment allInstancesDo: [ : env | env purgeUndeclared ]. + Undeclared removeUnreferencedKeys. - Environment allInstancesDo: - [:env | env purgeUndeclared]. Smalltalk garbageCollect. + [ self loadWellKnownPackages "<-- 4.5 is not ready for unloaded / reloaded packages" ]. + Compiler recompileAll! - self loadWellKnownPackages. - Compiler recompileAll.! Item was added: + ----- Method: ReleaseBuilder class>>verifyPackagesClean (in category 'scripts') ----- + verifyPackagesClean + MCWorkingCopy allManagers do: + [ : wc | wc ancestors size = 1 ifFalse: [ self error: 'Package should have single ancestor for release image.' , wc packageName ]. + wc modified ifTrue: [ self error: 'Packages should be clean for release image.' ] ]!

1 0

The Trunk: ReleaseBuilder-cmm.107.mcz
by commits＠source.squeak.org 19 Jan '14

19 Jan '14

1 0

The Trunk: Monticello-fbs.581.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

Frank Shearar uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-fbs.581.mcz ==================== Summary ==================== Name: Monticello-fbs.581 Author: fbs Time: 18 January 2014, 4:58:44.499 pm UUID: bd327588-05f4-cf4c-87cd-1f5039cb4b04 Ancestors: Monticello-cmm.580 When browsing the history of a version, you may now select the current version and find out its changes relative to its ancestor. =============== Diff against Monticello-cmm.580 =============== Item was changed: ----- Method: MCVersionHistoryBrowser>>getMenu: (in category 'morphic ui') ----- getMenu: aMenu + | menuSpecs | + menuSpecs := (self selectedInfo ancestors collect: [:parent | - self selection < 2 ifTrue: [^ aMenu]. - self fillMenu: aMenu fromSpecs: - {{'view changes to ', ancestry name . #viewChanges}}, - (self selectedInfo ancestors collect: [:parent | {'view changes from ', parent name . #viewChanges: . parent}]), #(('spawn history' spawnHistory) ('search history' searchHistory)). + self selection > 1 ifTrue: [ + menuSpecs := {{'view changes to ', ancestry name . #viewChanges}}, menuSpecs]. + + self fillMenu: aMenu fromSpecs: menuSpecs. ^ aMenu!

1 0

The Trunk: Monticello-fbs.581.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

1 0

The Trunk: Monticello-fbs.581.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

1 0

The Trunk: Morphic-fbs.717.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

Frank Shearar uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-fbs.717.mcz ==================== Summary ==================== Name: Morphic-fbs.717 Author: fbs Time: 18 January 2014, 4:49:29.621 pm UUID: 4fadfd1a-dc41-e746-96b7-f1f34f35ca90 Ancestors: Morphic-fbs.716, Morphic-cwp.716 Merge Sean DeNigris' fix back in. =============== Diff against Morphic-cwp.716 =============== Item was changed: ----- Method: KeyboardEvent>>storeOn: (in category 'printing') ----- storeOn: aStream aStream nextPutAll: type. aStream space. self timeStamp storeOn: aStream. aStream space. + position x asInteger storeOn: aStream. + aStream space. + position y asInteger storeOn: aStream. + aStream space. buttons storeOn: aStream. aStream space. + keyValue storeOn: aStream.! - keyValue storeOn: aStream. - ! Item was changed: ----- Method: KeyboardEvent>>type:readFrom: (in category 'initialize') ----- type: eventType readFrom: aStream + | x y | type := eventType. timeStamp := Integer readFrom: aStream. aStream skip: 1. + + x := Integer readFrom: aStream. + aStream skip: 1. + y := Integer readFrom: aStream. + aStream skip: 1. + position := x@y. + buttons := Integer readFrom: aStream. aStream skip: 1. keyValue := Integer readFrom: aStream.! Item was removed: - PluggableSystemWindow subclass: #PluggableSystemWindowWithLabelButton - instanceVariableNames: 'labelButton' - classVariableNames: '' - poolDictionaries: '' - category: 'Morphic-Windows'! - - !PluggableSystemWindowWithLabelButton commentStamp: 'eem 6/29/2010 19:02' prior: 0! - A PluggableSystemWindowWithLabelButton provides the pull-down menu of browser panes in the multi-pane browser. - - Instance Variables - labelButton: <BrowserPaneButtonMorph> - - labelButton - - the labelButton is a hack to hold onto the panes of a multi-paned browser so that an inst var doesn't have to be added to the Browser hierarchy. - ! Item was removed: - ----- Method: PluggableSystemWindowWithLabelButton>>adjustExtraButton (in category 'resize/collapse') ----- - adjustExtraButton - labelButton ifNil: [^self]. - labelButton - position: self innerBounds topLeft + (20 @ -3); - extent: self innerBounds extent * (0.4@1)! Item was removed: - ----- Method: PluggableSystemWindowWithLabelButton>>extent: (in category 'geometry') ----- - extent: newExtent - super extent: newExtent. - self adjustExtraButton! Item was removed: - ----- Method: PluggableSystemWindowWithLabelButton>>savedMultiWindowState: (in category 'accessing') ----- - savedMultiWindowState: aSavedMultiWindowState - labelButton := MultiWindowLabelButtonMorph - on: aSavedMultiWindowState - getState: nil - action: #selectWindowsMenu. - labelButton - triggerOnMouseDown: true; - savedMultiWindowState: aSavedMultiWindowState. - labelButton - layoutFrame: (LayoutFrame "i.e. in the left 40% of the title bar" - fractions: (0@0 corner: 0.4@0) - offsets: (20@ -20 corner: 0@0)); - hResizing: #spaceFill; - vResizing: #spaceFill. - self addMorphFront: labelButton. - self adjustExtraButton!

1 0

The Trunk: Morphic-fbs.717.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

1 0

The Trunk: Morphic-fbs.717.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

1 0

The Trunk: SUnit-fbs.99.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

Frank Shearar uploaded a new version of SUnit to project The Trunk: http://source.squeak.org/trunk/SUnit-fbs.99.mcz ==================== Summary ==================== Name: SUnit-fbs.99 Author: fbs Time: 9 January 2014, 2:05:18.527 pm UUID: a5be81dd-6e9f-8d41-a091-3c6c27a28abe Ancestors: SUnit-cmm.98 Basic #assert:identical: implementation. Suggestions for a better error message welcome! =============== Diff against SUnit-cmm.98 =============== Item was added: + ----- Method: SUnitTest>>testAssertIdentical (in category 'testing') ----- + testAssertIdentical + | a b | + a := 'foo'. + b := 'bar'. + self should: [self assert: a identical: b] raise: TestFailure. + [self assert: a identical: b] on: TestFailure do: [:e | |error| + error := e messageText. + self assert: (error includesSubString: a) description: 'Error message doesn''t include the expected value'. + self assert: (error includesSubString: b) description: 'Error message doesn''t include the expected value'].! Item was added: + ----- Method: SUnitTest>>testAssertIdenticalDescription (in category 'testing') ----- + testAssertIdenticalDescription + | a b | + a := 'foo'. + b := a copy. + self should: [self assert: a identical: b description: 'A desciption'] raise: TestFailure. + [self assert: a identical: b description: 'A desciption'] on: TestFailure do: [:e | |error| + error := e messageText. + self assert: (error includesSubString: 'A desciption') description: 'Error message doesn''t give you the description'].! Item was added: + ----- Method: SUnitTest>>testAssertIdenticalWithEqualObjects (in category 'testing') ----- + testAssertIdenticalWithEqualObjects + | a b | + a := 'foo'. + b := a copy. + self should: [self assert: a identical: b] raise: TestFailure. + [self assert: a identical: b] on: TestFailure do: [:e | |error| + error := e messageText. + self assert: (error includesSubString: 'not identical') description: 'Error message doesn''t say the two things aren''t identical'].! Item was added: + ----- Method: TestCase>>assert:identical: (in category 'accessing') ----- + assert: expected identical: actual + + ^self + assert: expected == actual + description: [ self comparingStringBetweenIdentical: expected and: actual ] + ! Item was added: + ----- Method: TestCase>>assert:identical:description: (in category 'accessing') ----- + assert: expected identical: actual description: aString + + ^self + assert: expected == actual + description: [ aString , ': ', (self comparingStringBetweenIdentical: expected and: actual) ]! Item was added: + ----- Method: TestCase>>comparingStringBetweenIdentical:and: (in category 'private') ----- + comparingStringBetweenIdentical: expected and: actual + ^ 'Expected {1} and actual {2} are not identical.' format: { + expected printStringLimitedTo: 10. + actual printStringLimitedTo: 10. + }!

1 0

The Trunk: SUnit-fbs.99.mcz
by commits＠source.squeak.org 18 Jan '14

18 Jan '14

1 0

← Newer
1
...
8
9
10
11
12
13
14
...
32
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2014