Squeak-dev August 2013

squeak-dev@lists.squeakfoundation.org

45 participants
157 discussions

Re: [squeak-dev] The Inbox: Installer-Core-cmm.378.mcz
by Chris Muller 13 Aug '13

13 Aug '13

Hi Frank, I know you're interested in being able to override the repositories. This is a simple solution for that which meets at least three use-cases. Example 1 Installer preemptRepositoryFor: 'htmlcssparser' with: (MCDirectoryRepository directory: (FileDirectory default / 'my-projects' / 'mc')) Example 2 "I'm on the train with slow Wi-Fi, look in my package-cache first for anything before going to remote repositories." #(squeak ss ss3) do: [ : each | Installer preemptRepositoryFor: each with: MCCacheRepository default ] Example 3 "I want to make a new system. Use the default repository, ss3, but if its down fall back to the original SqueakSource." Installer fallbackRepositoryFor: #ss3 is: #ss On Fri, Aug 9, 2013 at 5:36 PM, <commits(a)source.squeak.org> wrote: > A new version of Installer-Core was added to project The Inbox: > http://source.squeak.org/inbox/Installer-Core-cmm.378.mcz > > ==================== Summary ==================== > > Name: Installer-Core-cmm.378 > Author: cmm > Time: 9 August 2013, 5:04:23.858 pm > UUID: 79285e19-2913-476e-b396-b1a01a652edc > Ancestors: Installer-Core-cmm.377 > > Allow the default repositories for external-packages to be preempted or reinforced. > > =============== Diff against Installer-Core-cmm.377 =============== > > Item was changed: > Object subclass: #Installer > instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' > + classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered Repositories SkipLoadingTests ValidationBlock' > - classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock' > poolDictionaries: '' > category: 'Installer-Core'! > > !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! > Documentation now available at http://installer.pbwiki.com/Installer > > useFileIn - flag to load source.st rather than using Monticello! > > Item was added: > + ----- Method: Installer class>>defaultRepositoryFor: (in category 'repositories') ----- > + defaultRepositoryFor: anAssociation > + ^ (self perform: anAssociation key) > + project: anAssociation value ; > + mc! > > Item was added: > + ----- Method: Installer class>>fallbackRepositoryFor:is: (in category 'repositories') ----- > + fallbackRepositoryFor: scope is: anMCRepository > + self > + overrideRepositoryFor: scope > + with: > + (MCRepositoryGroup new > + addRepository: (self defaultRepositoryFor: scope) ; > + addRepository: anMCRepository ; > + yourself)! > > Item was added: > + ----- Method: Installer class>>overrideRepository:with: (in category 'repositories') ----- > + overrideRepository: scope with: anMCRepository > + "Override the standard repository specified by scope with anMCRepository. To override an entire repository, specify scope as the repository selector. To override a single project within a repository, scope should be an Association whose key is the repository selector and value is the project name." > + self repositories > + at: scope > + put: anMCRepository! > > Item was added: > + ----- Method: Installer class>>packageCache (in category 'repositories') ----- > + packageCache > + ^ MCCacheRepository default! > > Item was added: > + ----- Method: Installer class>>preemptRepository:with: (in category 'repositories') ----- > + preemptRepository: scope with: anMCRepository > + self > + overrideRepositoryFor: scope > + with: > + (MCRepositoryGroup new > + addRepository: anMCRepository ; > + addRepository: (self defaultRepositoryFor: scope) ; > + yourself)! > > Item was added: > + ----- Method: Installer class>>removeOverride: (in category 'repositories') ----- > + removeOverride: scope > + "Remove override specified by scope and return to using the default repository for packages within that scope." > + ^ self repositories > + removeKey: scope > + ifAbsent: [ ]! > > Item was changed: > + ----- Method: Installer class>>repositories (in category 'repositories') ----- > - ----- Method: Installer class>>repositories (in category 'instanciation') ----- > repositories > + ^ Repositories ifNil: [ Repositories := Dictionary new ]! > - > - ^ self class organization listAtCategoryNamed: 'repositories'. > - ! > > Item was added: > + ----- Method: Installer class>>repositoryFor: (in category 'repositories') ----- > + repositoryFor: anAssociation > + | rep | > + rep := self repositories > + at: anAssociation > + ifAbsent: > + [ self repositories > + at: anAssociation value > + ifAbsent: > + [ self repositories > + at: anAssociation key > + ifAbsent: [ ^ self defaultRepositoryFor: anAssociation ] ] ]. > + ^ rep isSymbol > + ifTrue: [ self defaultRepositoryFor: rep -> anAssociation value ] > + ifFalse: [ rep ]! > > Item was changed: > ----- Method: Installer>>htmlValidator (in category 'external-packages') ----- > htmlValidator > "Validates HTML and CSS pages against W3C DTD." > + ^ { #ss3 -> 'htmlcssparser'. > + 'HTML' }! > - ^ { #ss -> 'htmlcssparser'. > - 'HTML-tb.37' }! > > Item was changed: > ----- Method: Installer>>setRepository: (in category 'private') ----- > setRepository: anAssociation > + currentRepository := self class repositoryFor: anAssociation! > - currentRepository := (self class perform: anAssociation key) > - project: anAssociation value ; > - mc! > >

2 2

RE: Theodor Andreas Raab
by Stephan Eggermont 12 Aug '13

12 Aug '13

Wikipedia done Stephan

2 1

Pluggable Vocabularies (was Re: [squeak-dev] The Trunk: EToys-fbs.105.mcz)
by Frank Shearar 12 Aug '13

12 Aug '13

On 12 August 2013 18:30, Bert Freudenberg <bert(a)freudenbergs.de> wrote: > On 2013-08-10, at 12:06, Frank Shearar <frank.shearar(a)gmail.com> wrote: > >> * GetText >> #appendVocabularies >> >> I wouldn't mind some advice on how to handle the Vocabulary untangling... >> >> frank > > Well, the Right Thing would be to add either a registry (class var) or discovery mechanism (pragma, magic selector) to GetTextExporter so arbitrary classes can hook into it. OK, that's pretty much what I thought: something pluggable. Perhaps a pragma might be neat. I really like the Preferences pragma approach. > Short of that you could reference EToyVocabulary by name rather than directly, doing nothing if it's not present. *shiver* frank > - Bert - > >

1 0

Re: [squeak-dev] The Trunk: EToys-fbs.105.mcz
by Frank Shearar 12 Aug '13

12 Aug '13

On 10 August 2013 10:53, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of EToys to project The Trunk: > http://source.squeak.org/trunk/EToys-fbs.105.mcz > > ==================== Summary ==================== > > Name: EToys-fbs.105 > Author: fbs > Time: 10 August 2013, 9:32:15.946 am > UUID: 4d6d7f85-3d59-a04a-ae6f-0c5723d83749 > Ancestors: EToys-fbs.104 > > Pull EToys-specific preferences into EToys. > > =============== Diff against EToys-fbs.104 =============== This removes one of the remaining three dependencies on EToys. We may want to clean up the EToys side of things by moving this into an extension package or something. The last remaining two dependencies are: * Presenter >> #defaultPresenterClass (which is resolved simply by unloading EToys) * GetText >> #appendVocabularies I wouldn't mind some advice on how to handle the Vocabulary untangling... frank

2 1

The Inbox: System-fbs.586.mcz
by commits＠source.squeak.org 12 Aug '13

12 Aug '13

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-fbs.586.mcz ==================== Summary ==================== Name: System-fbs.586 Author: fbs Time: 12 August 2013, 3:54:00.949 pm UUID: 3061bc7e-52e4-da48-a797-71ebdbd89b42 Ancestors: System-fbs.585 Move check-for-updates into MonticelloConfigurations, thanks to pragma preferences and Smalltalk's startup/shutdown registration. =============== Diff against System-fbs.585 =============== Item was changed: ----- Method: AutoStart class>>checkForUpdates (in category 'updating') ----- checkForUpdates | availableUpdate updateServer | World ifNotNil: [ World install. ActiveHand position: 100@100]. - HTTPClient isRunningInBrowser - ifFalse: [^self processUpdates]. availableUpdate := (AbstractLauncher extractParameters at: 'UPDATE' ifAbsent: [''] ) asInteger. availableUpdate ifNil: [^false]. updateServer := AbstractLauncher extractParameters at: 'UPDATESERVER' ifAbsent: [AbstractLauncher extractParameters at: 'UPDATE_SERVER' ifAbsent: ['Squeakland']]. Utilities setUpdateServer: updateServer. ^SystemVersion checkAndApplyUpdates: availableUpdate! Item was removed: - ----- Method: AutoStart class>>processUpdates (in category 'updating') ----- - processUpdates - "Process update files from a well-known update server. This method is called at system startup time, Only if the preference #updateFromServerAtStartup is true is the actual update processing undertaken automatically" - | choice | - (Preferences valueOfFlag: #updateFromServerAtStartup) ifTrue: - [choice := UIManager default chooseFrom: #('Yes, Update' 'No, Not now' 'Don''t ask again') - title: 'Shall I look for new code\updates on the server?' withCRs. - choice = 1 ifTrue: [ - Utilities updateFromServer]. - choice = 3 ifTrue: [ - Preferences setPreference: #updateFromServerAtStartup toValue: false. - self inform: 'Remember to save you image to make this setting permant.']]. - ^false! Item was changed: ----- Method: Preferences class>>personalizeUserMenu: (in category 'personalization') ----- personalizeUserMenu: aMenu "The user has clicked on the morphic desktop with the yellow mouse button (option+click on the Mac); a menu is being constructed to present to the user in response; its default target is the current world. In this method, you are invited to add items to the menu as per personal preferences. + The default implementation, for illustrative purposes, sets the menu title to 'personal', and adds items for go-to-previous-project and show/hide flaps." - The default implementation, for illustrative purposes, sets the menu title to 'personal', and adds items for go-to-previous-project, show/hide flaps, and load code updates" aMenu addTitle: 'personal' translated. "Remove or modify this as per personal choice" aMenu addStayUpItem. aMenu add: 'previous project' translated action: #goBack. - aMenu add: 'load latest code updates' translated target: Utilities action: #updateFromServer. aMenu add: 'about this system...' translated target: Smalltalk action: #aboutThisSystem. aMenu addLine. aMenu addUpdating: #suppressFlapsString target: Project current action: #toggleFlapsSuppressed. aMenu balloonTextForLastItem: 'Whether prevailing flaps should be shown in the project right now or not.' translated! Item was removed: - ----- Method: Utilities class>>openUpdateButton (in category 'user interface') ----- - openUpdateButton - PluggableButtonMorph new - label: 'Load Code Updates'; - model: Utilities; - action: #updateFromServer; - openInHand! Item was removed: - ----- Method: Utilities class>>setSystemVersionFromConfig: (in category 'fetching updates') ----- - setSystemVersionFromConfig: anMCConfiguration - "Set the current system version date to the latest date found in anMCConfiguration (or the associated working copy). Also set the highest update number to the sum of version numbers in the config." - - | versionNumbers versionDates | - versionNumbers := anMCConfiguration dependencies collect: [:d | - (d versionInfo name copyAfterLast: $.) asInteger]. - versionDates := anMCConfiguration dependencies collect: [:d | - d versionInfo date - ifNil: [d package workingCopy ancestors first date]]. - SystemVersion current - date: versionDates max; - highestUpdate: versionNumbers sum. - ! Item was changed: ----- Method: Utilities class>>updateFromServer (in category 'fetching updates') ----- updateFromServer + self deprecated: 'Use MCMcmUpdater updateFromServer'. + ^ MCMcmUpdater updateFromServer.! - "Update the image by loading all pending updates from the server." - | config | - "Flush all caches. If a previous download failed this is often helpful" - MCFileBasedRepository flushAllCaches. - config := MCMcmUpdater updateFromDefaultRepository. - config ifNil: [^self inform: 'Unable to retrieve updates from remote repository.' translated]. - self setSystemVersionFromConfig: config. - self inform: ('Update completed. - Current update number: ' translated, SystemVersion current highestUpdate).! Item was changed: + (PackageInfo named: 'System') postscript: '"Make #updateFromServerAtStartup a pragma preference as part of moving image updating out of Utilities." + MCMcmUpdater updateFromServerAtStartup: (Preferences valueOfFlag: #updateFromServerAtStartup). + Preferences removePreference: #updateFromServerAtStartup.'! - (PackageInfo named: 'System') postscript: '"Migrate #Curvier to the new pragma preference." - CurvierMorph drawCurvier: Preferences Curvier. - Preferences removePreference: #Curvier.'!

1 0

[BUG] Updating from Trunk Squeak4.5-12568 stop in update-fbs.243
by Edgar J. De Cleene 12 Aug '13

12 Aug '13

I see use a Doit , copied here >>>DoIt >>> CurvierMorph drawCurvier: Preferences Curvier. >>> ^ Preferences removePreference: #Curvier Can't find drawCurvier: on older .images or in my computer. Edgar

3 3

Theodor Andreas Raab
by Ron Teitelbaum 12 Aug '13

12 Aug '13

Hi All, Some terrific news. http://news.squeak.org/2013/08/08/theodor-andreas-raab/ What a handsome baby! Ron

6 8

Daily Commit Log
by commits＠source.squeak.org 12 Aug '13

12 Aug '13

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2013-August/006303.html Name: Tests-fbs.247 Ancestors: Tests-nice.246 Update dependencies in a post-pragma Curvier prerefence world. =============================================

1 0

Re: [squeak-dev] The Trunk: System-fbs.585.mcz
by Frank Shearar 11 Aug '13

11 Aug '13

On 10 August 2013 22:55, <commits(a)source.squeak.org> wrote: > Frank Shearar uploaded a new version of System to project The Trunk: > http://source.squeak.org/trunk/System-fbs.585.mcz > > ==================== Summary ==================== > > Name: System-fbs.585 > Author: fbs > Time: 10 August 2013, 10:54:11.898 pm > UUID: 79be2b9c-556a-1349-8b09-15bc67b5b8d8 > Ancestors: System-fbs.584 > > Move #Curvier preference into CurvierMorph. > > =============== Diff against System-fbs.584 =============== > > Item was removed: > - ----- Method: Preferences class>>Curvier (in category 'standard queries') ----- > - Curvier > - ^ self > - valueOfFlag: #Curvier > - ifAbsent: [true]! > > Item was changed: > + (PackageInfo named: 'System') postscript: '"Migrate #Curvier to the new pragma preference." > + CurvierMorph drawCurvier: Preferences Curvier. > + Preferences removePreference: #Curvier.'! > - (PackageInfo named: 'System') postscript: '"Migrate #thoroughSenders to the new pragma preference." > - SystemNavigation thoroughSenders: Preferences thoroughSenders. > - Preferences removePreference: #thoroughSenders. > - '! First time I've written a postscript. Hope I got it right! frank

2 2

The Trunk: Tests-fbs.247.mcz
by commits＠source.squeak.org 11 Aug '13

11 Aug '13

Frank Shearar uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-fbs.247.mcz ==================== Summary ==================== Name: Tests-fbs.247 Author: fbs Time: 11 August 2013, 10:30:38.71 pm UUID: d659c654-91fb-5247-be37-21208e4e3381 Ancestors: Tests-nice.246 Update dependencies in a post-pragma Curvier prerefence world. =============== Diff against Tests-nice.246 =============== Item was changed: ----- Method: PackageDependencyTest>>testEtoys (in category 'tests') ----- testEtoys self testPackage: 'EToys' dependsExactlyOn: #( Balloon Collections Compiler Compression Files Graphics Kernel Morphic MorphicExtras Network + PreferenceBrowser Protocols SUnit System 'ToolBuilder-Kernel' Tools ).! Item was changed: ----- Method: PackageDependencyTest>>testPreferenceBrowser (in category 'tests') ----- testPreferenceBrowser self testPackage: 'PreferenceBrowser' dependsExactlyOn: #( Collections - EToys Graphics Kernel Morphic MorphicExtras System Tools ).!

1 0

← Newer
1
...
6
7
8
9
10
11
12
...
16
Older →

Jump to page: