Packages July 2009

packages@lists.squeakfoundation.org

1 participants
80 discussions

Packages: Packages-Library-kph.89.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Jul '09

07 Jul '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.89.mcz ==================== Summary ==================== Name: Packages-Library-kph.89 Author: kph Time: 7 July 2009, 5:34:43 pm UUID: 6f2598d3-3dcd-4fac-a9e2-bfbb531e8a95 Ancestors: Packages-Library-kph.88 regenerated for TestDriveBeachSeaside =============== Diff against Packages-Library-kph.88 =============== Item was changed: ----- Method: PackagesDevU>>SakeScheduler (in category 'Group Development') ----- SakeScheduler self name: 'Sake-Scheduler'. + self version: '11'. - self version: '10'. info category: 'Group Development'. info description: 'Periodic actions, with logging support'. info maintainer: 'Keith Hodges'. info homepage: 'http://wiki.squeak.org/squeak/5953'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Sake/Sake-Scheduler-kph.11.mcz'. - info url: 'http://www.squeaksource.com/Sake/Sake-Scheduler-kph.10.mcz'. self provides: #('Sake-Scheduler'). self dependsOn: #('Logging'). ! Item was changed: ----- Method: PackagesDevU>>Monticello15 (in category 'Group Development') ----- Monticello15 self name: 'Monticello15'. self version: '1.5+'. info category: 'Group Development'. info description: 'Monticello - evolution - Improvements over 1.0 - Method/Class Orphanage which enables out-of-order loading of packages, and maintenance of packages whose dependencies have not been loaded. - Method Overrides (if properly categorized) are fully supported preserving the integrity of a package even if it has overridden methods - Refactored UI/repository classes so that one UI heirachy serves all. - Dual Changes Browser - In memory cache repository - Support for configurations (Please name them using the MC conventions) - Support for more complex version numbering conventions i.e. Package-kph-1.0.3.mcz known problems: methods have been known to loose their categories future: Atomic Loading loader using System Editor is already coded and contained in this release. See #theChosenLoaderClass. '. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: ''. info squeakMapID: ''. info url: 'http://ftp.squeak.org/3.11/scripts/mc15.st'. + self provides: #('PackageInfo-Base' 'Installer' 'MonticelloConfigurations' 'Monticello15'). - self provides: #('Monticello15' 'Installer' 'MonticelloConfigurations' 'PackageInfo-Base'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>ProcessSpecific (in category 'System') ----- ProcessSpecific self name: 'ProcessSpecific'. + self version: '1.0.22'. - self version: '1.0.19'. info category: 'System'. info description: 'My subclasses (not instances of them) keep state specific to the current process. There are two kinds of process-specific variables: process-local (state available for read and write in all methods inside the process), and dynamic variables (implementing dynamic scope). Includes tests and example: DateAndTimeWarp Includes extension (if not loaded ignore) for seaside for debugging.'. info maintainer: 'keith_hodges(a)yahoo.co.uk'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Logging/ProcessSpecific-kph.22.mcz'. - info url: 'http://www.squeaksource.com/Logging/ProcessSpecific-kph.19.mcz'. self provides: #('ProcessSpecific'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Seaside28Jetsam (in category 'Web Development') ----- Seaside28Jetsam self name: 'Seaside28Jetsam'. + self version: '2.8.547'. - self version: '2.8.546'. info category: 'Web Development'. info description: 'Patches to the base seaside The version number indicates the version of seaside this is synced with.'. info maintainer: 'kph'. info homepage: 'http://www.squeaksource.com/Jetsam.html'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Jetsam/Seaside28Jetsam-kph.79.mcz'. - info url: 'http://www.squeaksource.com/Jetsam/Seaside28Jetsam-kph.67.mcz'. self provides: #('Seaside28Jetsam-Useful-CSS' 'Seaside28Jetsam-NiftyCorners' 'Seaside28Jetsam' 'Seaside28Jetsam-Supersleight' 'Seaside28Jetsam-Blueprint'). self dependsOn: #('M7219-StreamsReadability' 'M7284-firsOrNil' 'Seaside'). ! Item was changed: ----- Method: PackagesDev>>MysqlDriver (in category 'Group Development') ----- MysqlDriver super MysqlDriver + "it doesnt really depend upon cryptography at all" + self dependsOn: { '7319 Integer asByteArray' }. + self mcName: 'Mysql'. ! Item was added: + ----- Method: PackagesDevU>>Seaside28JetsamDebugging (in category 'Web Development') ----- + Seaside28JetsamDebugging + + self name: 'Seaside28Jetsam-Debugging'. + self version: '0.3'. + info category: 'Web Development'. + info description: + 'Additional debugging hooks'. + info maintainer: 'kph'. + info homepage: 'http://www.squeaksource.com/Jetsam.html'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Jetsam/Seaside28Jetsam-Debugging-kph.3.mcz'. + self provides: #(). + + self dependsOn: #('Seaside'). + + ! Item was changed: ----- Method: PackagesDevU>>Logging (in category 'Development') ----- Logging self name: 'Logging'. + self version: '3.52'. - self version: '3.44'. info category: 'Development'. info description: 'Logging for squeak, a front end to Toothpick OR SimpleLog (apologies to LogEngine) usage: self log this. self log x: 10 y: 20. and much more... '. info maintainer: 'Keith Hodges <keith_hodges(a)yahoo.co.uk>'. info homepage: 'http://wiki.squeak.org/squeak/3706'. info squeakMapID: '6c1b03cd-6c37-4acf-b971-72ff132c03f0'. + info url: 'http://www.squeaksource.com/Logging/Logging-FT.52.mcz'. - info url: 'http://www.squeaksource.com/Logging/Logging-kph.44.mcz'. self provides: #('Logging'). self dependsOn: #('ProcessSpecific' 'StreamsReadability'). ! Item was added: + ----- Method: PackagesDevU>>Seaside28JetsamHelpers (in category 'Web Development') ----- + Seaside28JetsamHelpers + + self name: 'Seaside28Jetsam-Helpers'. + self version: '0.4'. + info category: 'Web Development'. + info description: + 'Session and Frame Helpers'. + info maintainer: 'kph'. + info homepage: 'http://www.squeaksource.com/Jetsam.html'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Jetsam/Seaside28Jetsam-Helpers-kph.4.mcz'. + self provides: #(). + + self dependsOn: #('Seaside'). + + !

1 0

Packages: Sake-Packages-kph.36.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Jul '09

07 Jul '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.36.mcz ==================== Summary ==================== Name: Sake-Packages-kph.36 Author: kph Time: 7 July 2009, 2:30:27 pm UUID: 0fc484ff-8b69-4f69-8003-38d0407a6233 Ancestors: Sake-Packages-kph.35 Packges can now depend upon a string referring to a fix, see #string: e.g. self dependsOn: '1234 a fix from mantis'. =============== Diff against Sake-Packages-kph.35 =============== Item was added: + ----- Method: Packages class>>taskEnsureFix: (in category 'private') ----- + taskEnsureFix: aFixString + + ^ self define: [ :task | + + task action: [ + Installer mantis ensureFix: aFixString. + ]. + ] + + + ! Item was changed: ----- Method: Packages class>>priority (in category 'private') ----- priority "ignore universes" (self name last = $U) ifTrue: [ ^ 9999 ]. "any class that has the image version explicitly listed is a front runner" (self relevantVersions includes: SystemVersion current majorMinorVersion) ifTrue: [ ^ 100 ]. + - - self name = #PackagesAll ifTrue: [ ^ 500 ]. - ^ 9999 " self findPath " ! Item was changed: ----- Method: Packages class>>string: (in category 'public') ----- + string: aPackageNameOrFix - string: aPackageName + aPackageNameOrFix first isDigit ifTrue: [ ^ self taskEnsureFix: aPackageNameOrFix ]. + + ^ self named: aPackageNameOrFix! - ^ self named: aPackageName!

1 0

Packages: Packages-Library-kph.88.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Jul '09

07 Jul '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.88.mcz ==================== Summary ==================== Name: Packages-Library-kph.88 Author: kph Time: 7 July 2009, 2:01:42 pm UUID: 17a13903-ae99-4bb2-bf6d-6bb8da871f5a Ancestors: Packages-Library-kph.87 Seaside29 =============== Diff against Packages-Library-kph.87 =============== Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsDevelopment (in category 'tests') ----- + SeasideTestsDevelopment + self name: 'Seaside-Tests-Development'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Development.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Development' 'Seaside-Tests-WebTools'). + self addAction: 'Seaside-Tests-Squeak-Development'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsInternetExplorer (in category 'tests') ----- + SeasideTestsInternetExplorer + self name: 'Seaside-Tests-InternetExplorer'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-InternetExplorer.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-InternetExplorer' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideCanvas (in category 'core library') ----- + SeasideCanvas + self name: 'Seaside-Canvas'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Canvas…'. + self info description: 'The mechanism of choice to generate valid and reusable XHTML markup.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSession (in category 'core library') ----- + SeasideSession + self name: 'Seaside-Session'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Sessio…'. + self info description: 'Support for stateful and secure session handling.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsCore (in category 'tests') ----- + SeasideTestsCore + self name: 'Seaside-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Core.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Core'). + self addAction: 'Seaside-Tests-Squeak-Core'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsWebTools (in category 'tests') ----- + SeasideTestsWebTools + self name: 'Seaside-Tests-WebTools'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-WebTools'. + self info category: 'Tests'. + self dependsOn: #('Seaside-WebTools' 'Seaside-Tests-Environment').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsEmail (in category 'tests') ----- + SeasideTestsEmail + self name: 'Seaside-Tests-Email'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Email.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Email' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsAdaptorsComanche (in category 'tests') ----- + SeasideTestsAdaptorsComanche + self name: 'Seaside-Tests-Adaptors-Comanche'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Adaptors-Comanche.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Adaptors-Comanche' 'Seaside-Tests-Squeak-Core').! Item was added: + ----- Method: Seaside290Alpha3>>DynamicBindings (in category 'private') ----- + DynamicBindings + self name: 'DynamicBindings'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//DynamicBinding…'.! Item was added: + ----- Method: Seaside290Alpha3>>RSSExamples (in category 'examples') ----- + RSSExamples + self name: 'RSS-Examples'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//RSS-Examples-M…'. + self info description: 'Examples of how to use the "RSS-Core" package.'. + self info category: 'Examples'. + self dependsOn: #('RSS-Core' 'Seaside-Development').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideExamples (in category 'examples') ----- + SeasideExamples + self name: 'Seaside-Examples'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Exampl…'. + self info description: 'Simple example applications and components.'. + self info category: 'Examples'. + self dependsOn: #('Seaside-Component' 'Seaside-Environment').! Item was added: + ----- Method: Seaside290Alpha3>>SeasidePlatform (in category 'core library') ----- + SeasidePlatform + self name: 'Seaside-Platform'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Platfo…'. + self info description: 'Utilities and platform dependendent classes for Seaside.'. + self info category: 'Core Library'. + self addAction: 'Seaside-Squeak-Platform'. + self addAction: 'Seaside-Squeak-Continuation'. + self addAction: 'Seaside-Tests-Squeak-Continuation'! Item was added: + ----- Method: Seaside290Alpha3>>RefactoringCore (in category 'private') ----- + RefactoringCore + self name: 'Refactoring-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Refactoring-Co…'. + self dependsOn: #('AST').! Item was added: + ----- Method: Seaside290Alpha3>>Sport (in category 'private') ----- + Sport + self name: 'Sport'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Sport-2.031.mcz'.! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSession (in category 'tests') ----- + SeasideTestsSession + self name: 'Seaside-Tests-Session'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Session.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Session' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>CometTestsCore (in category 'tests') ----- + CometTestsCore + self name: 'Comet-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Comet-Tests-Co…'. + self info description: 'Unit tests for the Comet-Tests-Core package.'. + self info category: 'Tests'. + self dependsOn: #('Comet-Core' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>AST (in category 'private') ----- + AST + self name: 'AST'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//AST-lr.164.mcz'.! Item was added: + ----- Method: Seaside290Alpha3>>JQueryCore (in category 'web 2.0') ----- + JQueryCore + self name: 'JQuery-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//JQuery-Core-lr…'. + self info description: 'jQuery integration for Seaside. Designed to change the way you write Javascript.'. + self info category: 'Web 2.0'. + self dependsOn: #('Javascript-Core').! Item was added: + ----- Method: Seaside290Alpha3>>KomServices (in category 'private') ----- + KomServices + self name: 'KomServices'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//KomServices-gc…'. + self dependsOn: #('DynamicBindings').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsFunctional (in category 'tests') ----- + SeasideTestsFunctional + self name: 'Seaside-Tests-Functional'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Functional Seaside test suite.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Environment' 'Seaside-Tests-Core'). + self addAction: 'Seaside-Tests-Squeak-Functional'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakWebTools (in category 'private') ----- + SeasideSqueakWebTools + self name: 'Seaside-Squeak-WebTools'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self info description: 'Squeak-specific web-based administration tools for Seaside.'. + self dependsOn: #('Seaside-WebTools' 'Seaside-Squeak-Environment').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideInternetExplorer (in category 'core library') ----- + SeasideInternetExplorer + self name: 'Seaside-InternetExplorer'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Intern…'. + self info description: 'Support for proprietary Internet Explorer functionality.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideComponent (in category 'core library') ----- + SeasideComponent + self name: 'Seaside-Component'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Compon…'. + self info description: 'Stateful, reuseable components to encapsulate a small part of a page.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core' 'Seaside-Canvas').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsPlatform (in category 'tests') ----- + SeasideTestsPlatform + self name: 'Seaside-Tests-Platform'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Platform.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Platform'). + self addAction: 'Seaside-Tests-Squeak-Platform'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsRenderLoop (in category 'tests') ----- + SeasideTestsRenderLoop + self name: 'Seaside-Tests-RenderLoop'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-RenderLoop.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-RenderLoop' 'Seaside-Tests-Session').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideAdaptorsComanche (in category 'server adaptors') ----- + SeasideAdaptorsComanche + self name: 'Seaside-Adaptors-Comanche'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Adapto…'. + self info description: 'Makes Seaside run on the Comanche HTTP server.'. + self info category: 'Server Adaptors'. + self dependsOn: #('Seaside-Squeak-Core' 'KomHttpServer').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakEmail (in category 'private') ----- + SeasideSqueakEmail + self name: 'Seaside-Squeak-Email'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self info description: 'Squeak implementation classes for the package "Seaside-Email".'. + self dependsOn: #('Seaside-Email' 'Seaside-Squeak-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSqueakContinuation (in category 'private') ----- + SeasideTestsSqueakContinuation + self name: 'Seaside-Tests-Squeak-Continuation'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Tests of Squeak continuation implementation'. + self dependsOn: #('Seaside-Squeak-Continuation' 'Seaside-Tests-Platform' 'Seaside-Platform').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakFlow (in category 'private') ----- + SeasideSqueakFlow + self name: 'Seaside-Squeak-Flow'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-Flow' 'Seaside-Squeak-Platform' 'Seaside-Squeak-Continuation').! Item was added: + ----- Method: Seaside290Alpha3>>CometSqueakCore (in category 'private') ----- + CometSqueakCore + self name: 'Comet-Squeak-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Comet-Squeak-C…'. + self dependsOn: #('Comet-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSlime (in category 'development') ----- + SeasideSlime + self name: 'Seaside-Slime'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Slime-…'. + self info description: 'Code critis for Seaside. Detects common types of bugs.'. + self info category: 'Development'. + self dependsOn: #('Seaside-Platform' 'Refactoring-Core' 'Seaside-Session' 'Seaside-Component').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakPlatform (in category 'private') ----- + SeasideSqueakPlatform + self name: 'Seaside-Squeak-Platform'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-Platform').! Item was added: + ----- Method: Seaside290Alpha3>>KomHttpServer (in category 'private') ----- + KomHttpServer + self name: 'KomHttpServer'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//KomHttpServer-…'. + self dependsOn: #('KomServices').! Item was added: + ----- Method: Seaside290Alpha3>>RSSTestsCore (in category 'tests') ----- + RSSTestsCore + self name: 'RSS-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//RSS-Tests-Core…'. + self info description: 'Unit tests for the "RSS-Core" package.'. + self info category: 'Tests'. + self dependsOn: #('RSS-Core').! Item was added: + ----- Method: Seaside290Alpha3>>CometCore (in category 'web 2.0') ----- + CometCore + self name: 'Comet-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Comet-Core-jf.…'. + self info description: 'Stream events from the server to client.'. + self info category: 'Web 2.0'. + self dependsOn: #('Seaside-Canvas' 'Scriptaculous-Core' 'Seaside-Adaptors-Comanche'). + self addAction: 'Comet-Squeak-Core'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsComponent (in category 'tests') ----- + SeasideTestsComponent + self name: 'Seaside-Tests-Component'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Component.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Component' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSwazoo (in category 'private') ----- + SeasideSwazoo + self name: 'Seaside-Swazoo'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Swazoo…'. + self info description: 'A small set of Swazoo 2 extensions to make it run Seaside'. + self dependsOn: #('Seaside-Platform' 'Swazoo').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakEnvironment (in category 'private') ----- + SeasideSqueakEnvironment + self name: 'Seaside-Squeak-Environment'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-Environment' 'Seaside-Squeak-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideRenderLoop (in category 'core library') ----- + SeasideRenderLoop + self name: 'Seaside-RenderLoop'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Render…'. + self info description: 'Defines the low-level rendering and callback processing functionality.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Session' 'Seaside-Component').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideEnvironment (in category 'core library') ----- + SeasideEnvironment + self name: 'Seaside-Environment'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Enviro…'. + self info description: 'Administrative tools, useful to have for productive and development environments.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core' 'Seaside-Component' 'Seaside-RenderLoop' 'Seaside-Session' 'Seaside-Canvas'). + self addAction: 'Seaside-Squeak-Environment'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakDevelopment (in category 'private') ----- + SeasideSqueakDevelopment + self name: 'Seaside-Squeak-Development'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-Development' 'Seaside-Squeak-WebTools' 'Seaside-Squeak-Flow').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSqueakCore (in category 'private') ----- + SeasideTestsSqueakCore + self name: 'Seaside-Tests-Squeak-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self dependsOn: #('Seaside-Squeak-Core' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideHTML5 (in category 'core library') ----- + SeasideHTML5 + self name: 'Seaside-HTML5'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-HTML5-…'. + self info description: 'Support for HTML 5 tags.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Canvas').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideDevelopment (in category 'development') ----- + SeasideDevelopment + self name: 'Seaside-Development'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Develo…'. + self info description: 'Web-based development tools and debugging support.'. + self info category: 'Development'. + self dependsOn: #('Seaside-WebTools' 'Seaside-Flow'). + self addAction: 'Seaside-Squeak-Development'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideFlow (in category 'core library') ----- + SeasideFlow + self name: 'Seaside-Flow'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Flow-j…'. + self info description: 'Define control flow as a continuous piece of code, with natural, linear control flow.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core' 'Seaside-Component' 'Seaside-RenderLoop' 'Seaside-Environment'). + self addAction: 'Seaside-Squeak-Flow'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakOmniBrowserTools (in category 'private') ----- + SeasideSqueakOmniBrowserTools + self name: 'Seaside-Squeak-OmniBrowserTools'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-OmniBrowserTools').! Item was added: + ----- Method: Seaside290Alpha3>>ScriptaculousComponents (in category 'web 2.0') ----- + ScriptaculousComponents + self name: 'Scriptaculous-Components'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Scriptaculous-…'. + self info description: 'A collection of AJAX based widgets written on top of script.aculo.us and Prototype.'. + self info category: 'Web 2.0'. + self dependsOn: #('Scriptaculous-Core' 'Seaside-Component' 'Seaside-Flow').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSqueakFunctional (in category 'private') ----- + SeasideTestsSqueakFunctional + self name: 'Seaside-Tests-Squeak-Functional'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Squeak specific functional Seaside test suite.'. + self dependsOn: #('Seaside-Tests-Functional').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideEmail (in category 'core library') ----- + SeasideEmail + self name: 'Seaside-Email'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Email-…'. + self info description: 'Contains convience classes for sending of emails and preventing header injections.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Core'). + self addAction: 'Seaside-Squeak-Email'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSlime (in category 'tests') ----- + SeasideTestsSlime + self name: 'Seaside-Tests-Slime'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Slime.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Slime' 'Seaside-Tests-Component').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSqueakPlatform (in category 'private') ----- + SeasideTestsSqueakPlatform + self name: 'Seaside-Tests-Squeak-Platform'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Tests-Platform.'. + self dependsOn: #('Seaside-Squeak-Platform' 'Seaside-Tests-Platform').! Item was added: + ----- Method: Seaside290Alpha3>>JavascriptCore (in category 'web 2.0') ----- + JavascriptCore + self name: 'Javascript-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Javascript-Cor…'. + self info description: 'Javascript integration in Seaside. Provides a basic functionality to generate Javascript from Smalltalk.'. + self info category: 'Web 2.0'. + self dependsOn: #('Seaside-Canvas'). + self addAction: 'Javascript-Squeak-Core'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsSqueakDevelopment (in category 'private') ----- + SeasideTestsSqueakDevelopment + self name: 'Seaside-Tests-Squeak-Development'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self dependsOn: #('Seaside-Squeak-Development' 'Seaside-Tests-Development').! Item was added: + ----- Method: Seaside290Alpha3>>JQueryTestsUI (in category 'tests') ----- + JQueryTestsUI + self name: 'JQuery-Tests-UI'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//JQuery-Tests-U…'. + self info description: 'Functional and unit tests for the JQuery-UI package.'. + self info category: 'Tests'. + self dependsOn: #('JQuery-UI' 'JQuery-Tests-Core').! Item was added: + Packages subclass: #Seaside290Alpha3 + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Packages-Library'! + + !Seaside290Alpha3 commentStamp: 'kph 7/1/2009 15:41' prior: 0! + THIS CLASS HAS NO COMMENT!! + + Packages findPath! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakContinuation (in category 'private') ----- + SeasideSqueakContinuation + self name: 'Seaside-Squeak-Continuation'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self info description: 'Squeak implementation of full and partial first-class continuations'. + self dependsOn: #('Seaside-Squeak-Platform' 'Seaside-Platform').! Item was added: + ----- Method: Seaside290Alpha3>>JQueryUI (in category 'web 2.0') ----- + JQueryUI + self name: 'JQuery-UI'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//JQuery-UI-lr.3…'. + self info description: 'jQuery-UI integration for Seaside. Expression through code.'. + self info category: 'Web 2.0'. + self dependsOn: #('JQuery-Core').! Item was added: + ----- Method: Seaside290Alpha3>>ScriptaculousTestsCore (in category 'tests') ----- + ScriptaculousTestsCore + self name: 'Scriptaculous-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Scriptaculous-…'. + self info description: 'Functional and unit tests for the Scriptaculous-Core package.'. + self info category: 'Tests'. + self dependsOn: #('Scriptaculous-Core' 'Javascript-Tests-Core' 'Seaside-Tests-Functional').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideCore (in category 'core library') ----- + SeasideCore + self name: 'Seaside-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Core-l…'. + self info description: 'The core of Seaside, required for all packages.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Platform'). + self addAction: 'Seaside-Squeak-Core'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideAdaptorsSwazoo (in category 'server adaptors') ----- + SeasideAdaptorsSwazoo + self name: 'Seaside-Adaptors-Swazoo'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Adapto…'. + self info description: 'Makes Seaside run on the Swazoo Web server (LGPL).'. + self info category: 'Server Adaptors'. + self dependsOn: #('Seaside-Squeak-Core' 'Seaside-Swazoo').! Item was added: + ----- Method: Seaside290Alpha3>>JavascriptSqueakCore (in category 'private') ----- + JavascriptSqueakCore + self name: 'Javascript-Squeak-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Javascript-Squ…'. + self dependsOn: #('Javascript-Core').! Item was added: + ----- Method: Seaside290Alpha3>>ScriptaculousCore (in category 'web 2.0') ----- + ScriptaculousCore + self name: 'Scriptaculous-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Scriptaculous-…'. + self info description: 'Prototype and script.aculo.us integration for Seaside. Aims to ease development of dynamic web applications.'. + self info category: 'Web 2.0'. + self dependsOn: #('Javascript-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideSqueakCore (in category 'private') ----- + SeasideSqueakCore + self name: 'Seaside-Squeak-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Squeak…'. + self dependsOn: #('Seaside-Core').! Item was added: + ----- Method: Seaside290Alpha3>>JavascriptTestsCore (in category 'tests') ----- + JavascriptTestsCore + self name: 'Javascript-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Javascript-Tes…'. + self info description: 'Unit tests for the Javascript-Core package.'. + self info category: 'Tests'. + self dependsOn: #('Javascript-Core' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsFlow (in category 'tests') ----- + SeasideTestsFlow + self name: 'Seaside-Tests-Flow'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Functional tests for Seaside-Flow.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Flow' 'Seaside-Tests-Functional').! Item was added: + ----- Method: Seaside290Alpha3>>ScriptaculousTestsComponents (in category 'tests') ----- + ScriptaculousTestsComponents + self name: 'Scriptaculous-Tests-Components'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Scriptaculous-…'. + self info description: 'Functional and unit tests for the Scriptaculous-Components package.'. + self info category: 'Tests'. + self dependsOn: #('Scriptaculous-Components' 'Scriptaculous-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideWebTools (in category 'core library') ----- + SeasideWebTools + self name: 'Seaside-WebTools'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-WebToo…'. + self info description: 'Web-based tools for administering Seaside.'. + self info category: 'Core Library'. + self dependsOn: #('Seaside-Environment'). + self addAction: 'Seaside-Squeak-WebTools'! Item was added: + ----- Method: Seaside290Alpha3>>SeasideOmniBrowserTools (in category 'development') ----- + SeasideOmniBrowserTools + self name: 'Seaside-OmniBrowserTools'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-OmniBr…'. + self info description: 'OmniBrowser based tools to setup and configure server adaptor and dispatchers.'. + self info category: 'Development'. + self dependsOn: #('Seaside-Environment'). + self addAction: 'Seaside-Squeak-OmniBrowserTools'! Item was added: + ----- Method: Seaside290Alpha3>>JQueryTestsCore (in category 'tests') ----- + JQueryTestsCore + self name: 'JQuery-Tests-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//JQuery-Tests-C…'. + self info description: 'Functional and unit tests for the JQuery-Core package.'. + self info category: 'Tests'. + self dependsOn: #('JQuery-Core' 'Javascript-Tests-Core' 'Seaside-Development' 'Seaside-Tests-Functional').! Item was added: + ----- Method: Seaside290Alpha3>>Swazoo (in category 'private') ----- + Swazoo + self name: 'Swazoo'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Swazoo-2.2.mcz'. + self dependsOn: #('Sport').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsEnvironment (in category 'tests') ----- + SeasideTestsEnvironment + self name: 'Seaside-Tests-Environment'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Environment.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Environment' 'Seaside-Tests-Component' 'Seaside-Tests-RenderLoop' 'Seaside-Tests-Session' 'Seaside-Tests-Canvas').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsCanvas (in category 'tests') ----- + SeasideTestsCanvas + self name: 'Seaside-Tests-Canvas'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-Canvas.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-Canvas' 'Seaside-Tests-Core').! Item was added: + ----- Method: Seaside290Alpha3>>SeasideTestsHTML5 (in category 'tests') ----- + SeasideTestsHTML5 + self name: 'Seaside-Tests-HTML5'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//Seaside-Tests-…'. + self info description: 'Unit tests for the package Seaside-HTML5.'. + self info category: 'Tests'. + self dependsOn: #('Seaside-HTML5' 'Seaside-Tests-Functional').! Item was added: + ----- Method: Seaside290Alpha3>>RSSCore (in category 'web 2.0') ----- + RSSCore + self name: 'RSS-Core'. + self version: '2.9.0-alpha3'. + self info url: 'http://builder.seaside.st/distributions/002-Seaside2.9.0-a3//RSS-Core-lr.48…'. + self info description: 'RSS integration for Seaside. Helps to create RSS 2.0 feeds.'. + self info category: 'Web 2.0'. + self dependsOn: #('Seaside-Canvas').! Item was removed: - ----- Method: PackagesSeaside29>>RefactoringCore (in category 'as yet unclassified') ----- - RefactoringCore - ^ self class current named: 'RefactoringCore'.! Item was removed: - ----- Method: PackagesSeaside29>>Sport (in category 'as yet unclassified') ----- - Sport - - ^ self class current named: 'Sport'.! Item was removed: - ----- Method: PackagesSeaside29>>KomHttpServer (in category 'as yet unclassified') ----- - KomHttpServer - - ^ self class current named: 'KomHttpServer'.!

1 0

Sake : Sake-Bob-kph.19.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Jul '09

07 Jul '09

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.19.mcz ==================== Summary ==================== Name: Sake-Bob-kph.19 Author: kph Time: 7 July 2009, 1:42 pm UUID: 3fff1eff-adae-46af-86da-b384d37aaa36 Ancestors: Sake-Bob-kph.18 added setCompilerToLeniant =============== Diff against Sake-Bob-kph.18 =============== Item was changed: ----- Method: BobBuild>>makeLocal: (in category 'zip file') ----- makeLocal: aZipFile "if the zip file is remote, check it wasnt one we generated in our output tree" | localZipFile | localZipFile := nil. aZipFile executive isRemote ifTrue: [ (self outputDir parent all filesMatching: aZipFile fileName) firstOrNil ifNotNilDo: [ :found | self log info found: found. + ^ localZipFile := found - ^ localZipFile ] ] ifFalse: [ aZipFile exists ifTrue: [ ^ aZipFile ]]. (localZipFile := self class configImagesDir / aZipFile fileName) exists ifTrue: [ ^ localZipFile ]. "default is not to overwrite if the file exists" localZipFile := (self class configImagesDir add: (localZipFile ifNil: [ aZipFile ])). ^ localZipFile ! Item was changed: ----- Method: BobBuildImage>>theScriptBasic (in category 'script') ----- theScriptBasic script reset. self + scriptSetCompilerToLenient; scriptTranscriptLogToFileStart; scriptSetVersion; scriptAddInfoScript; scriptTranscriptLogToFileStop; scriptSaveImageAndQuit: true! Item was changed: ----- Method: BobConfig class>>configVm (in category 'as yet unclassified') ----- configVm "the mac vm doesnt like to be opened via a symbolic link" + ^ '/bob/vm/Squeak 3.8.21beta1U.app/Contents/MacOS/Squeak VM Opt' - ^ '/bob/vm/Squeak\ 3.8.21beta1U.app/Contents/MacOS/Squeak\ VM\ Opt' ! Item was added: + ----- Method: BobPeriodicWatchRepositories>>disaWatchBob (in category 'as yet unclassified') ----- + disaWatchBob + + ^ SakeTask + checkUrl: 'http://www.squeaksource.com/Bob/feed.rss' + onChanged: [ + + self log info: 'Bob Repository Updated'. + + Installer squeaksource project: 'Bob'; + install: 'Tasks-Common'; + install: 'Tasks-Squeak311'; + install: 'Tasks-Squeak310'; + install: 'Bob-Releases'. + + ]. + + ! Item was added: + ----- Method: BobPeriodicBuilds class>>start (in category 'as yet unclassified') ----- + start + super initialize. + self scheduler addTask: ((self do: #doAllTasks every: 600 seconds) + noRunHistory; + description: 'builder'; + yourself) + + ! Item was changed: SystemOrganization addCategory: #'Sake-Bob'! - SystemOrganization addCategory: #'Sake-Bob-OneClickPackage'! Item was changed: ----- Method: BobBuild>>launchVm:image:with: (in category 'as yet unclassified') ----- launchVm: vm image: imageFile with: scriptFile + self exec: '"', vm, '" "' , imageFile full, '" "', scriptFile full, '"'. - self exec: vm, ' ' , imageFile full, ' ', scriptFile full. ^ DateAndTime now! Item was changed: ----- Method: BobBuildImage>>theScript (in category 'as yet unclassified') ----- theScript script reset. self + scriptSetCompilerToLenient; scriptTranscriptLogToFileStart; scriptSetVersion: '=wip'; scriptSaveImageAndQuit: false; scriptAddInfoScript; scriptCleanUp; scriptSetVersion; scriptTranscriptLogToFileStop; scriptSaveImageAndQuit: true.! Item was changed: ----- Method: BobPeriodicWatchUniverses>>taskGeneratePackagesFromUniverses (in category 'as yet unclassified') ----- taskGeneratePackagesFromUniverses | wc changes | ^ [ Packages taskGenerateAllUniverses run. wc := ((MCPackage named: 'Packages-Library') workingCopy). + - changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea summary ]. + + (changes notEmpty and: [ changes size < 100]) ifTrue: [ - - changes notEmpty ifTrue: [ wc saveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)). ] ]! Item was changed: ----- Method: BobBuildImage>>isBuildNeeded (in category 'as yet unclassified') ----- isBuildNeeded | wait dependentFile | "if the output directory doesnt exist then - dont build" self outputDir asDirectory exists ifFalse: [ ^ { false. #notWanted. 'Output directory not present: ', self outputDir.}. ]. "if we have the don't flag - dont build" #dont = info when ifTrue: [ ^ #(false #dont 'dont flag set') ]. false = info when ifTrue: [ ^ #(false #dont 'dont flag false') ]. self stepNeeded. - - "if an explicit build time has been set and not yet reached - dont build" - ((info when isKindOf: DateAndTime) and: [ info when > info timeStart ]) - ifTrue: [ ^ { false. #notYet. ('time is not yet ', info when asString). } ]. - - latest := self infoFileReadLatest. - - "if 'when' is set to a file obtain creation time, if not use info image" - info when isFileOrDirectory ifTrue: [ - dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. #notFound. msg.}]. - self info dependentCreationTime: dependentFile creationTime. - zipFile := self resolveFile: info image ifNone: [:msg | ^ { false. msg.} ]. - - ] ifFalse: [ - dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. - - self info dependentCreationTime: (info imageCreationTime ifNil: [ zipFile creationTime ]). - ]. - - "has our starting image changed? if so" - (latest dependentCreationTime notNil and: [ latest dependentCreationTime ~= self info dependentCreationTime ]) - ifTrue: [ - self dependentFileChanged: dependentFile. - ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} - ] - ifFalse: [ true = info when ifTrue: [ ^ { false. ('waiting for ', dependentFile asString , ' to change').} ]]. - - - "we have a new build id, so we build" - latest build ~= info build ifTrue: [ ^ { true. #newBuildNumber. ('new build number ',info build).} ]. - - (info when isKindOf: Duration) ifTrue: [ - wait := latest startTime + info when - TimeStamp now - wait > 0 ifTrue: [ ^ { false. #waiting. (wait seconds asString, ' seconds to go').} ]. - ]. - - "an explicit build time has been given, and this is present existing latest" - ((info when isKindOf: DateAndTime) and: [ info when <= latest timeStart ]) - ifTrue: [ ^ { false. #done. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. - - ^ { true. #itsTime. ('building ', self info name). } + + "if an explicit build time has been set and not yet reached - dont build" + ((info when isKindOf: DateAndTime) and: [ info when > info timeStart ]) + ifTrue: [ ^ { false. #notYet. ('time is not yet ', info when asString). } ]. + + latest := self infoFileReadLatest. + + "if 'when' is set to a file obtain creation time, if not use info image" + info when isFileOrDirectory ifTrue: [ + dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. #notFound. msg.}]. + self info dependentCreationTime: dependentFile creationTime. + zipFile := self resolveFile: info image ifNone: [:msg | ^ { false. msg.} ]. + ] ifFalse: [ + dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. + + self info dependentCreationTime: (info imageCreationTime ifNil: [ zipFile creationTime ]). + ]. + + "has our starting image changed? if so" + (latest dependentCreationTime ~= self info dependentCreationTime) + ifTrue: [ + self dependentFileChanged: dependentFile. + ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} + ] + ifFalse: [ + ((true = info when) or: [ info when isFileOrDirectory ]) ifTrue: [ ^ { false. #waitingForChange. ('waiting for ', dependentFile asString , ' to change').} ]]. + + "we have a new build id, so we build" + latest build ~= info build ifTrue: [ ^ { true. #newBuildNumber. ('new build number ',info build).} ]. + + (info when isKindOf: Duration) ifTrue: [ + wait := latest startTime + info when - TimeStamp now + wait > 0 ifTrue: [ ^ { false. #waiting. (wait seconds asString, ' seconds to go').} ]. + ]. + + "an explicit build time has been given, and this is present existing latest" + ((info when isKindOf: DateAndTime) and: [ info when <= latest timeStart ]) + ifTrue: [ ^ { false. #done. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. + + ^ { true. #itsTime. ('building ', self info name). }. + ! Item was added: + ----- Method: BobBuildImage>>scriptSetCompilerToLenient (in category 'as yet unclassified') ----- + scriptSetCompilerToLenient + + self nextScriptPut: '"self halt." + + Preferences setPreference: #allowBlockArgumentAssignment toValue: true. + Preferences setPreference: #allowUnderscoreAssignment toValue: true. + '. + + ! Item was changed: ----- Method: BobBuildImage>>dependentFileChanged: (in category 'as yet unclassified') ----- dependentFileChanged: aFile | dependentInfo | dependentInfo := (Compiler evaluate: (aFile copy ext: 'info') contents) ifNil: [ ^ self ]. info timeInitiated: dependentInfo timeInitiated. + info description: (info description ifNil: ['']), String cr, String cr , 'Description from: ', dependentInfo name, String cr, String cr, (dependentInfo description ifNil: [ '' ]). + info comment: (info comment ifNil: ['']), String cr, String cr , 'Comment from: ', dependentInfo name, String cr, String cr, (dependentInfo comment ifNil: ['']).! - info description: info comment, String cr, String cr , 'Description from: ', dependentInfo name, String cr, String cr, dependentInfo description. - info comment: info comment, String cr, String cr , 'Comment from: ', dependentInfo name, String cr, String cr, dependentInfo comment.! Item was removed: - ----- Method: BobPeriodicWatchRepositories>>taskWatchBob (in category 'as yet unclassified') ----- - taskWatchBob - - ^ SakeTask - checkUrl: 'http://www.squeaksource.com/Bob/feed.rss' - onChanged: [ - - self log info: 'Bob Repository Updated'. - - Installer squeaksource project: 'Bob'; - install: 'Tasks-Common'; - install: 'Tasks-Squeak311'; - install: 'Tasks-Squeak310'; - install: 'Bob-Releases'. - - ]. - - ! Item was removed: - ----- Method: BobPeriodicBuilds class>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - self scheduler addTask: ((self do: #doAllTasks every: 600 seconds) - noRunHistory; - description: 'builder'; - yourself) - - !

1 0

Packages: Sake-Packages-kph.35.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 03 Jul '09

03 Jul '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.35.mcz ==================== Summary ==================== Name: Sake-Packages-kph.35 Author: kph Time: 3 July 2009, 3:41:07 am UUID: a990f820-a0f7-42af-a596-1e7907797013 Ancestors: Sake-Packages-kph.34 Seaside 29 packages included here and tested loading and unloading =============== Diff against Sake-Packages-kph.34 ===============

1 0

Packages: Sake-Packages-kph.34.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 03 Jul '09

03 Jul '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.34.mcz ==================== Summary ==================== Name: Sake-Packages-kph.34 Author: kph Time: 3 July 2009, 3:40 am UUID: 56810f94-8da0-4fe2-81ce-8cd9a1dbc7c0 Ancestors: Sake-Packages-kph.33 defaultAction sets hasRun so that appended actions may depend upon this task =============== Diff against Sake-Packages-kph.33 =============== Item was changed: ----- Method: Packages>>doActionStep: (in category 'as yet unclassified') ----- doActionStep: priorTasks super doActionStep: priorTasks. name ifNil: [ ^ self ]. self isUnloading ifTrue: [ self step: 'Confirm unload: ', self name printString ] ifFalse: [ self step: 'Confirm load: ', self name printString ]! Item was changed: ----- Method: Packages class>>unload: (in category 'public') ----- unload: aNameOrList + aNameOrList isString ifTrue: [ ^ (self named: aNameOrList) beUnloading run]. - aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) beUnloading run]. + ^ (aNameOrList collect: [ :ea | (self named: aNameOrList) beUnloading ]) asTask run - ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) beUnloading ]) asTask run ! Item was changed: ----- Method: Packages>>dependsOn (in category 'as yet unclassified') ----- dependsOn self isUnloading ifFalse: [ ^ super dependsOn ]. + - unloadPriors ifNil: [ self unloadDependsOn: self loadedDependantsUnloadTasks ]. ^ unloadPriors! Item was changed: ----- Method: Packages>>defaultUnloadAction (in category 'defaults') ----- defaultUnloadAction + ^ [ Installer mc unload: self mcName ]! - Installer mc unload: self mcName! Item was changed: ----- Method: Packages>>doActionEnd (in category 'as yet unclassified') ----- doActionEnd + - self isUnloading ifTrue: [ ^ self ]. self class provided in: [ :reg | + self isUnloading ifTrue: [ ^ reg removeKey: self name ]. + info dependsOn: (self dependsOn collect: [ :ea | ea asString ]). info provides: self provides. info class: self class name. self provides do: [ :each | reg at: each put: info ]. ]. self addToPackageInfo. ! Item was changed: + ----- Method: Packages>>beUnloading (in category 'defaults') ----- - ----- Method: Packages>>beUnloading (in category 'mode') ----- beUnloading isUnload := true. + hasRun := false. + actionBlock := self defaultUnloadAction.! - hasRun := false.! Item was added: + ----- Method: Packages class>>latest: (in category 'public') ----- + latest: aNameOrList + + ^ (self named: aNameOrList) beLatest run! Item was changed: ----- Method: Packages>>loadedDependants (in category 'as yet unclassified') ----- loadedDependants + | ds | ^ self class provided select: [ :dependant | + ds := dependant dependsOn. + + ds ifNil: [ false ] ifNotNil: [ ds includesAnyOf: self provides ] . - dependant dependsOn includesAnyOf: self provides. ]. + + ! Item was changed: ----- Method: Packages>>versionIndefinite (in category 'accessing') ----- versionIndefinite + (self version last ~= $+) ifTrue: [ version := self version, '+']. - (self version last ~= $+) ifTrue: [ self version: self version, '+']. ! Item was changed: ----- Method: Packages>>defaultLatestAction (in category 'defaults') ----- defaultLatestAction + ^ [ self info url ifNotNilDo: [ :url | (Installer fromUrl: url) latest install ]. + self hasRunSet. ]! - ^ [ self info url ifNotNilDo: [ :url | (Installer fromUrl: url) latest install ] ]! Item was changed: ----- Method: Packages>>loadedDependantsUnloadTasks (in category 'as yet unclassified') ----- loadedDependantsUnloadTasks "if the task is the provided one, then we return the provided dependants." + ^ self loadedDependants collect: [ : ea | (self class named: ea name) beUnloading ]! - self loadedDependants in: [ :deps | - - deps ifEmpty: [ ^ #() ]. - - ^ (self class provided at: self name ifAbsent: nil) == self - ifTrue: [ (deps collect: [ :ea | ea copy beUnloading ]) ] - ifFalse: [ (deps collect: [ : ea | (self class named: ea name) beUnloading ]) ] - ].! Item was changed: ----- Method: Packages>>defaultAction (in category 'defaults') ----- defaultAction + ^ [ self info url ifNotNilDo: [ :url | (Installer fromUrl: url) install ]. + self hasRunSet. ]! - ^ [ self info url ifNotNilDo: [ :url | (Installer fromUrl: url) install ] ]! Item was changed: ----- Method: Packages class>>basicNamed: (in category 'private') ----- basicNamed: packageName + ^ (self basicNew perform: (self asSelector: packageName)) initialize; yourself! - ^ self basicNew perform: (self asSelector: packageName); initialize; yourself! Item was changed: SakeTask subclass: #Packages + instanceVariableNames: 'unload latest useLatest unloadPriors provides requires name mcName version isUnload' - instanceVariableNames: 'unload latest useLatest unloadPriors provides name mcName version isUnload' classVariableNames: 'Provided' poolDictionaries: '' category: 'Sake-Packages'! Packages class instanceVariableNames: 'lastUpdate theUUniverse'! !Packages commentStamp: 'kph 7/1/2009 03:03' prior: 0! Sake/Packages usage: Definitions Search Path ============================ Packages named: 'PackageName'. Will obtain a package definition. Subclasses of Packages are searched using the order defined by #findPath which is specified by #priority. e.g. Packages findPath => {PackagesSqueak310 . PackagesDev . PackagesAll . PackagesSeaside29} Packages-#priority is used to sort classes like so: The class with defns for a relevant version (listed in #relevantVersions) => 100 The class with defns for dev version (PackagesDev) => 400 The class with defns for all versions (PackagesAll) => 500 Additional package "universes" can define their own priority in order to specify where to appear in the #findPath. PackagesSeaside29 PackagesGjaller PackagesBeach Usage: ======== verbose usage specifying run style. (Packages named: 'Seaside') run. " or runQuietly, runStepping, runLogging" #runStepping , - presents a confirm/debug dialog before each action. #run - default. #runQuietly - auto-confirms any SakeConfirm dialogs. #runLogging - Writes any SakeStop warnings to self log. default usage: Packages load: 'Seaside'. Packages latest: 'Seaside'. "as above, but use latest versions of everything" Packages unload: 'Seaside'. multiples: Packages load: #('Seaside' 'Magma' 'Logging') Unloading ======== Unloading comes in two variants. Each package task loaded by Sake/Packages is remembered in the 'provided' list If you perform: Packages unload: 'Seaside' . Packages unloadStepping: 'Seaside' . Then the 'historical' unload scripts are used, as defined when the original load tasks were run. If instead you perform: (Packages current named: 'Seaside') beUnloading runStepping. Then the most recently defined unload script will be run. Note: If packages such as "Magma server" and "Magma client" provides "Magma", then Packages unload: 'Magma'. Will unload whichever of the two are loaded. === Misc notes... Universes are using 'instance side' task definition, so the task extensions mechanism does not work in this context. If a package appears in Packages under an obscure name, it can tell the PackageInfo instance what name was used to load it via #mcName: If a package has a version number with a '+' after it, then 'Packages upgrade' will always attempt to load the latest code, leaving Monticello to determine if there are any code changed that need to be applied. To generate all of the methods based upon universes definitions: Packages taskGenerateAllUniverses run. or Packages taskGenerateAll run.!

1 0

Sake : Sake-Core-kph.108.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 03 Jul '09

03 Jul '09

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.108.mcz ==================== Summary ==================== Name: Sake-Core-kph.108 Author: kph Time: 3 July 2009, 3:37:12 am UUID: f04a1c2f-813d-46ba-9df4-363a33a5a851 Ancestors: Sake-Core-kph.107 + tasks are always realised through tasksFromList: + The setOfTasks is propagated to actions as well as priors, enabling actions dependents to work + what handles dependency loops better =============== Diff against Sake-Core-kph.107 =============== Item was changed: ----- Method: SakeTask>>hasRun (in category 'as yet unclassified') ----- hasRun + ^ hasRun = true! - ^ hasRun ifNil: [ false ]! Item was changed: ----- Method: SakeTask>>tasksFromList: (in category 'as yet unclassified') ----- tasksFromList: list + | newTask | + ^ (list ifNil: [ ^ #()]) collect: [ :task | + + newTask := (self taskFrom: task) withExtensions. + + (setOfTasks like: newTask) ifNil: [ setOfTasks add: newTask ]. + + ] - ^ (list ifNil: [ ^ #()]) collect: [ :task | (self taskFrom: task) withExtensions ] ! Item was added: + ----- Method: SakeTask>>privateRun (in category 'as yet unclassified') ----- + privateRun + + | priorTasks blocked wasBlocked | + + "this is the way that Rake orders tasks" + + "we ensure that we obtain the task to run from the overall set of tasks" + + self hasRun ifTrue: [ ^ result ]. + + priorTasks := self tasksFromList: self dependsOn. + + "anyting it runs that is blocked is added to the block set, anything that suceeds is removed form the blocked set. + at the end, we shall have a list of blocked tasks that can be retried, if that list is the same as the list that was blocked + before stop and complain" + + blocked := Set new. + + [ + wasBlocked := blocked copy. + + priorTasks do: [ :each | + each runLevel: runLevel. + [ + each useSetOfTasks: setOfTasks during: [ each privateRun]. + blocked remove: each ifAbsent: [ ]. + ] on: SakeBlock do: [ :ex | blocked add: ex task ]. + ]. + + (blocked notEmpty and: [ blocked = wasBlocked ]) ifTrue: [ SakeBlock signalTask: self ]. + + ] doWhileFalse: [ blocked isEmpty ]. + + + (self isNeeded: priorTasks) + ifTrue: [ + self trace. + self doAction: priorTasks. + self hasRunSet. + + ^ result. + ]. + + ^ false + ! Item was changed: ----- Method: SakeTask>>what (in category 'coercion') ----- what + ^ self whatOn: Set new! - | what | - what := SakeWhat new. - - what task: self. - - ifBlock ifNotNil: [ - ( ifBlock isBlock ) - ifTrue: [ what if: ifBlock decompileString ] - ifFalse: [ - what if: ((self tasksFromList: ifBlock) collect: [ :ea | ea what ]). - ]. - ]. - - what prior: (self priorTasks collect: [ :ea | ea what ]). - - (self action respondsTo: #decompileString) - ifTrue: [ what action: self action decompileString ] - ifFalse: [ - what action: ((self tasksFromList: self action) collect: [ :ea | ea what ]). - ]. - - ^ what! Item was added: + ----- Method: SakeTask>>whatOn: (in category 'coercion') ----- + whatOn: set + + | what | + what := SakeWhat new. + + set add: self. + + what task: self. + + ifBlock ifNotNil: [ + ( ifBlock isBlock ) + ifTrue: [ what if: ifBlock decompileString ] + ifFalse: [ + what if: ((self tasksFromList: ifBlock) collect: [ :ea | + ea whatOn: set ]). + ]. + ]. + + what prior: (self priorTasks collect: [ :ea | (set includes: ea) ifFalse: [ ea whatOn: set ]]). + + (self action respondsTo: #decompileString) + ifTrue: [ what action: self action decompileString ] + ifFalse: [ + what action: ((self tasksFromList: self action) collect: [ :ea | ea whatOn: set ]). + ]. + + ^ what! Item was added: + ----- Method: SakeTask>>useSetOfTasks:during: (in category 'as yet unclassified') ----- + useSetOfTasks: aSetOfTasks during: aBlock + + | old | + + [ + old := setOfTasks. + + setOfTasks := aSetOfTasks. + + ^ aBlock value. + + ] ensure: [ setOfTasks := old ].! Item was changed: Object subclass: #SakeTask + instanceVariableNames: 'args context info priors ifBlock actionBlock answers hasRun result runLevel target author setOfTasks' - instanceVariableNames: 'args context info priors ifBlock actionBlock answers hasRun result runLevel target author' classVariableNames: 'LastStatus Count' poolDictionaries: '' category: 'Sake-Core'! SakeTask class instanceVariableNames: 'status'! !SakeTask commentStamp: 'kph 4/22/2008 22:42' prior: 0! SakeTasks are typically defined as class side methods, which return an instance of SakeTask. To obtain a list of available tasks, do "Senders of #define: " MyClass-task1: aParameter ^ SakeTask define: [ :task | task dependsOn: {self ruleL3.}. task if: [ <return true if action is needed> ]. task action: [ <do something> ] ] The 'unique id' of a task is the method context in which it is instanciated, and its paramters. Therefore only one task should be instanciated per method. Note: Sake tasks can have parameters, Rake tasks dont. To execute a task... (MyClass task1: 'param') run. Results of the prior tasks are available via #results. FAQ ==== How can I call one Sake task from inside another task? Generally, if you want invoke one task from another task, the proper way to do that is to include the task to be invoked as a prerequisite of the task doing the invoking. For example: MyTasks-c-#taskPrimary ^ SakeTask define: [ :task | task dependsOn: { self taskSecondary }. task action: [ self log sake: 'Doing Primary Task'. ]. ] MyTasks-c-#taskSecondary ^ SakeTask define: [ :task | task action: [ self log sake: 'Doing Secondary Task' ]. ] In this case, if the secondary task fails, the whole task stops. Secondary tasks can also be passed to the ifBlock. In that case, if the task succeeds then the action is performed, if the task fails then the action is considered not needed. ^ SakeTask define: [ :task | task if: { self taskSecondary }. task action: [ self log sake: 'Doing Primary Task'. ]. ] Action, can also take a list of tasks. ^ SakeTask define: [ :task | task action: { self taskSecondary. [ self log sake: 'Doing Primary Task' ]. "a block task" } ]. ! Item was changed: ----- Method: SakeTask>>doTasks: (in category 'as yet unclassified') ----- doTasks: list + (self tasksFromList: list) do: [ :task | + task useSetOfTasks: setOfTasks during: [ + result := task perform: runLevel + ]. + ]. - (self tasksFromList: list) do: [ :task | result := task perform: runLevel ]. ! Item was changed: ----- Method: SakeTask>>runInteractively (in category 'running') ----- runInteractively runLevel ifNil: [ runLevel := #runInteractively ]. + ^ self useSetOfTasks: (setOfTasks ifNil: [ self withAllPriorTasks ]) during: [ self privateRun ]! - ^ self privateRun: (self withAllPriorTasks)! Item was added: + ----- Method: SakeTask>>hasRunSet (in category 'as yet unclassified') ----- + hasRunSet + + hasRun := true! Item was removed: - ----- Method: SakeTask>>privateRun: (in category 'as yet unclassified') ----- - privateRun: setOfTasks - - | priorTasks blocked wasBlocked | - - "this is the way that Rake orders tasks" - - "we ensure that we obtain the task to run from the overall set of tasks" - - self hasRun ifTrue: [ ^ result ]. - - priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ] thenSelect: [ :ea | ea notNil ]. - - "anyting it runs that is blocked is added to the block set, anything that suceeds is removed form the blocked set. - at the end, we shall have a list of blocked tasks that can be retried, if that list is the same as the list that was blocked - before stop and complain" - - blocked := Set new. - - [ - wasBlocked := blocked copy. - - priorTasks do: [ :each | - each runLevel: runLevel. - [ - each privateRun: setOfTasks. - blocked remove: each ifAbsent: [ ]. - ] on: SakeBlock do: [ :ex | blocked add: ex task ]. - ]. - - (blocked notEmpty and: [ blocked = wasBlocked ]) ifTrue: [ SakeBlock signalTask: self ]. - - ] doWhileFalse: [ blocked isEmpty ]. - - - (self isNeeded: priorTasks) - ifTrue: [ - self trace. - self doAction: priorTasks. - hasRun := true. - - ^ result. - ]. - - ^ false - !

1 0

SystemEditor: SystemEditor-Squeak-kph.167.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 03 Jul '09

03 Jul '09

A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-kph.167.mcz ==================== Summary ==================== Name: SystemEditor-Squeak-kph.167 Author: kph Time: 2 July 2009, 11:14:03 pm UUID: 50029b61-7410-403a-9fb5-6b49797ffc14 Ancestors: SystemEditor-Squeak-mtf.166 + edResolveSharedPool: adds an empty Dictionary to the subject if the pool does not exist. =============== Diff against SystemEditor-Squeak-mtf.166 =============== Item was added: + ----- Method: SystemEditor>>edResolveSharedPool: (in category 'building') ----- + edResolveSharedPool: aSymbol + ^ subject at: aSymbol ifAbsentPut: [ Dictionary new ]! Item was changed: ----- Method: ClassEditor>>edName:superclassEditor:type:instVarString:classVarString:poolImports:category: (in category 'building') ----- edName: aSymbol superclassEditor: anEditor type: typeOfClass instVarString: instString classVarString: classString poolImports: poolString category: catString | scanner | scanner := Scanner new. name := aSymbol. self superclass: anEditor. type := typeOfClass. category := catString. instVarNames := scanner scanFieldNames: instString. classVarNames := scanner scanFieldNames: classString. sharedPools := (scanner scanFieldNames: poolString) + collect: [:ea | system edResolveSharedPool: ea asSymbol ]! - collect: [:ea | system edResolve: ea asSymbol]!

1 0

Installer: Installer-Core-kph.320.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Jul '09

02 Jul '09

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.320.mcz ==================== Summary ==================== Name: Installer-Core-kph.320 Author: kph Time: 2 July 2009, 10:39:02 pm UUID: 6a214657-1983-4c1d-99ad-d215b02ecbe7 Ancestors: Installer-Core-damiencassou.319 Fix to loading of multiple packages =============== Diff against Installer-Core-damiencassou.319 =============== Item was added: + ----- Method: InstallerMonticello>>mcDetectFileBlock: (in category 'monticello') ----- + mcDetectFileBlock: pkg + + pkg isString ifTrue: [ ^ [ :aFile | aFile beginsWith: pkg ] ]. + + (pkg isKindOf: Array) + ifTrue: [ ^ [ :aFile | (pkg detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ]. + + pkg isBlock ifTrue: [ ^ pkg ]. + + ! Item was changed: ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- mcThing | loader files fileToLoad version count | loader := self classMCVersionLoader new. + count := 0. files := nil. + self logCR: 'reading ', mc description, '...'. - 1 to: self packages size do: [ :n | - - self logCR: 'finding ', self package asString, '...'. "several attempts to read files - repository readableFileNames sometimes fails" + [ count := count + 1. + (files = nil) and:[ count < 5 ] ] + whileTrue: [files := mc readableFileNames asSortedCollection: self mcSortFileBlock ]. + files ifNil: [ Warning signal: 'Repository not readable: ', mc description. ^ nil ]. + + self packages do: [ :pkg | - count := 0. fileToLoad := nil. - - [count := count + 1. - (fileToLoad = nil) and:[ count < 5 ] ] - whileTrue: [ - files := mc readableFileNames asSortedCollection: self mcSortFileBlock. - fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. - ]. - - fileToLoad ifNil: [ Warning signal: 'Package: ', self package ,' not found in repository: ', mc description. ^ nil ]. - version := mc versionFromFileNamed: fileToLoad. - (version isKindOf: MCConfiguration) - ifTrue: [ ^ version ] - ifFalse:[ - MCRepositoryGroup default addRepository: self normalizedRepository. - version workingCopy repositoryGroup addRepository: self normalizedRepository. - loader addVersion: version]. - self log: ' found ', version fileName, '...'. + self log: 'finding ', pkg asString, '...'. + + fileToLoad := files detect: (self mcDetectFileBlock: pkg) ifNone: [ nil ]. + + version := mc versionFromFileNamed: fileToLoad. + (version isKindOf: MCConfiguration) + ifTrue: [ ^ version ] + ifFalse:[ + MCRepositoryGroup default addRepository: self normalizedRepository. + version workingCopy repositoryGroup addRepository: self normalizedRepository. + loader addVersion: version ]. + + self logCR: ' found ', version fileName, '...'. - packages removeFirst. ]. ^ loader! Item was removed: - ----- Method: InstallerMonticello>>mcDetectFileBlock (in category 'monticello') ----- - mcDetectFileBlock - - self package isString ifTrue: [ ^ [ :aFile | aFile beginsWith: self package ] ]. - - (self package isKindOf: Array) - ifTrue: [ ^ [ :aFile | (self package detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ]. - - self package isBlock ifTrue: [ ^ self package ]. - - !

1 0

Sake : Sake-Scheduler-kph.11.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 02 Jul '09

02 Jul '09

A new version of Sake-Scheduler was added to project Sake : http://www.squeaksource.com/Sake/Sake-Scheduler-kph.11.mcz ==================== Summary ==================== Name: Sake-Scheduler-kph.11 Author: kph Time: 2 July 2009, 3:16:58 pm UUID: a5e68e08-8304-4a11-ab65-19a515e352db Ancestors: Sake-Scheduler-kph.10 Fixed Scheduler Tests + minor api change doOnce:at: -> do:onceAt: + Fixes for new higher clock resolution =============== Diff against Sake-Scheduler-kph.10 =============== Item was changed: ----- Method: Scheduler>>do:every: (in category 'scheduling') ----- do: aBlock every: aDuration + ^ self addTask: (ScheduledTask do: aBlock every: aDuration)! - self addTask: (ScheduledTask do: aBlock every: aDuration)! Item was changed: ----- Method: Scheduler>>do:at: (in category 'scheduling') ----- do: aBlock at: when + ^ self addTask: (ScheduledTask do: aBlock at: when)! - self addTask: (ScheduledTask do: aBlock at: when)! Item was changed: ----- Method: ScheduledTask class>>unload (in category 'as yet unclassified') ----- unload + self stop! - self scheduler removeTasksOfClass: self! Item was changed: ----- Method: Scheduler>>do:following: (in category 'scheduling') ----- do: aBlock following: aSchedule + ^ self addTask: (ScheduledTask do: aBlock following: aSchedule)! - self addTask: (ScheduledTask do: aBlock following: aSchedule)! Item was changed: ----- Method: SchedulerTest>>testRunOnceInPastRunsOnce (in category 'as yet unclassified') ----- testRunOnceInPastRunsOnce | message | + scheduler do: [message := 'task ran'] onceAt: (DateAndTime now - 1 second). - scheduler doOnce: [message _ 'task ran'] at: (DateAndTime now - 1 second). 1 second asDelay wait. self should: [message = 'task ran']. self should: [scheduler taskCount = 0]! Item was changed: ----- Method: SchedulerTest>>testNewTaskScheduledToRunEarlierInDayGetsRescheduledLaterInDay (in category 'as yet unclassified') ----- testNewTaskScheduledToRunEarlierInDayGetsRescheduledLaterInDay | message when task | when _ (DateAndTime now - 1 minute) asTime. task _ scheduler do: [message _ 'task ran'] at: when. 1.1 seconds asDelay wait. self should: [message isNil]. self should: [scheduler taskCount = 1]. + self should: [task nextRunTime asSeconds = + (DateAndTime date: (Date today addDays: 1) time: when) asSeconds]! - self should: [task nextRunTime = (DateAndTime date: (Date today addDays: 1) time: when)]! Item was changed: ----- Method: Scheduler>>do:onceAt: (in category 'scheduling') ----- do: aBlock onceAt: when + ^ self addTask: (ScheduledTask do: aBlock onceAt: when )! - self addTask: (ScheduledTask do: aBlock onceAt: when )! Item was changed: ----- Method: SchedulerTest>>testRunOnlyOnceWithOnlyTimeSpecified (in category 'as yet unclassified') ----- testRunOnlyOnceWithOnlyTimeSpecified | runCount | runCount _ 0. + scheduler do: [runCount _ runCount + 1] onceAt: ((DateAndTime now + 1 seconds) asTime). - scheduler doOnce: [runCount _ runCount + 1] at: ((DateAndTime now + 1 seconds) asTime). 1.1 seconds asDelay wait. self should: [runCount = 1]. self should: [scheduler taskCount = 0]! Item was changed: ----- Method: SchedulerTest>>testRunOnlyOnceWithFullyQualifiedDateAndTime (in category 'as yet unclassified') ----- testRunOnlyOnceWithFullyQualifiedDateAndTime | runCount | runCount _ 0. + scheduler do: [runCount := runCount + 1] onceAt: (DateAndTime now + 1 seconds). - scheduler doOnce: [runCount _ runCount + 1] at: (DateAndTime now + 1 seconds). 1.1 seconds asDelay wait. self should: [runCount = 1]. self should: [scheduler taskCount = 0]! Item was added: + ----- Method: ScheduledTask class>>do:onceAt: (in category 'as yet unclassified') ----- + do: aBlock onceAt: when + + ^ self do: aBlock at: when every: Duration zero! Item was added: + ----- Method: ScheduledTask class>>stop (in category 'as yet unclassified') ----- + stop + + self scheduler removeTasksOfClass: self! Item was changed: Object subclass: #ScheduledTask instanceVariableNames: 'description scheduler task runHistory workerProcess schedule nextRunTime' classVariableNames: '' poolDictionaries: '' category: 'Sake-Scheduler'! + + !ScheduledTask commentStamp: 'kph 3/28/2009 17:04' prior: 0! + If your task is to be run automatically on load or startUp, override #initialize (class side). + Otherwise name the method #start. + #stop/#unload are synomonous. + ! Item was changed: ----- Method: SchedulerTest>>testRunDailyTask (in category 'as yet unclassified') ----- testRunDailyTask | message when task | + when := (DateAndTime now + 1 second) asTime. - when _ (DateAndTime now + 1 second) asTime. + task := scheduler do: [message := 'task ran'] at: when. - task _ scheduler do: [message _ 'task ran'] at: when. 1.1 seconds asDelay wait. self should: [message = 'task ran']. self should: [scheduler taskCount = 1]. + self should: [task nextRunTime asSeconds = + (DateAndTime date: (Date today addDays: 1) time: when) asSeconds + ]! - self should: [task nextRunTime = (DateAndTime date: (Date today addDays: 1) time: when)]! Item was changed: ----- Method: SchedulerTest>>testRunInASecond (in category 'as yet unclassified') ----- testRunInASecond | ranWhen now | now _ DateAndTime now. scheduler do: [ranWhen _ DateAndTime now] at: (now + 1 seconds). 1.1 seconds asDelay wait. + self should: [ranWhen asSeconds = (now asSeconds + 1)]! - self should: [ranWhen = (now + 1 seconds)]! Item was changed: ----- Method: Scheduler>>do:at:every: (in category 'scheduling') ----- do: aBlock at: when every: aDuration + ^ self addTask: (ScheduledTask do: aBlock at: when every: aDuration)! - self addTask: (ScheduledTask do: aBlock at: when every: aDuration)! Item was removed: - ----- Method: ScheduledTask class>>doOnce:at: (in category 'as yet unclassified') ----- - doOnce: aBlock at: when - - ^ self do: aBlock at: when every: Duration zero!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2009