Packages July 2008

packages@lists.squeakfoundation.org

2 participants
65 discussions

Monticello Public: Monticello.impl-mtf.560.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.560.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.560 Author: mtf Time: 22 July 2008, 11:14:05 am UUID: 903ded31-2f2b-4403-99b2-28a6c4b37db8 Ancestors: Monticello.impl-mtf.559 Removed Time class >> fromString:; MC doesn't use it and it was moved to Kernel-Extensions Made cmd-s from the save dialog commit the package =============== Diff against Monticello.impl-mtf.559 =============== Item was changed: ----- Method: MCSaveVersionDialog>>logMessage: (in category 'as yet unclassified') ----- logMessage: aString message := aString. + self changed: #logMessage. + self accept.! - self changed: #logMessage! Item was removed: - ----- Method: Time class>>fromString: (in category '*monticello') ----- - fromString: aString - ^ self readFrom: (ReadStream on: aString). - !

1 0

Monticello Public: Monticello.impl-mtf.559.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.559.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.559 Author: mtf Time: 21 July 2008, 9:54:21 pm UUID: d58e5640-7b74-47d8-aad3-c8c35d197c01 Ancestors: Monticello.impl-mtf.558 fix to allow parsing the package named 'OB-Standard-dc..312.mcz' =============== Diff against Monticello.impl-mtf.558 =============== Item was changed: ----- Method: MCVersionInfo>>versionTokens (in category 'pillaging') ----- versionTokens + ^ self nameAfterLastDashAsTokens select: [ :ea | ea notEmpty and: [ ea first isDigit ] ] - ^ self nameAfterLastDashAsTokens select: [ :ea | ea first isDigit ] !

1 0

Monticello Public: Monticello.impl-mtf.558.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.558.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.558 Author: mtf Time: 21 July 2008, 7:02:09 pm UUID: 34bc08f3-6600-4d72-bf99-561eeccb95a1 Ancestors: Monticello.impl-mtf.557 Merged in changes from Pharo, as follows: sd.309: No change; we already have MCWorkingCopy>>printOn: sd.310: No change; we already changed _ to := sd.313: Removed MCCodeTool>>printOutMessage and its menu item sd.314: Removed MVC support from MCCodeTool>>browseFullProtocol stephane.ducasse.315: Innapropriate; Author is Pharo-specific stephane.ducasse.316: No change; we already made a better HTTP creation template AlexandreBergel.320: - Added MCRepositoryGroup>>useCache and senders - Sort dirty packages to the top of the MC Browser - Opaque change to MCTool>>buttonRow: =============== Diff against Monticello.impl-mtf.557 =============== Item was added: + ----- Method: MCRepositoryGroup>>useCache (in category 'as yet unclassified') ----- + useCache + ^ useCache ifNil: [ + useCache := true + ]! Item was changed: ----- Method: MCWorkingCopyBrowser>>workingCopies (in category 'morphic ui') ----- workingCopies + "List the working copies with the changed packages at the top" + + | c | + c := MCWorkingCopy allManagers asSortedCollection: + [ :a :b | a package name <= b package name ]. + ^ (c select: [:mc| mc needsSaving]) asOrderedCollection, (c reject: [:mc| mc needsSaving]) asOrderedCollection. + ! - ^ MCWorkingCopy allManagers asSortedCollection: - [ :a :b | a package name <= b package name ]! Item was changed: ----- Method: MCRepositoryGroup>>repositories (in category 'as yet unclassified') ----- repositories + ^ (self useCache + ifTrue: [Array with: MCCacheRepository default] + ifFalse: [Array new]) , repositories select: [ :ea | ea isValid ] + ! - ^ ((Array with: MCCacheRepository default), repositories) select: [ :ea | ea isValid ]! Item was changed: Object subclass: #MCRepositoryGroup + instanceVariableNames: 'repositories useCache' - instanceVariableNames: 'repositories' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Versioning'! MCRepositoryGroup class instanceVariableNames: 'default'! !MCRepositoryGroup commentStamp: '<historical>' prior: 0! A singleton class, holds the list of repositories. Can look for a requested VersionInfo among its repositories.! Item was added: + ----- Method: MCRepositoryGroup>>disableCache (in category 'as yet unclassified') ----- + disableCache + useCache := false! Item was changed: ----- Method: MCCodeTool>>methodListMenu: (in category 'menus') ----- methodListMenu: aMenu "Build the menu for the selected method, if any." self selectedMessageName ifNotNil: [ aMenu addList:#( ('browse full (b)' browseMethodFull) ('browse hierarchy (h)' classHierarchy) ('browse method (O)' openSingleMessageBrowser) ('browse protocol (p)' browseFullProtocol) - ('fileOut (o)' fileOutMessage) - ('printOut' printOutMessage) - ('copy class and selector' copyClassAndSelector) ('copy selector (c)' copySelector)). aMenu addList: #( - ('browse senders (n)' browseSendersOfMessages) ('browse implementors (m)' browseMessages) ('inheritance (i)' methodHierarchy) ('versions (v)' browseVersions) ('change sets with this method' findMethodInChangeSets) " ('x revert to previous version' revertToPreviousVersion)" ('remove from current change set' removeFromCurrentChanges) " ('x revert & remove from changes' revertAndForget)" ('add to current change set' adoptMessageInCurrentChangeset) " ('x copy up or copy down...' copyUpOrCopyDown)" " ('x remove method (x)' removeMessage)" "-" ). ]. " aMenu addList: #( ('x inst var refs...' browseInstVarRefs) ('x inst var defs...' browseInstVarDefs) ('x class var refs...' browseClassVarRefs) ('x class variables' browseClassVariables) ('x class refs (N)' browseClassRefs) ). " ^ aMenu ! Item was changed: ----- Method: MCCodeTool>>browseFullProtocol (in category 'menus') ----- browseFullProtocol + "Open up a protocol-category browser on the value of the + receiver's current selection." + + ^ self spawnFullProtocol! - "Open up a protocol-category browser on the value of the receiver's current selection. If in mvc, an old-style protocol browser is opened instead. Someone who still uses mvc might wish to make the protocol-category-browser work there too, thanks." - - | aClass | - - (Smalltalk isMorphic and: [Smalltalk includesKey: #Lexicon]) ifFalse: [^ self spawnFullProtocol]. - (aClass := self selectedClassOrMetaClass) ifNotNil: - [(Smalltalk at: #Lexicon) new openOnClass: aClass inWorld: ActiveWorld showingSelector: self selectedMessageName]! Item was changed: ----- Method: MCTool>>buttonRow: (in category 'morphic ui') ----- buttonRow: specArray | aRow aButton state | aRow := AlignmentMorph newRow. aRow color: (Display depth <= 8 ifTrue: [Color transparent] ifFalse: [Color gray alpha: 0.2]); borderWidth: 0. aRow hResizing: #spaceFill; vResizing: #spaceFill; rubberBandCells: true. aRow clipSubmorphs: true. + aRow layoutInset: 2@2; cellInset: 1; color: Color white. - aRow layoutInset:2@2; cellInset: 1; color: Color white. aRow wrapCentering: #center; cellPositioning: #leftCenter. specArray do: [:triplet | + state := triplet at: 5 ifAbsent: [#buttonState]. - state := triplet at: 4 ifAbsent: [#buttonState]. aButton := PluggableButtonMorph on: self getState: state action: #performButtonAction:enabled:. aButton hResizing: #spaceFill; vResizing: #spaceFill; label: triplet first asString; + arguments: (Array with: triplet second with: (triplet at: 4 ifAbsent: [#buttonEnabled])); - arguments: (Array with: triplet second with: state); onColor: Color white offColor: Color white. aRow addMorphBack: aButton. aButton setBalloonText: triplet third]. - ^ aRow! Item was removed: - ----- Method: MCCodeTool>>printOutMessage (in category 'menus') ----- - printOutMessage - "Write a file with the text of the selected message, for printing by a web browser" - - self selectedMessageName ifNotNil: [ - self selectedClassOrMetaClass fileOutMethod: self selectedMessageName - asHtml: true]!

1 0

Monticello Public: Monticello.impl-mtf.557.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of Monticello.impl to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.557.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.557 Author: mtf Time: 21 July 2008, 6:16:16 pm UUID: a3462af2-6f7d-47eb-9dc5-ce06fa4cf492 Ancestors: Monticello.impl-kph.556 Made the default HTTP repository creation template more useful =============== Diff against Monticello.impl-kph.556 =============== Item was changed: ----- Method: MCHttpRepository class>>creationTemplate (in category 'as yet unclassified') ----- creationTemplate + ^self creationTemplateLocation: 'http://www.squeaksource.com/mc' + user: '' + password: '' - ^self creationTemplateLocation: 'http://foo.com/bar' - user: 'squeak' - password: 'squeak' ! Item was added: + ----- Method: MCSnapshotBrowser>>loadClassSelectionDefinition (in category 'listing') ----- + loadClassSelectionDefinition + + | classDefinition | + + classSelection ifNil: [ ^self ]. + + classDefinition := items + detect: [ :defn | defn isClassDefinition and: [ defn className = classSelection ] ]. + + (MCPackageLoader new) + addDefinition: classDefinition; + load + ! Item was removed: - ----- Method: MCSnapshotBrowser>>loadClassSelectionDefinition (in category 'listing') ----- - loadClassSelectionDefinition - - | classDefinition | - - classSelection ifNil: [ ^self ]. - - classDefinition := items - detect: [ :defn | defn isClassDefinition and: [ defn className = classSelection ] ]. - - (MCPackageLoader new) - addDefinition: classDefinition; - load - !

1 0

SystemEditor: SystemEditor-mtf.110.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.110.mcz ==================== Summary ==================== Name: SystemEditor-mtf.110 Author: mtf Time: 22 July 2008, 12:39:31 pm UUID: fc4653c8-9bf5-4566-bfe9-ac5f2164c863 Ancestors: SystemEditor-mtf.109 - Fixed a bug: the metaclass superclass was not being set to the superclass metaclass - simplified instSize and allInstVarNames, and format in both ClassEditor and MetaclassEditor =============== Diff against SystemEditor-mtf.109 =============== Item was added: + ----- Method: MetaclassEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNotNil: [^ self subject indexIfCompact]. + ^ 0! Item was added: + ----- Method: MetaclassEditor>>edClassFormat (in category 'building') ----- + edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! 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. - superEditor := anEditor. type := typeOfClass. category := catString. instVarNames := scanner scanFieldNames: instString. classVarNames := scanner scanFieldNames: classString. sharedPools := (scanner scanFieldNames: poolString) collect: [:ea | system edResolve: ea asSymbol]! Item was changed: ----- Method: MetaclassEditor>>instSize (in category 'reflecting') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" self isDebuggingAsEditor ifTrue: [^ super instSize]. + ^ self instVarNames size + (self edSuperclass + ifNil: [0] ifNotNilDo: [:ed | ed instSize])! - ^ self allInstVarNames size! Item was changed: ----- Method: MetaclassEditor>>format (in category 'reflecting') ----- format "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" + ^ self edClassFormat bits! - | superFormat | - superFormat := ClassFormat fromBits: self edSuperclass format. - ^ (superFormat namedSubclass: self instVarNames size) bits! Item was changed: ----- Method: ClassEditor>>superclass: (in category 'editing') ----- superclass: aClassOrEditor + superEditor := self system edEditorFor: aClassOrEditor. + self class superclass: superEditor class + ! - superEditor := (aClassOrEditor isKindOf: ClassEditor) - ifTrue: [aClassOrEditor] - ifFalse: [ (ClassEditor on: aClassOrEditor for: system) edRegisterEditor]! Item was changed: ----- Method: ClassEditor>>instSize (in category 'reflecting') ----- instSize + ^ self instVarNames size + (self edSuperclass - ^ self instVarNames size + (self edSuperEditor ifNil: [0] ifNotNilDo: [:ed | ed instSize])! 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 instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization build. product methodDictionary: MethodDictionary new. - product class methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea buildFor: self]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods" self class methods buildFor: self class. self methods buildFor: self. ^product! Item was changed: ----- Method: MetaclassEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames "specialized in order to enable debugger to show as self" - | vars | self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. + ^ self edSuperEditor + ifNil: [self instVarNames copy] + ifNotNil: [self edSuperEditor allInstVarNames, self instVarNames]! - - vars := self subject ifNil: [ #() ] ifNotNil: [ self instVarNames ]. - - ^ superclass == nil - ifTrue: [ vars copy] "Guarantee a copy is answered." - ifFalse: [ self superclass allInstVarNames , vars ]. - ! Item was changed: ----- Method: MetaclassEditor>>edSuperclass (in category 'building') ----- edSuperclass ^ superEditor ifNil: [self subject superclass] + ifNotNil: [superEditor product]! - ifNotNil: [superEditor subject]! Item was added: + ----- Method: MetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal!

1 0

SystemEditor: SystemEditor-mtf.107.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.107.mcz ==================== Summary ==================== Name: SystemEditor-mtf.107 Author: mtf Time: 18 July 2008, 4:39:51 pm UUID: affae387-bcd7-4396-bbe3-52aebdcfd374 Ancestors: SystemEditor-mtf.106 Work around a Croquet bug in ClassOrganizer>>classComment:stamp: =============== Diff against SystemEditor-mtf.106 =============== Item was added: + ----- Method: ClassOrganizer>>edClassComment:stamp: (in category '*SystemEditor-workaround') ----- + edClassComment: aString stamp: aStamp + "Set the comment and stamp directly, with no checks.This works around a silly check in ClassOrganizer>>classComment:stamp: in Croquet. This check raises an error if the subject is either nil or a metaclass. The check does not exist in Squeak 3.8 and above" + ^ super classComment: aString stamp: aStamp! Item was changed: ----- Method: OrganizationEditor>>build (in category 'building') ----- build | result | self subject. subject ifNil: [ result := ClassOrganizer defaultList: #()] ifNotNil: [ result := ClassOrganizer defaultList: self subject elementArray. self subject categories ifNotNilDo: [:categories | categories do: [:ea | result classifyAll: (subject listAtCategoryNamed: ea) under: ea]]]. classEditor edMethodsDo: [:ea | result classify: ea selector under: (self categoryOfElement: ea selector)]. + result + edClassComment: self commentRemoteStr + stamp: self commentStamp. - result classComment: self commentRemoteStr stamp: self commentStamp. ^ result!

1 0

SystemEditor: SystemEditor-mtf.108.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.108.mcz ==================== Summary ==================== Name: SystemEditor-mtf.108 Author: mtf Time: 21 July 2008, 9:21:51 pm UUID: fc9bf5a6-1650-47fd-a845-c0855f032438 Ancestors: SystemEditor-mtf.107 Make Syntax Error dialogs work correctly. Since SyntaxError loads stuff directly into the system, MethodDictionaries had to be installed into classes earlier than before =============== Diff against SystemEditor-mtf.107 =============== Item was added: + ----- Method: SystemEditorTest>>test10ValidatesBeforeCommitting (in category 'tests') ----- + test10ValidatesBeforeCommitting + | classEditor | + classEditor := editor at: #EditorSubject. + classEditor typeOfClass: #bytes. + classEditor addInstVarName: 'test'. + self + should: [editor commit] + raise: InvalidClassFormat! Item was changed: ----- Method: MethodEditor>>compileFor: (in category 'building') ----- compileFor: aClassEditor + [ | node method | node := aClassEditor compilerClass new compile: source in: aClassEditor product notifying: requestor ifFail: nil. node encoder requestor: self. method := node generate: #(0 0 0 0). method selector: node selector. + ^ method + ] on: SyntaxErrorNotification do: [:ex | + "Let the user install the fixed code into the system" + ex defaultAction. + "Now fetch and use that code instead" + source := aClassEditor product sourceCodeAt: self selector ifAbsent: [^ nil]. + ^ aClassEditor product compiledMethodAt: self selector + ]! - ^ method! 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 instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization build. + product methodDictionary: MethodDictionary new. + product class methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea buildFor: self]. + + "Class methods should be compiled before instance methods, + since #compilerClass may be among the class methods" + self class methods buildFor: self class. + self methods buildFor: self. - product methodDictionary: self methodDictionary. - product class methodDictionary: self class methodDictionary. ^product! Item was changed: ----- Method: MethodDictionaryEditor>>buildFor: (in category 'editing') ----- buildFor: aClassEditor | result old | + result := aClassEditor product methodDictionary. - result := MethodDictionary new. self subject keysAndValuesDo: [:selector :cm | (self selectorIsModified: selector) ifFalse: [result at: selector put: (self recompile: selector from: cm for: aClassEditor)]]. additions keysAndValuesDo: [:selector :mm | old := self subject at: selector ifAbsent: [nil]. result at: selector put: (mm compileFrom: old for: aClassEditor)]. ^ result ! Item was changed: ----- Method: ClassEditor>>edSuperclass (in category 'building') ----- edSuperclass + superEditor ifNotNil: [^ superEditor product]. + subject ifNotNil: [^ subject superclass]. + ^ system edClassAt: #Object ifAbsent: [Object]. + ! - ^ superEditor - ifNil: [subject superclass] - ifNotNil: [superEditor product] - ! Item was removed: - ----- Method: SystemEditorTest>>test10ValidatesBeforeCommitting (in category 'tests') ----- - test10ValidatesBeforeCommitting - | classEditor | - classEditor := editor at: #EditorSubject. - classEditor typeOfClass: #bytes. - classEditor addInstVarName: 'test'. - self - should: [editor commit] - raise: InvalidClassFormat!

1 0

SystemEditor: SystemEditor-mtf.109.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of SystemEditor to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.109.mcz ==================== Summary ==================== Name: SystemEditor-mtf.109 Author: mtf Time: 22 July 2008, 11:44:03 am UUID: 0a595328-5719-4816-993f-273ec92af7dc Ancestors: SystemEditor-mtf.108 fixed a validation bug when the superclass is nil =============== Diff against SystemEditor-mtf.108 =============== Item was changed: ----- Method: ClassEditor>>validateInstVarNames (in category 'validating') ----- validateInstVarNames + self instVarNames do: [:ea | + (ReservedNames includes: ea) + ifTrue: [IllegalVariableName signal]. + (self edSuperEditor notNil + and: [self edSuperEditor allInstVarNames includes: ea]) + ifTrue: [IllegalVariableName signal]. + self subclasses do: [:class | + (class instVarNames includes: ea) + ifTrue: [IllegalVariableName signal]]]! - self instVarNames do: - [:ea | - (ReservedNames includes: ea) ifTrue: [IllegalVariableName signal]. - (self edSuperEditor allInstVarNames includes: ea) ifTrue: [IllegalVariableName signal]. - self subclasses do: [:class | (class instVarNames includes: ea) ifTrue: [IllegalVariableName signal]]]!

1 0

Installer: Installer-Launcher-mtf.7.mcz
by squeaksource-noreply＠iam.unibe.ch 23 Jul '08

23 Jul '08

Matthew Fulmer uploaded a new version of Installer-Launcher to project Installer: http://www.squeaksource.com/Installer/Installer-Launcher-mtf.7.mcz ==================== Summary ==================== Name: Installer-Launcher-mtf.7 Author: mtf Time: 17 July 2008, 9:01:16 pm UUID: 1b8710cf-0c30-4af8-b3a0-e14a759dc997 Ancestors: Installer-Launcher-mtf.6 no more underscore assignments =============== Diff against Installer-Launcher-mtf.6 =============== 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

SystemEditor: SystemEditor-mtf.110.mcz
by squeaksource-noreply＠iam.unibe.ch 22 Jul '08

22 Jul '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.110.mcz ==================== Summary ==================== Name: SystemEditor-mtf.110 Author: mtf Time: 22 July 2008, 12:39:31 pm UUID: fc4653c8-9bf5-4566-bfe9-ac5f2164c863 Ancestors: SystemEditor-mtf.109 - Fixed a bug: the metaclass superclass was not being set to the superclass metaclass - simplified instSize and allInstVarNames, and format in both ClassEditor and MetaclassEditor =============== Diff against SystemEditor-mtf.109 =============== Item was added: + ----- Method: MetaclassEditor>>indexIfCompact (in category 'reflecting') ----- + indexIfCompact + self subject ifNotNil: [^ self subject indexIfCompact]. + ^ 0! Item was added: + ----- Method: MetaclassEditor>>edClassFormat (in category 'building') ----- + edClassFormat + ^ ClassFormat + size: self instSize + type: self typeOfClass + index: self indexIfCompact! 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. - superEditor := anEditor. type := typeOfClass. category := catString. instVarNames := scanner scanFieldNames: instString. classVarNames := scanner scanFieldNames: classString. sharedPools := (scanner scanFieldNames: poolString) collect: [:ea | system edResolve: ea asSymbol]! Item was changed: ----- Method: MetaclassEditor>>instSize (in category 'reflecting') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" self isDebuggingAsEditor ifTrue: [^ super instSize]. + ^ self instVarNames size + (self edSuperclass + ifNil: [0] ifNotNilDo: [:ed | ed instSize])! - ^ self allInstVarNames size! Item was changed: ----- Method: MetaclassEditor>>format (in category 'reflecting') ----- format "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" + ^ self edClassFormat bits! - | superFormat | - superFormat := ClassFormat fromBits: self edSuperclass format. - ^ (superFormat namedSubclass: self instVarNames size) bits! Item was changed: ----- Method: ClassEditor>>superclass: (in category 'editing') ----- superclass: aClassOrEditor + superEditor := self system edEditorFor: aClassOrEditor. + self class superclass: superEditor class + ! - superEditor := (aClassOrEditor isKindOf: ClassEditor) - ifTrue: [aClassOrEditor] - ifFalse: [ (ClassEditor on: aClassOrEditor for: system) edRegisterEditor]! Item was changed: ----- Method: ClassEditor>>instSize (in category 'reflecting') ----- instSize + ^ self instVarNames size + (self edSuperclass - ^ self instVarNames size + (self edSuperEditor ifNil: [0] ifNotNilDo: [:ed | ed instSize])! 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 instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization build. product methodDictionary: MethodDictionary new. - product class methodDictionary: MethodDictionary new. self decoratorsDo: [:ea | ea buildFor: self]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods" self class methods buildFor: self class. self methods buildFor: self. ^product! Item was changed: ----- Method: MetaclassEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames "specialized in order to enable debugger to show as self" - | vars | self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. + ^ self edSuperEditor + ifNil: [self instVarNames copy] + ifNotNil: [self edSuperEditor allInstVarNames, self instVarNames]! - - vars := self subject ifNil: [ #() ] ifNotNil: [ self instVarNames ]. - - ^ superclass == nil - ifTrue: [ vars copy] "Guarantee a copy is answered." - ifFalse: [ self superclass allInstVarNames , vars ]. - ! Item was changed: ----- Method: MetaclassEditor>>edSuperclass (in category 'building') ----- edSuperclass ^ superEditor ifNil: [self subject superclass] + ifNotNil: [superEditor product]! - ifNotNil: [superEditor subject]! Item was added: + ----- Method: MetaclassEditor>>typeOfClass (in category 'reflecting') ----- + typeOfClass + ^ #normal!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2008