Packages June 2008

packages@lists.squeakfoundation.org

4 participants
104 discussions

DeltaStreams: SystemEditor-mtf.94.mcz
by squeaksource-noreply＠iam.unibe.ch 12 Jun '08

12 Jun '08

A new version of SystemEditor was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/SystemEditor-mtf.94.mcz ==================== Summary ==================== Name: SystemEditor-mtf.94 Author: mtf Time: 12 June 2008, 1:17:10 pm UUID: 57987541-bd88-49bb-90d9-f6e71701a4ee Ancestors: SystemEditor-mtf.93 added two necessary methods to MetaclassEditor

1 0

Monticello Public: Monticello.impl-mtf.531.mcz
by squeaksource-noreply＠iam.unibe.ch 12 Jun '08

12 Jun '08

Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.531.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.531 Author: mtf Time: 12 June 2008, 1:06:46 pm UUID: 5be17b0a-705e-4ae2-b4a2-2b2ba122ad88 Ancestors: Monticello.impl-mtf.530 simplified MCClassDefinition>>#edLoad fixed MC to pass the category name of a class to SystemEditor Fixed MCMethodDefinition to tell SystemEditor whether the method is instance-side or class-side =============== Diff against Monticello.impl-mtf.530 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! - SystemOrganization addCategory: #'Monticello-Patching'! - SystemOrganization addCategory: #'Monticello-Repositories'! - SystemOrganization addCategory: #'Monticello-Storing'! - SystemOrganization addCategory: #'Monticello-UI'! - SystemOrganization addCategory: #'Monticello-Versioning'! SystemOrganization addCategory: #'Monticello-Orphanage'! + SystemOrganization addCategory: #'Monticello-Patching'! + SystemOrganization addCategory: #'Monticello-Repositories'! + SystemOrganization addCategory: #'Monticello-Storing'! + SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Versioning'! Item was changed: ----- Method: MCMethodDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor "priorMethodOrNil := self actualClass compiledMethodAt: selector ifAbsent: [nil]." + | classEditor | + classEditor := editor at: className. + classIsMeta ifTrue: [classEditor := classEditor class]. + methodAndNode := classEditor - methodAndNode := (editor at: className) compile: self source classified: self category withStamp: timeStamp notifying: requestor. ^ false "dont ask for edPostLoad, switch our notifications off not sure if needed with SystemEditor-#commit" ! Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor + | theClass | + theClass := (editor at: superclassName) subclass: name + instanceVariableNames: (self stringForVariablesOfType: #isInstanceVariable) + classVariableNames: (self stringForVariablesOfType: #isClassVariable) + poolDictionaries: (self stringForVariablesOfType: #isPoolImport) + category: category. - | new old theClass theSuperclass | - - theClass := editor at: name. - theSuperclass := editor at: superclassName. - - theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. - - theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. + theClass typeOfClass: type. + theClass class instanceVariableNames: (self stringForVariablesOfType: #isClassInstanceVariable). + theClass classComment: comment stamp: commentStamp. - old := theClass instVarNames. - new := self selectVariables: #isInstanceVariable. - (old difference: new) do: [ :iv | theClass removeInstVarName: iv ]. - (new difference: old) do: [ :iv | theClass addInstVarName: iv ]. - - old := theClass classVarNames. - new := self selectVariables: #isClassVariable. - (old difference: new) do: [ :iv | theClass removeClassVarName: iv ]. - (new difference: old) do: [ :iv | theClass addClassVarName: iv ]. - - old := theClass sharedPools. - new := self selectVariables: #isPoolImport. - (old difference: new) do: [ :iv | theClass removeSharedPool: iv ]. - (new difference: old) do: [ :iv | theClass addSharedPool: iv ]. - - old := theClass class instVarNames. - new := self selectVariables: #isClassInstanceVariable. - (old difference: new) do: [ :iv | theClass class removeInstVarName: iv ]. - (new difference: old) do: [ :iv | theClass class addInstVarName: iv ]. - - self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ]. - ^ false "we dont need an edPostload"!

1 0

Monticello Public: Monticello.impl-mtf.531.mcz
by squeaksource-noreply＠iam.unibe.ch 12 Jun '08

12 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.531.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.531 Author: mtf Time: 12 June 2008, 1:06:46 pm UUID: 5be17b0a-705e-4ae2-b4a2-2b2ba122ad88 Ancestors: Monticello.impl-mtf.530 simplified MCClassDefinition>>#edLoad fixed MC to pass the category name of a class to SystemEditor Fixed MCMethodDefinition to tell SystemEditor whether the method is instance-side or class-side =============== Diff against Monticello.impl-mtf.530 =============== Item was changed: SystemOrganization addCategory: #'Monticello-Base'! SystemOrganization addCategory: #'Monticello-Chunk Format'! SystemOrganization addCategory: #'Monticello-Loading'! SystemOrganization addCategory: #'Monticello-Merging'! SystemOrganization addCategory: #'Monticello-Modeling'! - SystemOrganization addCategory: #'Monticello-Patching'! - SystemOrganization addCategory: #'Monticello-Repositories'! - SystemOrganization addCategory: #'Monticello-Storing'! - SystemOrganization addCategory: #'Monticello-UI'! - SystemOrganization addCategory: #'Monticello-Versioning'! SystemOrganization addCategory: #'Monticello-Orphanage'! + SystemOrganization addCategory: #'Monticello-Patching'! + SystemOrganization addCategory: #'Monticello-Repositories'! + SystemOrganization addCategory: #'Monticello-Storing'! + SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Versioning'! Item was changed: ----- Method: MCMethodDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor "priorMethodOrNil := self actualClass compiledMethodAt: selector ifAbsent: [nil]." + | classEditor | + classEditor := editor at: className. + classIsMeta ifTrue: [classEditor := classEditor class]. + methodAndNode := classEditor - methodAndNode := (editor at: className) compile: self source classified: self category withStamp: timeStamp notifying: requestor. ^ false "dont ask for edPostLoad, switch our notifications off not sure if needed with SystemEditor-#commit" ! Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor + | theClass | + theClass := (editor at: superclassName) subclass: name + instanceVariableNames: (self stringForVariablesOfType: #isInstanceVariable) + classVariableNames: (self stringForVariablesOfType: #isClassVariable) + poolDictionaries: (self stringForVariablesOfType: #isPoolImport) + category: category. - | new old theClass theSuperclass | - - theClass := editor at: name. - theSuperclass := editor at: superclassName. - - theClass superclass = theSuperclass ifFalse: [ theClass superclass: theSuperclass ]. - - theClass subject typeOfClass = type ifFalse: [ theClass typeOfClass: type ]. + theClass typeOfClass: type. + theClass class instanceVariableNames: (self stringForVariablesOfType: #isClassInstanceVariable). + theClass classComment: comment stamp: commentStamp. - old := theClass instVarNames. - new := self selectVariables: #isInstanceVariable. - (old difference: new) do: [ :iv | theClass removeInstVarName: iv ]. - (new difference: old) do: [ :iv | theClass addInstVarName: iv ]. - - old := theClass classVarNames. - new := self selectVariables: #isClassVariable. - (old difference: new) do: [ :iv | theClass removeClassVarName: iv ]. - (new difference: old) do: [ :iv | theClass addClassVarName: iv ]. - - old := theClass sharedPools. - new := self selectVariables: #isPoolImport. - (old difference: new) do: [ :iv | theClass removeSharedPool: iv ]. - (new difference: old) do: [ :iv | theClass addSharedPool: iv ]. - - old := theClass class instVarNames. - new := self selectVariables: #isClassInstanceVariable. - (old difference: new) do: [ :iv | theClass class removeInstVarName: iv ]. - (new difference: old) do: [ :iv | theClass class addInstVarName: iv ]. - - self hasComment ifTrue: [ theClass classComment: comment stamp: commentStamp ]. - ^ false "we dont need an edPostload"!

1 0

DeltaStreams: SystemEditor-mtf.93.mcz
by squeaksource-noreply＠iam.unibe.ch 12 Jun '08

12 Jun '08

A new version of SystemEditor was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/SystemEditor-mtf.93.mcz ==================== Summary ==================== Name: SystemEditor-mtf.93 Author: mtf Time: 11 June 2008, 9:09:17 pm UUID: e3ba1323-5a52-4932-bbf4-5e0038371676 Ancestors: SystemEditor-mtf.92 add traits instance variables to ClassEditor and MetaclassEditor fixed bugs that arise when editing ProtoObject, where superclass is nil fixed an issue where enumerating subclasses could undo changes made in the system editor =============== Diff against SystemEditor-mtf.92 =============== Item was changed: ----- Method: ClassEditor>>edClassFormat (in category 'building') ----- edClassFormat | superFormat | + superFormat := self edSuperEditor ifNil: [ClassFormat named] + ifNotNil: [ClassFormat fromBits: self edSuperEditor format]. - superFormat := ClassFormat fromBits: self edSuperEditor format. ^ self typeOfClass = #normal ifTrue: [superFormat namedSubclass: self instVarNames size] ifFalse: [superFormat indexedSubclass: self instVarNames size]! Item was changed: Object subclass: #ClassEditor + instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization traitComposition' - instanceVariableNames: 'subject product system superEditor name type instVarNames classVarNames sharedPools methods category organization' classVariableNames: 'ReservedNames' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was changed: - SystemOrganization addCategory: #'SystemEditor-Tests'! SystemOrganization addCategory: #'SystemEditor-Editors'! - SystemOrganization addCategory: #'SystemEditor-Info'! SystemOrganization addCategory: #'SystemEditor-Exceptions'! + SystemOrganization addCategory: #'SystemEditor-Info'! + SystemOrganization addCategory: #'SystemEditor-Tests'! Item was changed: Behavior subclass: #MetaclassEditor + instanceVariableNames: 'editor superEditor instVarNames methods organization traitComposition' - instanceVariableNames: 'editor superEditor instVarNames methods organization' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was changed: ----- Method: ClassEditor>>instSize (in category 'reflecting') ----- instSize + ^ self instVarNames size + (self edSuperEditor + ifNil: [0] ifNotNilDo: [:ed | ed instSize])! - ^ self edSuperEditor instSize + self instVarNames size.! Item was changed: ----- Method: SystemEditor>>edEditorFor: (in category 'building') ----- edEditorFor: aClass | name editor | aClass edIsEditor ifTrue: [^ aClass]. name := aClass theNonMetaClass name. + editor := self at: name. - editor := ClassEditor named: name for: self. ^ aClass isMeta ifFalse: [editor] ifTrue: [editor class].! Item was removed: - ----- Method: ClassEditor>>isBehavior (in category 'testing') ----- - isBehavior - ^ true!

1 0

Monticello Public: Monticello.impl-mtf.530.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jun '08

11 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.530.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.530 Author: mtf Time: 10 June 2008, 9:51:08 pm UUID: 57d1e44c-34ad-4b7f-801a-62948f738a8f Ancestors: Monticello.impl-mtf.529 always handle syntax errors thru SyntaxErrorNotification, never directly. Keeping requestor nil ensures that Parser never accidentally goes into interactive mode. =============== Diff against Monticello.impl-mtf.529 =============== Item was changed: ----- Method: MCMethodDefinition>>initializeWithClassName:classIsMeta:selector:category:timeStamp:source: (in category 'serializing') ----- initializeWithClassName: classString classIsMeta: metaBoolean selector: selectorString category: catString timeStamp: timeString source: sourceString className := classString asSymbol. selector := selectorString asSymbol. category := (catString ifNil: [ '' ]) asSymbol. timeStamp := timeString. classIsMeta := metaBoolean. source := sourceString withSqueakLineEndings. + requestor := nil. "Always handle syntax errors thru SyntaxErrorNotification, never directly" - requestor := SyntaxError new category: category !

1 0

Monticello Public: Monticello.impl-mtf.529.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jun '08

11 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.529.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.529 Author: mtf Time: 10 June 2008, 8:29:19 pm UUID: 86de79db-db88-4755-b632-70b129b302fa Ancestors: Monticello.impl-mtf.528 got rid of an unnamed category in MCMethodDefinition =============== Diff against Monticello.impl-mtf.528 =============== Item was changed: + ----- Method: MCMethodDefinition>>compileMethod (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>compileMethod (in category '') ----- compileMethod methodAndNode := theClass compile: self source classified: self category notifying: requestor trailer: theClass defaultMethodTrailer ifFail: [^nil]. compiledSelector := methodAndNode selector. compiledMethod := methodAndNode method. ! Item was changed: + ----- Method: MCMethodDefinition>>compiledSelector (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>compiledSelector (in category '') ----- compiledSelector ^ compiledSelector! Item was changed: + ----- Method: MCMethodDefinition>>isOverrideCategory: (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>isOverrideCategory: (in category '') ----- isOverrideCategory: cat ^ cat notNil and: [ (cat beginsWith: '*') and: [cat endsWith: '-override'] ]! Item was changed: + ----- Method: MCMethodDefinition>>compiledMethod: (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>compiledMethod: (in category '') ----- compiledMethod: aCM compiledSelector := aCM selector. compiledMethod := aCM. ! Item was changed: + ----- Method: MCMethodDefinition>>storeMaxInstVars (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>storeMaxInstVars (in category '') ----- storeMaxInstVars ^ 9! Item was changed: + ----- Method: MCMethodDefinition>>addMethodAdditionTo: (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>addMethodAdditionTo: (in category '') ----- addMethodAdditionTo: a "dummy to enable loading into 3.10"! Item was changed: + ----- Method: MCMethodDefinition>>compiledMethod (in category 'as yet unclassified') ----- - ----- Method: MCMethodDefinition>>compiledMethod (in category '') ----- compiledMethod ^ compiledMethod!

1 0

Monticello Public: Monticello.impl-mtf.528.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jun '08

11 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.528.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.528 Author: mtf Time: 10 June 2008, 8:22:34 pm UUID: 773a2793-2fed-415e-b14b-0f64dfd7318a Ancestors: Monticello.impl-mtf.527 fixed Syntax error dialogs. They now work as expected =============== Diff against Monticello.impl-mtf.527 =============== Item was changed: ----- Method: MCMethodDefinition>>ensuredCreateCompiledMethod (in category 'compiling') ----- ensuredCreateCompiledMethod "Create the compiled method from my source, or from user-provided source in the event of a syntax error" [ self createCompiledMethod ] on: SyntaxErrorNotification do: [ :ex | "Let the user install the fixed code into the system" ex defaultAction. "Now fetch and use that code instead" + source := theClass sourceCodeAt: self selector ifAbsent: [^ nil]. + self createCompiledMethod]! - methodAndNode := theClass - compile: (theClass sourceCodeAt: self selector ifAbsent: [^ nil]) - classified: self category - notifying: requestor - trailer: theClass defaultMethodTrailer - ifFail: [^nil]. - compiledSelector := methodAndNode selector. - compiledMethod := methodAndNode method.]!

1 0

Installer: Installer-Launcher-mtf.5.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jun '08

11 Jun '08

A new version of Installer-Launcher was added to project Installer: http://www.squeaksource.com/Installer/Installer-Launcher-mtf.5.mcz ==================== Summary ==================== Name: Installer-Launcher-mtf.5 Author: mtf Time: 10 June 2008, 8:20:26 pm UUID: 62ebf200-ad98-470e-b1ea-93cc2403cd5a Ancestors: Installer-Launcher-kph.4 no more underscore assignments =============== Diff against Installer-Launcher-kph.4 =============== Item was changed: ----- Method: ProjectLauncher>>startUpAfterLogin (in category '*installer-launcher') ----- startUpAfterLogin | scriptName loader isUrl | self setupFlaps. Preferences readDocumentAtStartup ifTrue: [ HTTPClient isRunningInBrowser ifTrue:[ self setupFromParameters. + scriptName := self parameterAt: 'src'. - scriptName _ self parameterAt: 'src'. CodeLoader defaultBaseURL: (self parameterAt: 'Base'). ] ifFalse:[ + scriptName := (SmalltalkImage current getSystemAttribute: 2) ifNil:['']. + scriptName := [ scriptName convertFromSystemString ] ifError: [ scriptName asString ]. - scriptName _ (SmalltalkImage current getSystemAttribute: 2) ifNil:['']. - scriptName _ [ scriptName convertFromSystemString ] ifError: [ scriptName asString ]. scriptName isEmpty ifFalse:[ "figure out if script name is a URL by itself" + isUrl := (scriptName asLowercase beginsWith:'http://') or:[ - isUrl _ (scriptName asLowercase beginsWith:'http://') or:[ (scriptName asLowercase beginsWith:'file://') or:[ (scriptName asLowercase beginsWith:'ftp://')]]. isUrl ifFalse:[ Smalltalk at: scriptName asSymbol ifPresent: [:launchClass | ^ Launcher newLaunchWith: SmalltalkImage current ]. + scriptName := 'file:', (FileDirectory default fullNameFor: scriptName) ] - scriptName _ 'file:', (FileDirectory default fullNameFor: scriptName) ] ]. ]. ] ifFalse: [ scriptName := '' ]. scriptName isEmptyOrNil ifTrue:[^Preferences eToyFriendly ifTrue: [self currentWorld addGlobalFlaps]]. + loader := CodeLoader new. - loader _ CodeLoader new. loader loadSourceFiles: (Array with: scriptName). (scriptName asLowercase endsWith: '.pr') ifTrue:[self installProjectFrom: loader] ifFalse:[loader installSourceFiles]. !

1 0

Monticello Public: Monticello.impl-mtf.527.mcz
by squeaksource-noreply＠iam.unibe.ch 11 Jun '08

11 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.527.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.527 Author: mtf Time: 10 June 2008, 7:51:39 pm UUID: 8c25f152-532e-4fe2-9724-bf22cc8fe7ae Ancestors: Monticello.impl-mtf.526 Hopefully fixed MC so that the syntax error dialog boxes work correctly during load =============== Diff against Monticello.impl-mtf.526 =============== Item was changed: ----- Method: MCMethodDefinition>>postloadOver: (in category 'installing') ----- postloadOver: obs compiledMethod ifNil: [ + self ensuredCreateCompiledMethod. - self createCompiledMethod. self installMethod ]. defnToInstall ifNotNil: [ defnToInstall notifyObservers ].! Item was changed: ----- Method: MCClassDefinition>>postinstall (in category 'installing') ----- postinstall (self createUnionClassWith: nil) ifNotNilDo: [ :newClass | self hasTraitComposition ifTrue: [ newClass setTraitComposition: (Compiler evaluate: self traitComposition) asTraitComposition ]. self hasClassTraitComposition ifTrue: [ newClass class setTraitComposition: (Compiler evaluate: self classTraitComposition) asTraitComposition ]. self hasComment ifTrue: [newClass classComment: comment stamp: commentStamp] ifFalse: [newClass classComment: '']. ]. self extensions do: [ :ext | + ext ensuredCreateCompiledMethod. + ext installMethod ]! - ext createCompiledMethod. - ext installMethod ]! Item was added: + ----- Method: MCMethodDefinition>>ensuredCreateCompiledMethod (in category 'compiling') ----- + ensuredCreateCompiledMethod + "Create the compiled method from my source, or from user-provided source in the event of a syntax error" + + [ self createCompiledMethod ] on: SyntaxErrorNotification do: [ :ex | + "Let the user install the fixed code into the system" + ex defaultAction. + "Now fetch and use that code instead" + methodAndNode := theClass + compile: (theClass sourceCodeAt: self selector ifAbsent: [^ nil]) + classified: self category + notifying: requestor + trailer: theClass defaultMethodTrailer + ifFail: [^nil]. + compiledSelector := methodAndNode selector. + compiledMethod := methodAndNode method.]!

1 0

Monticello Public: Monticello.impl-mtf.526.mcz
by squeaksource-noreply＠iam.unibe.ch 10 Jun '08

10 Jun '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.526.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.526 Author: mtf Time: 10 June 2008, 2:51:20 pm UUID: 119c1b47-4e47-44f2-9682-d219a27c3091 Ancestors: Monticello.impl-mtf.525 re-enabled the syntax error notification popups =============== Diff against Monticello.impl-mtf.525 =============== Item was changed: ----- Method: MCMethodDefinition>>postloadOver: (in category 'installing') ----- postloadOver: obs compiledMethod ifNil: [ + self createCompiledMethod. + self installMethod - [ - self createCompiledMethod. - - self installMethod - - ] on: SyntaxErrorNotification do: [ :ex | - - - self orphanedBecause: ex printString ] ]. defnToInstall ifNotNil: [ defnToInstall notifyObservers ].!

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages June 2008