Packages November 2008

packages@lists.squeakfoundation.org

2 participants
66 discussions

SystemEditor: SystemEditor-Tests-mtf.156.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 30 Nov '08

30 Nov '08

A new version of SystemEditor-Tests was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Tests-mtf.156.mcz ==================== Summary ==================== Name: SystemEditor-Tests-mtf.156 Author: mtf Time: 29 November 2008, 8:39:43 pm UUID: 6fb1ec0f-ba86-45b2-877a-3c1a401306a8 Ancestors: SystemEditor-Tests-mtf.155 added andreas's instance cleanup test =============== Diff against SystemEditor-Tests-mtf.155 =============== Item was added: + ----- Method: SystemEditorCommitTest>>testCleanupOfOldInstances (in category 'tests') ----- + testCleanupOfOldInstances + "Ensure that old instance are cleaned up properly" + | instance ed | + instance := CleanupTestClass new. + Smalltalk garbageCollect. "for easier results make it old" + + self assert: CleanupTestClass instanceCount = 1. + + ed := SystemEditor new. + (ed at: #CleanupTestClass) addInstVarName: #whatever. + ed commit. + + self assert: CleanupTestClass instanceCount = 1. + + ed := SystemEditor new. + (ed at: #CleanupTestClass) removeInstVarName: #whatever. + ed commit. + + self assert: CleanupTestClass instanceCount = 1. + ! Item was added: + Object subclass: #CleanupTestClass + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'SystemEditor-Tests'!

1 0

SystemEditor: SystemEditor-Squeak-mtf.162.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 30 Nov '08

30 Nov '08

A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-mtf.162.mcz ==================== Summary ==================== Name: SystemEditor-Squeak-mtf.162 Author: mtf Time: 29 November 2008, 8:32:07 pm UUID: bc5710b2-3861-4b3d-a681-09261847fb3c Ancestors: SystemEditor-Squeak-mtf.161 added a garbage collect to the end of commit, by the suggestion of Andreas Raab =============== Diff against SystemEditor-Squeak-mtf.161 =============== Item was changed: ----- Method: SystemEditor>>commit (in category 'building') ----- commit | migration export | showProgress ifNil: [showProgress := false]. self validate. self edExpandEditors. migration := MigrationTransaction new. self edPrepareMigration: migration. export := ClassExporter on: subject. self edPrepareExport: export. showProgress ifTrue: [(1 to: 2) do: [:ea | ] displayingProgress: 'Committing...']. [migration commit. export commit. self edPostLoad. self edCommitRemovals. + self edRecategorize. + Smalltalk garbageCollect. + "See ClassBuilder>>update:to: for an explanation of why the garbageCollect is necessary" + ] valueUnpreemptively. - self edRecategorize.] valueUnpreemptively. ^ true!

1 0

Rio: File-Base-kph.7.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Nov '08

28 Nov '08

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.7.mcz ==================== Summary ==================== Name: File-Base-kph.7 Author: kph Time: 28 November 2008, 5:04:17 pm UUID: 0d46d871-3e58-477c-bd55-bb05e3f3fea2 Ancestors: File-Base-kph.6 + ifExistsDo: =============== Diff against File-Base-kph.6 =============== Item was added: + ----- Method: Directory>>ifExistsDo: (in category 'directory/container actions') ----- + ifExistsDo: aBlock + + ^ self ifDirectoryDo: aBlock! Item was added: + ----- Method: File>>ifExistsDo: (in category 'testing') ----- + ifExistsDo: aBlock + + ^ self ifFileDo: aBlock!

1 0

Packages: Sake-Packages-kph.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Nov '08

28 Nov '08

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.1.mcz ==================== Summary ==================== Name: Sake-Packages-kph.1 Author: kph Time: 28 November 2008, 4:37:15 pm UUID: 511bb9e4-898a-433f-8084-2664dab63e28 Ancestors: . ==================== Snapshot ==================== SystemOrganization addCategory: #'Sake-Packages'! SakeTask subclass: #Packages instanceVariableNames: 'unloadBlock unloadPriors provides name version isUnload' classVariableNames: 'Provided' poolDictionaries: '' category: 'Sake-Packages'! Packages class instanceVariableNames: 'lastUpdate theUUniverse'! !Packages commentStamp: 'kph 9/4/2008 15:29' prior: 0! To generate all of the methods based upon universes definitions: Packages taskGenerateAllUniverses run. or Packages taskGenerateAll run. Sake/Packages usage: Public API ============ Package definition for your current version of Squeak are found using the following path. For SystemVersion Squeak3.7 Packages findPath -> {PackagesSqueak37 . PackagesDev . PackagesBeta} *the default is #current Packages current findPath -> {PackagesSqueak37 . PackagesDev . PackagesBeta} Packages dev findPath {PackagesDev. PackagesSqueak37 . PackagesBeta} Packages beta findPath {PackagesBeta . PackagesSqueak37 . PackagesDev} Packages current load: 'Seaside'. Packages beta named: 'Seaside'. or (Packages current named: 'Seaside') run. " or runQuietly, runStepping, runLogging" (Packages beta named: 'Seaside') run. multiples: Packages current load: #('Seaside' 'Magma' 'Logging') Run-variants ========= #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. 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') unload 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. ! ----- Method: Packages class>>UUniverse (in category 'public') ----- UUniverse ^ Smalltalk classNamed: 'UUniverse' ! ----- Method: Packages class>>allPackagesDo: (in category 'public') ----- allPackagesDo: aBlock ^ (self allSelectorsBelow: Packages) collect: [ :ea | aBlock value: (self named: ea) ]! ----- Method: Packages class>>asSelector: (in category 'utils') ----- asSelector: aName | toUse | toUse := ''. aName do: [:char | char isAlphaNumeric ifTrue: [toUse := toUse copyWith: char]]. (aName size == 0 or: [aName first isLetter not]) ifTrue: [toUse := 'v', toUse]. ^ toUse asSymbol ! ----- Method: Packages class>>basicNamed: (in category 'private') ----- basicNamed: packageName ^ self basicNew perform: (self asSelector: packageName); initialize; yourself! ----- Method: Packages class>>beta (in category 'public') ----- beta ^ PackagesBeta! ----- Method: Packages class>>current (in category 'public') ----- current ^ (Smalltalk classNamed: ('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized) asSymbol) ifNil: [ Packages ] ! ----- Method: Packages class>>dev (in category 'public') ----- dev ^ PackagesDev! ----- Method: Packages class>>findNamed: (in category 'private') ----- findNamed: packageName | sel | sel := self asSelector: packageName. ^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ self error: 'not found' ]) basicNamed: packageName! ----- Method: Packages class>>findPath (in category 'private') ----- findPath ^ { self dev. self current. self beta. }! ----- Method: Packages class>>freeSomeSpace (in category 'as yet unclassified') ----- freeSomeSpace self initialize! ----- Method: Packages class>>initialize (in category 'initialization') ----- initialize lastUpdate := nil.! ----- Method: Packages class>>isUniverse (in category 'testing') ----- isUniverse ^ self class includesSelector: #universeSelector ! ----- Method: Packages class>>lastUpdate (in category 'accessors') ----- lastUpdate ^ lastUpdate ifNil: [ lastUpdate := DateAndTime now ] ! ----- Method: Packages class>>launchFrom: (in category 'launcher') ----- launchFrom: launcher ^self launchWith: launcher getParameters! ----- Method: Packages class>>launchWith: (in category 'launcher') ----- launchWith: params | packagesClass task | packagesClass := self current. params at: 'B' ifPresent: [ :v | params at: 'BETA' put: v ]. params at: 'U' ifPresent: [ :v | params at: 'UNLOAD' put: v ]. params at: 'L' ifPresent: [ :v | params at: 'LOAD' put: v ]. params at: 'BETA' ifPresent: [ :v | v ifTrue: [ packagesClass := self beta ]. ]. params at: 'LOAD' ifPresent: [ :v | task := packagesClass collection: (v findTokens: ';') ]. params at: 'UNLOAD' ifPresent: [ :v | task := SakeTask collection: ((v findTokens: ';') collect: [ :ea | (self named: ea) unload ]) ]. task launch: params. ^ true! ----- Method: Packages class>>load: (in category 'public') ----- load: aNameOrList ^ (self named: aNameOrList) run! ----- Method: Packages class>>named: (in category 'public') ----- named: packageNameOrList packageNameOrList isString ifTrue: [ ^ self findNamed: packageNameOrList ]. ^ (packageNameOrList collect: [ :ea | self findNamed: packageNameOrList ]) asTask! ----- Method: Packages class>>provided (in category 'accessors') ----- provided ^ Provided ifNil: [ Provided := Dictionary new ]! ----- Method: Packages class>>providedAt: (in category 'public') ----- providedAt: aName ^ self provided at: aName! ----- Method: Packages class>>squeakmap (in category 'public') ----- squeakmap ^ Smalltalk classNamed: #PackagesSqueakMap! ----- Method: Packages class>>string: (in category 'public') ----- string: aPackageName ^ self named: aPackageName! ----- Method: Packages class>>taskGenerateAll (in category 'tasks - universes') ----- taskGenerateAll ^ SakeTask define: [ :task | task dependsOn: { self taskGenerateAllUniverses }. task if: [ self squeakmap notNil ]. task action: { self squeakmap taskGenerateSqueakMapPackageTasks } ] ! ----- Method: Packages class>>taskGenerateAllUniverses (in category 'tasks - universes') ----- taskGenerateAllUniverses " self taskGenerateAllUniverses run. " ^ SakeTask define: [ :task | task if: { (SakeTask class: 'UUniverse') exists }. task action: (Packages allSubclasses select: [ :each | each initialize isUniverse ] thenCollect: [ :sc | sc taskGenerateUniversePackageTasks ]). ] ! ----- Method: Packages class>>taskGenerateUniversePackageTasks (in category 'tasks - universes') ----- taskGenerateUniversePackageTasks | source selector | ^ SakeTask define: [ :task | task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. self taskRemoveOldPackages. }. task action: [ (self theUUniverse packageNames collect: [ :each | self theUUniverse newestPackageNamed: each ]) do: [ :each | source := (WriteStream on: String new). source << (selector := self asSelector: each name). source cr; cr. source << ' self name: ' << each name printString << '.' ; cr. source << ' self version: ''' << each version << '''.' ; cr. source << ' info category: ''' << each category printString << '''.' ; cr. source << ' info description: ' ; cr. source << each description withSqueakLineEndings printString << '.' ; cr. source << ' info maintainer: ''' << each maintainer << '''.' ; cr. source << ' info homepage: ''' << (each homepage ifNil: ['']) asString << '''.' ; cr. source << ' info squeakMapID: ''' << (each squeakMapID ifNil: ['']) asString << '''.' ; cr. source << ' info url: ' << (each url ifNotNil: [ '''' , each url printString , '''' ] ifNil: [ 'nil' ]) << '.' ; cr. source << ' self provides: ' << each provides asArray printString << '.' ; cr ; cr. source << ' self dependsOn: ' << each depends asSortedCollection asArray printString << '.' ; cr ; cr. (self sourceCodeAt: selector ifAbsent: nil) ~= source contents ifTrue: [ self compile: source contents classified: each category printString notifying: nil ] ]. theUUniverse := nil. ]. ]! ----- Method: Packages class>>taskRemoveOldPackages (in category 'tasks - universes') ----- taskRemoveOldPackages ^ SakeTask define: [ :task | task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. }. task action: [ (self selectors difference: (self theUUniverse packageNames collect: [ :each | self asSelector: each ])) do: [ :old | self removeSelector: old ] ]. ]! ----- Method: Packages class>>taskUpdateUniverse (in category 'tasks - universes') ----- taskUpdateUniverse ^ SakeTask define: [ :task | task dependsOn: { [ self isUniverse ] }. task if: [ theUUniverse isNil or: [ DateAndTime now - self lastUpdate > 10 minutes ] ]. task action: [ self theUUniverse updatePackagesViaWWW. lastUpdate := DateAndTime now ]. ]! ----- Method: Packages class>>taskValidate (in category 'tasks - universes') ----- taskValidate " self taskValidateAll run. " ^ SakeTask define: [ :task | task action: { self taskValidateCategories } ] ! ----- Method: Packages class>>taskValidateAll (in category 'tasks - universes') ----- taskValidateAll " self taskValidateAll run. " ^ SakeTask define: [ :task | task action: (Packages allSubclasses select: [ :each | each initialize isUniverse ] thenCollect: [ :sc | sc taskValidate ]). ] ! ----- Method: Packages class>>taskValidateCategories (in category 'tasks - universes') ----- taskValidateCategories ^ SakeTask define: [ :task | task action: [ self selectors do: [ :sel | self organization classify: sel under: (((self named: sel) info category) ifNil: [ 'as yet unclassified' ]) ]. self organization removeEmptyCategories. ] ] ! ----- Method: Packages class>>theUUniverse (in category 'accessors') ----- theUUniverse ^ theUUniverse ifNil: [ theUUniverse := (Smalltalk classNamed: 'UUniverse') perform: self universeSelector asSymbol ]! ----- Method: Packages class>>universe (in category 'public') ----- universe ^ Smalltalk classNamed: (('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized), 'U') asSymbol ! ----- Method: Packages class>>unload: (in category 'public') ----- unload: aNameOrList aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) unload run]. ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) unload ]) asTask run ! ----- Method: Packages class>>unloadStepping: (in category 'public') ----- unloadStepping: aNameOrList aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) unload runStepping]. ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) unload ]) asTask runStepping ! ----- Method: Packages class>>upgrade (in category 'public') ----- upgrade self provided values asSet asTask run! ----- Method: Packages>>= (in category 'as yet unclassified') ----- = other ^ (super = other) and: [ self version = other version ] ! ----- Method: Packages>>action (in category 'as yet unclassified') ----- action ^ self isUnloading ifTrue: [ unloadBlock ifNil: [ [ self defaultUnloadAction ] ] ] ifFalse: [ super action ].! ----- Method: Packages>>allDependants (in category 'Packages-Core') ----- allDependants | list | list := OrderedCollection new. self provides in: [ :tgt | self class allPackagesDo: [ :package | package withAllPriorTasksIgnoringErrorsDo: [ :ea | (ea dependsOn includesAnyOf: tgt) ifTrue: [ (list includes: package) ifFalse: [ list add: package ] ]. ] ] ]. ^ list " String streamContents: [ :str | (Packages current named:'Seaside') allDependants do: [ :ea | str << ea info name << String cr << ea info description << String cr << '======='; cr ] ] "! ----- Method: Packages>>beUnloading (in category 'as yet unclassified') ----- beUnloading isUnload := true. hasRun := false.! ----- Method: Packages>>defaultAction (in category 'as yet unclassified') ----- defaultAction ^ [ self info url ifNotNilDo: [ :url | Installer installUrl: url ] ]! ----- Method: Packages>>defaultUnloadAction (in category 'as yet unclassified') ----- defaultUnloadAction self info url ifNotNil: [ Installer mc unload: self name ]! ----- Method: Packages>>dependants (in category 'as yet unclassified') ----- dependants ^ self class provided select: [ :dependant | dependant dependsOn includesAnyOf: self provides. ]. ! ----- Method: Packages>>dependsOn (in category 'as yet unclassified') ----- dependsOn self isUnloading ifFalse: [ ^ super dependsOn ]. unloadPriors ifNil: [ self unloadDependsOn: self loadedDependantsUnloadTasks ]. ^ unloadPriors! ----- Method: Packages>>doActionEnd (in category 'as yet unclassified') ----- doActionEnd self isUnloading ifTrue: [ ^ self ]. self class provided in: [ :reg | info := nil. self provides do: [ :each | reg at: each put: self ]. ]. ^ nil! ----- Method: Packages>>doActionStep (in category 'as yet unclassified') ----- doActionStep name ifNil: [ ^ self ]. self isUnloading ifTrue: [ self step: 'Confirm unload: ', self name printString ] ifFalse: [ self step: 'Confirm load: ', self name printString ]! ----- Method: Packages>>hash (in category 'as yet unclassified') ----- hash ^ super hash bitXor: self version hash! ----- Method: Packages>>isAlreadyProvided (in category 'as yet unclassified') ----- isAlreadyProvided (self version includes: '+') ifTrue: [ ^ false ]. ^ (self class provided at: self name ifAbsent: [ ^ false ]) version = self version ! ----- Method: Packages>>isNeeded (in category 'as yet unclassified') ----- isNeeded self isAlreadyProvided ifTrue: [ ^ false ]. ^ super isNeeded! ----- Method: Packages>>isUnloading (in category 'as yet unclassified') ----- isUnloading ^ isUnload = true! ----- Method: Packages>>load: (in category 'as yet unclassified') ----- load: aBlock self action: aBlock! ----- Method: Packages>>loadedDependants (in category 'as yet unclassified') ----- loadedDependants ^ self class provided select: [ :dependant | dependant dependsOn includesAnyOf: self provides. ]. ! ----- Method: Packages>>loadedDependantsUnloadTasks (in category 'as yet unclassified') ----- loadedDependantsUnloadTasks "if the task is the provided one, then we return the provided dependants." 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 ]) ] ].! ----- Method: Packages>>name (in category 'as yet unclassified') ----- name ^ name ifNil: [ 'No Name' ]! ----- Method: Packages>>name: (in category 'as yet unclassified') ----- name: aPackageName "the method which names us is our context" self setContext: thisContext sender. name := aPackageName. self info name: aPackageName.! ----- Method: Packages>>provides (in category 'as yet unclassified') ----- provides provides ifNil: [ provides := #() ]. (provides includes: self name) ifFalse: [ provides := provides copyWith: self name ]. ^ provides! ----- Method: Packages>>provides: (in category 'as yet unclassified') ----- provides: list provides := list. (list includes: self name) ifFalse: [ provides := provides copyWith: self name ]. ! ----- Method: Packages>>unload (in category 'as yet unclassified') ----- unload ^ self copy beUnloading ! ----- Method: Packages>>unload: (in category 'as yet unclassified') ----- unload: aBlock unloadBlock := aBlock! ----- Method: Packages>>unloadDependsOn: (in category 'as yet unclassified') ----- unloadDependsOn: aList unloadPriors := aList reject: [ :ea | ea isNil ] ! ----- Method: Packages>>version (in category 'as yet unclassified') ----- version ^ version! ----- Method: Packages>>version: (in category 'as yet unclassified') ----- version: aPackageVersion "the method which versions us is our context" self setContext: thisContext sender. self info version: aPackageVersion. version := aPackageVersion.!

1 0

Packages: Packages-Library-kph.2.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Nov '08

28 Nov '08

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.2.mcz ==================== Summary ==================== Name: Packages-Library-kph.2 Author: kph Time: 28 November 2008, 4:34:02 pm UUID: 95359c0b-9819-40ad-840c-68ddd5f9bcaa Ancestors: Packages-Library-kph.1 . =============== Diff against Packages-Library-kph.1 =============== Item was changed: ----- Method: PackagesDevU>>OmniBrowserStandard (in category 'Code Browsing') ----- OmniBrowserStandard self name: 'OmniBrowser-Standard'. + self version: '0.375'. - self version: '0.369'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Colin Putney'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.375.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.369.mcz'. self provides: #(). self dependsOn: #('OmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowser (in category 'Code Browsing') ----- OmniBrowser self name: 'OmniBrowser'. + self version: '0.432'. - self version: '0.426'. info category: 'Code Browsing'. info description: 'OmniBrowser is a ground up rewrite of the classical system browsers provided in Smalltalk. It''s designed to be flexible and extensible, so as to encourage experimentation with new types of development tools, language extensions, and runtime environments. In fact it''s a framework to build browsers. Install OmniBrowser-Standard to get the new browser using this framework.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: '81451b19-7df8-4fc7-8652-b26cc55dd291'. + info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.432.mcz'. - info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.426.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PolymorphEventEnhancements (in category 'User Interface') ----- PolymorphEventEnhancements self name: 'Polymorph EventEnhancements'. + self version: '1.1'. - self version: '1.0'. info category: 'User Interface'. info description: 'Basic extension to the event system providing for recurisve short-circuit event handling (avoiding re-entry). Along with the same for "shared" events.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-EventEnhancements-gvc.…'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-EventEnhancements-gvc.…'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Magma10server (in category 'Persistence') ----- Magma10server self name: 'Magma 1.0 server'. + self version: 'r41'. - self version: 'r40'. info category: 'Persistence'. info description: 'Client, Server and Tester components for the Magma object database. '. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: 'http://minnow.cc.gatech.edu/squeak/2665'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Magma/1.0r41.mcm'. - info url: 'http://www.squeaksource.com/Magma/Magma%201.0r40%20server%20configuration.m…'. self provides: #('Magma'). self dependsOn: #('MonticelloConfigurations'). ! Item was added: + ----- Method: PackagesDevU>>SystemEditorCore (in category 'Kernel') ----- + SystemEditorCore + + self name: 'SystemEditor-Core'. + self version: '1.155'. + info category: 'Kernel'. + info description: + 'SystemEditor from MC development effort, now supported by Monticello 1.6'. + info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. + info homepage: ''. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/SystemEditor/SystemEditor-Core.mtf.155.mcz'. + self provides: #('SystemEditor-Core'). + + self dependsOn: #(). + + ! Item was changed: ----- Method: PackagesDevU>>Monticello15 (in category 'Group Development') ----- Monticello15 self name: 'Monticello15'. + self version: '1.5+'. - self version: '1.5.477'. 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://installer.pbwiki.com/f/mc15.st'. + self provides: #('PackageInfo-Base' 'Monticello15' 'MonticelloConfigurations'). - info url: 'http://www.squeaksource.com/mc/Monticello-kph.477.mcz'. - self provides: #('Monticello15'). + self dependsOn: #(). - self dependsOn: #('Monticello15-Bootstrap' 'MonticelloConfigurations' 'PackageInfo-Base'). ! Item was added: + ----- Method: PackagesDevU>>SystemEditor (in category 'Kernel') ----- + SystemEditor + + self name: 'SystemEditor'. + self version: '1+'. + info category: 'Kernel'. + info description: + 'SystemEditor from MC development effort, now supported by Monticello 1.6 + + Traits support is alpha'. + info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. + info homepage: ''. + info squeakMapID: ''. + info url: nil. + self provides: #('SystemEditor'). + + self dependsOn: #('SystemEditor-Squeak'). + + ! Item was changed: ----- Method: PackagesDevU>>Pharopackages (in category 'Distributions') ----- Pharopackages self name: 'Pharo packages'. + self version: '0.8'. - self version: '0.7'. info category: 'Distributions'. info description: 'This package generates a Pharo image prepared for end-users from a Pharo core.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://code.google.com/p/pharo/'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-pharo-dam…'. - info url: 'http://www.squeaksource.com/ImageForDevelopers/ImageForDevelopers-pharo-dc.…'. self provides: #(). self dependsOn: #('Installer' 'OB-Enhancements' 'OmniBrowser-Refactory' 'OmniBrowser-Regex' 'Shout' 'ShoutWorkspace' 'Universes' 'Universes OmniBrowser' 'eCompletion' 'eCompletion-Traits' 'eCompletionOmniBrowser'). ! Item was added: + ----- Method: PackagesDevU>>FileTest (in category 'Model Extension') ----- + FileTest + + self name: 'File-Test'. + self version: '4'. + info category: 'Model Extension'. + info description: + 'File-Tests '. + info maintainer: 'keith_hodges(a)yahoo.co.uk'. + info homepage: 'http://wiki.squeak.org/squeak/5929'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Rio/File-Test-kph.4.mcz'. + self provides: #(). + + self dependsOn: #('File-Base'). + + ! Item was added: + ----- Method: PackagesDevU>>SystemEditorSqueak (in category 'Kernel') ----- + SystemEditorSqueak + + self name: 'SystemEditor-Squeak'. + self version: '1.159'. + info category: 'Kernel'. + info description: + 'SystemEditor from MC development effort, now supported by Monticello 1.6'. + info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. + info homepage: ''. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak.mtf.159.mcz'. + self provides: #('SystemEditor-Squeak'). + + self dependsOn: #('SystemEditor-Core'). + + ! Item was changed: ----- Method: PackagesDevU>>CommandShell (in category 'System') ----- CommandShell self name: 'CommandShell'. + self version: '4.3'. - self version: '4.2.3'. info category: 'System'. info description: 'CommandShell is a Smalltalk simulation of a Unix command shell, with a simple dumb terminal window in Morphic and MVC. It is useful for running programs without leaving Squeak, and for piping command output directly into Squeak. Can be loaded and run on any platform, but is most useful on Unix, Linux and Windows systems with OSProcess. On Windows, command pipelines are not yet implemented for external commands, but you can run Windows programs from the CommandShell "Squeak shell" as well as pipelines with internal shell commands. A simple script processing capability is also included. The ExternalCommandShell allows Squeak to be used directly as a Unix shell, similar to /bin/sh but with access to Smalltalk expressions and the Squeak object environment. To initiate external shell processing, evaluate "ExternalCommandShell start". The image can be saved and restarted with "squeak -headless myImage" to run it as a headless Squeak shell. See the class comments in ExternalCommandShell for more information.'. info maintainer: 'dtl'. info homepage: 'http://wiki.squeak.org/squeak/1914'. info squeakMapID: ''. + info url: 'http://wiki.squeak.org/squeak/uploads/1914/CommandShellV4-3.sar'. - info url: 'http://wiki.squeak.org/squeak/uploads/1914/CommandShellV4-2-3.sar'. self provides: #(). self dependsOn: #('OSProcess'). ! Item was changed: ----- Method: PackagesDevU>>OSProcess (in category 'System') ----- OSProcess self name: 'OSProcess'. + self version: 'V4-3-7'. - self version: 'V4-3-6'. info category: 'System'. info description: 'OSProcess provides access to the external operating system from Squeak. Plugins are provided for Unix, Linux, and Windows systems (loaded separately from SqueakMap packages). OSProcess can be loaded on other platforms as well, and placeholder classes are provided in the OSProcess hierarchy for other operating systems (Mac, OS/2, RiscOS), although support for these systems is not yet implemented. Load CommandShell for additional OSProcess functions, including class PipeableOSProcess, which allows reading from and writing to external processes through OS pipe streams.'. info maintainer: 'lewis'. info homepage: 'http://wiki.squeak.org/squeak/708'. info squeakMapID: ''. + info url: 'http://wiki.squeak.org/squeak/uploads/708/OSProcessV4-3-7.sar'. - info url: 'http://wiki.squeak.org/squeak/uploads/708/OSProcessV4-3-6.sar'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PolymorphWidgets (in category 'User Interface') ----- PolymorphWidgets self name: 'Polymorph Widgets'. + self version: '1.1'. - self version: '1.0'. info category: 'User Interface'. info description: 'Modifies Morphic to provide for selectable theming of controls and provides a framework and extra Morphs for creating consistent user interfaces. Improves both look and feel. Fixes a few problems too (corner grips, window titlebar sizing wrt fonts...). Noteable changes since last release: + Integration with menus.'. - UI Enhancements has now been renamed to Polymorph.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Widgets-gvc.19.mcz'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Widgets-gvc.2.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PolymorphToolsDiff (in category 'User Interface') ----- PolymorphToolsDiff self name: 'Polymorph Tools Diff'. + self version: '1.1'. - self version: '1.0'. info category: 'User Interface'. info description: 'Provides side-by-side code comaprison with cross-links indicating changes between lines of text. Highlight "intra-line" changes also. Integrated with "compare with current version" of standard versions browser. Integrated with Monticello replacing changes and merge browsers.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Tools-Diff-gvc.3.mcz'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Tools-Diff-gvc.2.mcz'. self provides: #(). self dependsOn: #('Polymorph EventEnhancements' 'Polymorph Geometry' 'Polymorph Widgets'). ! Item was changed: ----- Method: PackagesDevU>>PolymorphToolBuilder (in category 'User Interface') ----- PolymorphToolBuilder self name: 'Polymorph ToolBuilder'. + self version: '1.1'. - self version: '1.0'. info category: 'User Interface'. info description: 'Integrates Polymorph widgets with Squeak''s development environment via UIManager.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-ToolBuilder-gvc.3.mcz'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-ToolBuilder-gvc.1.mcz'. self provides: #(). self dependsOn: #('Polymorph Widgets'). ! Item was added: + ----- Method: PackagesDevU>>FileBase (in category 'Model Extension') ----- + FileBase + + self name: 'File-Base'. + self version: '6'. + info category: 'Model Extension'. + info description: + 'A file IO interface inspired by http://rio.rubyforge.org , potentially replaces FileDirectory/FileMan. + + Transparently supports archives and ftp filesystems'. + info maintainer: 'keith_hodges(a)yahoo.co.uk'. + info homepage: 'http://wiki.squeak.org/squeak/5929'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Rio/File-Base-kph.6.mcz'. + self provides: #(). + + self dependsOn: #('File-Kernel'). + + ! Item was changed: ----- Method: PackagesDevU>>OBEnhancements (in category 'Code Browsing') ----- OBEnhancements self name: 'OB-Enhancements'. + self version: '0.258'. - self version: '0.247'. info category: 'Code Browsing'. info description: 'OB-Enhancements extend the OmniBrowser framework with new features such as multiple selection of elements in columns, a package-based view on the image instead of using just class categories, or smart groups to categorize source artifacts. This package requires the latest version of the OmniBrowser framework.'. info maintainer: 'David Röthlisberger'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.258.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.247.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>Rio (in category 'Model Extension') ----- Rio self name: 'Rio'. + self version: '4'. - self version: '0.81.35'. info category: 'Model Extension'. info description: + 'A file IO interface inspired by http://rio.rubyforge.org , potentially replaces FileDirectory/FileMan. - 'A file IO interface inspired by http://rio.rubyforge.org , potentially replaces FileDirectory. + Transparently supports archives and ftp filesystems'. + info maintainer: 'keith_hodges(a)yahoo.co.uk'. - This is the full distribution of Rio.'. - info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://wiki.squeak.org/squeak/5929'. info squeakMapID: ''. + info url: nil. - info url: 'http://www.squeaksource.com/Rio/Rio-Grande-kph.35.mcz'. self provides: #(). + self dependsOn: #('File-Test'). - self dependsOn: #('Rio-Kernel'). ! Item was added: + ----- Method: PackagesDevU>>FileKernel (in category 'Model Extension') ----- + FileKernel + + self name: 'File-Kernel'. + self version: '6'. + info category: 'Model Extension'. + info description: + 'A file IO interface inspired by http://rio.rubyforge.org , potentially replaces FileDirectory. + + This package contains only the kernel of Rio. See the package File-Base to get the full distribution.'. + info maintainer: 'keith_hodges(a)yahoo.co.uk'. + info homepage: 'http://wiki.squeak.org/squeak/5929'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Rio/File-Kernel-kph.6.mcz'. + self provides: #(). + + self dependsOn: #(). + + ! Item was added: + ----- Method: PackagesDevU>>Monticello16 (in category 'Group Development') ----- + Monticello16 + + self name: 'Monticello16'. + self version: '1.6+'. + info category: 'Group Development'. + info description: + 'Monticello - evolution - Improvements over 1.5 + + Monticello on speed!! + + + '. + info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. + info homepage: ''. + info squeakMapID: ''. + info url: 'http://installer.pbwiki.com/f/enableAtomicLoading.st'. + self provides: #(). + + self dependsOn: #('Monticello15' 'SystemEditor'). + + ! Item was added: + ----- Method: PackagesDevU>>Magma141 (in category 'Persistence') ----- + Magma141 + + self name: 'Magma 1.41'. + self version: 'r41.1'. + info category: 'Persistence'. + info description: + 'Client, Server and Tester components for the Magma object database. + '. + info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. + info homepage: 'http://minnow.cc.gatech.edu/squeak/2665'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Magma/r41.1.mcm'. + self provides: #('Magma'). + + self dependsOn: #('Monticello15'). + + ! Item was removed: - ----- Method: PackagesDevU>>PackageInfoBase (in category 'Group Development') ----- - PackageInfoBase - - self name: 'PackageInfo-Base'. - self version: '27'. - info category: 'Group Development'. - info description: - 'PackageInfo updated for pre-ambles/postcripts'. - info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. - info homepage: ''. - info squeakMapID: ''. - info url: 'http://www.squeaksource.com/mc/PackageInfo-Base-kph.27.mcz'. - self provides: #('PackageInfo-Base'). - - self dependsOn: #(). - - ! Item was removed: - ----- Method: PackagesDevU>>MagmaTesterbeta (in category 'Persistence') ----- - MagmaTesterbeta - - self name: 'Magma Tester-beta'. - self version: 'r40Beta.3'. - info category: 'Persistence'. - info description: - 'Client, Server and Tester components for the Magma object database. - '. - info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. - info homepage: 'http://minnow.cc.gatech.edu/squeak/2665'. - info squeakMapID: ''. - info url: 'http://www.squeaksource.com/MagmaTester/r40Beta3.mcm'. - self provides: #('Magma'). - - self dependsOn: #('MonticelloConfigurations'). - - ! Item was removed: - ----- Method: PackagesDevU>>Monticello15Bootstrap (in category 'Group Development') ----- - Monticello15Bootstrap - - self name: 'Monticello15-Bootstrap'. - self version: '1.5.477'. - info category: 'Group Development'. - info description: - 'Squeak 3.10''s version of Monticello is unable to load Monticello 1.5 - - This is the fileout version which can be be used as a first load.'. - info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. - info homepage: ''. - info squeakMapID: ''. - info url: 'http://installer.pbwiki.com/f/Monticello-kph-477.st'. - self provides: #('Monticello15-Bootstrap'). - - self dependsOn: #('PackageInfo-Base'). - - ! Item was removed: - ----- Method: PackagesDevU>>Magma10tester (in category 'Persistence') ----- - Magma10tester - - self name: 'Magma 1.0 tester'. - self version: 'r40'. - info category: 'Persistence'. - info description: - 'Client, Server and Tester components for the Magma object database. - '. - info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. - info homepage: 'http://minnow.cc.gatech.edu/squeak/2665'. - info squeakMapID: ''. - info url: 'http://www.squeaksource.com/Magma/Magma%20tester%201.0r40%20tester%20config…'. - self provides: #('Magma'). - - self dependsOn: #('MonticelloConfigurations'). - - !

1 0

SystemEditor: SystemEditor-Squeak-mtf.161.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 27 Nov '08

27 Nov '08

A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-mtf.161.mcz ==================== Summary ==================== Name: SystemEditor-Squeak-mtf.161 Author: mtf Time: 26 November 2008, 6:53:26 pm UUID: ac9afcde-696d-4f4f-b6dc-41f1a185a49d Ancestors: SystemEditor-Squeak-mtf.160 methods weren't being recompiled when the superclass demanded it. This was broken in my recent expandEditors refactor =============== Diff against SystemEditor-Squeak-mtf.160 =============== Item was changed: ----- Method: ClassEditor>>edRequiresBuild (in category 'building') ----- edRequiresBuild self edRequiresRecompile ifTrue: [^ true]. - self edSuperclassHasChanged ifTrue: [^ true]. self edNameHasChanged ifTrue: [^ true]. self class edRequiresBuild ifTrue: [^ true]. self decoratorsDo: [:ea | ea edRequiresBuild ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: ClassDescriptionEditor>>edRequiresRecompile (in category 'building') ----- edRequiresRecompile instVarNames ifNotNil: [^ true]. + self edSuperclassHasChanged ifTrue: [^ true]. self decoratorsDo: [:ea | ea edRequiresRecompile ifTrue: [^ true]]. ^ false! Item was added: + ----- Method: ClassDescriptionEditor>>edSuperclassHasChanged (in category 'building') ----- + edSuperclassHasChanged + ^ superEditor ~~ nil! Item was removed: - ----- Method: ClassEditor>>edSuperclassHasChanged (in category 'building') ----- - edSuperclassHasChanged - ^ superEditor ~~ nil!

1 0

SystemEditor: SystemEditor-Squeak-mtf.160.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Nov '08

26 Nov '08

A new version of SystemEditor-Squeak was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Squeak-mtf.160.mcz ==================== Summary ==================== Name: SystemEditor-Squeak-mtf.160 Author: mtf Time: 26 November 2008, 4:04:25 pm UUID: dffd68d7-7612-40f1-903e-7b5846fa620a Ancestors: SystemEditor-Squeak-mtf.159 made building work in debug mode, and made debug mode the default =============== Diff against SystemEditor-Squeak-mtf.159 =============== Item was added: + ----- Method: Behavior>>edAllInstVarNames (in category '*systemeditor-squeak') ----- + edAllInstVarNames + ^ self allInstVarNames! Item was added: + ----- Method: RootMetaclassEditor>>edAllInstVarNames (in category 'accessing') ----- + edAllInstVarNames + ^ #()! Item was changed: + ----- Method: SystemEditor>>debug (in category 'debugging') ----- - ----- Method: SystemEditor>>debug (in category 'accessing') ----- debug "see MetaclassEditor>>isDebuggingAsEditor" + ^ debug ifNil: [true]! - ^ debug ifNil: [false]! Item was added: + ----- Method: ClassDescriptionEditor>>edAllInstVarNames (in category 'accessing') ----- + edAllInstVarNames + ^ self superclassOrEditor edAllInstVarNames , self edInstVarNames! Item was changed: ----- Method: ClassDescriptionEditor>>instVarNames (in category 'editing') ----- instVarNames + ^ self edInstVarNames! - ^ instVarNames ifNil: [self subject instVarNames]! Item was changed: AbstractEditor subclass: #PureBehaviorEditor + instanceVariableNames: 'superclass methodDict format subject product system methods organization properties decorators compilerClass' - instanceVariableNames: 'superclass methodDict format subject product system methods organization properties decorators' classVariableNames: 'ReservedNames' poolDictionaries: '' category: 'SystemEditor-Squeak'! Item was changed: ----- Method: ClassDescriptionEditor>>instSize (in category 'reflecting') ----- instSize + ^ self edInstSize! - ^ self instVarNames size + self superclassOrEditor instSize! Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild + | class | - | result class | class := self subject ifNil: [Metaclass] ifNotNil: [self subject class]. + product := class basicNew. - result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" + product - result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization edBuild. + product setInstVarNames: self edInstVarNames. - result setInstVarNames: self instVarNames. self decoratorsDo: [:ea | ea edBuildInto: product]. + ^ product! - ^ result! Item was added: + ----- Method: Behavior>>edInstSize (in category '*systemeditor-squeak') ----- + edInstSize + ^ self instSize! Item was added: + ----- Method: RootClassEditor>>edInstSize (in category 'accessing') ----- + edInstSize + ^ 0! Item was added: + ----- Method: RootClassEditor>>edAllInstVarNames (in category 'accessing') ----- + edAllInstVarNames + ^ #()! Item was added: + ----- Method: Behavior>>edInstVarNames (in category '*systemeditor-squeak') ----- + edInstVarNames + ^ self instVarNames! Item was added: + ----- Method: ClassDescriptionEditor>>edInstSize (in category 'accessing') ----- + edInstSize + ^ self edInstVarNames size + self superclassOrEditor edInstSize! Item was changed: ClassDescriptionEditor subclass: #ClassEditor + instanceVariableNames: 'name classVarNames sharedPools category' - instanceVariableNames: 'name classVarNames sharedPools category compilerClass' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Squeak'! Item was added: + ----- Method: ClassDescriptionEditor>>edInstVarNames (in category 'accessing') ----- + edInstVarNames + ^ instVarNames ifNil: [self subject instVarNames]! Item was added: + ----- Method: ClassDescriptionEditor>>edSuperFormat (in category 'building') ----- + edSuperFormat + ^ self superclassOrEditor + ifNotNilDo: [ :ed | ClassFormat fromBits: ed format ] + ifNil: [ ClassFormat named ]! Item was changed: ----- Method: ClassEditor>>ensuredCompilerClass (in category 'accessing') ----- ensuredCompilerClass "Answer my product's compilerClass, building it if necessary" | methodEditor method | + super ensuredCompilerClass ifNotNil: [^ compilerClass]. - compilerClass ifNotNil: [^ compilerClass]. + "If we get here, this package is using a compiler that does not yet exist in the system. + Compile and run the #compilerClass method it in the context of the system editor. + Due to how ClassEditor implements #bindingOf:, this will answer the editor for the right compiler" - "Normal case: the compiler is already in the system. Check to see if I have a newer version" - self product compilerClass ifNotNil: [ - compilerClass := self system classOrEditorFor: self product compilerClass. - compilerClass edIsEditor ifTrue: [compilerClass := compilerClass product]. - ^ compilerClass]. - - "If we get here, this package is presumably using a compiler that does not yet exist in the system. - Evil evil hackery. Get the method editor, compile it in the context of the system editor, - and run it to find the editor for the new compiler" methodEditor := self class edUltimateMethodAt: #compilerClass. method := methodEditor compileForClass: self using: Compiler new. compilerClass := (self new executeMethod: method) product. compilerClass ifNil: [self error: 'Unknown compiler']. ^ compilerClass! Item was changed: ----- Method: ClassDescriptionEditor>>instanceVariablesString (in category 'reflecting') ----- instanceVariablesString ^ String streamContents: [:stream | + self edInstVarNames - self allInstVarNames do: [:ea | stream nextPutAll: ea] separatedBy: [stream nextPut: $ ]]! Item was changed: ----- Method: ClassDescriptionEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames + ^ self edAllInstVarNames! - ^ self superclassOrEditor allInstVarNames , self instVarNames! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; + setInstVarNames: self edInstVarNames; - setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization edBuild. "category and environment are not set here. category will be lazily computed sometime after SystemEditor >> edRecatogorize runs. (see Class >> category) environment can be left nil, since it has a default value" "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" product methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea edBuildInto: product]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods. Class methods should be compiled after installing class and pool variables" product class methodDictionary: (self class methods buildFor: self class). product methodDictionary: (self methods buildFor: self). ^product! Item was changed: ----- Method: ClassDescriptionEditor>>edClassFormat (in category 'building') ----- edClassFormat ^ ClassFormat + size: self edInstSize - size: self instSize type: self typeOfClass index: self indexIfCompact! Item was changed: ----- Method: ClassDescriptionEditor>>validateInstVarNames (in category 'validating') ----- validateInstVarNames + self edInstVarNames do: - self instVarNames do: [ :ea | (ReservedNames includes: ea) ifTrue: [ IllegalVariableName signal ]. + (self superclassOrEditor edAllInstVarNames includes: ea) ifTrue: [ IllegalVariableName signal ]. + self subclassesOrEditors do: [ :class | (class edInstVarNames includes: ea) ifTrue: [ IllegalVariableName signal ] ] ]! - (self superclassOrEditor allInstVarNames includes: ea) ifTrue: [ IllegalVariableName signal ]. - self subclassesOrEditors do: [ :class | (class instVarNames includes: ea) ifTrue: [ IllegalVariableName signal ] ] ]! Item was added: + ----- Method: RootMetaclassEditor>>edInstSize (in category 'accessing') ----- + edInstSize + ^ 0! Item was changed: ----- Method: PureBehaviorEditor>>ensuredCompilerClass (in category 'accessing') ----- ensuredCompilerClass "Answer the compiler for my methods, building it if necessary" + compilerClass ifNotNil: [^ compilerClass]. + + "Check to see if I have a newer version of the compiler" + self product compilerClass ifNotNil: [ + compilerClass := self system classOrEditorFor: self product compilerClass. + compilerClass edIsEditor ifTrue: [compilerClass := compilerClass product]]. + ^ compilerClass! - ^ self product compilerClass! Item was removed: - ----- Method: RootClassEditor>>instSize (in category 'reflecting') ----- - instSize - ^ 0! Item was removed: - ----- Method: RootMetaclassEditor>>instSize (in category 'reflecting') ----- - instSize - ^ 0! Item was removed: - ----- Method: RootMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - ^ #()! Item was removed: - ----- Method: ClassEditor>>edSuperFormat (in category 'building') ----- - edSuperFormat - ^ self superclassOrEditor - ifNotNilDo: [ :ed | ClassFormat fromBits: ed format ] - ifNil: [ ClassFormat named ]! Item was removed: - ----- Method: RootClassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - ^ #()!

1 0

SystemEditor: SystemEditor-Core-mtf.156.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Nov '08

26 Nov '08

A new version of SystemEditor-Core was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-Core-mtf.156.mcz ==================== Summary ==================== Name: SystemEditor-Core-mtf.156 Author: mtf Time: 26 November 2008, 8:01:33 am UUID: 9d3f446a-011c-4103-89bc-4d75de5453a8 Ancestors: SystemEditor-Core-mtf.155 use allInstancesDo: rather than allInstances do: to cut memory usage in half =============== Diff against SystemEditor-Core-mtf.155 =============== Item was changed: ----- Method: InstanceMigrator>>migrateFrom:to: (in category 'migrating') ----- migrateFrom: oStream to: dStream + origin allInstancesDo: [:ea | - self instances do: - [:ea | oStream nextPut: ea. dStream nextPut: (self migrate: ea)]! Item was removed: - ----- Method: InstanceMigrator>>instances (in category 'accessing') ----- - instances - ^ origin allInstances asArray!

1 0

Rio: File-Kernel-kph.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Nov '08

26 Nov '08

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.6.mcz ==================== Summary ==================== Name: File-Kernel-kph.6 Author: kph Time: 26 November 2008, 3:41:54 am UUID: 6231716d-7258-477d-b0a2-599e7d887cef Ancestors: File-Kernel-kph.5 tidy =============== Diff against File-Kernel-kph.5 =============== Item was changed: ----- Method: FileStat>>isValid (in category 'as yet unclassified') ----- isValid + ^ array notNil! - ^ dir notNil! Item was changed: ----- Method: FileStat>>isInvalid (in category 'as yet unclassified') ----- isInvalid + ^ array isNil! - ^ dir isNil! Item was changed: ----- Method: FileStat>>creationTime (in category 'as yet unclassified') ----- creationTime + ^ TimeStamp fromSeconds: (array at: 2)! - ^ self cTime! Item was changed: ----- Method: FileStat>>isDirectory (in category 'as yet unclassified') ----- isDirectory + ^ array at: 4! - ^(array at: 4)! Item was changed: ----- Method: FileStat>>fileName (in category 'as yet unclassified') ----- fileName + ^ array at: 1! - ^array at: 1! Item was changed: ----- Method: FileStat>>modificationTime (in category 'as yet unclassified') ----- modificationTime + ^ TimeStamp fromSeconds: (array at: 3) + + ! - ^ self mTime! Item was changed: ----- Method: FileStat>>isFile (in category 'as yet unclassified') ----- isFile + ^ self isDirectory not! - ^self isDirectory not! Item was changed: ----- Method: FileStat>>fileSize (in category 'as yet unclassified') ----- fileSize + ^ array at: 5! - ^ array at: 5! Item was removed: - ----- Method: FileStat>>rio (in category 'as yet unclassified') ----- - rio - - ^ dir / self fileName! Item was removed: - ----- Method: FileStat>>mTime (in category 'as yet unclassified') ----- - mTime - - ^ TimeStamp fromSeconds: self mTimeInSeconds - - ! Item was removed: - ----- Method: FileStat>>cTime (in category 'as yet unclassified') ----- - cTime - - ^ TimeStamp fromSeconds: self cTimeInSeconds! Item was removed: - ----- Method: FileStat>>cTimeInSeconds (in category 'as yet unclassified') ----- - cTimeInSeconds - - ^ array at: 2! Item was removed: - ----- Method: FileStat>>mTimeInSeconds (in category 'as yet unclassified') ----- - mTimeInSeconds - - ^ array at: 3!

1 0

Rio: File-Base-kph.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Nov '08

26 Nov '08

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.6.mcz ==================== Summary ==================== Name: File-Base-kph.6 Author: kph Time: 26 November 2008, 3:40:13 am UUID: 0d8fa2f5-6dd6-41cb-aaf1-5f544c17291e Ancestors: File-Base-kph.5 remove cTime =============== Diff against File-Base-kph.5 =============== Item was removed: - ----- Method: File>>cTime (in category 'accessing stat') ----- - cTime - - ^self stat cTime!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2008