Squeak-dev January 2018

squeak-dev@lists.squeakfoundation.org

50 participants
171 discussions

Is there a way to determine the screen size without first going to full screen mode?
by Louis LaBrunda 16 Jan '18

16 Jan '18

Hi, Is there a way to determine the screen size without first going to full screen mode? Lou -- Louis LaBrunda Keystone Software Corp. SkypeMe callto://PhotonDemon

6 9

Updating the bits of a window
by Eliot Miranda 16 Jan '18

16 Jan '18

Hi All, if I have a compute-intensive foreground task what message should I insert in it to allow the UI to update the screen, either in totality or for a specific SystemWindow, or submorph? This is for the VM simulator which is busily executing byte codes. I want to provide a simulator implementation of ioForceDisplayUpdate, which is currently a no-op. AdvThanksance _,,,^..^,,,_ best, Eliot

4 8

The Trunk: ReleaseBuilder-eem.175.mcz
by commits＠source.squeak.org 16 Jan '18

16 Jan '18

Eliot Miranda uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-eem.175.mcz ==================== Summary ==================== Name: ReleaseBuilder-eem.175 Author: eem Time: 16 January 2018, 9:27:21.1982 am UUID: 76764a70-9b31-4ed9-b812-548875319786 Ancestors: ReleaseBuilder-eem.174 Fix installing the new ReleaseBuilder class>>initialize method so that setNewSystemVersion: works in subclasses (needed e.g. for ReleaseBuilderSqueakland). =============== Diff against ReleaseBuilder-eem.174 =============== Item was changed: ----- Method: ReleaseBuilder class>>setNewSystemVersion: (in category 'manual') ----- setNewSystemVersion: version + | implementingClass initializeMethodSource | - | initializeMethodSource | initializeMethodSource := self initializeTemplate format: {version}. + implementingClass := self class whichClassIncludesSelector: #initialize. + (implementingClass >> #initialize) getSource asString ~= initializeMethodSource ifTrue: + [implementingClass - (self class >> #initialize) getSource asString ~= initializeMethodSource ifTrue: - [self class compile: initializeMethodSource classified: 'class initialization']. self initialize. self assert: (SystemVersion current version beginsWith: self versionString). SystemVersion current isRelease ifFalse: [ self inform: ('You just changed the system version to {1}.\Please upload the changed ''ReleaseBuilder'' package to\\ {2}\\so that this version change will be official.' translated withCRs format: {SystemVersion current version. self buildRepository description})]!

1 0

The Trunk: ReleaseBuilder-eem.172.mcz
by commits＠source.squeak.org 16 Jan '18

16 Jan '18

Eliot Miranda uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-eem.172.mcz ==================== Summary ==================== Name: ReleaseBuilder-eem.172 Author: eem Time: 5 January 2018, 7:20:47.150059 pm UUID: 4144895f-5617-4f80-9ab2-593eca77e2ac Ancestors: ReleaseBuilder-mt.171 Allow the ReleaseBuilder to query if the SistaV1 bytecode set should be the default in a new release. =============== Diff against ReleaseBuilder-mt.171 =============== Item was changed: ----- Method: ReleaseBuilder class>>prepareSourceCode (in category 'preparing') ----- prepareSourceCode "Update code. Remove foreign packages." MCMcmUpdater defaultUpdateURL: self buildRepository description. MCMcmUpdater updateMissingPackages: true. MCMcmUpdater enableUpdatesForAllPackages. TestCase new ensureInternetConnectionTo: self buildRepository description. "Flush all caches. If a previous download failed this is often helpful" MCFileBasedRepository flushAllCaches. "Save the current default updater, clear the registry, and re-register the current updater" MCMcmUpdater clearRegistry. [MCMcmUpdater default doUpdate: false. "non-interactive"] on: MCEmptyVersion do: [:warning | warning resume]. self unloadForeignPackages; checkForDirtyPackages; loadWellKnownPackages; + checkForUndeclaredSymbols; + recompileAll! - checkForUndeclaredSymbols. - - Compiler recompileAll.! Item was added: + ----- Method: ReleaseBuilder class>>recompileAll (in category 'scripts - support') ----- + recompileAll + + (Smalltalk classNamed: #EncoderForSistaV1) ifNotNil: + [:sistaBytecodeSet| + CompiledCode preferredBytecodeSetEncoderClass ~~ sistaBytecodeSet ifTrue: + [(Project uiManager + confirm: 'Do you want to make it the default in this release?' + orCancel: [false] + title: 'The SistaV1 Bytecode Set Is Available') ifTrue: + [CompiledCode + installSecondaryBytecodeSet: sistaBytecodeSet; + preferredBytecodeSetEncoderClass: sistaBytecodeSet]]]. + + Compiler recompileAll!

4 6

The Trunk: ReleaseBuilder-eem.174.mcz
by commits＠source.squeak.org 16 Jan '18

16 Jan '18

Eliot Miranda uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-eem.174.mcz ==================== Summary ==================== Name: ReleaseBuilder-eem.174 Author: eem Time: 16 January 2018, 9:16:29.320218 am UUID: 26104531-83e9-4854-8342-726a17fcbe42 Ancestors: ReleaseBuilder-eem.173 Refactor prepareSourceCode to extract the Monticello management to its own method. =============== Diff against ReleaseBuilder-eem.173 =============== Item was changed: + ----- Method: ReleaseBuilder class>>confirm:orCancel:title: (in category 'scripts - support') ----- - ----- Method: ReleaseBuilder class>>confirm:orCancel:title: (in category 'preparing') ----- confirm: aString orCancel: cancelBlock title: titleString "Allow questions to be answered in advance." ^QAndA at: titleString ifAbsent: [Project uiManager confirm: aString translated orCancel: cancelBlock title: titleString translated]! Item was changed: ----- Method: ReleaseBuilder class>>prepareSourceCode (in category 'preparing') ----- prepareSourceCode + "Update packages. Remove foreign packages. Recompile." - "Update code. Remove foreign packages." - MCMcmUpdater defaultUpdateURL: self buildRepository description. - - MCMcmUpdater updateMissingPackages: true. - MCMcmUpdater enableUpdatesForAllPackages. - - TestCase new ensureInternetConnectionTo: self buildRepository description. - - "Flush all caches. If a previous download failed this is often helpful" - MCFileBasedRepository flushAllCaches. - - "Save the current default updater, clear the registry, and re-register the current updater" - MCMcmUpdater clearRegistry. - - [MCMcmUpdater default doUpdate: false. "non-interactive"] - on: MCEmptyVersion do: [:warning | warning resume]. - self + updateCorePackages; unloadForeignPackages; checkForDirtyPackages; loadWellKnownPackages; checkForUndeclaredSymbols; recompileAll! Item was added: + ----- Method: ReleaseBuilder class>>updateCorePackages (in category 'scripts - support') ----- + updateCorePackages + "Update code." + + MCMcmUpdater + defaultUpdateURL: self buildRepository description; + updateMissingPackages: true; + enableUpdatesForAllPackages. + + TestCase new ensureInternetConnectionTo: self buildRepository description. + + "Flush all caches. If a previous download failed this is often helpful" + MCFileBasedRepository flushAllCaches. + + "Save the current default updater, clear the registry, and re-register the current updater" + MCMcmUpdater clearRegistry. + + [MCMcmUpdater default doUpdate: false "non-interactive"] + on: MCEmptyVersion + do: [:warning | warning resume]!

1 0

The Trunk: Tools-mt.791.mcz
by commits＠source.squeak.org 16 Jan '18

16 Jan '18

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.791.mcz ==================== Summary ==================== Name: Tools-mt.791 Author: mt Time: 16 January 2018, 5:52:57.329363 pm UUID: a4ab8e7b-6130-9843-a27f-91456a171e78 Ancestors: Tools-eem.790 Small layout fixes in our new file/folder choose dialogs. =============== Diff against Tools-eem.790 =============== Item was changed: ----- Method: DirectoryChooserDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the chooser dialog UI" | windowSpec window | windowSpec := self buildWindowWith: builder specs: { (self frameOffsetFromTop: 0 fromLeft: 0 width: 1 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. ^window ! Item was added: + ----- Method: FileAbstractSelectionDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + + ^ { + builder pluggableButtonSpec new + model: self; + label: 'Accept' translated; + color: (self userInterfaceTheme get: #okColor for: #DialogWindow); + action: #acceptFileName. + builder pluggableButtonSpec new + model: self; + label: 'Cancel'; + color: (self userInterfaceTheme get: #cancelColor for: #DialogWindow); + action: #cancelFileChooser}! Item was changed: ----- Method: FileAbstractSelectionDialog>>buildWindowWith: (in category 'toolbuilder') ----- buildWindowWith: builder "Since a file chooser is a modal dialog we over-ride the normal window build to use a dialog as the top component" | windowSpec | windowSpec := builder pluggableDialogSpec new. windowSpec model: self; label: #windowTitle; message: #userMessage; extent: self initialExtent; + spacing: self viewSpacing; children: OrderedCollection new; buttons: OrderedCollection new. ^windowSpec! Item was added: + ----- Method: FileAbstractSelectionDialog>>viewSpacing (in category 'ui details') ----- + viewSpacing + + ^ 5 "pixels"! Item was changed: ----- Method: FileChooserDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the chooser dialog UI" | windowSpec window | windowSpec := self buildWindowWith: builder specs: { (self frameOffsetFromTop: 0 fromLeft: 0.25 width: 0.75 + offsetFromBottom: 0) -> [self buildFileListWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildFileListWith: builder]. (self frameOffsetFromTop: 0 fromLeft: 0 width: 0.25 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. ^window ! Item was changed: ----- Method: FileSaverDialog>>buildWith: (in category 'toolbuilder') ----- buildWith: builder "assemble the spec for the saver dialog UI and build the window" | window windowSpec | windowSpec := self buildWindowWith: builder specs: { + (self topConstantHeightFrame: self textViewHeight + self viewSpacing - (self topConstantHeightFrame: self textViewHeight fromLeft: 0 width: 1) -> [self buildTextInputWith: builder]. + (self frameOffsetFromTop: self textViewHeight + self viewSpacing - (self frameOffsetFromTop: self textViewHeight fromLeft: 0.25 width: 0.75 + offsetFromBottom: 0) -> [self buildFileListWith: builder]. + (self frameOffsetFromTop: self textViewHeight + self viewSpacing - offsetFromBottom: self buttonHeight) -> [self buildFileListWith: builder]. - (self frameOffsetFromTop: self textViewHeight fromLeft: 0 width: 0.25 + offsetFromBottom: 0) -> [self buildDirectoryTreeWith: builder]. - offsetFromBottom: self buttonHeight) -> [self buildDirectoryTreeWith: builder]. }. + windowSpec buttons addAll: ( self buildButtonsWith: builder ). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Accept'; - action: #acceptFileName). - windowSpec buttons add:( builder pluggableButtonSpec new - model: self; - label: 'Cancel'; - action: #cancelFileChooser). window := builder build: windowSpec. self changed: #selectedPath. self inputText: fileName. ^window !

1 0

Anyone recognize this data?
by Eliot Miranda 16 Jan '18

16 Jan '18

Hi All, this data appears to have overwritten some of the object pointers in a key buffer in the VM's compaction algorithm, leading to a crash. I don't recognize it. Perhaps someone here does. That would help in tracking down where the overwrite originates. nonStandyo 5/3/2closeCamjm 11/11frameExtjm 8/31/cameraIsjm 9/9/2getFramejm 5/13/camera: jm 11/6/openCamejm 9/5/2videoTeskfr 10/1packedFrjm 8/31/declareCjm 4/29/cameraNajm 9/1/2cameraIskfr 10/1waitForCdmoc 5/2addCustodgd 8/30defaultCdgd 2/14toggleStsw 11/7/closeEdisw 9/30/sortPagesw 9/30/initialidgd 2/14saveAsCusw 8/12/invokePasw 12/11openEditsw 9/30/setLabelsw 9/29/wantsExpsw 6/5/2book: aBRAA 12/2adjustBosw 9/29/extent: sw 10/8/includeIRAA 8/8/initialisw 3/17/assureDasw 3/17/descriptsw 1/25/additionsw 1/25/type: aSar 5/23/paneForBdgd 8/31paneForBdgd 8/31makeTargkfr 3/8/tgt2ndGrRAA 3/8/paneForSdgd 8/31makeTargRAA 3/8/initialikfr 3/8/adjustTaRAA 3/8/paneForSdgd 8/31adjustTaRAA 3/8/adjustTaRAA 3/8/borderPrsd 11/13toggleBoar 8/25/paneForRdgd 8/31tgt2ndGrkfr 5/3/paneForMkfr 3/8/targetHaRAA 3/8/adjustTaRAA 3/8/defaultBdgd 3/7/defaultCdgd 3/7/paneForDdgd 8/31toggleTaRAA 2/20paneForSdgd 8/31paneForBdgd 8/31doEnablesw 5/3/2rebuildOwiz 9/21targetHaRAA 3/8/toggleTaRAA 2/20numberOnRAA 3/8/toggleTaRAA 3/8/toggleSikfr 3/8/paneForSRAA 3/8/targetRaRAA 3/8/targetBoar 11/26targetBoar 8/25/paneFor2dgd 8/31numberOngm 2/16/paneForLcmm 11/1paneForGdgd 8/31paneForCdgd 8/31paneForGdgd 8/31paneForGdgd 8/31updateBoyo 1/15/window: tak 10/2sortedPryo 1/10/intoWorlyo 1/10/wantsToBtak 10/1directoryo 1/10/onEnterWdtl 11/1sortedAlyo 1tak 10/2buildPanyo 1/10/initialiyo 1/10/buildButyo 1/15/projectFtak 10/1setupBooyo 1/22/fullPathtak 10/1openProjtak 10/2thumbnaitak 10/1showGallyo 1/10/updatePatak 10/2trackedEyo 9/22/clearEvayo 1/13/setRewriyo 1/13/includeIdi 6/22/setDefauyo 9/1/2writingUtk 1/31/generatesw 6/10/initialitfel 8/3trackedEyo 9/22/writingUtk 1/31/launchAlsw 1/30/descripttak 7/25defaultNKR 5/23/asm 4/11registerKR 8/12/allScripsw 6/12/initialiasm 4/11morphToDfbs 11/2addCustosw 4/13/acceptDrsw 6/9/2isColorCar 8/16/handlesMar 2/8/2lastTilesw 6/6/2restoreDul 12/12mouseLeasw 6/19/prin^ sw 10/3/isTilePaar 1/3/2isOutsidtk 8/3/1parseNodyo 4/12/canAccepsw 5/1/2setType:sw 9/17/prepareTdgd 2/22mouseEntsw 6/14/basicWidsw 9/17/storeCodjm 5/28/setToBeasw 10/6/wrapInFusw 6/5/2la"rls 1/25/getRepliyo 9/14/printSesasm 11/2layoutPrsw 9/14/controlAjm 2/20/cardDeckdjp yo 4/25/bePossessw 9/8/2includeIdi 5/3/1addToForls 7/4/1currentVsw 6/4/2initPinSdi 5/1/1defaultNKR 5/2"olot 11sound 3/7/coords _,,,^..^,,,_ best, Eliot

3 2

Fwd: Squeak Oversight Board Election 2018
by Ron Teitelbaum 15 Jan '18

15 Jan '18

Hi All, Thank you to everyone that has served on the Squeak Oversight Board in the past and for all of you that are running to serve this year. We currently have 7 candidates for 7 seats. Marcel Taeumel Bert Freudenberg Tim Rowledge Eliot Miranda Jecel Assumpcao Jr. David T. Lewis Craig Latta Please don't let this keep you from entering the race. Consider running yourself or I would encourage you to continue to find others and encourage them to run for the board! We love having more than 7 candidates! Now a little about voting. If you are not on the voter list now is the time to get on it. If you are part of this community, even if you just read the list and use Squeak, you too can vote. Send me a letter telling me why you want to vote, or get a Squeaker to contact me and I'll add you. Also if your email has changed or if you didn't get a ballot last year please let me know. You can reach me at voters(a)squeak.org or send me a direct email. All the best, Ron Teitelbaum On Wed, Jan 10, 2018 at 4:21 PM, Craig Latta <craig(a)blackpagedigital.com> wrote: > > Hi all-- > > I'd like to serve on the Squeak Oversight Board again this year. > > I'm encouraged by livecoding experiments I've done combining Bert's > SqueakJS with several web frameworks (see thiscontext.com), and would > like to push that further with other interested folks. I think such > efforts are useful for navigating and crossing into the development > worlds around us, discovering new application areas for us. I'm also > excited by the 2018 interests of the other candidates, and would love to > join them. > > > thanks, > Craig > > > >

2 2

Databases
by Benoit St-Jean 15 Jan '18

15 Jan '18

Bear with me for a moment... First and foremost, this post is *not intended in any way* to criticize the work of anyone who could have worked on those packages/projects/frameworks. Now, I'll tell you a story to make my point. Often times, in public or in private, I help newcomers on Quora, IRC, the mailing list(s) or elsewhere with various Smalltalk environments. Often times, I try to be helpful getting them started on Squeak or Pharo. Often times, they are just amazed by how powerful Smalltalk is... Now, the sad part. Everything goes well until they just want to "code something" to experiment and they ask me about databases... -How can I connect to a MySQL (or insert your favorite database here) with Squeak/Pharo ? As far as I can remember, the database connectivity with Squeak/Pharo has always been an area where, as a Squeak/Pharo community, we suck big time. I don't recall the last time I loaded a package, ran the tests and everything was fine. There is almost ALWAYS something broken with the databases packages. Understandibly, Squeak and Pharo were for a long time moving targets. Whether it was VM changes (FFI, NativeBoost, uFFI, 32 vs 64 bit, OS differences/problems, differences between Squeak and Pharo, etc), code refactoring (cryptography class name changes), the DateAndTime/Timestamp/TimeStamp/Date(Magnitude)/Date(Timespan) were used from one version to the other in the driver, code that was removed by some cleanup, compiler changes/problems/incompatibilities, etc. In other words, database connectivity needs some love. Unfortunately, it looks like there doesn't seem to be a consensus or a shared desire to fix things *together*. There is duplicate effort all over the place. Just as an example, I listed the various implementations of MySQL packages that exists (I did not list the 8-9 of them that had no code but a project listed on one of those sites). So, let's say you are a newcomer and you want to connect to a MySQL database. Here are the choices you are offered (and remember, as a newcomer, you have NO clue which one to pick) : Databases supported : Project name 1) SqueakSource MySQL : Automatic Object Storage To MySQL OpenDBX SqueakDBX 2) SmalltalkHub DBX/Talk / DBXDatabaseModel GlorpDriverMySQL PharoExtras / ODBC DBXTalk / Garage UDBC UDBC2 3) GitHub.io dbxtalk 4) GitHub pharo-rdbms/garage Now, let's say you picked one package. In some cases, if you are lucky, the code will load without any problem or warning. And then, you run the tests. That is where it almost *always* breaks! Today, I tried to load *each and everyone of them* in a Pharo 6.1 (Windows) image : none of them worked right out of the box! In other words, that newcomer I told you about just goes from "WOW!!!" to "WHAT?!?!" in 10 seconds. People are usually not so impressed with a TestRunner that fails a gazillion unit tests... So, now the nice part... Database connectivity is, in my humble opinion, a MUST for Pharo and Squeak. I think it's about time we do *something* about the current state of this mess. There are enough brilliant and talented people in the Squeak and Pharo communities to fix this situation. At least, we could start *talking* about it if we want to address the problems. Ideally, we would come up with a will to change things and establish a plan. In a perfect world, we'd have something like JDBC (or some kind of Smalltalk universal driver) in Smalltalk for native drivers. Plus ODBC connectivity. Plus it would have to work right-out-of-the-box. Plus documentation that has at least an example with Connect/SELECT/UPDATE/DELETE/CREATE/DROP/disconnect simple examples to get newbies started. Plus a solid suite of tests to beat the sh*t out of that code. Plus a compatibility layer for Squeak/Pharo differences. To that regard, Glorp is an example to follow! IMHO, it's about time we share stuff to maximize our efforts! As I told someone recently, it's about time we do something about databases (RDBMS). And as I told that person, I don't mind writing Smalltalk code and SQL scripts and running tests. Even do performance testing. My MySQL Server currently has close to 1 billion records to torture the MySQL driver if needed. And I can also work on SQLite. And Oracle. And DB/2. And MySQL Server. And I don't mind installing other RDBMS on my machine and test other driver ports. Now, it's just a matter of knowing if we all want to work together. As for OpenDBX/DBX, I'm not sure. Having another dependency (and C code) that we more or less control doesn't inspire me. I have yet to see how DBX/OpenDBX gives me any advantage over, say, ODBC... As I said, it's time to discuss! Anyone interested? ----------------- Benoît St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero". (A. Einstein)

2 1

The Trunk: ReleaseBuilder-eem.173.mcz
by commits＠source.squeak.org 14 Jan '18

14 Jan '18

Eliot Miranda uploaded a new version of ReleaseBuilder to project The Trunk: http://source.squeak.org/trunk/ReleaseBuilder-eem.173.mcz ==================== Summary ==================== Name: ReleaseBuilder-eem.173 Author: eem Time: 14 January 2018, 9:41:01.742395 am UUID: 28681eda-100f-47a1-bd88-9f1a3a767951 Ancestors: ReleaseBuilder-eem.172 Allow the user to answer questions up front, hence allowing running the release process without user intervention,. This to debug the new bytecode set which looks to have a store check issue that is only seen long after the system is recompiied]. =============== Diff against ReleaseBuilder-eem.172 =============== Item was changed: Object subclass: #ReleaseBuilder instanceVariableNames: '' + classVariableNames: 'DeferredTask NextMajorVersion NextMinorVersion NextTask QAndA' - classVariableNames: 'DeferredTask NextMajorVersion NextMinorVersion NextTask' poolDictionaries: '' category: 'ReleaseBuilder'! !ReleaseBuilder commentStamp: 'mt 6/22/2016 18:08' prior: 0! I'm the script that prepares a trunk image for release. Just do "ReleaseBuilder doNextStep" repeatedly until the next release is done. 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.! Item was added: + ----- Method: ReleaseBuilder class>>askInAdvance (in category 'preparing') ----- + askInAdvance + "Preload QAndA with answers to any questions that will be asked during saving." + "ReleaseBuilder askInAdvance" + (self systemNavigation allCallsOn: #confirm:orCancel:title: localTo: self class) do: + [:methodRef| + methodRef compiledMethod methodNode nodesDo: + [:node| + (node isMessage + and: [node selector key == #confirm:orCancel:title: + and: [node receiver isVariableNode + and: [node receiver key = 'self']]]) ifTrue: + [[:questionNode :ingored :titleNode| + QAndA + at: titleNode key + put: (Project uiManager + confirm: questionNode key translated + orCancel: [^self] + title: titleNode key translated)] + valueWithArguments: node arguments asArray]]]! Item was changed: ----- Method: ReleaseBuilder class>>checkForDirtyPackages (in category 'scripts - support') ----- checkForDirtyPackages | modifiedWorkingCopies unmergedWorkingCopies | MCWorkingCopy checkModified: true. modifiedWorkingCopies := MCWorkingCopy allManagers select: [:wc | wc ancestors size = 1 and: [wc modified] ]. unmergedWorkingCopies := MCWorkingCopy allManagers select: [:wc | (wc ancestors size = 1) not ]. unmergedWorkingCopies ifNotEmpty: [ "Sort to simplify exploration. MC browser does also show packages sorted." (modifiedWorkingCopies sorted: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore. Warning signal: 'There are unmerged packages.']. modifiedWorkingCopies ifNotEmpty: [ "Sort to simplify exploration. MC browser does also show packages sorted." (modifiedWorkingCopies sorted: [:wc1 :wc2 | wc1 packageName <= wc2 packageName]) explore. + (self - (Project current uiManager confirm: 'Do you want to discard all local changes?' orCancel: [^ Error signal: 'Release building canceled.'] title: 'Dirty Packages Found') ifTrue: [modifiedWorkingCopies do: [:wc | [(self buildRepository versionWithInfo: wc ancestors first) load] on: Warning do: [:warning | warning resume]]]].! Item was added: + ----- Method: ReleaseBuilder class>>clearQAndA (in category 'preparing') ----- + clearQAndA + "Get rid of any previous answers to questions" + QAndA := Dictionary new! Item was added: + ----- Method: ReleaseBuilder class>>confirm:orCancel:title: (in category 'preparing') ----- + confirm: aString orCancel: cancelBlock title: titleString + "Allow questions to be answered in advance." + ^QAndA + at: titleString + ifAbsent: + [Project uiManager + confirm: aString translated + orCancel: cancelBlock + title: titleString translated]! Item was changed: ----- Method: ReleaseBuilder class>>initialize (in category 'class initialization') ----- initialize + + QAndA ifNil: [self clearQAndA]. + "We have to be after AutoStart so that Morphic is up and running." Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart. + + SystemVersion newVersion: 'Squeak6.0alpha'! - - SystemVersion newVersion: 'Squeak6.0alpha'.! Item was changed: ----- Method: ReleaseBuilder class>>initializeTemplate (in category 'class initialization') ----- initializeTemplate ^ 'initialize + + QAndA ifNil: [self clearQAndA]. + "We have to be after AutoStart so that Morphic is up and running." Smalltalk addToStartUpList: ReleaseBuilder after: AutoStart. + + SystemVersion newVersion: ''{1}'''! - - SystemVersion newVersion: ''{1}''.'! Item was changed: ----- Method: ReleaseBuilder class>>recompileAll (in category 'scripts - support') ----- recompileAll (Smalltalk classNamed: #EncoderForSistaV1) ifNotNil: [:sistaBytecodeSet| CompiledCode preferredBytecodeSetEncoderClass ~~ sistaBytecodeSet ifTrue: + [(self - [(Project uiManager confirm: 'Do you want to make it the default in this release?' orCancel: [false] title: 'The SistaV1 Bytecode Set Is Available') ifTrue: [CompiledCode installSecondaryBytecodeSet: sistaBytecodeSet; preferredBytecodeSetEncoderClass: sistaBytecodeSet]]]. Compiler recompileAll! Item was changed: ----- Method: ReleaseBuilder class>>setNewSystemVersion: (in category 'manual') ----- setNewSystemVersion: version + | initializeMethodSource | + initializeMethodSource := self initializeTemplate format: {version}. + (self class >> #initialize) getSource asString ~= initializeMethodSource ifTrue: + [self class + compile: initializeMethodSource + classified: 'class initialization']. - self class - compile: (self initializeTemplate format: {version}) - classified: 'class initialization'. self initialize. self assert: (SystemVersion current version beginsWith: self versionString). SystemVersion current isRelease ifFalse: [ + self inform: ('You just changed the system version to {1}.\Please upload the changed ''ReleaseBuilder'' package to\\ {2}\\so that this version change will be official.' translated withCRs format: {SystemVersion current version. self buildRepository description})]! - self inform: ('You just changed the system version to {1}.\Please upload the changed ''ReleaseBuilder'' package to\\ {2}\\so that this version change will be official.' translated withCRs format: {SystemVersion current version. self buildRepository description})].!

1 0

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

Jump to page: