Squeak-dev January 2015

squeak-dev@lists.squeakfoundation.org

38 participants
201 discussions

The Inbox: Morphic-mt.755.mcz
by commits＠source.squeak.org 26 Jan '15

26 Jan '15

Marcel Taeumel uploaded a new version of Morphic to project The Inbox: http://source.squeak.org/inbox/Morphic-mt.755.mcz ==================== Summary ==================== Name: Morphic-mt.755 Author: mt Time: 26 January 2015, 3:33:59.723 pm UUID: 2d4a39f5-5d85-d84e-bb0a-0d82257dd6c7 Ancestors: Morphic-mt.754 A keyboard event handler that supports multiple repeated key event processing. Normal #keyStroke: does not repeat if more than one key is pressed. Scenario: Multi-player Tetris. ^__^ The class comment includes instructions. =============== Diff against Morphic-mt.754 =============== Item was added: + Object subclass: #KeyboardEventHandler + instanceVariableNames: 'mutex pressedKeys longDelay shortDelay keyMap loop' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Events'! + + !KeyboardEventHandler commentStamp: 'mt 1/26/2015 15:30' prior: 0! + I allow for simulating repetition behavior of multiple "key strokes" because normal Squeak/OS cannot do that. + + HOW TO USE + --- + + 1) Subclass a morph, create an instance of me, give me a #keyMap, and call #startLoop, e.g. in #intoWorld:. + 2) Overwrite #handleKeyDown: and #handleKeyUp: and pass the events to me via #keyDown: resp. #keyUp:. + 2a) Call #value on the return value of #keyDown: if not nil to process the first call back immediately. + 3) Don't forget to call #stopLoop in, e.g., #outOfWorld: of your morph. + + You can play around with #delay: and #rate: .! Item was added: + ----- Method: KeyboardEventHandler>>delay (in category 'accessing') ----- + delay + + ^ longDelay! Item was added: + ----- Method: KeyboardEventHandler>>delay: (in category 'accessing') ----- + delay: milliseconds + "Time between first stroke and repetition." + + mutex critical: [longDelay := milliseconds].! Item was added: + ----- Method: KeyboardEventHandler>>fire: (in category 'running') ----- + fire: keyValue + + (keyMap at: keyValue ifAbsent: []) + ifNotNil: [:callback | WorldState addDeferredUIMessage: callback].! Item was added: + ----- Method: KeyboardEventHandler>>initialize (in category 'initialization') ----- + initialize + + super initialize. + + mutex := Mutex new. + pressedKeys := IdentityDictionary new. + longDelay := 200. "ms" + shortDelay := 20. "ms"! Item was added: + ----- Method: KeyboardEventHandler>>keyDown: (in category 'event handling') ----- + keyDown: evt + "Returns the callback if any. Caller has to ensure immediate fire!!" + + | result | + result := nil. + + mutex critical: [ + pressedKeys at: evt keyValue ifAbsentPut: [ + result := keyMap at: evt keyValue ifAbsent: []. + Time millisecondClockValue + longDelay]]. + + ^ result! Item was added: + ----- Method: KeyboardEventHandler>>keyMap (in category 'accessing') ----- + keyMap + + ^ keyMap! Item was added: + ----- Method: KeyboardEventHandler>>keyMap: (in category 'accessing') ----- + keyMap: aKeyMap + "Maps actual key values to callbacks." + + mutex critical: [keyMap := aKeyMap copy].! Item was added: + ----- Method: KeyboardEventHandler>>keyUp: (in category 'event handling') ----- + keyUp: evt + + mutex critical: [ + pressedKeys removeKey: evt keyValue ifAbsent: [] ].! Item was added: + ----- Method: KeyboardEventHandler>>process (in category 'running') ----- + process + "Look for callbacks to fire." + + mutex critical: [ + Time millisecondClockValue in: [:ms | + pressedKeys associationsDo: [:assoc | + ms >= assoc value ifTrue: [ + self fire: assoc key. + assoc value: ms + shortDelay]]]].! Item was added: + ----- Method: KeyboardEventHandler>>rate (in category 'accessing') ----- + rate + + ^ 1000 // shortDelay! Item was added: + ----- Method: KeyboardEventHandler>>rate: (in category 'accessing') ----- + rate: strokesPerSecond + + mutex critical: [shortDelay := 1000 // strokesPerSecond].! Item was added: + ----- Method: KeyboardEventHandler>>startLoop (in category 'running') ----- + startLoop + + self stopLoop. + + loop := [ + | delay | + delay := Delay forMilliseconds: 8. + [ self process. delay wait ] repeat ] fork.! Item was added: + ----- Method: KeyboardEventHandler>>stopLoop (in category 'running') ----- + stopLoop + + loop ifNotNil: #terminate. + loop := nil.!

1 0

something happened to trunk?
by Chris Muller 26 Jan '15

26 Jan '15

After updating Eliot's trunk46-spur image (2014-12-01) to latest Trunk code, I can no longer load my base "Ma-Installer" package. If I don't update Eliots image with Trunk, then I have no problems whatsoever. What broke? Error: Metaclasses can only have one instance 25 January 2015 2:12:26.263 pm VM: unix - Smalltalk Image: Squeak4.5 [latest update: #14078] SecurityManager state: Restricted: false FileAccess: true SocketAccess: true Working Dir /home/cmm/Chris/dev/Squeak Trusted Dir /home/cmm/Chris/dev/Squeak/secure Untrusted Dir /home/cmm/Chris/dev/Squeak/My Squeak Metaclass(Object)>>error: Receiver: MaInstaller class Arguments and temporary variables: aString: 'Metaclasses can only have one instance' Receiver's instance variables: superclass: Installer class methodDict: a MethodDictionary() format: 65548 instanceVariables: #('localRepository') organization: ('as yet unclassified') thisClass: MaInstaller Metaclass(ClassDescription)>>updateInstances:from:isMeta: Receiver: MaInstaller class Arguments and temporary variables: oldInstances: {MaInstaller} oldClass: MaInstaller class isMeta: true map: nil variable: nil instSize: nil newInstances: nil i: nil iLimiT: nil Receiver's instance variables: superclass: Installer class methodDict: a MethodDictionary() format: 65548 instanceVariables: #('localRepository') organization: ('as yet unclassified') thisClass: MaInstaller Metaclass(ClassDescription)>>updateInstancesFrom: Receiver: MaInstaller class Arguments and temporary variables: oldClass: MaInstaller class Receiver's instance variables: superclass: Installer class methodDict: a MethodDictionary() format: 65548 instanceVariables: #('localRepository') organization: ('as yet unclassified') thisClass: MaInstaller [] in ClassBuilder>>update:to: Receiver: a ClassBuilder Arguments and temporary variables: oldClass: MaInstaller class newClass: MaInstaller class meta: true Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 BlockClosure>>ensure: Receiver: [closure] in ClassBuilder>>update:to: Arguments and temporary variables: aBlock: [closure] in BlockClosure>>valueUnpreemptively complete: nil returnValue: nil Receiver's instance variables: outerContext: ClassBuilder>>update:to: startpc: 75 numArgs: 0 BlockClosure>>valueUnpreemptively Receiver: [closure] in ClassBuilder>>update:to: Arguments and temporary variables: activeProcess: a Process in nil oldPriority: 40 result: nil Receiver's instance variables: outerContext: ClassBuilder>>update:to: startpc: 75 numArgs: 0 ClassBuilder>>update:to: Receiver: a ClassBuilder Arguments and temporary variables: oldClass: MaInstaller class newClass: MaInstaller class meta: true Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 ClassBuilder>>mutate:to: Receiver: a ClassBuilder Arguments and temporary variables: oldClass: MaInstaller class newClass: MaInstaller class Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 [] in [] in ClassBuilder>>recompile:from:to:mutate: Receiver: a ClassBuilder Arguments and temporary variables: <<error during printing> Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 BlockClosure>>on:do: Receiver: [closure] in [] in ClassBuilder>>recompile:from:to:mutate: Arguments and temporary variables: exception: CurrentReadOnlySourceFiles handlerAction: [closure] in CurrentReadOnlySourceFiles class>>cacheDuring: handlerActive: true Receiver's instance variables: outerContext: [] in ClassBuilder>>recompile:from:to:mutate: startpc: 161 numArgs: 0 CurrentReadOnlySourceFiles class>>cacheDuring: Receiver: CurrentReadOnlySourceFiles Arguments and temporary variables: aBlock: [closure] in [] in ClassBuilder>>recompile:from:to:mutate: currentReadOnlySouceFiles: {an ExpandedSourceFileArray(MultiByteFileStream: '/u...etc... Receiver's instance variables: superclass: Exception methodDict: a MethodDictionary(#defaultAction->(CurrentReadOnlySourceFiles>>#de...etc... format: 65541 instanceVariables: nil organization: ('handling' defaultAction) subclasses: nil name: #CurrentReadOnlySourceFiles classPool: nil sharedPools: nil environment: Smalltalk category: #'Files-System' [] in ClassBuilder>>recompile:from:to:mutate: Receiver: a ClassBuilder Arguments and temporary variables: <<error during printing> Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 [] in ClassBuilder>>informUserDuring: Receiver: a ClassBuilder Arguments and temporary variables: aBlock: [closure] in SystemProgressMorph>>position:label:min:max: bar: [closure] in ClassBuilder>>recompile:from:to:mutate: Receiver's instance variables: environ: Smalltalk classMap: nil instVarMap: an IdentityDictionary() progress: [closure] in SystemProgressMorph>>position:label:min:max: maxClassIndex: 1 currentClassIndex: 1 [] in [] in MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: <<error during printing> Receiver's instance variables: toolBuilder: nil BlockClosure>>on:do: Receiver: [closure] in [] in MorphicUIManager>>displayProgress:at:from:to:during: Arguments and temporary variables: exception: ProgressNotification handlerAction: [closure] in [] in MorphicUIManager>>displayProgress:at:from:to:...etc... handlerActive: true Receiver's instance variables: outerContext: [] in MorphicUIManager>>displayProgress:at:from:to:during: startpc: 86 numArgs: 0 [] in MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: <<error during printing> Receiver's instance variables: toolBuilder: nil BlockClosure>>ensure: Receiver: [closure] in MorphicUIManager>>displayProgress:at:from:to:during: Arguments and temporary variables: aBlock: [closure] in MorphicUIManager>>displayProgress:at:from:to:during: complete: nil returnValue: nil Receiver's instance variables: outerContext: MorphicUIManager>>displayProgress:at:from:to:during: startpc: 79 numArgs: 0 MorphicUIManager>>displayProgress:at:from:to:during: Receiver: a MorphicUIManager Arguments and temporary variables: titleString: ' ' aPoint: 400@300 minVal: 0 maxVal: 0 workBlock: [closure] in ClassBuilder>>informUserDuring: progress: [closure] in SystemProgressMorph>>position:label:min:max: result: #(nil) Receiver's instance variables: toolBuilder: nil ProgressInitiationException>>defaultResumeValue Receiver: ProgressInitiationException: Arguments and temporary variables: Receiver's instance variables: messageText: nil tag: nil signalContext: ProgressInitiationException(Exception)>>signal handlerContext: nil outerContext: nil workBlock: [closure] in ClassBuilder>>informUserDuring: maxVal: 0 minVal: 0 aPoint: 400@300 progressTitle: ' ' --- The full stack --- Metaclass(Object)>>error: Metaclass(ClassDescription)>>updateInstances:from:isMeta: Metaclass(ClassDescription)>>updateInstancesFrom: [] in ClassBuilder>>update:to: BlockClosure>>ensure: BlockClosure>>valueUnpreemptively ClassBuilder>>update:to: ClassBuilder>>mutate:to: [] in [] in ClassBuilder>>recompile:from:to:mutate: BlockClosure>>on:do: CurrentReadOnlySourceFiles class>>cacheDuring: [] in ClassBuilder>>recompile:from:to:mutate: [] in ClassBuilder>>informUserDuring: [] in [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>on:do: [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>ensure: MorphicUIManager>>displayProgress:at:from:to:during: ProgressInitiationException>>defaultResumeValue - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ProgressInitiationException(Exception)>>resume ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: SystemProgressMorph class>>informUserAt:during: MorphicUIManager>>informUserDuring: ClassBuilder>>informUserDuring: ClassBuilder>>recompile:from:to:mutate: ClassBuilder>>class:instanceVariableNames:unsafe: ClassBuilder>>class:instanceVariableNames: Metaclass>>instanceVariableNames: MCClassDefinition>>load [] in [] in [] in [] in [] in MCPackageLoader>>basicLoad [] in [] in OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection>>do: [] in OrderedCollection(Collection)>>do:displayingProgress:every: [] in [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>on:do: [] in MorphicUIManager>>displayProgress:at:from:to:during: BlockClosure>>ensure: MorphicUIManager>>displayProgress:at:from:to:during: ProgressInitiationException>>defaultResumeValue ProgressInitiationException(Exception)>>resume ProgressInitiationException>>defaultAction UndefinedObject>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: MethodContext(ContextPart)>>handleSignal: ProgressInitiationException(Exception)>>signal ProgressInitiationException>>display:at:from:to:during: ProgressInitiationException class>>display:at:from:to:during: ByteString(String)>>displayProgressAt:from:to:during: ByteString(String)>>displayProgressFrom:to:during: OrderedCollection(Collection)>>do:displayingProgress:every: OrderedCollection(Collection)>>do:displayingProgress: [] in [] in [] in [] in MCPackageLoader>>basicLoad -- and more not shown --

4 3

Re: [Newbies] material design for squeak!
by David T. Lewis 25 Jan '15

25 Jan '15

On Sun, Jan 25, 2015 at 09:02:35PM +0530, Mayuresh Kathe wrote: > considering the *great* graphics and animation support available under > squeak, would it be difficult to mould the squeak 'ui' to adhere to > material design guidelines [1] from google? > > 1. http://www.google.com/design/spec/material-design/introduction.html > > ~mayuresh > Designing and implementing user interfaces tends to be a lot of work, but aside from that I so no reason that it could not be done. One of the nice aspects of Squeak (often overlooked) is that it provides a concept of "projects" in which different types of user interface environments can be implemented. You can open a Morphic project or an MVC project, and the system will look and feel quite different depending which kind of project you are currently using. The concept can be extended to other kinds of UI implementation, such as the one you are suggesting here. I am cross-posting to the squeak-dev list, which is probably a better place to continue the discussion. Dave

2 4

Squeak 4.5: Tools-topa.520.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Tools to project Squeak 4.5: http://source.squeak.org/squeak45/Tools-topa.520.mcz ==================== Summary ==================== Name: Tools-topa.520 Author: topa Time: 24 January 2015, 3:33:41.564 pm UUID: b3b4946b-2a81-4d72-b665-2879d4cfd54a Ancestors: Tools-cmm.519 Cherry-picked from Trunk (Tools-topa.533): Fix notification about obsolete class references after a class rename =============== Diff against Tools-cmm.519 =============== Item was changed: ----- Method: Browser>>renameClass (in category 'class functions') ----- renameClass + | oldName newName obs oldBinding | - | oldName newName obs | self hasClassSelected ifFalse: [^ self]. self okToChange ifFalse: [^ self]. oldName := self selectedClass name. newName := self request: 'Please type new class name' initialAnswer: oldName. newName = '' ifTrue: [^ self]. "Cancel returns ''" newName := newName asSymbol. newName = oldName ifTrue: [^ self]. (self selectedClass environment includesKey: newName) ifTrue: [^ self error: newName , ' already exists']. + oldBinding := self selectedClass environment declarationOf: oldName. self selectedClass rename: newName. selectedClassName := newName. self changed: #classList. + obs := self systemNavigation allCallsOn: oldBinding. - obs := self systemNavigation - allCallsOn: (self selectedClass environment associationAt: newName). obs isEmpty ifFalse: [self systemNavigation browseMessageList: obs name: 'Obsolete References to ' , oldName autoSelect: oldName]. self selectClassNamed: newName.!

1 0

Squeak 4.5: Environments-topa.56.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-topa.56.mcz ==================== Summary ==================== Name: Environments-topa.56 Author: topa Time: 22 January 2015, 12:48:30.677 am UUID: e5cad590-2869-4f02-84ac-482952779d06 Ancestors: Environments-topa.55 Provide more Dictionary protocol for exisiting users of Smalltalk globals. =============== Diff against Environments-topa.55 =============== Item was added: + ----- Method: Environment>>associationsDo: (in category 'emulating') ----- + associationsDo: aBlock + "Evaluate aBlock for each of the receiver's elements (key/value associations)." + + declarations associationsDo: aBlock! Item was changed: ----- Method: Environment>>do: (in category 'emulating') ----- do: aBlock "Evaluate aBlock for each of the receiver's values." + self valuesDo: aBlock! - declarations valuesDo: aBlock! Item was added: + ----- Method: Environment>>keysAndValuesDo: (in category 'emulating') ----- + keysAndValuesDo: aBlock + ^self associationsDo: [:assoc | + aBlock value: assoc key value: assoc value].! Item was added: + ----- Method: Environment>>valuesDo: (in category 'emulating') ----- + valuesDo: aBlock + "Evaluate aBlock for each of the receiver's values." + + declarations valuesDo: aBlock!

1 0

Squeak 4.5: Environments-topa.55.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-topa.55.mcz ==================== Summary ==================== Name: Environments-topa.55 Author: topa Time: 21 January 2015, 11:15:37.19 am UUID: ac4cd9b0-1628-4881-a2c2-f6d1e1a6f089 Ancestors: Environments-topa.54 3rd attempt at class-rename fixes. This version a) avoids #becomeForward: b) fixes method homes after rename c) moves the obsolete binding to undeclared but keeps it working. Effectively, this is the outcome: | p | p := Object subclass: #A instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Unknown'. p compile: 'foo ^ A new'. " literals of #foo {#A=>A . #foo . #A=>A}" p rename: #B. " literals of #foo {#A=>B . #foo . #B=>B}" p new foo class == p. =============== Diff against Environments-topa.54 =============== Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." + | oldBinding newBinding category | - | binding category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. + oldBinding := self declarationOf: oldName. - binding := self declarationOf: oldName. declarations removeKey: oldName. + self binding: oldBinding removedFrom: self. + " re-route now undeclared oldBinding " + oldBinding value: aClass. - self binding: binding removedFrom: self. - undeclared removeKey: oldName. + newBinding := newName => aClass. + aClass updateMethodBindingsTo: newBinding. + declarations add: newBinding. + self binding: newBinding addedTo: self. - binding becomeForward: (newName => aClass). - declarations add: binding. - self binding: binding addedTo: self. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

1 0

Squeak 4.5: Environments-topa.54.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-topa.54.mcz ==================== Summary ==================== Name: Environments-topa.54 Author: topa Time: 20 January 2015, 4:12:36.674 pm UUID: b55bd16f-c2c0-4927-b170-4954383dd63f Ancestors: Environments-cmm.53 Update literal bindings in compiled methods when renaming a class. Restores working behavior of pre-Squeak4.5. =============== Diff against Environments-cmm.53 =============== Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | binding category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. + binding := self declarationOf: oldName. - binding := self associationAt: oldName. declarations removeKey: oldName. + self binding: binding removedFrom: self. + undeclared removeKey: oldName. + + binding becomeForward: (newName => aClass). + declarations add: binding. + self binding: binding addedTo: self. - bindings removeKey: oldName. - " self binding: binding removedFrom: self." - binding key: newName. - declarations add: binding. - bindings add: binding. - " self binding: binding addedTo: self." - Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

1 0

Squeak 4.5: Environments-cmm.53.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-cmm.53.mcz ==================== Summary ==================== Name: Environments-cmm.53 Author: cmm Time: 16 January 2015, 2:54:24.767 pm UUID: 69b32fc7-98f1-4c19-9976-a38106a9ee63 Ancestors: Environments-cmm.52 - Only change key when it is NOT in the 'bindings' Dictionary, otherwise it would be in a state inconsistent with its new hash. =============== Diff against Environments-cmm.52 =============== Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | binding category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. binding := self associationAt: oldName. declarations removeKey: oldName. + bindings removeKey: oldName. " self binding: binding removedFrom: self." binding key: newName. + declarations add: binding. + bindings add: binding. - declarations add: binding. " self binding: binding addedTo: self." Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

1 0

Squeak 4.5: Environments-cmm.52.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-cmm.52.mcz ==================== Summary ==================== Name: Environments-cmm.52 Author: cmm Time: 16 January 2015, 2:40:52.666 pm UUID: 3da327fd-f1d6-49e1-ac81-0207b9264153 Ancestors: Environments-cmm.51, Environments-nice.47 - Roll back cwp.50 because creating a new binding leaves the CM-literal bindings in their old state. - Don't signal #binding:removedFrom: because it's becoming the literal in CM's to a newly created Undeclared literal with the old name. - So since we no longer signal removed: don't signal #binding:addedTo: either. Renaming is a updating of a binding, not a removing or adding. =============== Diff against Environments-cmm.51 =============== Item was changed: ----- Method: Environment>>renameClass:from:to: (in category 'classes and traits') ----- renameClass: aClass from: oldName to: newName "Rename the class, aClass, to have the title newName." | binding category | category := self organization categoryOfElement: oldName. self organization classify: newName under: category suppressIfDefault: true. self organization removeElement: oldName. + binding := self associationAt: oldName. - binding := self declarationOf: oldName. declarations removeKey: oldName. + " self binding: binding removedFrom: self." - self binding: binding removedFrom: self. + binding key: newName. - binding := newName => aClass. declarations add: binding. + " self binding: binding addedTo: self." - self binding: binding addedTo: self. Smalltalk renamedClass: aClass from: oldName to: newName. SystemChangeNotifier uniqueInstance classRenamed: aClass from: oldName to: newName inCategory: category!

1 0

Squeak 4.5: Environments-nice.47.mcz
by commits＠source.squeak.org 24 Jan '15

24 Jan '15

Tobias Pape uploaded a new version of Environments to project Squeak 4.5: http://source.squeak.org/squeak45/Environments-nice.47.mcz ==================== Summary ==================== Name: Environments-nice.47 Author: nice Time: 25 May 2014, 12:22:16.232 am UUID: 83f41a4a-d652-4246-8c98-587bf994a91a Ancestors: Environments-ul.46 Rename EnvironmentRequest to CurrentEnvironment and use it to implement Environment class>>current. Or more exactly, replace with rather than rename (and don't remove EnvironmentRequest yet, otherwise the update-stream which is using EnvironmentRequest via Monticello will fail) =============== Diff against Environments-ul.46 =============== Item was added: + Notification subclass: #CurrentEnvironment + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Environments-Loading'! Item was added: + ----- Method: Environment class>>current (in category 'accessing') ----- + current + ^ CurrentEnvironment signal ifNil: [self default]! Item was changed: ----- Method: EnvironmentLoader>>evaluate: (in category 'as yet unclassified') ----- evaluate: chunk ^ [Compiler evaluate: chunk environment: environment] + on: CurrentEnvironment - on: EnvironmentRequest do: [:req | req resume: environment]! Item was changed: ----- Method: EnvironmentLoader>>evaluate:logged: (in category 'as yet unclassified') ----- evaluate: chunk logged: aBoolean ^ [Compiler evaluate: chunk environment: environment logged: aBoolean] + on: CurrentEnvironment - on: EnvironmentRequest do: [:req | req resume: environment]!

1 0

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

Jump to page: