Squeak-dev December 2010

squeak-dev@lists.squeakfoundation.org

95 participants
379 discussions

The Inbox: Morphic-fbs.480.mcz
by commits＠source.squeak.org 04 Dec '10

04 Dec '10

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-fbs.480.mcz ==================== Summary ==================== Name: Morphic-fbs.480 Author: fbs Time: 4 December 2010, 8:05:06.902 pm UUID: fe5ea275-0f48-a54d-9a7e-7fe7d90386c8 Ancestors: Morphic-mha.479 Attempting to open a telemorphic user when you have no network connection results in a dialog asking you to Retry a name lookup (as a network check) or Give Up. If you Give Up, your image will spew out a never-ending stream of debuggers. This change allows the user to see that she needs to make a network connection, but also allows her to abort the operation. See http://bugs.squeak.org/view.php?id=7578. =============== Diff against Morphic-mha.479 =============== Item was changed: ----- Method: PasteUpMorph>>connectRemoteUserWithName:picture:andIPAddress: (in category 'world menu') ----- connectRemoteUserWithName: nameStringOrNil picture: aFormOrNil andIPAddress: aStringOrNil "Prompt for the initials to be used to identify the cursor of a remote user, then create a cursor for that user and wait for a connection." | initials addr h | initials := nameStringOrNil. initials isEmptyOrNil ifTrue: [ initials := UIManager default request: 'Enter initials for remote user''s cursor?'. ]. initials isEmpty ifTrue: [^ self]. "abort" addr := 0. aStringOrNil isEmptyOrNil ifFalse: [ addr := NetNameResolver addressForName: aStringOrNil timeout: 30 ]. addr = 0 ifTrue: [ addr := NetNameResolver promptUserForHostAddress. ]. addr = 0 ifTrue: [^ self]. "abort" + (RemoteHandMorph ensureNetworkConnected) ifFalse: [^ self]. "abort" + - RemoteHandMorph ensureNetworkConnected. h := RemoteHandMorph new userInitials: initials andPicture: aFormOrNil. self addHand: h. h changed. h startListening. h startTransmittingEventsTo: addr. !

1 0

Re: The Inbox: Kernel-spd.444.mcz
by Sean P. DeNigris 04 Dec '10

04 Dec '10

See discussion at http://forum.world.st/Class-variables-with-the-same-name-as-an-existing-cla… -- View this message in context: http://forum.world.st/The-Inbox-Kernel-spd-444-mcz-tp3072642p3072648.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

Re: The Inbox: KernelTests-spd.149.mcz
by Sean P. DeNigris 04 Dec '10

04 Dec '10

See discussion at http://forum.world.st/Class-variables-with-the-same-name-as-an-existing-cla… -- View this message in context: http://forum.world.st/The-Inbox-KernelTests-spd-149-mcz-tp3072643p3072647.h… Sent from the Squeak - Dev mailing list archive at Nabble.com.

1 0

The Inbox: KernelTests-spd.149.mcz
by commits＠source.squeak.org 04 Dec '10

04 Dec '10

A new version of KernelTests was added to project The Inbox: http://source.squeak.org/inbox/KernelTests-spd.149.mcz ==================== Summary ==================== Name: KernelTests-spd.149 Author: spd Time: 4 December 2010, 1:33:50.265 pm UUID: 89c23bef-103f-4b9d-885c-bcf19d6b6fa9 Ancestors: KernelTests-cmm.148 * refactored and extended ClassTest, including adding a test for Class>>canFindWithoutEnvironment: (fixed in Kernel-spd.444 in inbox) n.b. no conflicts with trunk as of 12/4/2010 =============== Diff against KernelTests-cmm.148 =============== Item was changed: TestCase subclass: #ClassTest + instanceVariableNames: 'className renamedName subClassName anotherClassName class subclass anotherClass' - instanceVariableNames: 'className renamedName' classVariableNames: '' poolDictionaries: '' category: 'KernelTests-Classes'! Item was added: + ----- Method: ClassTest classSide>>deleteClassNamed: (in category 'setup') ----- + deleteClassNamed: aString + | cl | + cl := Smalltalk at: aString ifAbsent: [^self]. + cl removeFromChanges; removeFromSystemUnlogged + ! Item was removed: - ----- Method: ClassTest>>deleteClass (in category 'setup') ----- - deleteClass - | cl | - cl := Smalltalk at: className ifAbsent: [^self]. - cl removeFromChanges; removeFromSystemUnlogged - ! Item was removed: - ----- Method: ClassTest>>deleteRenamedClass (in category 'setup') ----- - deleteRenamedClass - | cl | - cl := Smalltalk at: renamedName ifAbsent: [^self]. - cl removeFromChanges; removeFromSystemUnlogged - ! Item was added: + ----- Method: ClassTest>>deleteTestClasses (in category 'setup') ----- + deleteTestClasses + + self class deleteClassNamed: class name. + self class deleteClassNamed: subclass name. + self class deleteClassNamed: renamedName. + self class deleteClassNamed: anotherClass name. + ! Item was changed: ----- Method: ClassTest>>setUp (in category 'setup') ----- setUp + - className := #TUTU. renamedName := #RenamedTUTU. + + self deleteTestClasses. + + class := Object subclass: #TUTU - self deleteClass. - self deleteRenamedClass. - Object subclass: className instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' + category: 'KernelTests-Classes'. + + subclass := class subclass: #SubTUTU + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Classes'. + + anotherClass := Object subclass: #AnotherClass + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'KernelTests-Classes'.! - category: 'KernelTests-Classes'! Item was added: + ----- Method: ClassTest>>superclass (in category 'accessing') ----- + superclass + + ^ class.! Item was changed: ----- Method: ClassTest>>tearDown (in category 'setup') ----- tearDown + + self deleteTestClasses.! - self deleteClass. - self deleteRenamedClass! Item was added: + ----- Method: ClassTest>>testAddClassVarName (in category 'testing') ----- + testAddClassVarName + "self run: #testAddClassVarName" + + class addClassVarName: #MyShinyNewClassVar. + self assert: (class classVarNames anySatisfy: [ :name | name = #MyShinyNewClassVar ]). + + ! Item was added: + ----- Method: ClassTest>>testAddClassVarNameWithSameNameAsAGlobal (in category 'testing') ----- + testAddClassVarNameWithSameNameAsAGlobal + "self run: #testAddClassVarName" + + self shouldnt: [ class addClassVarName: anotherClass name ] raise: Exception. + self assert: (class classVarNames anySatisfy: [ :name | name = anotherClass name ]). + + ! Item was changed: ----- Method: ClassTest>>testAddInstVarName (in category 'testing') ----- testAddInstVarName "self run: #testAddInstVarName" + class addInstVarName: 'x'. + self assert: (class instVarNames = #('x')). + class addInstVarName: 'y'. + self assert: (class instVarNames = #('x' 'y')) - | tutu | - tutu := Smalltalk at: #TUTU. - tutu addInstVarName: 'x'. - self assert: (tutu instVarNames = #('x')). - tutu addInstVarName: 'y'. - self assert: (tutu instVarNames = #('x' 'y')) - ! Item was added: + ----- Method: ClassTest>>testCanFindWithoutEnvironment (in category 'testing') ----- + testCanFindWithoutEnvironment + "self debug: #testCanFindWithoutEnvironment" + "self run: #testCanFindWithoutEnvironment" + + self deny: (subclass canFindWithoutEnvironment: #ClassVarInSuperclass). + self deny: (subclass canFindWithoutEnvironment: #PoolVarInSuperclass). + self deny: (subclass canFindWithoutEnvironment: #ClassVar). + self deny: (subclass canFindWithoutEnvironment: #PoolVar). + + subclass addClassVarName: 'ClassVar'. + self assert: (subclass canFindWithoutEnvironment: #ClassVar). + + subclass addSharedPool: (Dictionary newFromPairs: #(PoolVar->5)). + self assert: (subclass canFindWithoutEnvironment: #PoolVar). + + self superclass addClassVarName: 'ClassVarInSupersubclass'. + self assert: (subclass canFindWithoutEnvironment: #ClassVarInSupersubclass). + + self superclass addSharedPool: (Dictionary newFromPairs: #(PoolVarInSupersubclass->5)). + self assert: (subclass canFindWithoutEnvironment: #PoolVarInSupersubclass).! Item was changed: ----- Method: ClassTest>>testRenaming (in category 'testing') ----- testRenaming "self debug: #testRenaming" "self run: #testRenaming" + | newMetaclassName | - | oldName newMetaclassName class | - oldName := className. newMetaclassName := (renamedName, #' class') asSymbol. - class := Smalltalk at: oldName. class class compile: 'dummyMeth'. class rename: renamedName. self assert: class name = renamedName. self assert: (ChangeSet current changedClassNames includes: renamedName). self assert: (ChangeSet current changedClassNames includes: newMetaclassName). !

1 0

The Inbox: Kernel-spd.444.mcz
by commits＠source.squeak.org 04 Dec '10

04 Dec '10

A new version of Kernel was added to project The Inbox: http://source.squeak.org/inbox/Kernel-spd.444.mcz ==================== Summary ==================== Name: Kernel-spd.444 Author: spd Time: 4 December 2010, 1:30:09.425 pm UUID: 571950b9-31b4-4f85-b27f-e4b7e6044b27 Ancestors: Kernel-ar.443 * fixed Class>>canFindWithoutEnvironment: (it was actually checking the environment, making the behavior like bindingOf:) and added test to KernelTests * changed Class>>declare: and Class>>addClassVarName: - no longer check the environment for conflicts - conflict error message clarified * made conflict error in #addClassVarName: resumable to match the behavior of #declare: n.b. no conflicts with trunk as of 12/4/2010 =============== Diff against Kernel-ar.443 =============== Item was removed: - ----- Method: BlockContext>>valueWithEnoughArguments: (in category 'evaluating') ----- - valueWithEnoughArguments: anArray - "call me with enough arguments from anArray" - | args | - (anArray size == self numArgs) - ifTrue: [ ^self valueWithArguments: anArray ]. - - args := Array new: self numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - - ^ self valueWithArguments: args! Item was changed: ----- Method: Class>>addClassVarName: (in category 'class variables') ----- addClassVarName: aString "Add the argument, aString, as a class variable of the receiver. Signal an error if the first character of aString is not capitalized, or if it is already a variable named in the class." | symbol oldState | oldState := self copy. aString first canBeGlobalVarInitial ifFalse: [^self error: aString, ' class variable name should be capitalized; proceed to include anyway.']. symbol := aString asSymbol. self withAllSubclasses do: [:subclass | + (self canFindWithoutEnvironment: symbol) ifTrue: [ + (DuplicateVariableError new) + superclass: superclass; "fake!!!!!!" + variable: aString; + signal: aString, ' is already defined']]. - (subclass bindingOf: symbol) ifNotNil:[ - ^ self error: aString - , ' is already used as a variable name in class ' - , subclass name]]. classPool == nil ifTrue: [classPool := Dictionary new]. (classPool includesKey: symbol) ifFalse: ["Pick up any refs in Undeclared" classPool declare: symbol from: Undeclared. SystemChangeNotifier uniqueInstance classDefinitionChangedFrom: oldState to: self]! Item was changed: ----- Method: Class>>canFindWithoutEnvironment: (in category 'compiling') ----- canFindWithoutEnvironment: varName "This method is used for analysis of system structure -- see senders." "Look up varName, in the context of the receiver. Return true if it can be found without using the declared environment." "First look in classVar dictionary." (self classPool bindingOf: varName) ifNotNil:[^true]. "Next look in shared pools." self sharedPools do:[:pool | (pool bindingOf: varName) ifNotNil:[^true]. ]. "Finally look higher up the superclass chain and fail at the end." superclass == nil ifTrue: [^ false] + ifFalse: [^ superclass canFindWithoutEnvironment: varName]. - ifFalse: [^ (superclass bindingOf: varName) notNil]. ! Item was changed: ----- Method: Class>>declare: (in category 'initialize-release') ----- declare: varString "Declare class variables common to all instances. Answer whether recompilation is advisable." | newVars conflicts | + newVars := (Scanner new scanFieldNames: varString) collect: [:x | x asSymbol]. newVars do: [:var | var first canBeGlobalVarInitial ifFalse: [self error: var, ' class variable name should be capitalized; proceed to include anyway.']]. conflicts := false. classPool == nil ifFalse: [(classPool keys reject: [:x | newVars includes: x]) do: [:var | self removeClassVarName: var]]. (newVars reject: [:var | self classPool includesKey: var]) do: [:var | "adding" "check if new vars defined elsewhere" + (self canFindWithoutEnvironment: var) ifTrue: [ - (self bindingOf: var) ifNotNil:[ (DuplicateVariableError new) superclass: superclass; "fake!!!!!!" variable: var; + signal: var, ' is already defined'. - signal: var , ' is defined elsewhere'. conflicts := true]]. newVars size > 0 ifTrue: [classPool := self classPool. "in case it was nil" newVars do: [:var | classPool declare: var from: Undeclared]]. ^conflicts! Item was removed: - ----- Method: MessageSend>>valueWithEnoughArguments: (in category 'evaluating') ----- - valueWithEnoughArguments: anArray - "call the selector with enough arguments from arguments and anArray" - | args | - args := Array new: selector numArgs. - args replaceFrom: 1 - to: (arguments size min: args size) - with: arguments - startingAt: 1. - args size > arguments size ifTrue: [ - args replaceFrom: arguments size + 1 - to: (arguments size + anArray size min: args size) - with: anArray - startingAt: 1. - ]. - ^ receiver perform: selector withArguments: args! Item was removed: - ----- Method: Object>>actionsWithReceiver:forEvent: (in category 'events') ----- - actionsWithReceiver: anObject forEvent: anEventSelector - - ^(self actionSequenceForEvent: anEventSelector) - select: [:anAction | anAction receiver == anObject ]! Item was removed: - ----- Method: Object>>assert:description: (in category 'error handling') ----- - assert: aBlock description: aString - "Throw an assertion error if aBlock does not evaluates to true." - - aBlock value ifFalse: [AssertionFailure signal: aString ]! Item was removed: - ----- Method: Object>>assert:descriptionBlock: (in category 'error handling') ----- - assert: aBlock descriptionBlock: descriptionBlock - "Throw an assertion error if aBlock does not evaluate to true." - - aBlock value ifFalse: [AssertionFailure signal: descriptionBlock value asString ]! Item was removed: - ----- Method: Object>>perform:withEnoughArguments: (in category 'message handling') ----- - perform: selector withEnoughArguments: anArray - "Send the selector, aSymbol, to the receiver with arguments in argArray. - Only use enough arguments for the arity of the selector; supply nils for missing ones." - | numArgs args | - numArgs := selector numArgs. - anArray size == numArgs - ifTrue: [ ^self perform: selector withArguments: anArray asArray ]. - - args := Array new: numArgs. - args replaceFrom: 1 - to: (anArray size min: args size) - with: anArray - startingAt: 1. - - ^ self perform: selector withArguments: args! Item was removed: - ----- Method: Object>>renameActionsWithReceiver:forEvent:toEvent: (in category 'events') ----- - renameActionsWithReceiver: anObject forEvent: anEventSelector toEvent: newEvent - - | oldActions newActions | - oldActions := Set new. - newActions := Set new. - (self actionSequenceForEvent: anEventSelector) do: [ :action | - action receiver == anObject - ifTrue: [ oldActions add: anObject ] - ifFalse: [ newActions add: anObject ]]. - self setActionSequence: (ActionSequence withAll: newActions) forEvent: anEventSelector. - oldActions do: [ :act | self when: newEvent evaluate: act ].! Item was changed: ----- Method: StringHolder class>>open (in category 'instance creation') ----- open + ^ (Smalltalk at: #Workspace ifAbsent:[self]) new openLabel: 'Workspace' - (Smalltalk at: #Workspace ifAbsent:[self]) new openLabel: 'Workspace' "Not to be confused with our own class var 'Workspace'"!

1 0

Re: AW: [squeak-dev] [ANN] new Squeak Projects website (UI Builder, ...) at Software Architecture Group
by Edgar J. De Cleene 04 Dec '10

04 Dec '10

On 12/4/10 8:24 AM, "Marcel Taeumel" <marcel.taeumel(a)student.hpi.uni-potsdam.de> wrote: > Hi. > > I just changed to configurations of Animations, Signals, Widgets, and > Designer to use the built-in mechanism of Metacello with #development > blessing #versionXXX:. > > So this should work to get the latest stable version: > > "ConfigurationOfXXX load." > > And this should work to get the latest development version (aka "head"): > > "ConfigurationOfXXX project bleedingEdge load." > > Nevertheless, the configuration of Designer seems to have a problem with the > latest stable version 1.0: > > version100: spec > > <version: '1.0' imports: #('1.0-baseline')> > > spec for: #common do: [ > spec blessing: #release. > spec author: 'Marcel Taeumel'. > > spec > project: 'Signals' with: '1.0.1'; > project: 'Animations' with: '1.0'; > project: 'Widgets' with: '1.0'. > > spec package: 'Designer' with: 'Designer-mt.9']. > > If you try to load, it fails because Widgets 1.1 will be loaded and not 1.0. > I have no idea why this happens. > > Bye, > Marcel Hi Marcel. Just on IRC asking why ConfigurationOfDesigner DNU bleedingEdge. My Monticello list ConfigurationOfDesigner-mt.7 ConfigurationOfSignals-mt.5 ConfigurationOfSwaUtil-mt.7 ConfigurationOfWidgets-mt.10 I put MorphicDesigner high on the list of projects for the FunSqueakCog i doing (see attached pict) and plan release as Christmas present to all good Squeakers and Pharopatas also. Very thanks for the good work to all you in Postdam. Edgar

2 1

[Q] Status of Pier loading script ?
by Edgar J. De Cleene 04 Dec '10

04 Dec '10

Hi: The last time I build FunSqueak, use the following script without any troubles Installer squeaksource project: 'MetacelloRepository'; install: 'ConfigurationOfSeaside30'; install: 'ConfigurationOfMagritte2'; install: 'ConfigurationOfPier2'; install: 'ConfigurationOfPierAddOns2'. (Smalltalk at: #ConfigurationOfSeaside30) load. (Smalltalk at: #ConfigurationOfMagritte2) load. (Smalltalk at: #ConfigurationOfPier2) load. (Smalltalk at: #ConfigurationOfPierAddOns2) load. When try in the .image in process i working on , have the attached walkback Yesterday i cook the dirty solution attached, the cause is 'Swazoo-2.3beta1' versionNumber seems nil. Any have this and a better solution ? Edgar

1 0

[ANN] new Squeak Projects website (UI Builder, ...) at Software Architecture Group
by Steinert, Bastian 04 Dec '10

04 Dec '10

Dear Squeakers, I am happy to announce our new Squeak projects website at http://www.hpi.uni-potsdam.de/hirschfeld/trac/SqueakCommunityProjects. This website hosts selected Squeak projects that have been developed during teaching and research activities at the Software Architecture Group (led by Robert Hirschfeld). To date we provide seven projects including an UI Builder for Morphic. For each project, we prepared Metacello configurations (package management), which eases installation and hopefully encourages you trying out these projects. All configurations were tested and run in the current Squeak (Trunk) versions (4.1, 4.2). The announced website is an instance of the Trace project management software that particularly allows for issue/bug tracking. On behalf of our group, special thanks go to the volunteers who contributed to this website and helped preparing these projects for release: Tim Felgentreff, Tobias Mohr, Tobias Pape, Marcel Taeumel. Enjoy, and best regards, Bastian Steinert on behalf of the Software Architecture Group http://www.hpi.uni-potsdam.de/hirschfeld Hasso-Plattner-Institut für Softwaresystemtechnik GmbH, Potsdam Prof-Dr-Helmert-Str. 2-3 D-14482 Potsdam, Germany Amtsgericht Potsdam, HRB 12184 Geschäftsführung: Prof. Dr. Christoph Meinel

14 25

The Inbox: MorphicExtras-edc.95.mcz
by commits＠source.squeak.org 04 Dec '10

04 Dec '10

A new version of MorphicExtras was added to project The Inbox: http://source.squeak.org/inbox/MorphicExtras-edc.95.mcz ==================== Summary ==================== Name: MorphicExtras-edc.95 Author: edc Time: 4 December 2010, 6:30:36.511 am UUID: b400402a-9bad-417d-80cc-9cb7b1cc6293 Ancestors: MorphicExtras-ul.94 This fix the error we have when: You made Flaps makeNavigatorFlapResembleGoldenBar , so Navigator Flap shows in the World. You hit the FIND button and hold . Then you pick the second item find a project (more places) =============== Diff against MorphicExtras-ul.94 =============== Item was changed: ----- Method: ProjectNavigationMorph>>findAProject (in category 'the actions') ----- findAProject FileList2 + morphicViewProjectLoader2InWorld: World - morphicViewProjectLoader2InWorld: self world reallyLoad: true dirFilterType: #initialDirectoryList!

1 0

Re: [squeak-dev] refactoring browser in Squeak?
by Tim Felgentreff 04 Dec '10

04 Dec '10

Hello There are currently two packages in the inbox (Kernel-topa.508, Compiler-tfel.175) which enable AST, Refactoring-*, VB-Regex and the useful OB packages (Standard, Core, Morphic, Regex, Refactory, Shout) to load in trunk. Attached you will find a ChangeSet that, if applied after loading all of the packages, fixes all but 12 failures and 1 error in the aforementioned packages' tests. Regards Tim On Oct 25, 2010, at 5:58 PM, Lawson English wrote: > On 10/25/10 8:38 AM, Tim Felgentreff wrote: >> We're currently compiling a set of changes that will allow OB and Refactory to work again in their latest respective versions. I'll test them and put them up on the ML/Inbox later today. >> >> I talked with Lukas today about a possible OB-SqueakCompat package, what would the community think about that? >> >> Regards >> Tim >> > I don't know if you saw my recent comment about the browser behavior. In Squeak 4.1 the version of OmniBrowser loaded by this script: > > Installer squeaksource >> project: 'MetacelloRepository'; >> install: 'ConfigurationOfOmniBrowser'. >> (Smalltalk at: #ConfigurationOfOmniBrowser) project lastVersion load: #( Dev ). > > > works differently when PRDistribution or subclasses of PRDistribtion are highlighted. > > Like as not, its part of other issues you are already working on, but just in case it's not... > > > Lawson > > >

7 22

Jump to page: